summaryrefslogtreecommitdiffstats
path: root/generic/tclInt.h
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2006-10-31 13:46:31 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2006-10-31 13:46:31 (GMT)
commit0ca58aa64c618e56ba5a8e06c8030de1737ba015 (patch)
treeed568c862afcaac4c420827a45785a6bdfe7bdbc /generic/tclInt.h
parentbdf25bdf70ec1d2f6dddeb07719d5b50ee2a5f91 (diff)
downloadtcl-0ca58aa64c618e56ba5a8e06c8030de1737ba015.zip
tcl-0ca58aa64c618e56ba5a8e06c8030de1737ba015.tar.gz
tcl-0ca58aa64c618e56ba5a8e06c8030de1737ba015.tar.bz2
Fix [Bug 1587618], eliminating the callObjc and callObjv fields from the Interp
structure.
Diffstat (limited to 'generic/tclInt.h')
-rw-r--r--generic/tclInt.h19
1 files changed, 3 insertions, 16 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h
index 62a8fee..25a150a 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.288 2006/10/28 23:36:18 dkf Exp $
+ * RCS: @(#) $Id: tclInt.h,v 1.289 2006/10/31 13:46:31 dkf Exp $
*/
#ifndef _TCLINT
@@ -1547,19 +1547,6 @@ typedef struct Interp {
int packagePrefer; /* Current package selection mode. */
/*
- * Let [info level] know about ensemble rewriting. Note that this is just
- * a temporary storage location until such time as it can be written into
- * the call frame; it has to go there because that makes reentrant calls
- * through the command dispatcher work.
- */
-
- int callObjc; /* Number of arguments to report through [info
- * level]. */
- Tcl_Obj *CONST *callObjv; /* Array of arguments to report through [info
- * level]. */
-
-
- /*
* Statistical information about the bytecode compiler and interpreter's
* operation.
*/
@@ -1577,8 +1564,8 @@ typedef struct Interp {
typedef struct InterpList {
Interp *interpPtr;
- struct InterpList* prevPtr;
- struct InterpList* nextPtr;
+ struct InterpList *prevPtr;
+ struct InterpList *nextPtr;
} InterpList;
/*