summaryrefslogtreecommitdiffstats
path: root/generic/tclBasic.c
diff options
context:
space:
mode:
Diffstat (limited to 'generic/tclBasic.c')
-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.