diff options
| author | davygrvy <davygrvy@pobox.com> | 2004-04-23 07:41:08 (GMT) |
|---|---|---|
| committer | davygrvy <davygrvy@pobox.com> | 2004-04-23 07:41:08 (GMT) |
| commit | 4d4e268abc83844f76c3bdcb731e0877277b2002 (patch) | |
| tree | a66809e42a0c26403da75f96a9c73126c286df32 /win | |
| parent | b9fbb790fc3e89f64c1034b6ee5af4210c11d12a (diff) | |
| download | tcl-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.c | 31 |
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; - } } /* |