projects
/
pforth
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
tags
|
clone url
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Sample crossbuild makefile
[pforth]
/
csrc
/
pfcompil.c
diff --git
a/csrc/pfcompil.c
b/csrc/pfcompil.c
index
feb85db
..
bc4c585
100644
(file)
--- a/
csrc/pfcompil.c
+++ b/
csrc/pfcompil.c
@@
-97,7
+97,7
@@
void CreateDicEntry( ExecToken XT, const ForthStringPtr FName, ucell_t Flags )
void CreateDicEntryC( ExecToken XT, const char *CName, ucell_t Flags )
\r
{
\r
ForthString FName[40];
\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
CreateDicEntry( XT, FName, Flags );
\r
}
\r
\r
@@
-513,7
+513,7
@@
DBUG(("ffFind: %8s at 0x%x\n", WordName+1, NFA)); /* WARNING, not NUL terminated
cell_t ffFindC( const char *WordName, ExecToken *pXT )
\r
{
\r
DBUG(("ffFindC: %s\n", WordName ));
\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
return ffFind( gScratch, pXT );
\r
}
\r
\r
@@
-643,7
+643,7
@@
void ffStringDefer( const ForthStringPtr FName, ExecToken DefaultXT )
static void CreateDeferredC( ExecToken DefaultXT, const char *CName )
\r
{
\r
char FName[40];
\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
ffStringDefer( FName, DefaultXT );
\r
}
\r
#endif
\r