diff options
-rw-r--r-- | ChangeLog | 7 | ||||
-rw-r--r-- | generic/tclInt.decls | 8 | ||||
-rw-r--r-- | generic/tclIntDecls.h | 15 | ||||
-rw-r--r-- | generic/tclStubInit.c | 4 |
4 files changed, 17 insertions, 17 deletions
@@ -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 */ |