From 50d6304037f9d77c96c2ddecc4bfacf3fa289f84 Mon Sep 17 00:00:00 2001
From: Steve Bennett <steveb@workware.net.au>
Date: Tue, 13 Mar 2012 11:12:00 +1000
Subject: Fix a reference counting bug

Ensure that the internal rep of interp->emptyObj is never
changed to a script, since scripts use emptyObj as the source
filename when no source info is available. Instead use a special
nullScriptObj for this purpose.

Signed-off-by: Steve Bennett <steveb@workware.net.au>
---
 regtest.tcl | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'regtest.tcl')

diff --git a/regtest.tcl b/regtest.tcl
index d144152..2f09700 100644
--- a/regtest.tcl
+++ b/regtest.tcl
@@ -204,6 +204,12 @@ catch {
 }
 puts "TEST 28 PASSED"
 
+# REGTEST 29
+# Reference counting problem at exit
+set x [lindex {} 0]
+info source $x
+eval $x
+
 # TAKE THE FOLLOWING puts AS LAST LINE
 
 puts "--- ALL TESTS PASSED ---"
-- 
cgit v1.1