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 | 6e337a6b35412ab8e3f520a4e6eee02e863ef15a (patch) | |
| tree | 5b48faeb4f251c92945b7f4621754d51b85e3817 /generic/tclInt.h | |
| parent | 4f50375614e71b06c815cadd09f4593c12384d8d (diff) | |
| download | tcl-6e337a6b35412ab8e3f520a4e6eee02e863ef15a.zip tcl-6e337a6b35412ab8e3f520a4e6eee02e863ef15a.tar.gz tcl-6e337a6b35412ab8e3f520a4e6eee02e863ef15a.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/tclInt.h')
| -rw-r--r-- | generic/tclInt.h | 14 |
1 files changed, 11 insertions, 3 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index fffcffe..6a06fb0 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -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: tclInt.h,v 1.282 2006/10/23 21:36:55 msofer Exp $ + * RCS: @(#) $Id: tclInt.h,v 1.283 2006/10/23 22:49:25 msofer Exp $ */ #ifndef _TCLINT @@ -1529,8 +1529,16 @@ typedef struct Interp { * i.e the package require preferences. */ - int packagePrefer; /* Current package selection mode. - */ + int packagePrefer; /* Current package selection mode. */ + + /* + * Let [info level] know about ensemble rewriting + */ + + int callObjc; + Tcl_Obj *CONST *callObjv; + + /* * Statistical information about the bytecode compiler and interpreter's * operation. |
