gCurrentDictionary->dic_HeaderPtr += sizeof(cfNameLinks);\r
\r
/* Laydown name. */\r
- gVarContext = (char *) gCurrentDictionary->dic_HeaderPtr;\r
- pfCopyMemory( (char *)gCurrentDictionary->dic_HeaderPtr, FName, (*FName)+1 );\r
+ gVarContext = gCurrentDictionary->dic_HeaderPtr;\r
+ pfCopyMemory( (uint8_t *) gCurrentDictionary->dic_HeaderPtr, FName, (*FName)+1 );\r
gCurrentDictionary->dic_HeaderPtr += (*FName)+1;\r
\r
/* Set flags. */\r
void CreateDicEntryC( ExecToken XT, const char *CName, ucell_t Flags )\r
{\r
ForthString FName[40];\r
- CStringToForth( FName, CName );\r
+ CStringToForth( FName, CName, sizeof(FName) );\r
CreateDicEntry( XT, FName, Flags );\r
}\r
\r
/* DBUG(("\nNameToPrevious: RelNamePtr = 0x%x\n", (cell_t) RelNamePtr )); */\r
if( RelNamePtr )\r
{\r
- return ( NAMEREL_TO_ABS( RelNamePtr ) );\r
+ return ( (ForthString *) NAMEREL_TO_ABS( RelNamePtr ) );\r
}\r
else\r
{\r
cell_t Result = 0;\r
ExecToken TempXT;\r
\r
- NameField = gVarContext;\r
+ NameField = (ForthString *) gVarContext;\r
DBUGX(("\ffCodeToName: gVarContext = 0x%x\n", gVarContext));\r
\r
do\r
WordLen = (uint8_t) ((ucell_t)*WordName & 0x1F);\r
WordChar = WordName+1;\r
\r
- NameField = gVarContext;\r
+ NameField = (ForthString *) gVarContext;\r
DBUG(("\nffFindNFA: WordLen = %d, WordName = %*s\n", WordLen, WordLen, WordChar ));\r
DBUG(("\nffFindNFA: gVarContext = 0x%x\n", gVarContext));\r
do\r
cell_t ffFindC( const char *WordName, ExecToken *pXT )\r
{\r
DBUG(("ffFindC: %s\n", WordName ));\r
- CStringToForth( gScratch, WordName );\r
+ CStringToForth( gScratch, WordName, sizeof(gScratch) );\r
return ffFind( gScratch, pXT );\r
}\r
\r
if ( flag && !gVarQuiet)\r
{\r
ioType( FName+1, (cell_t) *FName );\r
- MSG( " redefined.\n" ); // FIXME - allow user to run off this warning.\r
+ MSG( " redefined.\n" ); /* FIXME - allow user to run off this warning. */\r
}\r
return flag;\r
}\r
static void CreateDeferredC( ExecToken DefaultXT, const char *CName )\r
{\r
char FName[40];\r
- CStringToForth( FName, CName );\r
+ CStringToForth( FName, CName, sizeof(FName) );\r
ffStringDefer( FName, DefaultXT );\r
}\r
#endif\r