From 2dd3439f901f5ec1412f33f03d55a2a6c179eacb Mon Sep 17 00:00:00 2001
From: eck <none@none>
Date: Wed, 28 Feb 1990 15:32:07 +0000
Subject: [PATCH] also give a message on loading a floating-point function
 result

---
 lang/cem/cemcom.ansi/eval.c | 3 +++
 1 file changed, 3 insertions(+)

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;
 		}
-- 
2.34.1