projects
/
pforth
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
tags
|
clone url
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Change throw code for abort quote from -1 to -2.
[pforth]
/
csrc
/
pf_inner.c
diff --git
a/csrc/pf_inner.c
b/csrc/pf_inner.c
index
fe60d15
..
dc9c719
100644
(file)
--- a/
csrc/pf_inner.c
+++ b/
csrc/pf_inner.c
@@
-26,9
+26,11
@@
**
\r
***************************************************************/
\r
\r
**
\r
***************************************************************/
\r
\r
+#include <sys/types.h>
\r
+
\r
#include "pf_all.h"
\r
\r
#include "pf_all.h"
\r
\r
-#if
def WIN32
\r
+#if
defined(WIN32) && !defined(__MINGW32__)
\r
#include <crtdbg.h>
\r
#endif
\r
\r
#include <crtdbg.h>
\r
#endif
\r
\r
@@
-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;
\r
NameSize = M_POP;
\r
EntryPoint = M_POP;
\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
TOS = ffSaveForth( gScratch, EntryPoint, NameSize, CodeSize );
\r
}
\r
endcase;
\r