projects
/
pforth
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
tags
|
clone url
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
V25 with 64-bit support
[pforth]
/
csrc
/
pf_text.c
diff --git
a/csrc/pf_text.c
b/csrc/pf_text.c
index
ebf5c48
..
9530546
100644
(file)
--- a/
csrc/pf_text.c
+++ b/
csrc/pf_text.c
@@
-82,6
+82,8
@@
void pfReportError( const char *FunctionName, Err ErrCode )
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
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
default:
\r
s = "unrecognized error code!"; break;
\r
}
\r
@@
-135,9
+137,9
@@
void pfReportThrow( ThrowCode code )
\r
char *ForthStringToC( char *dst, const char *FString )
\r
{
\r
\r
char *ForthStringToC( char *dst, const char *FString )
\r
{
\r
-
int32
Len;
\r
+
cell_t
Len;
\r
\r
\r
- Len = (
int32
) *FString;
\r
+ Len = (
cell_t
) *FString;
\r
pfCopyMemory( dst, FString+1, Len );
\r
dst[Len] = '\0';
\r
\r
pfCopyMemory( dst, FString+1, Len );
\r
dst[Len] = '\0';
\r
\r
@@
-150,7
+152,7
@@
char *ForthStringToC( char *dst, const char *FString )
char *CStringToForth( char *dst, const char *CString )
\r
{
\r
char *s;
\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
\r
s = dst+1;
\r
for( i=0; *CString; i++ )
\r
@@
-165,9
+167,9
@@
char *CStringToForth( char *dst, const char *CString )
** Compare two test strings, case sensitive.
\r
** Return TRUE if they match.
\r
*/
\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
{
\r
-
int32
i, Result;
\r
+
cell_t
i, Result;
\r
\r
Result = TRUE;
\r
for( i=0; i<len; i++ )
\r
\r
Result = TRUE;
\r
for( i=0; i<len; i++ )
\r
@@
-187,9
+189,9
@@
DBUGX(("ffCompareText: return 0x%x\n", Result ));
** Compare two test strings, case INsensitive.
\r
** Return TRUE if they match.
\r
*/
\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
{
\r
-
int32
i, Result;
\r
+
cell_t
i, Result;
\r
char c1,c2;
\r
\r
Result = TRUE;
\r
char c1,c2;
\r
\r
Result = TRUE;
\r
@@
-212,9
+214,9
@@
DBUGX(("ffCompareText: return 0x%x\n", Result ));
** Compare two strings, case sensitive.
\r
** Return zero if they match, -1 if s1<s2, +1 is s1>s2;
\r
*/
\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
{
\r
-
int32
i, result, n, diff;
\r
+
cell_t
i, result, n, diff;
\r
\r
result = 0;
\r
n = MIN(len1,len2);
\r
\r
result = 0;
\r
n = MIN(len1,len2);
\r
@@
-243,15
+245,15
@@
int32 ffCompare( const char *s1, int32 len1, const char *s2, int32 len2 )
/***************************************************************
\r
** Convert number to text.
\r
*/
\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
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
{
\r
-
int32
IfNegative = 0;
\r
+
cell_t
IfNegative = 0;
\r
char *p,c;
\r
char *p,c;
\r
- u
int32
NewNum, Rem, uNum;
\r
-
int32
i = 0;
\r
+ u
cell_t
NewNum, Rem, uNum;
\r
+
cell_t
i = 0;
\r
\r
uNum = Num;
\r
if( IfSigned )
\r
\r
uNum = Num;
\r
if( IfSigned )
\r
@@
-287,9
+289,9
@@
char *ConvertNumberToText( int32 Num, int32 Base, int32 IfSigned, int32 MinChars
/***************************************************************
\r
** Diagnostic routine that prints memory in table format.
\r
*/
\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
{
\r
-
int32
ln, cn, nlines;
\r
+
cell_t
ln, cn, nlines;
\r
unsigned char *ptr, *cptr, c;
\r
\r
nlines = (cnt + 15) / 16;
\r
unsigned char *ptr, *cptr, c;
\r
\r
nlines = (cnt + 15) / 16;
\r
@@
-300,12
+302,12
@@
void DumpMemory( void *addr, int32 cnt)
\r
for (ln=0; ln<nlines; ln++)
\r
{
\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(": ");
\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
EMIT(' ');
\r
}
\r
EMIT(' ');
\r
@@
-324,7
+326,7
@@
void DumpMemory( void *addr, int32 cnt)
void TypeName( const char *Name )
\r
{
\r
const char *FirstChar;
\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
\r
FirstChar = Name+1;
\r
Len = *Name & 0x1F;
\r