diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2004-07-03 02:03:34 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2004-07-03 02:03:34 (GMT) |
| commit | a948104085f71c7726e9e831170e90b071cf2356 (patch) | |
| tree | ebd68c71be3ed1e2241721518e2cd0de300e3f75 | |
| parent | 9b5d222f743985134ef42b6441545e60e0d64ef2 (diff) | |
| download | tcl-a948104085f71c7726e9e831170e90b071cf2356.zip tcl-a948104085f71c7726e9e831170e90b071cf2356.tar.gz tcl-a948104085f71c7726e9e831170e90b071cf2356.tar.bz2 | |
Moved declaration of TclCompEvalObj() from tclCompile.h to the internal
stubs table, for compiler experimentation.
| -rw-r--r-- | ChangeLog | 9 | ||||
| -rw-r--r-- | generic/tclCompile.h | 6 | ||||
| -rw-r--r-- | generic/tclInt.decls | 10 | ||||
| -rw-r--r-- | generic/tclIntDecls.h | 13 | ||||
| -rw-r--r-- | generic/tclStubInit.c | 3 |
5 files changed, 37 insertions, 4 deletions
@@ -1,3 +1,12 @@ +2004-07-03 Miguel Sofer <msofer@users.sf.net> + + * generic/tclCompile.h: + * generic/tclInt.decls: + * generic/tclIntDecls.h: + * generic/tclStubInit.c: Moved declaration of TclCompEvalObj() + from tclCompile.h to the internal stubs table, for compiler + experimentation. + 2004-07-02 Jeff Hobbs <jeffh@ActiveState.com> * generic/regcomp.c (stid): correct minor pointer size error diff --git a/generic/tclCompile.h b/generic/tclCompile.h index adfaeef..e90454e 100644 --- a/generic/tclCompile.h +++ b/generic/tclCompile.h @@ -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: tclCompile.h,v 1.46 2004/05/16 17:25:49 msofer Exp $ + * RCS: @(#) $Id: tclCompile.h,v 1.47 2004/07/03 02:03:36 msofer Exp $ */ #ifndef _TCLCOMPILATION @@ -751,8 +751,12 @@ EXTERN int TclInterpReady _ANSI_ARGS_((Tcl_Interp *interp)); *---------------------------------------------------------------- */ +/* + * Declaration moved to the internal stubs table + * EXTERN int TclCompEvalObj _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Obj *objPtr)); +*/ /* *---------------------------------------------------------------- diff --git a/generic/tclInt.decls b/generic/tclInt.decls index 0f82b17..d8e3e1f 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.75 2004/06/24 01:29:02 mistachkin Exp $ +# RCS: @(#) $Id: tclInt.decls,v 1.76 2004/07/03 02:03:37 msofer Exp $ library tcl @@ -787,6 +787,14 @@ declare 196 generic { void TclFinalizeThreadStorageDataKey(Tcl_ThreadDataKey *keyPtr) } +# +# Added in tcl8.5a5 for compiler/executor experimentation. +# +declare 197 generic { + int TclCompEvalObj (Tcl_Interp *interp, Tcl_Obj *objPtr) +} + + ############################################################################## # Define the platform specific internal Tcl interface. These functions are diff --git a/generic/tclIntDecls.h b/generic/tclIntDecls.h index 216992b..796b790 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.65 2004/06/24 01:29:03 mistachkin Exp $ + * RCS: @(#) $Id: tclIntDecls.h,v 1.66 2004/07/03 02:03:37 msofer Exp $ */ #ifndef _TCLINTDECLS @@ -1043,6 +1043,12 @@ EXTERN void TclFinalizeThreadStorageData _ANSI_ARGS_(( EXTERN void TclFinalizeThreadStorageDataKey _ANSI_ARGS_(( Tcl_ThreadDataKey * keyPtr)); #endif +#ifndef TclCompEvalObj_TCL_DECLARED +#define TclCompEvalObj_TCL_DECLARED +/* 197 */ +EXTERN int TclCompEvalObj _ANSI_ARGS_((Tcl_Interp * interp, + Tcl_Obj * objPtr)); +#endif typedef struct TclIntStubs { int magic; @@ -1260,6 +1266,7 @@ typedef struct TclIntStubs { void (*tclFinalizeThreadStorage) _ANSI_ARGS_((void)); /* 194 */ void (*tclFinalizeThreadStorageData) _ANSI_ARGS_((Tcl_ThreadDataKey * keyPtr)); /* 195 */ void (*tclFinalizeThreadStorageDataKey) _ANSI_ARGS_((Tcl_ThreadDataKey * keyPtr)); /* 196 */ + int (*tclCompEvalObj) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr)); /* 197 */ } TclIntStubs; #ifdef __cplusplus @@ -1956,6 +1963,10 @@ extern TclIntStubs *tclIntStubsPtr; #define TclFinalizeThreadStorageDataKey \ (tclIntStubsPtr->tclFinalizeThreadStorageDataKey) /* 196 */ #endif +#ifndef TclCompEvalObj +#define TclCompEvalObj \ + (tclIntStubsPtr->tclCompEvalObj) /* 197 */ +#endif #endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */ diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c index 259e4ad..c6c9232 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.99 2004/06/24 01:29:03 mistachkin Exp $ + * RCS: @(#) $Id: tclStubInit.c,v 1.100 2004/07/03 02:03:38 msofer Exp $ */ #include "tclInt.h" @@ -281,6 +281,7 @@ TclIntStubs tclIntStubs = { TclFinalizeThreadStorage, /* 194 */ TclFinalizeThreadStorageData, /* 195 */ TclFinalizeThreadStorageDataKey, /* 196 */ + TclCompEvalObj, /* 197 */ }; TclIntPlatStubs tclIntPlatStubs = { |