X-Git-Url: https://git.subgeniuskitty.com/pforth/.git/blobdiff_plain/a80283a747da0ca5a791dcfc5fe1a6261feecc5c..c1b0551debcb415cbc9fc976d011998d9f14759b:/csrc/pf_inner.c

diff --git a/csrc/pf_inner.c b/csrc/pf_inner.c
index fe60d15..dc9c719 100644
--- a/csrc/pf_inner.c
+++ b/csrc/pf_inner.c
@@ -26,9 +26,11 @@
 **
 ***************************************************************/
 
+#include <sys/types.h>
+
 #include "pf_all.h"
 
-#ifdef WIN32
+#if defined(WIN32) && !defined(__MINGW32__)
 #include <crtdbg.h>
 #endif
 
@@ -1544,7 +1546,7 @@ DBUG(("XX ah,m,l = 0x%8x,%8x,%8x - qh,l = 0x%8x,%8x\n", ah,am,al, qh,ql ));
 				CodeSize = TOS;
 				NameSize = M_POP;
 				EntryPoint = M_POP;
-				ForthStringToC( gScratch, (char *) M_POP );
+				ForthStringToC( gScratch, (char *) M_POP, sizeof(gScratch) );
 				TOS =  ffSaveForth( gScratch, EntryPoint, NameSize, CodeSize );
 			}
 			endcase;