summaryrefslogtreecommitdiffstats
path: root/win
diff options
context:
space:
mode:
authordavygrvy <davygrvy@pobox.com>2004-04-23 07:41:08 (GMT)
committerdavygrvy <davygrvy@pobox.com>2004-04-23 07:41:08 (GMT)
commit4d4e268abc83844f76c3bdcb731e0877277b2002 (patch)
treea66809e42a0c26403da75f96a9c73126c286df32 /win
parentb9fbb790fc3e89f64c1034b6ee5af4210c11d12a (diff)
downloadtcl-4d4e268abc83844f76c3bdcb731e0877277b2002.zip
tcl-4d4e268abc83844f76c3bdcb731e0877277b2002.tar.gz
tcl-4d4e268abc83844f76c3bdcb731e0877277b2002.tar.bz2
Removed my mistake of adding an exit handler to TclWinInit.
TclWinEncodingsCleanup called from TclFinalizeFilesystem does the Tcl_FreeEncoding for us.
Diffstat (limited to 'win')
-rw-r--r--win/tclWin32Dll.c31
1 files changed, 1 insertions, 30 deletions
diff --git a/win/tclWin32Dll.c b/win/tclWin32Dll.c
index 4059373..d8a360c 100644
--- a/win/tclWin32Dll.c
+++ b/win/tclWin32Dll.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: tclWin32Dll.c,v 1.33 2004/04/20 02:10:38 davygrvy Exp $
+ * RCS: @(#) $Id: tclWin32Dll.c,v 1.34 2004/04/23 07:41:08 davygrvy Exp $
*/
#include "tclWinInt.h"
@@ -156,7 +156,6 @@ static TclWinProcs unicodeProcs = {
TclWinProcs *tclWinProcs;
static Tcl_Encoding tclWinTCharEncoding;
-Tcl_ExitProc TclWinUninit;
/*
* The following declaration is for the VC++ DLL entry point.
@@ -398,34 +397,6 @@ TclWinInit(hInst)
}
tclWinProcs = &asciiProcs;
- Tcl_CreateExitHandler(TclWinUninit, NULL);
-}
-
-/*
- *----------------------------------------------------------------------
- *
- * TclWinUninit --
- *
- * Exit handler callback to remove private components used in this
- * file.
- *
- * Results:
- * None.
- *
- * Side effects:
- * Tcl_WinTCharToUtf and Tcl_WinUtfToTChar will not work during
- * the latter half of Tcl_Finalize.
- *
- *----------------------------------------------------------------------
- */
-
-void
-TclWinUninit (ClientData clientData)
-{
- if (tclWinTCharEncoding) {
- Tcl_FreeEncoding(tclWinTCharEncoding);
- tclWinTCharEncoding = NULL;
- }
}
/*