X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=csrc%2Fpfinnrfp.h;h=e6c0104cdee7c481a5e6f668ab54f21329f77148;hb=419d914ec44e5355d7f9446c98730ee0454acb26;hp=0428b259223b3d42aabd5b6bd654b0d054eb2d9c;hpb=a33d774ea958a89130114faf70810f48fd12781d;p=debian%2Fpforth

diff --git a/csrc/pfinnrfp.h b/csrc/pfinnrfp.h
index 0428b25..e6c0104 100644
--- a/csrc/pfinnrfp.h
+++ b/csrc/pfinnrfp.h
@@ -22,8 +22,8 @@
 ***************************************************************/
 
 #ifdef PF_SUPPORT_FP
-
-#define FP_DHI1  (((PF_FLOAT)0x40000000)*4.0)
+
+#define FP_DHI1 (((PF_FLOAT)(1L<<(sizeof(cell_t)*8-2)))*4.0)
 
 	case ID_FP_D_TO_F: /* ( dlo dhi -- ) ( F: -- r ) */
 		PUSH_FP_TOS;