diff options
author | redman <redman@noemail.net> | 1999-03-10 23:45:49 (GMT) |
---|---|---|
committer | redman <redman@noemail.net> | 1999-03-10 23:45:49 (GMT) |
commit | ff708961428d75f4df6e2c76512cfd53affebca0 (patch) | |
tree | b8d799ab1881f1cd3aba82c8aa6cb467b8eabc51 | |
parent | e95a5f1af02c03c4e6cc794fea338744d36e0040 (diff) | |
download | tcl-ff708961428d75f4df6e2c76512cfd53affebca0.zip tcl-ff708961428d75f4df6e2c76512cfd53affebca0.tar.gz tcl-ff708961428d75f4df6e2c76512cfd53affebca0.tar.bz2 |
fix declarations of empty slots.
FossilOrigin-Name: 916d3114143c901a45a8309315d8377c58f033f1
-rw-r--r-- | generic/tcl.decls | 9 | ||||
-rw-r--r-- | generic/tclDecls.h | 44 | ||||
-rw-r--r-- | generic/tclStubInit.c | 8 | ||||
-rw-r--r-- | generic/tclStubs.c | 50 |
4 files changed, 5 insertions, 106 deletions
diff --git a/generic/tcl.decls b/generic/tcl.decls index 4e0ac1f..7ece3f8 100644 --- a/generic/tcl.decls +++ b/generic/tcl.decls @@ -10,7 +10,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: tcl.decls,v 1.4 1999/03/10 23:19:09 redman Exp $ +# RCS: @(#) $Id: tcl.decls,v 1.5 1999/03/10 23:45:50 redman Exp $ library tcl @@ -961,23 +961,18 @@ declare 279 generic { void Tcl_GetVersion(int *major, int *minor, int *patchLevel, \ Tcl_ReleaseType *type) } +# Reserved for future use (8.0.x vs. 8.1) declare 280 generic { - # Reserved for future use (8.0.x vs. 8.1) } declare 281 generic { - # Reserved for future use (8.0.x vs. 8.1) } declare 282 generic { - # Reserved for future use (8.0.x vs. 8.1) } declare 283 generic { - # Reserved for future use (8.0.x vs. 8.1) } declare 284 generic { - # Reserved for future use (8.0.x vs. 8.1) } declare 285 generic { - # Reserved for future use (8.0.x vs. 8.1) } ############################################################################## diff --git a/generic/tclDecls.h b/generic/tclDecls.h index db8addd..645ceea 100644 --- a/generic/tclDecls.h +++ b/generic/tclDecls.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: tclDecls.h,v 1.4 1999/03/10 23:19:09 redman Exp $ + * RCS: @(#) $Id: tclDecls.h,v 1.5 1999/03/10 23:45:51 redman Exp $ */ #ifndef _TCLDECLS @@ -872,18 +872,6 @@ EXTERN void panicVA _ANSI_ARGS_((char * format, va_list argList)); /* 279 */ EXTERN void Tcl_GetVersion _ANSI_ARGS_((int * major, int * minor, int * patchLevel, Tcl_ReleaseType * type)); -/* 280 */ -EXTERN # Reserved for future use _ANSI_ARGS_((8.0.x vs. 8.1)); -/* 281 */ -EXTERN # Reserved for future use _ANSI_ARGS_((8.0.x vs. 8.1)); -/* 282 */ -EXTERN # Reserved for future use _ANSI_ARGS_((8.0.x vs. 8.1)); -/* 283 */ -EXTERN # Reserved for future use _ANSI_ARGS_((8.0.x vs. 8.1)); -/* 284 */ -EXTERN # Reserved for future use _ANSI_ARGS_((8.0.x vs. 8.1)); -/* 285 */ -EXTERN # Reserved for future use _ANSI_ARGS_((8.0.x vs. 8.1)); typedef struct TclStubHooks { struct TclPlatStubs *tclPlatStubs; @@ -1199,12 +1187,6 @@ typedef struct TclStubs { Tcl_Pid (*tcl_WaitPid) _ANSI_ARGS_((Tcl_Pid pid, int * statPtr, int options)); /* 277 */ void (*panicVA) _ANSI_ARGS_((char * format, va_list argList)); /* 278 */ void (*tcl_GetVersion) _ANSI_ARGS_((int * major, int * minor, int * patchLevel, Tcl_ReleaseType * type)); /* 279 */ - # Reserved for future (*use) _ANSI_ARGS_((8.0.x vs. 8.1)); /* 280 */ - # Reserved for future (*use) _ANSI_ARGS_((8.0.x vs. 8.1)); /* 281 */ - # Reserved for future (*use) _ANSI_ARGS_((8.0.x vs. 8.1)); /* 282 */ - # Reserved for future (*use) _ANSI_ARGS_((8.0.x vs. 8.1)); /* 283 */ - # Reserved for future (*use) _ANSI_ARGS_((8.0.x vs. 8.1)); /* 284 */ - # Reserved for future (*use) _ANSI_ARGS_((8.0.x vs. 8.1)); /* 285 */ } TclStubs; extern TclStubs *tclStubsPtr; @@ -2338,30 +2320,6 @@ extern TclStubs *tclStubsPtr; #define Tcl_GetVersion(major, minor, patchLevel, type) \ (tclStubsPtr->tcl_GetVersion)(major, minor, patchLevel, type) /* 279 */ #endif -#ifndef use -#define use(8.1) \ - (tclStubsPtr->use)(8.1) /* 280 */ -#endif -#ifndef use -#define use(8.1) \ - (tclStubsPtr->use)(8.1) /* 281 */ -#endif -#ifndef use -#define use(8.1) \ - (tclStubsPtr->use)(8.1) /* 282 */ -#endif -#ifndef use -#define use(8.1) \ - (tclStubsPtr->use)(8.1) /* 283 */ -#endif -#ifndef use -#define use(8.1) \ - (tclStubsPtr->use)(8.1) /* 284 */ -#endif -#ifndef use -#define use(8.1) \ - (tclStubsPtr->use)(8.1) /* 285 */ -#endif #endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */ diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c index 18070f6..521fe712 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.4 1999/03/10 23:19:09 redman Exp $ + * RCS: @(#) $Id: tclStubInit.c,v 1.5 1999/03/10 23:45:51 redman Exp $ */ #include "tclInt.h" @@ -350,12 +350,6 @@ TclStubs tclStubs = { Tcl_WaitPid, /* 277 */ panicVA, /* 278 */ Tcl_GetVersion, /* 279 */ - use, /* 280 */ - use, /* 281 */ - use, /* 282 */ - use, /* 283 */ - use, /* 284 */ - use, /* 285 */ }; TclStubs *tclStubsPtr = &tclStubs; diff --git a/generic/tclStubs.c b/generic/tclStubs.c index d73d0f1..6bfd755 100644 --- a/generic/tclStubs.c +++ b/generic/tclStubs.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclStubs.c,v 1.4 1999/03/10 23:19:10 redman Exp $ + * RCS: @(#) $Id: tclStubs.c,v 1.5 1999/03/10 23:45:51 redman Exp $ */ #include "tcl.h" @@ -2706,53 +2706,5 @@ Tcl_GetVersion(major, minor, patchLevel, type) (tclStubsPtr->tcl_GetVersion)(major, minor, patchLevel, type); } -/* Slot 280 */ -# Reserved for future -use(8.1) - 8.0.x vs. 8.1; -{ - return (tclStubsPtr->use)(8.1); -} - -/* Slot 281 */ -# Reserved for future -use(8.1) - 8.0.x vs. 8.1; -{ - return (tclStubsPtr->use)(8.1); -} - -/* Slot 282 */ -# Reserved for future -use(8.1) - 8.0.x vs. 8.1; -{ - return (tclStubsPtr->use)(8.1); -} - -/* Slot 283 */ -# Reserved for future -use(8.1) - 8.0.x vs. 8.1; -{ - return (tclStubsPtr->use)(8.1); -} - -/* Slot 284 */ -# Reserved for future -use(8.1) - 8.0.x vs. 8.1; -{ - return (tclStubsPtr->use)(8.1); -} - -/* Slot 285 */ -# Reserved for future -use(8.1) - 8.0.x vs. 8.1; -{ - return (tclStubsPtr->use)(8.1); -} - /* !END!: Do not edit above this line. */ |