#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;
case ID_FP_FROUND:
PUSH_TOS;
- TOS = fp_round(FP_TOS);
+ TOS = (cell_t)fp_round(FP_TOS);
M_FP_DROP;
break;