diff options
| author | Steve Bennett <steveb@workware.net.au> | 2012-03-13 11:12:00 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2012-03-13 11:58:33 +1000 |
| commit | 50d6304037f9d77c96c2ddecc4bfacf3fa289f84 (patch) | |
| tree | 95313708ab24b66b57d9f66d513f3bf06a698ed3 /regtest.tcl | |
| parent | b6c95fe34a5fa3b30e1f3f2fd3dc43be5414460a (diff) | |
| download | jimtcl-50d6304037f9d77c96c2ddecc4bfacf3fa289f84.zip jimtcl-50d6304037f9d77c96c2ddecc4bfacf3fa289f84.tar.gz jimtcl-50d6304037f9d77c96c2ddecc4bfacf3fa289f84.tar.bz2 | |
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>
Diffstat (limited to 'regtest.tcl')
| -rw-r--r-- | regtest.tcl | 6 |
1 files changed, 6 insertions, 0 deletions
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 ---" |