X-Git-Url: http://git.subgeniuskitty.com/pforth/.git/blobdiff_plain/8e9db35f299d8f606ba003d3cd8fa9e2c868c880..58a4c23bbd72fd0fde36266e8c9faa4e199d1232:/csrc/pfinnrfp.h

diff --git a/csrc/pfinnrfp.h b/csrc/pfinnrfp.h
index b74b045..23b379b 100644
--- a/csrc/pfinnrfp.h
+++ b/csrc/pfinnrfp.h
@@ -23,7 +23,7 @@
 
 #ifdef PF_SUPPORT_FP
 
-#define FP_DHI1 (((PF_FLOAT)(1L<<(sizeof(cell_t)*8-2)))*4.0)
+#define FP_DHI1 (((PF_FLOAT)((cell_t)1<<(sizeof(cell_t)*8-2)))*4.0)
 
     case ID_FP_D_TO_F: /* ( dlo dhi -- ) ( F: -- r ) */
         PUSH_FP_TOS;
@@ -206,7 +206,9 @@
         break;
 
     case ID_FP_FROUND:
-        ERR("\nID_FP_FROUND -  Not Yet!! FIXME\n");
+        PUSH_TOS;
+        TOS = (cell_t)fp_round(FP_TOS);
+        M_FP_DROP;
         break;
 
     case ID_FP_FSWAP: /* ( -- ) ( F: r1 r2 -- r2 r1 ) */