X-Git-Url: http://git.subgeniuskitty.com/pforth/.git/blobdiff_plain/a80283a747da0ca5a791dcfc5fe1a6261feecc5c..f53726febc36028ff9d524cda6e3ea7b90140c85:/csrc/pfcompil.c

diff --git a/csrc/pfcompil.c b/csrc/pfcompil.c
index feb85db..bc4c585 100644
--- 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 )
 {
 	ForthString FName[40];
-	CStringToForth( FName, CName );
+	CStringToForth( FName, CName, sizeof(FName) );
 	CreateDicEntry( XT, FName, Flags );
 }
 
@@ -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 )
 {
 DBUG(("ffFindC: %s\n", WordName ));
-	CStringToForth( gScratch, WordName );
+	CStringToForth( gScratch, WordName, sizeof(gScratch) );
 	return ffFind( gScratch, pXT );
 }
 
@@ -643,7 +643,7 @@ void ffStringDefer( const ForthStringPtr FName, ExecToken DefaultXT )
 static void CreateDeferredC( ExecToken DefaultXT, const char *CName )
 {
 	char FName[40];
-	CStringToForth( FName, CName );
+	CStringToForth( FName, CName, sizeof(FName) );
 	ffStringDefer( FName, DefaultXT );
 }
 #endif