diff options
| -rw-r--r-- | ChangeLog | 8 | ||||
| -rw-r--r-- | generic/tclInt.decls | 7 | ||||
| -rw-r--r-- | generic/tclInt.h | 4 | ||||
| -rw-r--r-- | generic/tclIntDecls.h | 13 | ||||
| -rw-r--r-- | generic/tclStubInit.c | 3 |
5 files changed, 27 insertions, 8 deletions
@@ -1,3 +1,10 @@ +2007-08-07 Miguel Sofer <msofer@users.sf.net> + + * generic/tclInt.decls: Exporting via stubs to help + * generic/tclInt.h: xotcl adapt to VarReform. + * generic/tclIntDecls.h: + * generic/tclStubInit.c: + 2007-08-07 Daniel Steffen <das@users.sourceforge.net> * generic/tclEnv.c: improve environ handling on Mac OS X (adapted @@ -41,7 +48,6 @@ * generic/tclStubInit.c: only exists for itcl). * generic/tclVar.c: - 2007-08-01 Donal K. Fellows <donal.k.fellows@manchester.ac.uk> * library/word.tcl: Rewrote for greater efficiency. [Bug 1764318] diff --git a/generic/tclInt.decls b/generic/tclInt.decls index 54256ea..ab6252a 100644 --- a/generic/tclInt.decls +++ b/generic/tclInt.decls @@ -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.decls,v 1.112 2007/08/04 18:32:27 msofer Exp $ +# RCS: @(#) $Id: tclInt.decls,v 1.113 2007/08/07 17:28:38 msofer Exp $ library tcl @@ -928,11 +928,14 @@ declare 233 generic { void TclGetSrcInfoForPc(CmdFrame *contextPtr) } -# Exports for VarReform compat: Itcl likes to peek into our varTables :( +# Exports for VarReform compat: Itcl, XOTcl like to peek into our varTables :( declare 234 generic { Var *TclVarHashCreateVar(TclVarHashTable *tablePtr, const char *key, int *newPtr) } +declare 235 generic { + void TclInitVarHashTable(TclVarHashTable *tablePtr, Namespace *nsPtr) +} ############################################################################## diff --git a/generic/tclInt.h b/generic/tclInt.h index 5aae19d..c55bf93 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.328 2007/08/04 18:32:27 msofer Exp $ + * RCS: @(#) $Id: tclInt.h,v 1.329 2007/08/07 17:28:39 msofer Exp $ */ #ifndef _TCLINT @@ -2413,8 +2413,6 @@ 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 TclInitVarHashTable(TclVarHashTable *tablePtr, - Namespace *nsPtr); MODULE_SCOPE void TclInitSubsystems(void); MODULE_SCOPE int TclInterpReady(Tcl_Interp *interp); MODULE_SCOPE int TclIsLocalScalar(CONST char *src, int len); diff --git a/generic/tclIntDecls.h b/generic/tclIntDecls.h index e08b38b..876a4bf 100644 --- a/generic/tclIntDecls.h +++ b/generic/tclIntDecls.h @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclIntDecls.h,v 1.103 2007/08/04 18:32:27 msofer Exp $ + * RCS: @(#) $Id: tclIntDecls.h,v 1.104 2007/08/07 17:28:39 msofer Exp $ */ #ifndef _TCLINTDECLS @@ -1045,6 +1045,12 @@ EXTERN void TclGetSrcInfoForPc (CmdFrame * contextPtr); EXTERN Var * TclVarHashCreateVar (TclVarHashTable * tablePtr, const char * key, int * newPtr); #endif +#ifndef TclInitVarHashTable_TCL_DECLARED +#define TclInitVarHashTable_TCL_DECLARED +/* 235 */ +EXTERN void TclInitVarHashTable (TclVarHashTable * tablePtr, + Namespace * nsPtr); +#endif typedef struct TclIntStubs { int magic; @@ -1300,6 +1306,7 @@ typedef struct TclIntStubs { int (*tclEvalObjEx) (Tcl_Interp * interp, Tcl_Obj * objPtr, int flags, const CmdFrame * invoker, int word); /* 232 */ void (*tclGetSrcInfoForPc) (CmdFrame * contextPtr); /* 233 */ Var * (*tclVarHashCreateVar) (TclVarHashTable * tablePtr, const char * key, int * newPtr); /* 234 */ + void (*tclInitVarHashTable) (TclVarHashTable * tablePtr, Namespace * nsPtr); /* 235 */ } TclIntStubs; #ifdef __cplusplus @@ -2025,6 +2032,10 @@ extern TclIntStubs *tclIntStubsPtr; #define TclVarHashCreateVar \ (tclIntStubsPtr->tclVarHashCreateVar) /* 234 */ #endif +#ifndef TclInitVarHashTable +#define TclInitVarHashTable \ + (tclIntStubsPtr->tclInitVarHashTable) /* 235 */ +#endif #endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */ diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c index efde178..b197f66 100644 --- a/generic/tclStubInit.c +++ b/generic/tclStubInit.c @@ -8,7 +8,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclStubInit.c,v 1.142 2007/08/04 18:32:28 msofer Exp $ + * RCS: @(#) $Id: tclStubInit.c,v 1.143 2007/08/07 17:28:39 msofer Exp $ */ #include "tclInt.h" @@ -324,6 +324,7 @@ TclIntStubs tclIntStubs = { TclEvalObjEx, /* 232 */ TclGetSrcInfoForPc, /* 233 */ TclVarHashCreateVar, /* 234 */ + TclInitVarHashTable, /* 235 */ }; TclIntPlatStubs tclIntPlatStubs = { |