diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2006-10-23 22:49:24 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2006-10-23 22:49:24 (GMT) |
| commit | 94919dd9c565db95ae21cf14b91f8cdeb2446b46 (patch) | |
| tree | 5b48faeb4f251c92945b7f4621754d51b85e3817 /generic/tcl.h | |
| parent | ff4058f01143ad058843bf7e6f0a0ff599a4ac50 (diff) | |
| download | tcl-94919dd9c565db95ae21cf14b91f8cdeb2446b46.zip tcl-94919dd9c565db95ae21cf14b91f8cdeb2446b46.tar.gz tcl-94919dd9c565db95ae21cf14b91f8cdeb2446b46.tar.bz2 | |
* library/clock.tcl (format, scan): corrected wrong # args
* tests/clock.test (3.1, 34.1): messages to make use of the
new rewrite capabilities of [info level]
* generic/tcl.h: Lets TEOV update the iPtr->objc/objv
* generic/tclBasic.c: fields, except when the (new) flag bit
* generic/tclInt.h: TCL_EVAL_NOREWRITE is present. This
* generic/tclNamesp.c: causes [info level] to know and use
* generic/tclProc.c: ensemble rewrites [Bug 1577492]
* tests/namespace.test:
***POTENTIAL INCOMPATIBILITY***
The return value from [info level 0] on interp alias calls is
changed: previously returned the target command (including curried
values), now returns the source - what was actually called.
Diffstat (limited to 'generic/tcl.h')
| -rw-r--r-- | generic/tcl.h | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/generic/tcl.h b/generic/tcl.h index 2522fa2..8e309a2 100644 --- a/generic/tcl.h +++ b/generic/tcl.h @@ -13,7 +13,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tcl.h,v 1.223 2006/10/23 21:36:54 msofer Exp $ + * RCS: @(#) $Id: tcl.h,v 1.224 2006/10/23 22:49:24 msofer Exp $ */ #ifndef _TCL @@ -1066,11 +1066,14 @@ typedef struct Tcl_DString { * o Cut out of error traces * o Don't reset the flags controlling ensemble * error message rewriting. + * TCL_EVAL_NOREWRITE Do not update the interp's last call info; + * used by the ensemble rewrite machinery */ #define TCL_NO_EVAL 0x10000 #define TCL_EVAL_GLOBAL 0x20000 #define TCL_EVAL_DIRECT 0x40000 #define TCL_EVAL_INVOKE 0x80000 +#define TCL_EVAL_NOREWRITE 0x100000 /* * Special freeProc values that may be passed to Tcl_SetResult (see the man |