From 12368f9441162583f4f08ea5d2d4baca3dc3f10c Mon Sep 17 00:00:00 2001
From: escoffon <escoffon>
Date: Wed, 10 Jun 1998 11:29:50 +0000
Subject: modified the check for no source string in Tcl_EvalObj to account for

---
 generic/tclBasic.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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.
-- 
cgit v0.12