Merged stubs changes into mainline for 8.0

1 files changed, 114 insertions, 262 deletions

diff --git a/generic/tclIntStubs.c b/generic/tclIntStubs.c
index 224bedb..edf48a3 100644
--- a/generic/tclIntStubs.c
+++ b/generic/tclIntStubs.c
@@ -7,7 +7,7 @@
  * Copyright (c) 1998-1999 by Scriptics Corporation.
  * All rights reserved.
  *
- * RCS: @(#) $Id: tclIntStubs.c,v 1.2 1999/03/04 01:01:58 stanton Exp $
+ * RCS: @(#) $Id: tclIntStubs.c,v 1.3 1999/03/10 05:52:49 stanton Exp $
  */
 
 #include "tclInt.h"
@@ -239,27 +239,6 @@ TclFileRenameCmd(interp, argc, argv)
 }
 
 /* Slot 22 */
-void
-TclFinalizeCompExecEnv()
-{
-    (tclIntStubsPtr->tclFinalizeCompExecEnv)();
-}
-
-/* Slot 23 */
-void
-TclFinalizeEnvironment()
-{
-    (tclIntStubsPtr->tclFinalizeEnvironment)();
-}
-
-/* Slot 24 */
-void
-TclFinalizeExecEnv()
-{
-    (tclIntStubsPtr->tclFinalizeExecEnv)();
-}
-
-/* Slot 25 */
 int
 TclFindElement(interp, list, listLength, elementPtr, nextPtr, sizePtr, bracePtr)
     Tcl_Interp * interp;
@@ -273,7 +252,7 @@ TclFindElement(interp, list, listLength, elementPtr, nextPtr, sizePtr, bracePtr)
     return (tclIntStubsPtr->tclFindElement)(interp, list, listLength, elementPtr, nextPtr, sizePtr, bracePtr);
 }
 
-/* Slot 26 */
+/* Slot 23 */
 Proc *
 TclFindProc(iPtr, procName)
     Interp * iPtr;
@@ -282,7 +261,7 @@ TclFindProc(iPtr, procName)
     return (tclIntStubsPtr->tclFindProc)(iPtr, procName);
 }
 
-/* Slot 27 */
+/* Slot 24 */
 int
 TclFormatInt(buffer, n)
     char * buffer;
@@ -291,7 +270,7 @@ TclFormatInt(buffer, n)
     return (tclIntStubsPtr->tclFormatInt)(buffer, n);
 }
 
-/* Slot 28 */
+/* Slot 25 */
 void
 TclFreePackageInfo(iPtr)
     Interp * iPtr;
@@ -299,7 +278,7 @@ TclFreePackageInfo(iPtr)
     (tclIntStubsPtr->tclFreePackageInfo)(iPtr);
 }
 
-/* Slot 29 */
+/* Slot 26 */
 char *
 TclGetCwd(interp)
     Tcl_Interp * interp;
@@ -307,7 +286,7 @@ TclGetCwd(interp)
     return (tclIntStubsPtr->tclGetCwd)(interp);
 }
 
-/* Slot 30 */
+/* Slot 27 */
 int
 TclGetDate(p, now, zone, timePtr)
     char * p;
@@ -318,7 +297,7 @@ TclGetDate(p, now, zone, timePtr)
     return (tclIntStubsPtr->tclGetDate)(p, now, zone, timePtr);
 }
 
-/* Slot 31 */
+/* Slot 28 */
 Tcl_Channel
 TclGetDefaultStdChannel(type)
     int type;
@@ -326,7 +305,7 @@ TclGetDefaultStdChannel(type)
     return (tclIntStubsPtr->tclGetDefaultStdChannel)(type);
 }
 
-/* Slot 32 */
+/* Slot 29 */
 Tcl_Obj *
 TclGetElementOfIndexedArray(interp, localIndex, elemPtr, leaveErrorMsg)
     Tcl_Interp * interp;
@@ -337,7 +316,7 @@ TclGetElementOfIndexedArray(interp, localIndex, elemPtr, leaveErrorMsg)
     return (tclIntStubsPtr->tclGetElementOfIndexedArray)(interp, localIndex, elemPtr, leaveErrorMsg);
 }
 
-/* Slot 33 */
+/* Slot 30 */
 char *
 TclGetEnv(name)
     CONST char * name;
@@ -345,7 +324,7 @@ TclGetEnv(name)
     return (tclIntStubsPtr->tclGetEnv)(name);
 }
 
-/* Slot 34 */
+/* Slot 31 */
 char *
 TclGetExtension(name)
     char * name;
@@ -353,7 +332,7 @@ TclGetExtension(name)
     return (tclIntStubsPtr->tclGetExtension)(name);
 }
 
-/* Slot 35 */
+/* Slot 32 */
 int
 TclGetFrame(interp, string, framePtrPtr)
     Tcl_Interp * interp;
@@ -363,14 +342,14 @@ TclGetFrame(interp, string, framePtrPtr)
     return (tclIntStubsPtr->tclGetFrame)(interp, string, framePtrPtr);
 }
 
-/* Slot 36 */
+/* Slot 33 */
 TclCmdProcType
 TclGetInterpProc()
 {
     return (tclIntStubsPtr->tclGetInterpProc)();
 }
 
-/* Slot 37 */
+/* Slot 34 */
 int
 TclGetIntForIndex(interp, objPtr, endValue, indexPtr)
     Tcl_Interp * interp;
@@ -381,7 +360,7 @@ TclGetIntForIndex(interp, objPtr, endValue, indexPtr)
     return (tclIntStubsPtr->tclGetIntForIndex)(interp, objPtr, endValue, indexPtr);
 }
 
-/* Slot 38 */
+/* Slot 35 */
 Tcl_Obj *
 TclGetIndexedScalar(interp, localIndex, leaveErrorMsg)
     Tcl_Interp * interp;
@@ -391,7 +370,7 @@ TclGetIndexedScalar(interp, localIndex, leaveErrorMsg)
     return (tclIntStubsPtr->tclGetIndexedScalar)(interp, localIndex, leaveErrorMsg);
 }
 
-/* Slot 39 */
+/* Slot 36 */
 int
 TclGetLong(interp, string, longPtr)
     Tcl_Interp * interp;
@@ -401,7 +380,7 @@ TclGetLong(interp, string, longPtr)
     return (tclIntStubsPtr->tclGetLong)(interp, string, longPtr);
 }
 
-/* Slot 40 */
+/* Slot 37 */
 int
 TclGetLoadedPackages(interp, targetName)
     Tcl_Interp * interp;
@@ -410,7 +389,7 @@ TclGetLoadedPackages(interp, targetName)
     return (tclIntStubsPtr->tclGetLoadedPackages)(interp, targetName);
 }
 
-/* Slot 41 */
+/* Slot 38 */
 int
 TclGetNamespaceForQualName(interp, qualName, cxtNsPtr, flags, nsPtrPtr, altNsPtrPtr, actualCxtPtrPtr, simpleNamePtr)
     Tcl_Interp * interp;
@@ -425,14 +404,14 @@ TclGetNamespaceForQualName(interp, qualName, cxtNsPtr, flags, nsPtrPtr, altNsPtr
     return (tclIntStubsPtr->tclGetNamespaceForQualName)(interp, qualName, cxtNsPtr, flags, nsPtrPtr, altNsPtrPtr, actualCxtPtrPtr, simpleNamePtr);
 }
 
-/* Slot 42 */
+/* Slot 39 */
 TclObjCmdProcType
 TclGetObjInterpProc()
 {
     return (tclIntStubsPtr->tclGetObjInterpProc)();
 }
 
-/* Slot 43 */
+/* Slot 40 */
 int
 TclGetOpenMode(interp, string, seekFlagPtr)
     Tcl_Interp * interp;
@@ -442,7 +421,7 @@ TclGetOpenMode(interp, string, seekFlagPtr)
     return (tclIntStubsPtr->tclGetOpenMode)(interp, string, seekFlagPtr);
 }
 
-/* Slot 44 */
+/* Slot 41 */
 Tcl_Command
 TclGetOriginalCommand(command)
     Tcl_Command command;
@@ -450,7 +429,7 @@ TclGetOriginalCommand(command)
     return (tclIntStubsPtr->tclGetOriginalCommand)(command);
 }
 
-/* Slot 45 */
+/* Slot 42 */
 char *
 TclGetUserHome(name, bufferPtr)
     char * name;
@@ -459,7 +438,7 @@ TclGetUserHome(name, bufferPtr)
     return (tclIntStubsPtr->tclGetUserHome)(name, bufferPtr);
 }
 
-/* Slot 46 */
+/* Slot 43 */
 int
 TclGlobalInvoke(interp, argc, argv, flags)
     Tcl_Interp * interp;
@@ -470,7 +449,7 @@ TclGlobalInvoke(interp, argc, argv, flags)
     return (tclIntStubsPtr->tclGlobalInvoke)(interp, argc, argv, flags);
 }
 
-/* Slot 47 */
+/* Slot 44 */
 int
 TclGuessPackageName(fileName, bufPtr)
     char * fileName;
@@ -479,7 +458,7 @@ TclGuessPackageName(fileName, bufPtr)
     return (tclIntStubsPtr->tclGuessPackageName)(fileName, bufPtr);
 }
 
-/* Slot 48 */
+/* Slot 45 */
 int
 TclHideUnsafeCommands(interp)
     Tcl_Interp * interp;
@@ -487,14 +466,14 @@ TclHideUnsafeCommands(interp)
     return (tclIntStubsPtr->tclHideUnsafeCommands)(interp);
 }
 
-/* Slot 49 */
+/* Slot 46 */
 int
 TclInExit()
 {
     return (tclIntStubsPtr->tclInExit)();
 }
 
-/* Slot 50 */
+/* Slot 47 */
 Tcl_Obj *
 TclIncrElementOfIndexedArray(interp, localIndex, elemPtr, incrAmount)
     Tcl_Interp * interp;
@@ -505,7 +484,7 @@ TclIncrElementOfIndexedArray(interp, localIndex, elemPtr, incrAmount)
     return (tclIntStubsPtr->tclIncrElementOfIndexedArray)(interp, localIndex, elemPtr, incrAmount);
 }
 
-/* Slot 51 */
+/* Slot 48 */
 Tcl_Obj *
 TclIncrIndexedScalar(interp, localIndex, incrAmount)
     Tcl_Interp * interp;
@@ -515,7 +494,7 @@ TclIncrIndexedScalar(interp, localIndex, incrAmount)
     return (tclIntStubsPtr->tclIncrIndexedScalar)(interp, localIndex, incrAmount);
 }
 
-/* Slot 52 */
+/* Slot 49 */
 Tcl_Obj *
 TclIncrVar2(interp, part1Ptr, part2Ptr, incrAmount, part1NotParsed)
     Tcl_Interp * interp;
@@ -527,7 +506,7 @@ TclIncrVar2(interp, part1Ptr, part2Ptr, incrAmount, part1NotParsed)
     return (tclIntStubsPtr->tclIncrVar2)(interp, part1Ptr, part2Ptr, incrAmount, part1NotParsed);
 }
 
-/* Slot 53 */
+/* Slot 50 */
 void
 TclInitCompiledLocals(interp, framePtr, nsPtr)
     Tcl_Interp * interp;
@@ -537,14 +516,7 @@ TclInitCompiledLocals(interp, framePtr, nsPtr)
     (tclIntStubsPtr->tclInitCompiledLocals)(interp, framePtr, nsPtr);
 }
 
-/* Slot 54 */
-void
-TclInitNamespaces()
-{
-    (tclIntStubsPtr->tclInitNamespaces)();
-}
-
-/* Slot 55 */
+/* Slot 51 */
 int
 TclInterpInit(interp)
     Tcl_Interp * interp;
@@ -552,7 +524,7 @@ TclInterpInit(interp)
     return (tclIntStubsPtr->tclInterpInit)(interp);
 }
 
-/* Slot 56 */
+/* Slot 52 */
 int
 TclInvoke(interp, argc, argv, flags)
     Tcl_Interp * interp;
@@ -563,7 +535,7 @@ TclInvoke(interp, argc, argv, flags)
     return (tclIntStubsPtr->tclInvoke)(interp, argc, argv, flags);
 }
 
-/* Slot 57 */
+/* Slot 53 */
 int
 TclInvokeObjectCommand(clientData, interp, argc, argv)
     ClientData clientData;
@@ -574,7 +546,7 @@ TclInvokeObjectCommand(clientData, interp, argc, argv)
     return (tclIntStubsPtr->tclInvokeObjectCommand)(clientData, interp, argc, argv);
 }
 
-/* Slot 58 */
+/* Slot 54 */
 int
 TclInvokeStringCommand(clientData, interp, objc, objv)
     ClientData clientData;
@@ -585,7 +557,7 @@ TclInvokeStringCommand(clientData, interp, objc, objv)
     return (tclIntStubsPtr->tclInvokeStringCommand)(clientData, interp, objc, objv);
 }
 
-/* Slot 59 */
+/* Slot 55 */
 Proc *
 TclIsProc(cmdPtr)
     Command * cmdPtr;
@@ -593,7 +565,7 @@ TclIsProc(cmdPtr)
     return (tclIntStubsPtr->tclIsProc)(cmdPtr);
 }
 
-/* Slot 60 */
+/* Slot 56 */
 int
 TclLoadFile(interp, fileName, sym1, sym2, proc1Ptr, proc2Ptr)
     Tcl_Interp * interp;
@@ -606,7 +578,7 @@ TclLoadFile(interp, fileName, sym1, sym2, proc1Ptr, proc2Ptr)
     return (tclIntStubsPtr->tclLoadFile)(interp, fileName, sym1, sym2, proc1Ptr, proc2Ptr);
 }
 
-/* Slot 61 */
+/* Slot 57 */
 int
 TclLooksLikeInt(p)
     char * p;
@@ -614,7 +586,7 @@ TclLooksLikeInt(p)
     return (tclIntStubsPtr->tclLooksLikeInt)(p);
 }
 
-/* Slot 62 */
+/* Slot 58 */
 Var *
 TclLookupVar(interp, part1, part2, flags, msg, createPart1, createPart2, arrayPtrPtr)
     Tcl_Interp * interp;
@@ -629,7 +601,7 @@ TclLookupVar(interp, part1, part2, flags, msg, createPart1, createPart2, arrayPt
     return (tclIntStubsPtr->tclLookupVar)(interp, part1, part2, flags, msg, createPart1, createPart2, arrayPtrPtr);
 }
 
-/* Slot 63 */
+/* Slot 59 */
 int
 TclMatchFiles(interp, separators, dirPtr, pattern, tail)
     Tcl_Interp * interp;
@@ -641,7 +613,7 @@ TclMatchFiles(interp, separators, dirPtr, pattern, tail)
     return (tclIntStubsPtr->tclMatchFiles)(interp, separators, dirPtr, pattern, tail);
 }
 
-/* Slot 64 */
+/* Slot 60 */
 int
 TclNeedSpace(start, end)
     char * start;
@@ -650,7 +622,7 @@ TclNeedSpace(start, end)
     return (tclIntStubsPtr->tclNeedSpace)(start, end);
 }
 
-/* Slot 65 */
+/* Slot 61 */
 Tcl_Obj *
 TclNewProcBodyObj(procPtr)
     Proc * procPtr;
@@ -658,7 +630,7 @@ TclNewProcBodyObj(procPtr)
     return (tclIntStubsPtr->tclNewProcBodyObj)(procPtr);
 }
 
-/* Slot 66 */
+/* Slot 62 */
 int
 TclObjCommandComplete(cmdPtr)
     Tcl_Obj * cmdPtr;
@@ -666,7 +638,7 @@ TclObjCommandComplete(cmdPtr)
     return (tclIntStubsPtr->tclObjCommandComplete)(cmdPtr);
 }
 
-/* Slot 67 */
+/* Slot 63 */
 int
 TclObjInterpProc(clientData, interp, objc, objv)
     ClientData clientData;
@@ -677,7 +649,7 @@ TclObjInterpProc(clientData, interp, objc, objv)
     return (tclIntStubsPtr->tclObjInterpProc)(clientData, interp, objc, objv);
 }
 
-/* Slot 68 */
+/* Slot 64 */
 int
 TclObjInvoke(interp, objc, objv, flags)
     Tcl_Interp * interp;
@@ -688,7 +660,7 @@ TclObjInvoke(interp, objc, objv, flags)
     return (tclIntStubsPtr->tclObjInvoke)(interp, objc, objv, flags);
 }
 
-/* Slot 69 */
+/* Slot 65 */
 int
 TclObjInvokeGlobal(interp, objc, objv, flags)
     Tcl_Interp * interp;
@@ -699,7 +671,7 @@ TclObjInvokeGlobal(interp, objc, objv, flags)
     return (tclIntStubsPtr->tclObjInvokeGlobal)(interp, objc, objv, flags);
 }
 
-/* Slot 70 */
+/* Slot 66 */
 int
 TclOpenFileChannelDeleteProc(proc)
     TclOpenFileChannelProc_ * proc;
@@ -707,7 +679,7 @@ TclOpenFileChannelDeleteProc(proc)
     return (tclIntStubsPtr->tclOpenFileChannelDeleteProc)(proc);
 }
 
-/* Slot 71 */
+/* Slot 67 */
 int
 TclOpenFileChannelInsertProc(proc)
     TclOpenFileChannelProc_ * proc;
@@ -715,7 +687,7 @@ TclOpenFileChannelInsertProc(proc)
     return (tclIntStubsPtr->tclOpenFileChannelInsertProc)(proc);
 }
 
-/* Slot 72 */
+/* Slot 68 */
 int
 TclpAccess(path, mode)
     CONST char * path;
@@ -724,7 +696,7 @@ TclpAccess(path, mode)
     return (tclIntStubsPtr->tclpAccess)(path, mode);
 }
 
-/* Slot 73 */
+/* Slot 69 */
 char *
 TclpAlloc(size)
     unsigned int size;
@@ -732,7 +704,7 @@ TclpAlloc(size)
     return (tclIntStubsPtr->tclpAlloc)(size);
 }
 
-/* Slot 74 */
+/* Slot 70 */
 int
 TclpCopyFile(source, dest)
     char * source;
@@ -741,7 +713,7 @@ TclpCopyFile(source, dest)
     return (tclIntStubsPtr->tclpCopyFile)(source, dest);
 }
 
-/* Slot 75 */
+/* Slot 71 */
 int
 TclpCopyDirectory(source, dest, errorPtr)
     char * source;
@@ -751,7 +723,7 @@ TclpCopyDirectory(source, dest, errorPtr)
     return (tclIntStubsPtr->tclpCopyDirectory)(source, dest, errorPtr);
 }
 
-/* Slot 76 */
+/* Slot 72 */
 int
 TclpCreateDirectory(path)
     char * path;
@@ -759,7 +731,7 @@ TclpCreateDirectory(path)
     return (tclIntStubsPtr->tclpCreateDirectory)(path);
 }
 
-/* Slot 77 */
+/* Slot 73 */
 int
 TclpDeleteFile(path)
     char * path;
@@ -767,7 +739,7 @@ TclpDeleteFile(path)
     return (tclIntStubsPtr->tclpDeleteFile)(path);
 }
 
-/* Slot 78 */
+/* Slot 74 */
 void
 TclpFree(ptr)
     char * ptr;
@@ -775,21 +747,21 @@ TclpFree(ptr)
     (tclIntStubsPtr->tclpFree)(ptr);
 }
 
-/* Slot 79 */
+/* Slot 75 */
 unsigned long
 TclpGetClicks()
 {
     return (tclIntStubsPtr->tclpGetClicks)();
 }
 
-/* Slot 80 */
+/* Slot 76 */
 unsigned long
 TclpGetSeconds()
 {
     return (tclIntStubsPtr->tclpGetSeconds)();
 }
 
-/* Slot 81 */
+/* Slot 77 */
 void
 TclpGetTime(time)
     Tcl_Time * time;
@@ -797,7 +769,7 @@ TclpGetTime(time)
     (tclIntStubsPtr->tclpGetTime)(time);
 }
 
-/* Slot 82 */
+/* Slot 78 */
 int
 TclpGetTimeZone(time)
     unsigned long time;
@@ -805,7 +777,7 @@ TclpGetTimeZone(time)
     return (tclIntStubsPtr->tclpGetTimeZone)(time);
 }
 
-/* Slot 83 */
+/* Slot 79 */
 int
 TclpListVolumes(interp)
     Tcl_Interp * interp;
@@ -813,7 +785,7 @@ TclpListVolumes(interp)
     return (tclIntStubsPtr->tclpListVolumes)(interp);
 }
 
-/* Slot 84 */
+/* Slot 80 */
 Tcl_Channel
 TclpOpenFileChannel(interp, fileName, modeString, permissions)
     Tcl_Interp * interp;
@@ -824,7 +796,7 @@ TclpOpenFileChannel(interp, fileName, modeString, permissions)
     return (tclIntStubsPtr->tclpOpenFileChannel)(interp, fileName, modeString, permissions);
 }
 
-/* Slot 85 */
+/* Slot 81 */
 char *
 TclpRealloc(ptr, size)
     char * ptr;
@@ -833,7 +805,7 @@ TclpRealloc(ptr, size)
     return (tclIntStubsPtr->tclpRealloc)(ptr, size);
 }
 
-/* Slot 86 */
+/* Slot 82 */
 int
 TclpRemoveDirectory(path, recursive, errorPtr)
     char * path;
@@ -843,7 +815,7 @@ TclpRemoveDirectory(path, recursive, errorPtr)
     return (tclIntStubsPtr->tclpRemoveDirectory)(path, recursive, errorPtr);
 }
 
-/* Slot 87 */
+/* Slot 83 */
 int
 TclpRenameFile(source, dest)
     char * source;
@@ -852,7 +824,7 @@ TclpRenameFile(source, dest)
     return (tclIntStubsPtr->tclpRenameFile)(source, dest);
 }
 
-/* Slot 88 */
+/* Slot 84 */
 int
 TclParseBraces(interp, string, termPtr, pvPtr)
     Tcl_Interp * interp;
@@ -863,7 +835,7 @@ TclParseBraces(interp, string, termPtr, pvPtr)
     return (tclIntStubsPtr->tclParseBraces)(interp, string, termPtr, pvPtr);
 }
 
-/* Slot 89 */
+/* Slot 85 */
 int
 TclParseNestedCmd(interp, string, flags, termPtr, pvPtr)
     Tcl_Interp * interp;
@@ -875,7 +847,7 @@ TclParseNestedCmd(interp, string, flags, termPtr, pvPtr)
     return (tclIntStubsPtr->tclParseNestedCmd)(interp, string, flags, termPtr, pvPtr);
 }
 
-/* Slot 90 */
+/* Slot 86 */
 int
 TclParseQuotes(interp, string, termChar, flags, termPtr, pvPtr)
     Tcl_Interp * interp;
@@ -888,7 +860,7 @@ TclParseQuotes(interp, string, termChar, flags, termPtr, pvPtr)
     return (tclIntStubsPtr->tclParseQuotes)(interp, string, termChar, flags, termPtr, pvPtr);
 }
 
-/* Slot 91 */
+/* Slot 87 */
 void
 TclPlatformInit(interp)
     Tcl_Interp * interp;
@@ -896,7 +868,7 @@ TclPlatformInit(interp)
     (tclIntStubsPtr->tclPlatformInit)(interp);
 }
 
-/* Slot 92 */
+/* Slot 88 */
 char *
 TclPrecTraceProc(clientData, interp, name1, name2, flags)
     ClientData clientData;
@@ -908,7 +880,7 @@ TclPrecTraceProc(clientData, interp, name1, name2, flags)
     return (tclIntStubsPtr->tclPrecTraceProc)(clientData, interp, name1, name2, flags);
 }
 
-/* Slot 93 */
+/* Slot 89 */
 int
 TclPreventAliasLoop(interp, cmdInterp, cmd)
     Tcl_Interp * interp;
@@ -918,7 +890,7 @@ TclPreventAliasLoop(interp, cmdInterp, cmd)
     return (tclIntStubsPtr->tclPreventAliasLoop)(interp, cmdInterp, cmd);
 }
 
-/* Slot 94 */
+/* Slot 90 */
 void
 TclPrintByteCodeObj(interp, objPtr)
     Tcl_Interp * interp;
@@ -927,7 +899,7 @@ TclPrintByteCodeObj(interp, objPtr)
     (tclIntStubsPtr->tclPrintByteCodeObj)(interp, objPtr);
 }
 
-/* Slot 95 */
+/* Slot 91 */
 void
 TclProcCleanupProc(procPtr)
     Proc * procPtr;
@@ -935,7 +907,7 @@ TclProcCleanupProc(procPtr)
     (tclIntStubsPtr->tclProcCleanupProc)(procPtr);
 }
 
-/* Slot 96 */
+/* Slot 92 */
 int
 TclProcCompileProc(interp, procPtr, bodyPtr, nsPtr, description, procName)
     Tcl_Interp * interp;
@@ -948,7 +920,7 @@ TclProcCompileProc(interp, procPtr, bodyPtr, nsPtr, description, procName)
     return (tclIntStubsPtr->tclProcCompileProc)(interp, procPtr, bodyPtr, nsPtr, description, procName);
 }
 
-/* Slot 97 */
+/* Slot 93 */
 void
 TclProcDeleteProc(clientData)
     ClientData clientData;
@@ -956,7 +928,7 @@ TclProcDeleteProc(clientData)
     (tclIntStubsPtr->tclProcDeleteProc)(clientData);
 }
 
-/* Slot 98 */
+/* Slot 94 */
 int
 TclProcInterpProc(clientData, interp, argc, argv)
     ClientData clientData;
@@ -967,7 +939,7 @@ TclProcInterpProc(clientData, interp, argc, argv)
     return (tclIntStubsPtr->tclProcInterpProc)(clientData, interp, argc, argv);
 }
 
-/* Slot 99 */
+/* Slot 95 */
 int
 TclpStat(path, buf)
     CONST char * path;
@@ -976,7 +948,7 @@ TclpStat(path, buf)
     return (tclIntStubsPtr->tclpStat)(path, buf);
 }
 
-/* Slot 100 */
+/* Slot 96 */
 int
 TclRenameCommand(interp, oldName, newName)
     Tcl_Interp * interp;
@@ -986,7 +958,7 @@ TclRenameCommand(interp, oldName, newName)
     return (tclIntStubsPtr->tclRenameCommand)(interp, oldName, newName);
 }
 
-/* Slot 101 */
+/* Slot 97 */
 void
 TclResetShadowedCmdRefs(interp, newCmdPtr)
     Tcl_Interp * interp;
@@ -995,14 +967,14 @@ TclResetShadowedCmdRefs(interp, newCmdPtr)
     (tclIntStubsPtr->tclResetShadowedCmdRefs)(interp, newCmdPtr);
 }
 
-/* Slot 102 */
+/* Slot 98 */
 int
 TclServiceIdle()
 {
     return (tclIntStubsPtr->tclServiceIdle)();
 }
 
-/* Slot 103 */
+/* Slot 99 */
 Tcl_Obj *
 TclSetElementOfIndexedArray(interp, localIndex, elemPtr, objPtr, leaveErrorMsg)
     Tcl_Interp * interp;
@@ -1014,7 +986,7 @@ TclSetElementOfIndexedArray(interp, localIndex, elemPtr, objPtr, leaveErrorMsg)
     return (tclIntStubsPtr->tclSetElementOfIndexedArray)(interp, localIndex, elemPtr, objPtr, leaveErrorMsg);
 }
 
-/* Slot 104 */
+/* Slot 100 */
 Tcl_Obj *
 TclSetIndexedScalar(interp, localIndex, objPtr, leaveErrorMsg)
     Tcl_Interp * interp;
@@ -1025,7 +997,7 @@ TclSetIndexedScalar(interp, localIndex, objPtr, leaveErrorMsg)
     return (tclIntStubsPtr->tclSetIndexedScalar)(interp, localIndex, objPtr, leaveErrorMsg);
 }
 
-/* Slot 105 */
+/* Slot 101 */
 char *
 TclSetPreInitScript(string)
     char * string;
@@ -1033,7 +1005,7 @@ TclSetPreInitScript(string)
     return (tclIntStubsPtr->tclSetPreInitScript)(string);
 }
 
-/* Slot 106 */
+/* Slot 102 */
 void
 TclSetupEnv(interp)
     Tcl_Interp * interp;
@@ -1041,7 +1013,7 @@ TclSetupEnv(interp)
     (tclIntStubsPtr->tclSetupEnv)(interp);
 }
 
-/* Slot 107 */
+/* Slot 103 */
 int
 TclSockGetPort(interp, string, proto, portPtr)
     Tcl_Interp * interp;
@@ -1052,7 +1024,7 @@ TclSockGetPort(interp, string, proto, portPtr)
     return (tclIntStubsPtr->tclSockGetPort)(interp, string, proto, portPtr);
 }
 
-/* Slot 108 */
+/* Slot 104 */
 int
 TclSockMinimumBuffers(sock, size)
     int sock;
@@ -1061,7 +1033,7 @@ TclSockMinimumBuffers(sock, size)
     return (tclIntStubsPtr->tclSockMinimumBuffers)(sock, size);
 }
 
-/* Slot 109 */
+/* Slot 105 */
 int
 TclStat(path, buf)
     CONST char * path;
@@ -1070,7 +1042,7 @@ TclStat(path, buf)
     return (tclIntStubsPtr->tclStat)(path, buf);
 }
 
-/* Slot 110 */
+/* Slot 106 */
 int
 TclStatDeleteProc(proc)
     TclStatProc_ * proc;
@@ -1078,7 +1050,7 @@ TclStatDeleteProc(proc)
     return (tclIntStubsPtr->tclStatDeleteProc)(proc);
 }
 
-/* Slot 111 */
+/* Slot 107 */
 int
 TclStatInsertProc(proc)
     TclStatProc_ * proc;
@@ -1086,7 +1058,7 @@ TclStatInsertProc(proc)
     return (tclIntStubsPtr->tclStatInsertProc)(proc);
 }
 
-/* Slot 112 */
+/* Slot 108 */
 void
 TclTeardownNamespace(nsPtr)
     Namespace * nsPtr;
@@ -1094,7 +1066,7 @@ TclTeardownNamespace(nsPtr)
     (tclIntStubsPtr->tclTeardownNamespace)(nsPtr);
 }
 
-/* Slot 113 */
+/* Slot 109 */
 int
 TclUpdateReturnInfo(iPtr)
     Interp * iPtr;
@@ -1102,7 +1074,7 @@ TclUpdateReturnInfo(iPtr)
     return (tclIntStubsPtr->tclUpdateReturnInfo)(iPtr);
 }
 
-/* Slot 114 */
+/* Slot 110 */
 char *
 TclWordEnd(start, lastChar, nested, semiPtr)
     char * start;
@@ -1113,7 +1085,7 @@ TclWordEnd(start, lastChar, nested, semiPtr)
     return (tclIntStubsPtr->tclWordEnd)(start, lastChar, nested, semiPtr);
 }
 
-/* Slot 115 */
+/* Slot 111 */
 void
 Tcl_AddInterpResolvers(interp, name, cmdProc, varProc, compiledVarProc)
     Tcl_Interp * interp;
@@ -1125,7 +1097,7 @@ Tcl_AddInterpResolvers(interp, name, cmdProc, varProc, compiledVarProc)
     (tclIntStubsPtr->tcl_AddInterpResolvers)(interp, name, cmdProc, varProc, compiledVarProc);
 }
 
-/* Slot 116 */
+/* Slot 112 */
 int
 Tcl_AppendExportList(interp, nsPtr, objPtr)
     Tcl_Interp * interp;
@@ -1135,7 +1107,7 @@ Tcl_AppendExportList(interp, nsPtr, objPtr)
     return (tclIntStubsPtr->tcl_AppendExportList)(interp, nsPtr, objPtr);
 }
 
-/* Slot 117 */
+/* Slot 113 */
 Tcl_Namespace *
 Tcl_CreateNamespace(interp, name, clientData, deleteProc)
     Tcl_Interp * interp;
@@ -1146,7 +1118,7 @@ Tcl_CreateNamespace(interp, name, clientData, deleteProc)
     return (tclIntStubsPtr->tcl_CreateNamespace)(interp, name, clientData, deleteProc);
 }
 
-/* Slot 118 */
+/* Slot 114 */
 void
 Tcl_DeleteNamespace(nsPtr)
     Tcl_Namespace * nsPtr;
@@ -1154,7 +1126,7 @@ Tcl_DeleteNamespace(nsPtr)
     (tclIntStubsPtr->tcl_DeleteNamespace)(nsPtr);
 }
 
-/* Slot 119 */
+/* Slot 115 */
 int
 Tcl_Export(interp, nsPtr, pattern, resetListFirst)
     Tcl_Interp * interp;
@@ -1165,7 +1137,7 @@ Tcl_Export(interp, nsPtr, pattern, resetListFirst)
     return (tclIntStubsPtr->tcl_Export)(interp, nsPtr, pattern, resetListFirst);
 }
 
-/* Slot 120 */
+/* Slot 116 */
 Tcl_Command
 Tcl_FindCommand(interp, name, contextNsPtr, flags)
     Tcl_Interp * interp;
@@ -1176,7 +1148,7 @@ Tcl_FindCommand(interp, name, contextNsPtr, flags)
     return (tclIntStubsPtr->tcl_FindCommand)(interp, name, contextNsPtr, flags);
 }
 
-/* Slot 121 */
+/* Slot 117 */
 Tcl_Namespace *
 Tcl_FindNamespace(interp, name, contextNsPtr, flags)
     Tcl_Interp * interp;
@@ -1187,7 +1159,7 @@ Tcl_FindNamespace(interp, name, contextNsPtr, flags)
     return (tclIntStubsPtr->tcl_FindNamespace)(interp, name, contextNsPtr, flags);
 }
 
-/* Slot 122 */
+/* Slot 118 */
 int
 Tcl_GetInterpResolvers(interp, name, resInfo)
     Tcl_Interp * interp;
@@ -1197,7 +1169,7 @@ Tcl_GetInterpResolvers(interp, name, resInfo)
     return (tclIntStubsPtr->tcl_GetInterpResolvers)(interp, name, resInfo);
 }
 
-/* Slot 123 */
+/* Slot 119 */
 int
 Tcl_GetNamespaceResolvers(namespacePtr, resInfo)
     Tcl_Namespace * namespacePtr;
@@ -1206,7 +1178,7 @@ Tcl_GetNamespaceResolvers(namespacePtr, resInfo)
     return (tclIntStubsPtr->tcl_GetNamespaceResolvers)(namespacePtr, resInfo);
 }
 
-/* Slot 124 */
+/* Slot 120 */
 Tcl_Var
 Tcl_FindNamespaceVar(interp, name, contextNsPtr, flags)
     Tcl_Interp * interp;
@@ -1217,7 +1189,7 @@ Tcl_FindNamespaceVar(interp, name, contextNsPtr, flags)
     return (tclIntStubsPtr->tcl_FindNamespaceVar)(interp, name, contextNsPtr, flags);
 }
 
-/* Slot 125 */
+/* Slot 121 */
 int
 Tcl_ForgetImport(interp, nsPtr, pattern)
     Tcl_Interp * interp;
@@ -1227,7 +1199,7 @@ Tcl_ForgetImport(interp, nsPtr, pattern)
     return (tclIntStubsPtr->tcl_ForgetImport)(interp, nsPtr, pattern);
 }
 
-/* Slot 126 */
+/* Slot 122 */
 Tcl_Command
 Tcl_GetCommandFromObj(interp, objPtr)
     Tcl_Interp * interp;
@@ -1236,7 +1208,7 @@ Tcl_GetCommandFromObj(interp, objPtr)
     return (tclIntStubsPtr->tcl_GetCommandFromObj)(interp, objPtr);
 }
 
-/* Slot 127 */
+/* Slot 123 */
 void
 Tcl_GetCommandFullName(interp, command, objPtr)
     Tcl_Interp * interp;
@@ -1246,7 +1218,7 @@ Tcl_GetCommandFullName(interp, command, objPtr)
     (tclIntStubsPtr->tcl_GetCommandFullName)(interp, command, objPtr);
 }
 
-/* Slot 128 */
+/* Slot 124 */
 Tcl_Namespace *
 Tcl_GetCurrentNamespace(interp)
     Tcl_Interp * interp;
@@ -1254,7 +1226,7 @@ Tcl_GetCurrentNamespace(interp)
     return (tclIntStubsPtr->tcl_GetCurrentNamespace)(interp);
 }
 
-/* Slot 129 */
+/* Slot 125 */
 Tcl_Namespace *
 Tcl_GetGlobalNamespace(interp)
     Tcl_Interp * interp;
@@ -1262,7 +1234,7 @@ Tcl_GetGlobalNamespace(interp)
     return (tclIntStubsPtr->tcl_GetGlobalNamespace)(interp);
 }
 
-/* Slot 130 */
+/* Slot 126 */
 void
 Tcl_GetVariableFullName(interp, variable, objPtr)
     Tcl_Interp * interp;
@@ -1272,7 +1244,7 @@ Tcl_GetVariableFullName(interp, variable, objPtr)
     (tclIntStubsPtr->tcl_GetVariableFullName)(interp, variable, objPtr);
 }
 
-/* Slot 131 */
+/* Slot 127 */
 int
 Tcl_Import(interp, nsPtr, pattern, allowOverwrite)
     Tcl_Interp * interp;
@@ -1283,7 +1255,7 @@ Tcl_Import(interp, nsPtr, pattern, allowOverwrite)
     return (tclIntStubsPtr->tcl_Import)(interp, nsPtr, pattern, allowOverwrite);
 }
 
-/* Slot 132 */
+/* Slot 128 */
 void
 Tcl_PopCallFrame(interp)
     Tcl_Interp* interp;
@@ -1291,7 +1263,7 @@ Tcl_PopCallFrame(interp)
     (tclIntStubsPtr->tcl_PopCallFrame)(interp);
 }
 
-/* Slot 133 */
+/* Slot 129 */
 int
 Tcl_PushCallFrame(interp, framePtr, nsPtr, isProcCallFrame)
     Tcl_Interp* interp;
@@ -1302,7 +1274,7 @@ Tcl_PushCallFrame(interp, framePtr, nsPtr, isProcCallFrame)
     return (tclIntStubsPtr->tcl_PushCallFrame)(interp, framePtr, nsPtr, isProcCallFrame);
 }
 
-/* Slot 134 */
+/* Slot 130 */
 int
 Tcl_RemoveInterpResolvers(interp, name)
     Tcl_Interp * interp;
@@ -1311,7 +1283,7 @@ Tcl_RemoveInterpResolvers(interp, name)
     return (tclIntStubsPtr->tcl_RemoveInterpResolvers)(interp, name);
 }
 
-/* Slot 135 */
+/* Slot 131 */
 void
 Tcl_SetNamespaceResolvers(namespacePtr, cmdProc, varProc, compiledVarProc)
     Tcl_Namespace * namespacePtr;
@@ -1322,127 +1294,7 @@ Tcl_SetNamespaceResolvers(namespacePtr, cmdProc, varProc, compiledVarProc)
     (tclIntStubsPtr->tcl_SetNamespaceResolvers)(namespacePtr, cmdProc, varProc, compiledVarProc);
 }
 
-/* Slot 136 */
-int
-TclCompileBreakCmd(interp, string, lastChar, compileFlags, compileEnvPtr)
-    Tcl_Interp * interp;
-    char * string;
-    char * lastChar;
-    int compileFlags;
-    struct CompileEnv * compileEnvPtr;
-{
-    return (tclIntStubsPtr->tclCompileBreakCmd)(interp, string, lastChar, compileFlags, compileEnvPtr);
-}
-
-/* Slot 137 */
-int
-TclCompileCatchCmd(interp, string, lastChar, compileFlags, compileEnvPtr)
-    Tcl_Interp * interp;
-    char * string;
-    char * lastChar;
-    int compileFlags;
-    struct CompileEnv * compileEnvPtr;
-{
-    return (tclIntStubsPtr->tclCompileCatchCmd)(interp, string, lastChar, compileFlags, compileEnvPtr);
-}
-
-/* Slot 138 */
-int
-TclCompileContinueCmd(interp, string, lastChar, compileFlags, compileEnvPtr)
-    Tcl_Interp * interp;
-    char * string;
-    char * lastChar;
-    int compileFlags;
-    struct CompileEnv * compileEnvPtr;
-{
-    return (tclIntStubsPtr->tclCompileContinueCmd)(interp, string, lastChar, compileFlags, compileEnvPtr);
-}
-
-/* Slot 139 */
-int
-TclCompileExprCmd(interp, string, lastChar, compileFlags, compileEnvPtr)
-    Tcl_Interp * interp;
-    char * string;
-    char * lastChar;
-    int compileFlags;
-    struct CompileEnv * compileEnvPtr;
-{
-    return (tclIntStubsPtr->tclCompileExprCmd)(interp, string, lastChar, compileFlags, compileEnvPtr);
-}
-
-/* Slot 140 */
-int
-TclCompileForCmd(interp, string, lastChar, compileFlags, compileEnvPtr)
-    Tcl_Interp * interp;
-    char * string;
-    char * lastChar;
-    int compileFlags;
-    struct CompileEnv * compileEnvPtr;
-{
-    return (tclIntStubsPtr->tclCompileForCmd)(interp, string, lastChar, compileFlags, compileEnvPtr);
-}
-
-/* Slot 141 */
-int
-TclCompileForeachCmd(interp, string, lastChar, compileFlags, compileEnvPtr)
-    Tcl_Interp * interp;
-    char * string;
-    char * lastChar;
-    int compileFlags;
-    struct CompileEnv * compileEnvPtr;
-{
-    return (tclIntStubsPtr->tclCompileForeachCmd)(interp, string, lastChar, compileFlags, compileEnvPtr);
-}
-
-/* Slot 142 */
-int
-TclCompileIfCmd(interp, string, lastChar, compileFlags, compileEnvPtr)
-    Tcl_Interp * interp;
-    char * string;
-    char * lastChar;
-    int compileFlags;
-    struct CompileEnv * compileEnvPtr;
-{
-    return (tclIntStubsPtr->tclCompileIfCmd)(interp, string, lastChar, compileFlags, compileEnvPtr);
-}
-
-/* Slot 143 */
-int
-TclCompileIncrCmd(interp, string, lastChar, compileFlags, compileEnvPtr)
-    Tcl_Interp * interp;
-    char * string;
-    char * lastChar;
-    int compileFlags;
-    struct CompileEnv * compileEnvPtr;
-{
-    return (tclIntStubsPtr->tclCompileIncrCmd)(interp, string, lastChar, compileFlags, compileEnvPtr);
-}
-
-/* Slot 144 */
-int
-TclCompileSetCmd(interp, string, lastChar, compileFlags, compileEnvPtr)
-    Tcl_Interp * interp;
-    char * string;
-    char * lastChar;
-    int compileFlags;
-    struct CompileEnv * compileEnvPtr;
-{
-    return (tclIntStubsPtr->tclCompileSetCmd)(interp, string, lastChar, compileFlags, compileEnvPtr);
-}
-
-/* Slot 145 */
-int
-TclCompileWhileCmd(interp, string, lastChar, compileFlags, compileEnvPtr)
-    Tcl_Interp * interp;
-    char * string;
-    char * lastChar;
-    int compileFlags;
-    struct CompileEnv * compileEnvPtr;
-{
-    return (tclIntStubsPtr->tclCompileWhileCmd)(interp, string, lastChar, compileFlags, compileEnvPtr);
-}
-
-/* Slot 146 */
+/* Slot 132 */
 int
 TclHasSockets(interp)
     Tcl_Interp * interp;
@@ -1450,7 +1302,7 @@ TclHasSockets(interp)
     return (tclIntStubsPtr->tclHasSockets)(interp);
 }
 
-/* Slot 147 */
+/* Slot 133 */
 struct tm *
 TclpGetDate(time, useGMT)
     TclpTime_t time;
@@ -1459,7 +1311,7 @@ TclpGetDate(time, useGMT)
     return (tclIntStubsPtr->tclpGetDate)(time, useGMT);
 }
 
-/* Slot 148 */
+/* Slot 134 */
 size_t
 TclStrftime(s, maxsize, format, t)
     char * s;
@@ -1470,7 +1322,7 @@ TclStrftime(s, maxsize, format, t)
     return (tclIntStubsPtr->tclStrftime)(s, maxsize, format, t);
 }
 
-/* Slot 149 */
+/* Slot 135 */
 int
 TclpCheckStackSpace()
 {