* win/tclWinInt.h:

* generic/tclInt.h:
* generic/tclIntDecls.h:
* generic/tclIntPlatDecls.h:
* generic/tclIntPlatStubs.c:
* generic/tclIntStubs.c:
* generic/tclStubInit.c:
* generic/tclInt.decls: Removed initialization and finalization
routines from the stub table since these should never be called by
an extension.

1 files changed, 136 insertions, 142 deletions

diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c
index 01d18f4..edc914d 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.2.2.2 1999/03/06 21:19:58 stanton Exp $
+ * RCS: @(#) $Id: tclStubInit.c,v 1.2.2.3 1999/03/08 22:25:31 stanton Exp $
  */
 
 #include "tclInt.h"
@@ -351,134 +351,130 @@ TclIntStubs tclIntStubs = {
     TclFileDeleteCmd, /* 19 */
     TclFileMakeDirsCmd, /* 20 */
     TclFileRenameCmd, /* 21 */
-    TclFinalizeCompExecEnv, /* 22 */
-    TclFinalizeEnvironment, /* 23 */
-    TclFinalizeExecEnv, /* 24 */
-    TclFindElement, /* 25 */
-    TclFindProc, /* 26 */
-    TclFormatInt, /* 27 */
-    TclFreePackageInfo, /* 28 */
-    TclGetCwd, /* 29 */
-    TclGetDate, /* 30 */
-    TclGetDefaultStdChannel, /* 31 */
-    TclGetElementOfIndexedArray, /* 32 */
-    TclGetEnv, /* 33 */
-    TclGetExtension, /* 34 */
-    TclGetFrame, /* 35 */
-    TclGetInterpProc, /* 36 */
-    TclGetIntForIndex, /* 37 */
-    TclGetIndexedScalar, /* 38 */
-    TclGetLong, /* 39 */
-    TclGetLoadedPackages, /* 40 */
-    TclGetNamespaceForQualName, /* 41 */
-    TclGetObjInterpProc, /* 42 */
-    TclGetOpenMode, /* 43 */
-    TclGetOriginalCommand, /* 44 */
-    TclGetUserHome, /* 45 */
-    TclGlobalInvoke, /* 46 */
-    TclGuessPackageName, /* 47 */
-    TclHideUnsafeCommands, /* 48 */
-    TclInExit, /* 49 */
-    TclIncrElementOfIndexedArray, /* 50 */
-    TclIncrIndexedScalar, /* 51 */
-    TclIncrVar2, /* 52 */
-    TclInitCompiledLocals, /* 53 */
-    TclInitNamespaces, /* 54 */
-    TclInterpInit, /* 55 */
-    TclInvoke, /* 56 */
-    TclInvokeObjectCommand, /* 57 */
-    TclInvokeStringCommand, /* 58 */
-    TclIsProc, /* 59 */
-    TclLoadFile, /* 60 */
-    TclLooksLikeInt, /* 61 */
-    TclLookupVar, /* 62 */
-    TclMatchFiles, /* 63 */
-    TclNeedSpace, /* 64 */
-    TclNewProcBodyObj, /* 65 */
-    TclObjCommandComplete, /* 66 */
-    TclObjInterpProc, /* 67 */
-    TclObjInvoke, /* 68 */
-    TclObjInvokeGlobal, /* 69 */
-    TclOpenFileChannelDeleteProc, /* 70 */
-    TclOpenFileChannelInsertProc, /* 71 */
-    TclpAccess, /* 72 */
-    TclpAlloc, /* 73 */
-    TclpCopyFile, /* 74 */
-    TclpCopyDirectory, /* 75 */
-    TclpCreateDirectory, /* 76 */
-    TclpDeleteFile, /* 77 */
-    TclpFree, /* 78 */
-    TclpGetClicks, /* 79 */
-    TclpGetSeconds, /* 80 */
-    TclpGetTime, /* 81 */
-    TclpGetTimeZone, /* 82 */
-    TclpListVolumes, /* 83 */
-    TclpOpenFileChannel, /* 84 */
-    TclpRealloc, /* 85 */
-    TclpRemoveDirectory, /* 86 */
-    TclpRenameFile, /* 87 */
-    TclParseBraces, /* 88 */
-    TclParseNestedCmd, /* 89 */
-    TclParseQuotes, /* 90 */
-    TclPlatformInit, /* 91 */
-    TclPrecTraceProc, /* 92 */
-    TclPreventAliasLoop, /* 93 */
-    TclPrintByteCodeObj, /* 94 */
-    TclProcCleanupProc, /* 95 */
-    TclProcCompileProc, /* 96 */
-    TclProcDeleteProc, /* 97 */
-    TclProcInterpProc, /* 98 */
-    TclpStat, /* 99 */
-    TclRenameCommand, /* 100 */
-    TclResetShadowedCmdRefs, /* 101 */
-    TclServiceIdle, /* 102 */
-    TclSetElementOfIndexedArray, /* 103 */
-    TclSetIndexedScalar, /* 104 */
-    TclSetPreInitScript, /* 105 */
-    TclSetupEnv, /* 106 */
-    TclSockGetPort, /* 107 */
-    TclSockMinimumBuffers, /* 108 */
-    TclStat, /* 109 */
-    TclStatDeleteProc, /* 110 */
-    TclStatInsertProc, /* 111 */
-    TclTeardownNamespace, /* 112 */
-    TclUpdateReturnInfo, /* 113 */
-    TclWordEnd, /* 114 */
-    Tcl_AddInterpResolvers, /* 115 */
-    Tcl_AppendExportList, /* 116 */
-    Tcl_CreateNamespace, /* 117 */
-    Tcl_DeleteNamespace, /* 118 */
-    Tcl_Export, /* 119 */
-    Tcl_FindCommand, /* 120 */
-    Tcl_FindNamespace, /* 121 */
-    Tcl_GetInterpResolvers, /* 122 */
-    Tcl_GetNamespaceResolvers, /* 123 */
-    Tcl_FindNamespaceVar, /* 124 */
-    Tcl_ForgetImport, /* 125 */
-    Tcl_GetCommandFromObj, /* 126 */
-    Tcl_GetCommandFullName, /* 127 */
-    Tcl_GetCurrentNamespace, /* 128 */
-    Tcl_GetGlobalNamespace, /* 129 */
-    Tcl_GetVariableFullName, /* 130 */
-    Tcl_Import, /* 131 */
-    Tcl_PopCallFrame, /* 132 */
-    Tcl_PushCallFrame, /* 133 */
-    Tcl_RemoveInterpResolvers, /* 134 */
-    Tcl_SetNamespaceResolvers, /* 135 */
-    TclCompileBreakCmd, /* 136 */
-    TclCompileCatchCmd, /* 137 */
-    TclCompileContinueCmd, /* 138 */
-    TclCompileExprCmd, /* 139 */
-    TclCompileForCmd, /* 140 */
-    TclCompileForeachCmd, /* 141 */
-    TclCompileIfCmd, /* 142 */
-    TclCompileIncrCmd, /* 143 */
-    TclCompileSetCmd, /* 144 */
-    TclCompileWhileCmd, /* 145 */
-    TclHasSockets, /* 146 */
-    TclpGetDate, /* 147 */
-    TclStrftime, /* 148 */
-    TclpCheckStackSpace, /* 149 */
+    TclFindElement, /* 22 */
+    TclFindProc, /* 23 */
+    TclFormatInt, /* 24 */
+    TclFreePackageInfo, /* 25 */
+    TclGetCwd, /* 26 */
+    TclGetDate, /* 27 */
+    TclGetDefaultStdChannel, /* 28 */
+    TclGetElementOfIndexedArray, /* 29 */
+    TclGetEnv, /* 30 */
+    TclGetExtension, /* 31 */
+    TclGetFrame, /* 32 */
+    TclGetInterpProc, /* 33 */
+    TclGetIntForIndex, /* 34 */
+    TclGetIndexedScalar, /* 35 */
+    TclGetLong, /* 36 */
+    TclGetLoadedPackages, /* 37 */
+    TclGetNamespaceForQualName, /* 38 */
+    TclGetObjInterpProc, /* 39 */
+    TclGetOpenMode, /* 40 */
+    TclGetOriginalCommand, /* 41 */
+    TclGetUserHome, /* 42 */
+    TclGlobalInvoke, /* 43 */
+    TclGuessPackageName, /* 44 */
+    TclHideUnsafeCommands, /* 45 */
+    TclInExit, /* 46 */
+    TclIncrElementOfIndexedArray, /* 47 */
+    TclIncrIndexedScalar, /* 48 */
+    TclIncrVar2, /* 49 */
+    TclInitCompiledLocals, /* 50 */
+    TclInterpInit, /* 51 */
+    TclInvoke, /* 52 */
+    TclInvokeObjectCommand, /* 53 */
+    TclInvokeStringCommand, /* 54 */
+    TclIsProc, /* 55 */
+    TclLoadFile, /* 56 */
+    TclLooksLikeInt, /* 57 */
+    TclLookupVar, /* 58 */
+    TclMatchFiles, /* 59 */
+    TclNeedSpace, /* 60 */
+    TclNewProcBodyObj, /* 61 */
+    TclObjCommandComplete, /* 62 */
+    TclObjInterpProc, /* 63 */
+    TclObjInvoke, /* 64 */
+    TclObjInvokeGlobal, /* 65 */
+    TclOpenFileChannelDeleteProc, /* 66 */
+    TclOpenFileChannelInsertProc, /* 67 */
+    TclpAccess, /* 68 */
+    TclpAlloc, /* 69 */
+    TclpCopyFile, /* 70 */
+    TclpCopyDirectory, /* 71 */
+    TclpCreateDirectory, /* 72 */
+    TclpDeleteFile, /* 73 */
+    TclpFree, /* 74 */
+    TclpGetClicks, /* 75 */
+    TclpGetSeconds, /* 76 */
+    TclpGetTime, /* 77 */
+    TclpGetTimeZone, /* 78 */
+    TclpListVolumes, /* 79 */
+    TclpOpenFileChannel, /* 80 */
+    TclpRealloc, /* 81 */
+    TclpRemoveDirectory, /* 82 */
+    TclpRenameFile, /* 83 */
+    TclParseBraces, /* 84 */
+    TclParseNestedCmd, /* 85 */
+    TclParseQuotes, /* 86 */
+    TclPlatformInit, /* 87 */
+    TclPrecTraceProc, /* 88 */
+    TclPreventAliasLoop, /* 89 */
+    TclPrintByteCodeObj, /* 90 */
+    TclProcCleanupProc, /* 91 */
+    TclProcCompileProc, /* 92 */
+    TclProcDeleteProc, /* 93 */
+    TclProcInterpProc, /* 94 */
+    TclpStat, /* 95 */
+    TclRenameCommand, /* 96 */
+    TclResetShadowedCmdRefs, /* 97 */
+    TclServiceIdle, /* 98 */
+    TclSetElementOfIndexedArray, /* 99 */
+    TclSetIndexedScalar, /* 100 */
+    TclSetPreInitScript, /* 101 */
+    TclSetupEnv, /* 102 */
+    TclSockGetPort, /* 103 */
+    TclSockMinimumBuffers, /* 104 */
+    TclStat, /* 105 */
+    TclStatDeleteProc, /* 106 */
+    TclStatInsertProc, /* 107 */
+    TclTeardownNamespace, /* 108 */
+    TclUpdateReturnInfo, /* 109 */
+    TclWordEnd, /* 110 */
+    Tcl_AddInterpResolvers, /* 111 */
+    Tcl_AppendExportList, /* 112 */
+    Tcl_CreateNamespace, /* 113 */
+    Tcl_DeleteNamespace, /* 114 */
+    Tcl_Export, /* 115 */
+    Tcl_FindCommand, /* 116 */
+    Tcl_FindNamespace, /* 117 */
+    Tcl_GetInterpResolvers, /* 118 */
+    Tcl_GetNamespaceResolvers, /* 119 */
+    Tcl_FindNamespaceVar, /* 120 */
+    Tcl_ForgetImport, /* 121 */
+    Tcl_GetCommandFromObj, /* 122 */
+    Tcl_GetCommandFullName, /* 123 */
+    Tcl_GetCurrentNamespace, /* 124 */
+    Tcl_GetGlobalNamespace, /* 125 */
+    Tcl_GetVariableFullName, /* 126 */
+    Tcl_Import, /* 127 */
+    Tcl_PopCallFrame, /* 128 */
+    Tcl_PushCallFrame, /* 129 */
+    Tcl_RemoveInterpResolvers, /* 130 */
+    Tcl_SetNamespaceResolvers, /* 131 */
+    TclCompileBreakCmd, /* 132 */
+    TclCompileCatchCmd, /* 133 */
+    TclCompileContinueCmd, /* 134 */
+    TclCompileExprCmd, /* 135 */
+    TclCompileForCmd, /* 136 */
+    TclCompileForeachCmd, /* 137 */
+    TclCompileIfCmd, /* 138 */
+    TclCompileIncrCmd, /* 139 */
+    TclCompileSetCmd, /* 140 */
+    TclCompileWhileCmd, /* 141 */
+    TclHasSockets, /* 142 */
+    TclpGetDate, /* 143 */
+    TclStrftime, /* 144 */
+    TclpCheckStackSpace, /* 145 */
 };
 
 TclIntStubs *tclIntStubsPtr = &tclIntStubs;
@@ -496,19 +492,17 @@ TclIntPlatStubs tclIntPlatStubs = {
     TclWinNToHS, /* 6 */
     TclWinSetSockOpt, /* 7 */
     TclpGetPid, /* 8 */
-    TclpFinalize, /* 9 */
-    TclWinGetPlatformId, /* 10 */
-    TclWinInit, /* 11 */
-    TclWinSynchSpawn, /* 12 */
-    TclGetAndDetachPids, /* 13 */
-    TclpCloseFile, /* 14 */
-    TclpCreateCommandChannel, /* 15 */
-    TclpCreatePipe, /* 16 */
-    TclpCreateProcess, /* 17 */
-    TclpCreateTempFile, /* 18 */
-    TclpGetTZName, /* 19 */
-    TclpMakeFile, /* 20 */
-    TclpOpenFile, /* 21 */
+    TclWinGetPlatformId, /* 9 */
+    TclWinSynchSpawn, /* 10 */
+    TclGetAndDetachPids, /* 11 */
+    TclpCloseFile, /* 12 */
+    TclpCreateCommandChannel, /* 13 */
+    TclpCreatePipe, /* 14 */
+    TclpCreateProcess, /* 15 */
+    TclpCreateTempFile, /* 16 */
+    TclpGetTZName, /* 17 */
+    TclpMakeFile, /* 18 */
+    TclpOpenFile, /* 19 */
 #endif /* __WIN32__ */
 #if !defined(__WIN32__) && !defined(MAC_TCL)
     TclGetAndDetachPids, /* 0 */