From a948104085f71c7726e9e831170e90b071cf2356 Mon Sep 17 00:00:00 2001
From: Miguel Sofer <miguel.sofer@gmail.com>
Date: Sat, 3 Jul 2004 02:03:34 +0000
Subject: Moved declaration of TclCompEvalObj() from tclCompile.h to the
 internal stubs table, for compiler experimentation.

---
 ChangeLog             |  9 +++++++++
 generic/tclCompile.h  |  6 +++++-
 generic/tclInt.decls  | 10 +++++++++-
 generic/tclIntDecls.h | 13 ++++++++++++-
 generic/tclStubInit.c |  3 ++-
 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 = {
-- 
cgit v0.12