Add support for WATCOMC

[pforth] / csrc / pf_cglue.c

diff --git a/csrc/pf_cglue.c b/csrc/pf_cglue.c
index 2e6f52d..0ec1e70 100644 (file)
--- a/csrc/pf_cglue.c
+++ b/csrc/pf_cglue.c
@@ -85,7 +85,7 @@ Err CreateGlueToC( const char *CName, ucell_t Index, cell_t ReturnMode, int32_t
        ucell_t Packed;\r
        char FName[40];\r
        \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
        Packed = (Index & 0xFFFF) | 0 | (NumParams << 24) |\r
                (ReturnMode << 31);\r
        DBUG(("Packed = 0x%8x\n", Packed));\r