diff options
| author | escoffon <escoffon@noemail.net> | 1998-06-10 11:29:50 (GMT) |
|---|---|---|
| committer | escoffon <escoffon@noemail.net> | 1998-06-10 11:29:50 (GMT) |
| commit | 58eb01315525bebb16db88bb7ac2c9f5f0d4a90d (patch) | |
| tree | ab2596a6a2d5b6b7ef15f93678f4521c343e94f3 /generic/tclBasic.c | |
| parent | 57d4479b04c39b578947bf6eae4b95c68fc3b1e3 (diff) | |
| download | tcl-58eb01315525bebb16db88bb7ac2c9f5f0d4a90d.zip tcl-58eb01315525bebb16db88bb7ac2c9f5f0d4a90d.tar.gz tcl-58eb01315525bebb16db88bb7ac2c9f5f0d4a90d.tar.bz2 | |
modified the check for no source string in Tcl_EvalObj to account for
FossilOrigin-Name: cd5f788d00f840acf6b9ad08cc5787006627cbf4
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 952292f..9897286 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -2544,7 +2544,7 @@ Tcl_EvalObj(interp, objPtr) */ numSrcChars = codePtr->numSrcChars; - if (numSrcChars > 0) { + if ((numSrcChars > 0) || (codePtr->flags & TCL_BYTECODE_PRECOMPILED)) { /* * Increment the code's ref count while it is being executed. If * afterwards no references to it remain, free the code. |