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
- 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
\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
- uint32 Packed;\r
+ ucell_t Packed;\r
char FName[40];\r
\r
- CStringToForth( FName, CName );\r
+ CStringToForth( FName, CName, sizeof(FName) );\r
Packed = (Index & 0xFFFF) | 0 | (NumParams << 24) |\r
(ReturnMode << 31);\r
DBUG(("Packed = 0x%8x\n", Packed));\r