Add Tcl_GetVersion to stubs table, add 6 additional slots for future use.

1 files changed, 60 insertions, 1 deletions

diff --git a/generic/tclStubs.c b/generic/tclStubs.c
index f562016..d73d0f1 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.3 1999/03/10 05:52:50 stanton Exp $
+ * RCS: @(#) $Id: tclStubs.c,v 1.4 1999/03/10 23:19:10 redman Exp $
  */
 
 #include "tcl.h"
@@ -2695,5 +2695,64 @@ panicVA(format, argList)
     (tclStubsPtr->panicVA)(format, argList);
 }
 
+/* Slot 279 */
+void
+Tcl_GetVersion(major, minor, patchLevel, type)
+    int * major;
+    int * minor;
+    int * patchLevel;
+    Tcl_ReleaseType * 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. */