**\r
***************************************************************/\r
\r
+#include <sys/types.h>\r
+\r
#include "pf_all.h"\r
\r
-#ifdef WIN32\r
+#if defined(WIN32) && !defined(__MINGW32__)\r
#include <crtdbg.h>\r
#endif\r
\r
CodeSize = TOS;\r
NameSize = M_POP;\r
EntryPoint = M_POP;\r
- ForthStringToC( gScratch, (char *) M_POP );\r
+ ForthStringToC( gScratch, (char *) M_POP, sizeof(gScratch) );\r
TOS = ffSaveForth( gScratch, EntryPoint, NameSize, CodeSize );\r
}\r
endcase;\r