diff options
| author | davygrvy@pobox.com <davygrvy> | 2004-04-23 07:41:08 (GMT) |
|---|---|---|
| committer | davygrvy@pobox.com <davygrvy> | 2004-04-23 07:41:08 (GMT) |
| commit | 27a4e1d39e85e9cd46f783379586d13b711cc92f (patch) | |
| tree | a66809e42a0c26403da75f96a9c73126c286df32 | |
| parent | bad8ff38e123cce2be4458fccad12c17f5d9e17b (diff) | |
| download | tcl-27a4e1d39e85e9cd46f783379586d13b711cc92f.zip tcl-27a4e1d39e85e9cd46f783379586d13b711cc92f.tar.gz tcl-27a4e1d39e85e9cd46f783379586d13b711cc92f.tar.bz2 | |
Removed my mistake of adding an exit handler to TclWinInit.
TclWinEncodingsCleanup called from TclFinalizeFilesystem does
the Tcl_FreeEncoding for us.
| -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; - } } /* |