From: eck <none@none>
Date: Wed, 28 Feb 1990 15:32:07 +0000 (+0000)
Subject: also give a message on loading a floating-point function result
X-Git-Tag: release-5-5~1797
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=2dd3439f901f5ec1412f33f03d55a2a6c179eacb;p=ack.git

also give a message on loading a floating-point function result
---

diff --git a/lang/cem/cemcom.ansi/eval.c b/lang/cem/cemcom.ansi/eval.c
index 8c0173c75..3a59b9cc1 100644
--- a/lang/cem/cemcom.ansi/eval.c
+++ b/lang/cem/cemcom.ansi/eval.c
@@ -539,6 +539,9 @@ EVAL(expr, val, code, true_label, false_label)
 				else
 					C_lfr(ATW(tp->tp_size));
 			}
+			if (tp->tp_fund == FLOAT || tp->tp_fund == DOUBLE
+			    || tp->tp_fund == LNGDBL)
+				fp_used = 1;
 			/* ??? set filename and line number ??? */
 			break;
 		}