summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog7
-rw-r--r--generic/tclInt.decls8
-rw-r--r--generic/tclIntDecls.h15
-rw-r--r--generic/tclStubInit.c4
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 */