s = "endian-ness of dictionary does not match code"; break;\r
case PF_ERR_FLOAT_CONFLICT & 0xFF:\r
s = "float support mismatch between .dic file and code"; break;\r
+ case PF_ERR_CELL_SIZE_CONFLICT & 0xFF:\r
+ s = "cell size mismatch between .dic file and code"; break;\r
default:\r
s = "unrecognized error code!"; break;\r
}\r
\r
char *ForthStringToC( char *dst, const char *FString )\r
{\r
- int32 Len;\r
+ cell_t Len;\r
\r
- Len = (int32) *FString;\r
+ Len = (cell_t) *FString;\r
pfCopyMemory( dst, FString+1, Len );\r
dst[Len] = '\0';\r
\r
char *CStringToForth( char *dst, const char *CString )\r
{\r
char *s;\r
- int32 i;\r
+ cell_t i;\r
\r
s = dst+1;\r
for( i=0; *CString; i++ )\r
** Compare two test strings, case sensitive.\r
** Return TRUE if they match.\r
*/\r
-int32 ffCompareText( const char *s1, const char *s2, int32 len )\r
+cell_t ffCompareText( const char *s1, const char *s2, cell_t len )\r
{\r
- int32 i, Result;\r
+ cell_t i, Result;\r
\r
Result = TRUE;\r
for( i=0; i<len; i++ )\r
** Compare two test strings, case INsensitive.\r
** Return TRUE if they match.\r
*/\r
-int32 ffCompareTextCaseN( const char *s1, const char *s2, int32 len )\r
+cell_t ffCompareTextCaseN( const char *s1, const char *s2, cell_t len )\r
{\r
- int32 i, Result;\r
+ cell_t i, Result;\r
char c1,c2;\r
\r
Result = TRUE;\r
** Compare two strings, case sensitive.\r
** Return zero if they match, -1 if s1<s2, +1 is s1>s2;\r
*/\r
-int32 ffCompare( const char *s1, int32 len1, const char *s2, int32 len2 )\r
+cell_t ffCompare( const char *s1, cell_t len1, const char *s2, int32_t len2 )\r
{\r
- int32 i, result, n, diff;\r
+ cell_t i, result, n, diff;\r
\r
result = 0;\r
n = MIN(len1,len2);\r
/***************************************************************\r
** Convert number to text.\r
*/\r
-#define CNTT_PAD_SIZE ((sizeof(int32)*8)+2) /* PLB 19980522 - Expand PAD so "-1 binary .s" doesn't crash. */\r
+#define CNTT_PAD_SIZE ((sizeof(cell_t)*8)+2) /* PLB 19980522 - Expand PAD so "-1 binary .s" doesn't crash. */\r
static char cnttPad[CNTT_PAD_SIZE];\r
\r
-char *ConvertNumberToText( int32 Num, int32 Base, int32 IfSigned, int32 MinChars )\r
+char *ConvertNumberToText( cell_t Num, cell_t Base, int32_t IfSigned, int32_t MinChars )\r
{\r
- int32 IfNegative = 0;\r
+ cell_t IfNegative = 0;\r
char *p,c;\r
- uint32 NewNum, Rem, uNum;\r
- int32 i = 0;\r
+ ucell_t NewNum, Rem, uNum;\r
+ cell_t i = 0;\r
\r
uNum = Num;\r
if( IfSigned )\r
/***************************************************************\r
** Diagnostic routine that prints memory in table format.\r
*/\r
-void DumpMemory( void *addr, int32 cnt)\r
+void DumpMemory( void *addr, cell_t cnt)\r
{\r
- int32 ln, cn, nlines;\r
+ cell_t ln, cn, nlines;\r
unsigned char *ptr, *cptr, c;\r
\r
nlines = (cnt + 15) / 16;\r
\r
for (ln=0; ln<nlines; ln++)\r
{\r
- MSG( ConvertNumberToText( (int32) ptr, 16, FALSE, 8 ) );\r
+ MSG( ConvertNumberToText( (cell_t) ptr, 16, FALSE, 8 ) );\r
MSG(": ");\r
cptr = ptr;\r
for (cn=0; cn<16; cn++)\r
{\r
- MSG( ConvertNumberToText( (int32) *cptr++, 16, FALSE, 2 ) );\r
+ MSG( ConvertNumberToText( (cell_t) *cptr++, 16, FALSE, 2 ) );\r
EMIT(' ');\r
}\r
EMIT(' ');\r
void TypeName( const char *Name )\r
{\r
const char *FirstChar;\r
- int32 Len;\r
+ cell_t Len;\r
\r
FirstChar = Name+1;\r
Len = *Name & 0x1F;\r