summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorescoffon <escoffon>1998-06-10 11:29:50 (GMT)
committerescoffon <escoffon>1998-06-10 11:29:50 (GMT)
commit12368f9441162583f4f08ea5d2d4baca3dc3f10c (patch)
treeab2596a6a2d5b6b7ef15f93678f4521c343e94f3
parent7be16ea127c6eb2d008cd44a7eea2eb1eb31b5b6 (diff)
downloadtcl-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.c2
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.