X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=csrc%2Fpfinnrfp.h;fp=csrc%2Fpfinnrfp.h;h=0428b259223b3d42aabd5b6bd654b0d054eb2d9c;hb=1cb310e62eaf4422ee298d9d87c35f9dd6b4c71c;hp=d0bd4ab428f2d044ab0a7af5f4d484b850c957b1;hpb=970d32b553a44051cedd2caf34267b7b1cdbab78;p=debian%2Fpforth

diff --git a/csrc/pfinnrfp.h b/csrc/pfinnrfp.h
index d0bd4ab..0428b25 100644
--- a/csrc/pfinnrfp.h
+++ b/csrc/pfinnrfp.h
@@ -41,7 +41,7 @@
 		{
 			fpTemp = ((PF_FLOAT) TOS); /* dhi */
 			fpTemp *= FP_DHI1;
-			fpScratch = ( (PF_FLOAT) ((uint32)Scratch) );  /* Convert TOS and push on FP stack. */
+			fpScratch = ( (PF_FLOAT) ((ucell_t)Scratch) );  /* Convert TOS and push on FP stack. */
 			FP_TOS = fpTemp + fpScratch;
 		}	
 		M_DROP;
@@ -102,8 +102,8 @@
 	case ID_FP_F_TO_D: /* ( -- dlo dhi) ( F: r -- ) */
 		/* printf("f2d = %g\n", FP_TOS); */
 		{
-			uint32 dlo;
-			int32 dhi;
+			ucell_t dlo;
+			cell_t dhi;
 			int ifNeg;
 	/* Convert absolute value, then negate D if negative. */
 			PUSH_TOS;   /* Save old TOS */
@@ -116,12 +116,12 @@
 			}
 			fpScratch = fpTemp / FP_DHI1;
 		/* printf("f2d - fpScratch = %g\n", fpScratch); */
-			dhi = (int32) fpScratch;  /* dhi */
+			dhi = (cell_t) fpScratch;  /* dhi */
 			fpScratch = ((PF_FLOAT) dhi) * FP_DHI1;
 		/* printf("f2d - , dhi = 0x%x, fpScratch = %g\n", dhi, fpScratch); */
 		
 			fpTemp = fpTemp - fpScratch; /* Remainder */
-			dlo = (uint32) fpTemp;
+			dlo = (ucell_t) fpTemp;
 		/* printf("f2d - , dlo = 0x%x, fpTemp = %g\n", dlo, fpTemp); */
 			if( ifNeg )
 			{
@@ -284,7 +284,7 @@
 			PF_FLOAT *fptr;
 			fptr = (PF_FLOAT *)InsPtr;
 			FP_TOS = READ_FLOAT_DIC( fptr++ );
-			InsPtr = (cell *) fptr;
+			InsPtr = (cell_t *) fptr;
 		}
 #endif
 		endcase;