X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=csrc%2Fpfinnrfp.h;fp=csrc%2Fpfinnrfp.h;h=23b379b0f5cbc0cd6f6bfa46bf273c89c4975854;hb=58a4c23bbd72fd0fde36266e8c9faa4e199d1232;hp=ec476f7d5470b9cdf2307df81832888c21ce4fc3;hpb=529bb4e23b94186596ca0e3f5d295b0be95d4fad;p=debian%2Fpforth

diff --git a/csrc/pfinnrfp.h b/csrc/pfinnrfp.h
index ec476f7..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;