* generic/tclInt.decls: commented-out entry for

TclpCheckStackSpace, removing it from the Stubs table.  It's
already declared in tclInt.h and labeled as a function that is
not to be exported.  Regened tables.

3 files changed, 10 insertions, 17 deletions

diff --git a/generic/tclInt.decls b/generic/tclInt.decls
index 58a1b68..ec6604c 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.66 2003/11/01 01:28:04 dkf Exp $
+# RCS: @(#) $Id: tclInt.decls,v 1.67 2003/12/15 00:49:38 davygrvy Exp $
 
 library tcl
 
@@ -527,9 +527,9 @@ declare 134 generic {
     size_t TclpStrftime(char *s, size_t maxsize, CONST char *format,
 	    CONST struct tm *t, int useGMT)
 }
-declare 135 generic {
-    int TclpCheckStackSpace(void)
-}
+#declare 135 generic {
+#    int TclpCheckStackSpace(void)
+#}
 
 # Added in 8.1:
 
diff --git a/generic/tclIntDecls.h b/generic/tclIntDecls.h
index c93e02f..429c6cc 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.54 2003/11/01 01:31:21 dkf Exp $
+ * RCS: @(#) $Id: tclIntDecls.h,v 1.55 2003/12/15 00:49:38 davygrvy Exp $
  */
 
 #ifndef _TCLINTDECLS
@@ -706,11 +706,7 @@ EXTERN size_t		TclpStrftime _ANSI_ARGS_((char * s, size_t maxsize,
 				CONST char * format, CONST struct tm * t, 
 				int useGMT));
 #endif
-#ifndef TclpCheckStackSpace_TCL_DECLARED
-#define TclpCheckStackSpace_TCL_DECLARED
-/* 135 */
-EXTERN int		TclpCheckStackSpace _ANSI_ARGS_((void));
-#endif
+/* Slot 135 is reserved */
 /* Slot 136 is reserved */
 /* Slot 137 is reserved */
 #ifndef TclGetEnv_TCL_DECLARED
@@ -1125,7 +1121,7 @@ typedef struct TclIntStubs {
     int (*tclpHasSockets) _ANSI_ARGS_((Tcl_Interp * interp)); /* 132 */
     struct tm * (*tclpGetDate) _ANSI_ARGS_((TclpTime_t time, int useGMT)); /* 133 */
     size_t (*tclpStrftime) _ANSI_ARGS_((char * s, size_t maxsize, CONST char * format, CONST struct tm * t, int useGMT)); /* 134 */
-    int (*tclpCheckStackSpace) _ANSI_ARGS_((void)); /* 135 */
+    void *reserved135;
     void *reserved136;
     void *reserved137;
     CONST84_RETURN char * (*tclGetEnv) _ANSI_ARGS_((CONST char * name, Tcl_DString * valuePtr)); /* 138 */
@@ -1644,10 +1640,7 @@ extern TclIntStubs *tclIntStubsPtr;
 #define TclpStrftime \
 	(tclIntStubsPtr->tclpStrftime) /* 134 */
 #endif
-#ifndef TclpCheckStackSpace
-#define TclpCheckStackSpace \
-	(tclIntStubsPtr->tclpCheckStackSpace) /* 135 */
-#endif
+/* Slot 135 is reserved */
 /* Slot 136 is reserved */
 /* Slot 137 is reserved */
 #ifndef TclGetEnv
diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c
index 9982ecb..737ab3b 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.90 2003/11/01 01:31:21 dkf Exp $
+ * RCS: @(#) $Id: tclStubInit.c,v 1.91 2003/12/15 00:49:38 davygrvy Exp $
  */
 
 #include "tclInt.h"
@@ -229,7 +229,7 @@ TclIntStubs tclIntStubs = {
     TclpHasSockets, /* 132 */
     TclpGetDate, /* 133 */
     TclpStrftime, /* 134 */
-    TclpCheckStackSpace, /* 135 */
+    NULL, /* 135 */
     NULL, /* 136 */
     NULL, /* 137 */
     TclGetEnv, /* 138 */