X-Git-Url: http://git.subgeniuskitty.com/pforth/.git/blobdiff_plain/bb6b2dcdd9acffabfd373c4c3f6b64a9cc43f335..2bfdc82f9e73c8393d2853968db5b0b82e7537d5:/csrc/pf_cglue.c

diff --git a/csrc/pf_cglue.c b/csrc/pf_cglue.c
index d768ea4..0ec1e70 100644
--- a/csrc/pf_cglue.c
+++ b/csrc/pf_cglue.c
@@ -21,10 +21,10 @@
 extern CFunc0 CustomFunctionTable[];
 
 /***************************************************************/
-int32 CallUserFunction( int32 Index, int32 ReturnMode, int32 NumParams )
+cell_t CallUserFunction( cell_t Index, int32_t ReturnMode, int32_t NumParams )
 {
-	cell P1, P2, P3, P4, P5;
-	cell Result = 0;
+	cell_t P1, P2, P3, P4, P5;
+	cell_t Result = 0;
 	CFunc0 CF;
 
 DBUG(("CallUserFunction: Index = %d, ReturnMode = %d, NumParams = %d\n",
@@ -80,12 +80,12 @@ DBUG(("CallUserFunction: Index = %d, ReturnMode = %d, NumParams = %d\n",
 
 #if (!defined(PF_NO_INIT)) && (!defined(PF_NO_SHELL))
 /***************************************************************/
-Err CreateGlueToC( const char *CName, uint32 Index, int32 ReturnMode, int32 NumParams )
+Err CreateGlueToC( const char *CName, ucell_t Index, cell_t ReturnMode, int32_t NumParams )
 {
-	uint32 Packed;
+	ucell_t Packed;
 	char FName[40];
 	
-	CStringToForth( FName, CName );
+	CStringToForth( FName, CName, sizeof(FName) );
 	Packed = (Index & 0xFFFF) | 0 | (NumParams << 24) |
 		(ReturnMode << 31);
 	DBUG(("Packed = 0x%8x\n", Packed));