summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorredman <redman>1999-03-10 23:45:50 (GMT)
committerredman <redman>1999-03-10 23:45:50 (GMT)
commit17d56fd5b956aa638c25faaac51a8856ee8f51d7 (patch)
treeb8d799ab1881f1cd3aba82c8aa6cb467b8eabc51
parent2ef4d3492a315e6e57add9c6d15651ce05c8457c (diff)
downloadtcl-17d56fd5b956aa638c25faaac51a8856ee8f51d7.zip
tcl-17d56fd5b956aa638c25faaac51a8856ee8f51d7.tar.gz
tcl-17d56fd5b956aa638c25faaac51a8856ee8f51d7.tar.bz2
fix declarations of empty slots.
-rw-r--r--generic/tcl.decls9
-rw-r--r--generic/tclDecls.h44
-rw-r--r--generic/tclStubInit.c8
-rw-r--r--generic/tclStubs.c50
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. */