diff options
| author | andreas_kupries <akupries@shaw.ca> | 2008-07-25 20:30:24 (GMT) |
|---|---|---|
| committer | andreas_kupries <akupries@shaw.ca> | 2008-07-25 20:30:24 (GMT) |
| commit | 480d1a949c8131fa77d3e4c5c20a05d697007459 (patch) | |
| tree | 87d311ea52aa54f2769f6a3585c367411bdd337e /tests/compile.test | |
| parent | 8cca8df6f521e9864803bd56ab59fec819f7ca2a (diff) | |
| download | tcl-480d1a949c8131fa77d3e4c5c20a05d697007459.zip tcl-480d1a949c8131fa77d3e4c5c20a05d697007459.tar.gz tcl-480d1a949c8131fa77d3e4c5c20a05d697007459.tar.bz2 | |
* tests/info.test: Tests 38.* added, exactly testing the tracking
of location for uplevel scripts.
* generic/tclCompile.c (TclInitCompileEnv): Reorganized the
initialization of the #280 location information to match the flow
in TclEvalObjEx to get more absolute contexts.
* generic/tclBasic.c (TclEvalObjEx): Moved the pure-list
optimization out of the eval-direct code path to be done always,
i.e. even when a compile is requested. This way we do not loose
the association between #280 location information and the list
elements, if any.
Diffstat (limited to 'tests/compile.test')
| -rw-r--r-- | tests/compile.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/compile.test b/tests/compile.test index fe2deea..6785855 100644 --- a/tests/compile.test +++ b/tests/compile.test @@ -11,7 +11,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: compile.test,v 1.48 2007/12/13 15:26:06 dgp Exp $ +# RCS: @(#) $Id: compile.test,v 1.48.2.1 2008/07/25 20:30:58 andreas_kupries Exp $ package require tcltest 2 namespace import -force ::tcltest::* @@ -276,7 +276,7 @@ test compile-11.9 {Tcl_Append*: ensure Tcl_ResetResult is used properly} { # TclReleaseLiteral. They are only effective when tcl is compiled # with TCL_MEM_DEBUG # -# Special test for leak on interp delete [Bug 467523]. +# Special test for leak on interp delete [Bug 467523]. test compile-12.1 {testing literal leak on interp delete} -setup { proc getbytes {} { set lines [split [memory info] "\n"] |