diff options
author | andreas_kupries <akupries@shaw.ca> | 2008-07-23 20:49:50 (GMT) |
---|---|---|
committer | andreas_kupries <akupries@shaw.ca> | 2008-07-23 20:49:50 (GMT) |
commit | a0900a49110c0eaf5ed791ee35c70b800d3d52ec (patch) | |
tree | b3d4d81cfc5d42e2154a618ae44c9a9da166f612 /generic/tclCmdIL.c | |
parent | 16253514a3a86502bec2e5b592f4c0789641535d (diff) | |
download | tcl-a0900a49110c0eaf5ed791ee35c70b800d3d52ec.zip tcl-a0900a49110c0eaf5ed791ee35c70b800d3d52ec.tar.gz tcl-a0900a49110c0eaf5ed791ee35c70b800d3d52ec.tar.bz2 |
* generic/tclBasic.c: Modified TclArgumentGet to reject pure lists
* generic/tclCmdIL.c: immediately, without search. Reworked setup
* generic/tclCompile.c: of eoFramePtr, doesn't need the line
* tests/info.test: information, more sensible to have everything
on line 1 when eval'ing a pure list. Updated the users of the line
information to special case this based on the frame type (i.e.
TCL_LOCATION_EVAL_LIST). Added a testcase demonstrating the new
behaviour.
Diffstat (limited to 'generic/tclCmdIL.c')
-rw-r--r-- | generic/tclCmdIL.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c index 9c668c2..ab324de 100644 --- a/generic/tclCmdIL.c +++ b/generic/tclCmdIL.c @@ -16,7 +16,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclCmdIL.c,v 1.145 2008/07/21 22:22:27 nijtmans Exp $ + * RCS: @(#) $Id: tclCmdIL.c,v 1.146 2008/07/23 20:49:52 andreas_kupries Exp $ */ #include "tclInt.h" @@ -1159,7 +1159,7 @@ TclInfoFrame( */ ADD_PAIR("type", Tcl_NewStringObj(typeString[framePtr->type], -1)); - ADD_PAIR("line", Tcl_NewIntObj(framePtr->line[0])); + ADD_PAIR("line", Tcl_NewIntObj(1)); /* * We put a duplicate of the command list obj into the result to |