From 142cc53e5299db89aad4d9aae4963170e882282e Mon Sep 17 00:00:00 2001
From: davygrvy <davygrvy@pobox.com>
Date: Mon, 15 Dec 2003 00:49:38 +0000
Subject: * 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.

---
 ChangeLog             |  7 +++++++
 generic/tclInt.decls  |  8 ++++----
 generic/tclIntDecls.h | 15 ++++-----------
 generic/tclStubInit.c |  4 ++--
 4 files changed, 17 insertions(+), 17 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 47978f0..97b4ad8 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2003-12-14  David Gravereaux <davygrvy@pobox.com>
+
+	* 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.
+
 2003-12-14  Donal K. Fellows  <donal.k.fellows@man.ac.uk>
 
 	* generic/tclCmdMZ.c (Tcl_SwitchObjCmd): TIP#75 Implementation
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 */
-- 
cgit v0.12