Moved declaration of TclCompEvalObj() from tclCompile.h to the internal

stubs table, for compiler experimentation.

4 files changed, 28 insertions, 4 deletions

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 = {