diff options
Diffstat (limited to 'generic/tclInt.h')
| -rw-r--r-- | generic/tclInt.h | 20 |
1 files changed, 4 insertions, 16 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index cb3da44..64dbfec 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.267.2.4 2006/07/10 01:17:32 dkf Exp $ + * RCS: @(#) $Id: tclInt.h,v 1.267 2006/02/01 19:26:02 dgp Exp $ */ #ifndef _TCLINT @@ -112,8 +112,6 @@ typedef int ptrdiff_t; #define NO_WIDE_TYPE #endif -struct Foundation; // Forward decl for OO support - /* * The following procedures allow namespaces to be customized to support * special name resolution rules for commands/variables. @@ -892,13 +890,9 @@ typedef struct CallFrame { * recognized by the compiler. The compiler * emits code that refers to these variables * using an index into this array. */ - void *methodChain; /* TODO: Docme */ - int methodChainIdx; /* TODO: Docme */ } CallFrame; -#define FRAME_IS_PROC 0x1 -#define FRAME_IS_METHOD 0x2 /* TODO: Docme */ -#define FRAME_IS_FILTER 0x4 /* TODO: Docme */ +#define FRAME_IS_PROC 0x1 /* *---------------------------------------------------------------- @@ -1516,14 +1510,12 @@ typedef struct Interp { * TIP #219 ... Global info for the I/O system ... */ - Tcl_Obj *chanMsg; /* Error message set by channel drivers, for + Tcl_Obj* chanMsg; /* Error message set by channel drivers, for * the propagation of arbitrary Tcl errors. * This information, if present (chanMsg not * NULL), takes precedence over a posix error * code returned by a channel operation. */ - struct Foundation *ooFoundation; // OO support - /* * Statistical information about the bytecode compiler and interpreter's * operation. @@ -2103,7 +2095,7 @@ MODULE_SCOPE void TclInitLimitSupport(Tcl_Interp *interp); MODULE_SCOPE void TclInitNamespaceSubsystem(void); MODULE_SCOPE void TclInitNotifier(void); MODULE_SCOPE void TclInitObjSubsystem(void); -MODULE_SCOPE void TclInitSubsystems(void); +MODULE_SCOPE void TclInitSubsystems (); MODULE_SCOPE int TclInterpReady(Tcl_Interp *interp); MODULE_SCOPE int TclIsLocalScalar(CONST char *src, int len); MODULE_SCOPE int TclJoinThread(Tcl_ThreadId id, int* result); @@ -3039,10 +3031,6 @@ MODULE_SCOPE void TclBNInitBignumFromWideUInt(mp_int* bignum, #define TclIsNaN(d) ((d) != (d)) #endif -// MOVE ME TO tclInt.decls -void TclSetNsPath(Namespace *nsPtr, int pathLength, - Tcl_Namespace *pathAry[]); - #include "tclPort.h" #include "tclIntDecls.h" #include "tclIntPlatDecls.h" |