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 8c0173c..3a59b9c 100644 (file)
--- 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;
                }