Make it compile with WANT_FLOAT=0

augustss · Jan 13, 2024 · 4c3d3b6 · 4c3d3b6
1 parent 46e95ea
commit 4c3d3b6
Showing 1 changed file with 8 additions and 3 deletions.
diff --git a/src/runtime/eval.c b/src/runtime/eval.c
@@ -1201,7 +1201,6 @@ parse(BFILE *f)
   NODEPTR *nodep;
   heapoffs_t l;
   value_t i;
-  flt_t d;
   int c;
   char buf[80];                 /* store names of primitives. */
 
@@ -1224,8 +1223,14 @@ parse(BFILE *f)
         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 '#':