diff options
| author | sebres <sebres@users.sourceforge.net> | 2019-08-27 15:40:27 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2019-08-27 15:40:27 (GMT) |
| commit | cf0b9b27229540852823f29cc7cbeeaa2be4c20c (patch) | |
| tree | 13f0e1373ad4270526afd7a0a5129cec3e122646 /generic/tclExecute.c | |
| parent | 64f262df8870d2caeeda595d9a4073ae1b40150b (diff) | |
| download | tcl-cf0b9b27229540852823f29cc7cbeeaa2be4c20c.zip tcl-cf0b9b27229540852823f29cc7cbeeaa2be4c20c.tar.gz tcl-cf0b9b27229540852823f29cc7cbeeaa2be4c20c.tar.bz2 | |
small amend: be sure checkInterp is set if entering back the code marked as TCL_BYTECODE_RECOMPILE (normally also set in CACHE_STACK_INFO, but...)
Diffstat (limited to 'generic/tclExecute.c')
| -rw-r--r-- | generic/tclExecute.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index aff2c51..81173da 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -2168,7 +2168,7 @@ TEBCresume( int cleanup = PTR2INT(data[2]); Tcl_Obj *objResultPtr; - int checkInterp; /* Indicates when a check of interp readyness + int checkInterp = 0; /* Indicates when a check of interp readyness * is necessary. Set by CACHE_STACK_INFO() */ /* @@ -2203,7 +2203,6 @@ TEBCresume( if (!pc) { /* bytecode is starting from scratch */ - checkInterp = 0; pc = codePtr->codeStart; goto cleanup0; } else { @@ -2227,6 +2226,7 @@ TEBCresume( if (codePtr->flags & TCL_BYTECODE_RECOMPILE) { iPtr->flags |= ERR_ALREADY_LOGGED; codePtr->flags &= ~TCL_BYTECODE_RECOMPILE; + checkInterp = 1; } if (result != TCL_OK) { |