shithub: MicroHs

Download patch

ref: 4c3d3b610e066cc7273af215c2a401df3ef704b9
parent: 46e95ea2e5ff51c9b74c781843f03269b31c0779
author: Lennart Augustsson <lennart.augustsson@epicgames.com>
date: Sat Jan 13 06:58:13 EST 2024

Make it compile with WANT_FLOAT=0

--- a/src/runtime/eval.c
+++ b/src/runtime/eval.c
@@ -1201,7 +1201,6 @@
   NODEPTR *nodep;
   heapoffs_t l;
   value_t i;
-  flt_t d;
   int c;
   char buf[80];                 /* store names of primitives. */
 
@@ -1224,8 +1223,14 @@
         ERR("parse: stack");
       return x;
     case '&':
-      d = parse_double(f);
-      r = mkFlt(d);
+#if WANT_FLOAT
+      r = mkFlt(parse_double(f));
+#else
+      while (getNT(f))          /* skip the float constant */
+        ;
+      r = alloc_node(T_DBL);
+      SETVALUE(r, 0);
+#endif
       PUSH(r);
       break;
     case '#':
--