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 | ab493437ef6fb750de339bb51d29743250bcde32 (patch) | |
| tree | 87d311ea52aa54f2769f6a3585c367411bdd337e /generic/tclProc.c | |
| parent | 0165e5e6989f8b3baad4c63d67077cdb388dd9bf (diff) | |
| download | tcl-ab493437ef6fb750de339bb51d29743250bcde32.zip tcl-ab493437ef6fb750de339bb51d29743250bcde32.tar.gz tcl-ab493437ef6fb750de339bb51d29743250bcde32.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 'generic/tclProc.c')
| -rw-r--r-- | generic/tclProc.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclProc.c b/generic/tclProc.c index f9e6822..2b7c5f7 100644 --- a/generic/tclProc.c +++ b/generic/tclProc.c @@ -12,7 +12,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclProc.c,v 1.139.2.1 2008/07/21 19:38:19 andreas_kupries Exp $ + * RCS: @(#) $Id: tclProc.c,v 1.139.2.2 2008/07/25 20:30:47 andreas_kupries Exp $ */ #include "tclInt.h" @@ -2162,7 +2162,7 @@ TclProcCleanupProc( /* * TIP #280: Release the location data associated with this Proc * structure, if any. The interpreter may not exist (For example for - * procbody structurues created by tbcload. + * procbody structures created by tbcload. */ if (!iPtr) { |