summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMiguel Sofer <miguel.sofer@gmail.com>2004-07-03 02:03:34 (GMT)
committerMiguel Sofer <miguel.sofer@gmail.com>2004-07-03 02:03:34 (GMT)
commita948104085f71c7726e9e831170e90b071cf2356 (patch)
treeebd68c71be3ed1e2241721518e2cd0de300e3f75
parent9b5d222f743985134ef42b6441545e60e0d64ef2 (diff)
downloadtcl-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--ChangeLog9
-rw-r--r--generic/tclCompile.h6
-rw-r--r--generic/tclInt.decls10
-rw-r--r--generic/tclIntDecls.h13
-rw-r--r--generic/tclStubInit.c3
5 files changed, 37 insertions, 4 deletions
diff --git a/ChangeLog b/ChangeLog
index 1f09591..3cf7bfd 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -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 = {