pforth: fix FROUND

It used to push the result to the integer data stack. That was wrong. It should go to the float stack. Fixes #69
philburk · Oct 31, 2021 · f3596ac · f3596ac
1 parent 268cc11
commit f3596ac
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/csrc/pfinnrfp.h b/csrc/pfinnrfp.h
@@ -209,9 +209,11 @@
         break;
 
     case ID_FP_FROUND:
-        PUSH_TOS;
-        TOS = (cell_t)fp_round(FP_TOS);
-        M_FP_DROP;
+        /* This was broken before and used to push its result to the
+         * integer data stack! Now it conforms to the ANSI standard.
+         * https://github.com/philburk/pforth/issues/69
+         */
+        FP_TOS = (PF_FLOAT)fp_round(FP_TOS);
         break;
 
     case ID_FP_FSWAP: /* ( -- ) ( F: r1 r2 -- r2 r1 ) */