** Print number in current base to output stream.\r
** This version does not handle double precision.\r
*/\r
-void ffDot( int32 n )\r
+void ffDot( cell_t n )\r
{\r
MSG( ConvertNumberToText( n, gVarBase, TRUE, 1 ) );\r
EMIT(' ');\r
** Print number in current base to output stream.\r
** This version does not handle double precision.\r
*/\r
-void ffDotHex( int32 n )\r
+void ffDotHex( cell_t n )\r
{\r
MSG( ConvertNumberToText( n, 16, FALSE, 1 ) );\r
EMIT(' ');\r
/* ( ... --- ... , print stack ) */\r
void ffDotS( void )\r
{\r
- cell *sp;\r
- int32 i, Depth;\r
+ cell_t *sp;\r
+ cell_t i, Depth;\r
\r
MSG("Stack<");\r
MSG( ConvertNumberToText( gVarBase, 10, TRUE, 1 ) ); /* Print base in decimal. */\r
}\r
\r
/* ( addr cnt char -- addr' cnt' , skip leading characters ) */\r
-cell ffSkip( char *AddrIn, cell Cnt, char c, char **AddrOut )\r
+cell_t ffSkip( char *AddrIn, cell_t Cnt, char c, char **AddrOut )\r
{\r
char *s;\r
\r
}\r
\r
/* ( addr cnt char -- addr' cnt' , scan for char ) */\r
-cell ffScan( char *AddrIn, cell Cnt, char c, char **AddrOut )\r
+cell_t ffScan( char *AddrIn, cell_t Cnt, char c, char **AddrOut )\r
{\r
char *s;\r
\r
***************************************************************/\r
\r
/* Convert a single digit to the corresponding hex number. */\r
-static cell HexDigitToNumber( char c )\r
+static cell_t HexDigitToNumber( char c )\r
{ \r
if( (c >= '0') && (c <= '9') )\r
{\r
}\r
\r
/* Convert a string to the corresponding number using BASE. */\r
-cell ffNumberQ( const char *FWord, cell *Num )\r
+cell_t ffNumberQ( const char *FWord, cell_t *Num )\r
{\r
- int32 Len, i, Accum=0, n, Sign=1;\r
+ cell_t Len, i, Accum=0, n, Sign=1;\r
const char *s;\r
\r
/* get count */\r
char * ffWord( char c )\r
{\r
char *s1,*s2,*s3;\r
- int32 n1, n2, n3;\r
- int32 i, nc;\r
+ cell_t n1, n2, n3;\r
+ cell_t i, nc;\r
\r
s1 = gCurrentTask->td_SourcePtr + gCurrentTask->td_IN;\r
n1 = gCurrentTask->td_SourceNum - gCurrentTask->td_IN;\r