V25 with 64-bit support

[pforth] / csrc / pf_cglue.c

diff --git a/csrc/pf_cglue.c b/csrc/pf_cglue.c
index d768ea4..2e6f52d 100644 (file)
--- a/csrc/pf_cglue.c
+++ b/csrc/pf_cglue.c
@@ -21,10 +21,10 @@
 extern CFunc0 CustomFunctionTable[];\r
 \r
 /***************************************************************/\r
 extern CFunc0 CustomFunctionTable[];\r
 \r
 /***************************************************************/\r

-int32 CallUserFunction( int32 Index, int32 ReturnMode, int32 NumParams )\r
+cell_t CallUserFunction( cell_t Index, int32_t ReturnMode, int32_t NumParams )\r

 {\r
 {\r

-       cell P1, P2, P3, P4, P5;\r
-       cell Result = 0;\r
+       cell_t P1, P2, P3, P4, P5;\r
+       cell_t Result = 0;\r

        CFunc0 CF;\r
 \r
 DBUG(("CallUserFunction: Index = %d, ReturnMode = %d, NumParams = %d\n",\r
        CFunc0 CF;\r
 \r
 DBUG(("CallUserFunction: Index = %d, ReturnMode = %d, NumParams = %d\n",\r


@@ -80,9 +80,9 @@ DBUG(("CallUserFunction: Index = %d, ReturnMode = %d, NumParams = %d\n",
 \r
 #if (!defined(PF_NO_INIT)) && (!defined(PF_NO_SHELL))\r
 /***************************************************************/\r
 \r
 #if (!defined(PF_NO_INIT)) && (!defined(PF_NO_SHELL))\r
 /***************************************************************/\r

-Err CreateGlueToC( const char *CName, uint32 Index, int32 ReturnMode, int32 NumParams )\r
+Err CreateGlueToC( const char *CName, ucell_t Index, cell_t ReturnMode, int32_t NumParams )\r

 {\r
 {\r

-       uint32 Packed;\r
+       ucell_t Packed;\r

        char FName[40];\r
        \r
        CStringToForth( FName, CName );\r
        char FName[40];\r
        \r
        CStringToForth( FName, CName );\r