From 17d56fd5b956aa638c25faaac51a8856ee8f51d7 Mon Sep 17 00:00:00 2001
From: redman <redman>
Date: Wed, 10 Mar 1999 23:45:50 +0000
Subject: fix declarations of empty slots.

---
 generic/tcl.decls     |  9 ++-------
 generic/tclDecls.h    | 44 +-------------------------------------------
 generic/tclStubInit.c |  8 +-------
 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. */
-- 
cgit v0.12