diff options
| author | escoffon <escoffon> | 1998-06-10 11:29:50 (GMT) |
|---|---|---|
| committer | escoffon <escoffon> | 1998-06-10 11:29:50 (GMT) |
| commit | 12368f9441162583f4f08ea5d2d4baca3dc3f10c (patch) | |
| tree | ab2596a6a2d5b6b7ef15f93678f4521c343e94f3 | |
| parent | 7be16ea127c6eb2d008cd44a7eea2eb1eb31b5b6 (diff) | |
| download | tcl-12368f9441162583f4f08ea5d2d4baca3dc3f10c.zip tcl-12368f9441162583f4f08ea5d2d4baca3dc3f10c.tar.gz tcl-12368f9441162583f4f08ea5d2d4baca3dc3f10c.tar.bz2 | |
modified the check for no source string in Tcl_EvalObj to account for
| -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. |