projects
/
debian
/
pforth
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
eaa6664
)
Zero initialize BYE-CODE (#139)
author
Phil Burk
<philburk@mobileer.com>
Sun, 1 Jan 2023 00:23:57 +0000
(16:23 -0800)
committer
GitHub
<noreply@github.com>
Sun, 1 Jan 2023 00:23:57 +0000
(16:23 -0800)
csrc/pf_core.c
patch
|
blob
|
history
diff --git
a/csrc/pf_core.c
b/csrc/pf_core.c
index 031d7b8f44766fab305d87f87930b07b07dc7292..d5bd85fc3cc88079334212cc42321b2af049d521 100644
(file)
--- a/
csrc/pf_core.c
+++ b/
csrc/pf_core.c
@@
-55,7
+55,9
@@
ExecToken gAcceptP_XT; /* XT of ACCEPT */
/* Depth of data stack when colon called. */
cell_t gDepthAtColon;
/* Depth of data stack when colon called. */
cell_t gDepthAtColon;
-/* Global Forth variables. */
+/* Global Forth variables.
+* These must be initialized in pfInit below.
+*/
cell_t gVarContext; /* Points to last name field. */
cell_t gVarState; /* 1 if compiling. */
cell_t gVarBase; /* Numeric Base. */
cell_t gVarContext; /* Points to last name field. */
cell_t gVarState; /* 1 if compiling. */
cell_t gVarBase; /* Numeric Base. */
@@
-98,7
+100,8
@@
static void pfInit( void )
gLocalCompiler_XT = 0;
gVarContext = (cell_t)NULL; /* Points to last name field. */
gVarState = 0; /* 1 if compiling. */
gLocalCompiler_XT = 0;
gVarContext = (cell_t)NULL; /* Points to last name field. */
gVarState = 0; /* 1 if compiling. */
- gVarEcho = 0; /* Echo input. */
+ gVarByeCode = 0; /* BYE-CODE */
+ gVarEcho = 0; /* Echo input. */
gVarTraceLevel = 0; /* Trace Level for Inner Interpreter. */
gVarTraceFlags = 0; /* Enable various internal debug messages. */
gVarReturnCode = 0; /* Returned to caller of Forth, eg. UNIX shell. */
gVarTraceLevel = 0; /* Trace Level for Inner Interpreter. */
gVarTraceFlags = 0; /* Enable various internal debug messages. */
gVarReturnCode = 0; /* Returned to caller of Forth, eg. UNIX shell. */