diff options
author | ferrieux <ferrieux@noemail.net> | 2009-04-27 22:10:28 (GMT) |
---|---|---|
committer | ferrieux <ferrieux@noemail.net> | 2009-04-27 22:10:28 (GMT) |
commit | 6dc7c42e23213866b0505a2d013b711f127713b9 (patch) | |
tree | 1b8ee5775fa5066b3ebec1a4612f2d15ef65118e /generic/tclInt.h | |
parent | c6a10bd3e4f6c9af7b8a01a01fcff74152863ebd (diff) | |
download | tcl-6dc7c42e23213866b0505a2d013b711f127713b9.zip tcl-6dc7c42e23213866b0505a2d013b711f127713b9.tar.gz tcl-6dc7c42e23213866b0505a2d013b711f127713b9.tar.bz2 |
Backport fix for [Bug 1028264]: WSACleanup() too early. The fix introduces "late exit handlers" for similar late process-wide cleanups.
FossilOrigin-Name: 19cb09b3ecda47a8d8238b72069c8c4e808363b5
Diffstat (limited to 'generic/tclInt.h')
-rw-r--r-- | generic/tclInt.h | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index 7de3d01..43870e7 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -13,7 +13,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclInt.h,v 1.118.2.32 2008/07/22 21:40:32 andreas_kupries Exp $ + * RCS: @(#) $Id: tclInt.h,v 1.118.2.33 2009/04/27 22:10:28 ferrieux Exp $ */ #ifndef _TCLINT @@ -1893,6 +1893,10 @@ EXTERN int TclFileMakeDirsCmd _ANSI_ARGS_((Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])) ; EXTERN int TclFileRenameCmd _ANSI_ARGS_((Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])) ; +EXTERN void TclCreateLateExitHandler (Tcl_ExitProc * proc, + ClientData clientData); +EXTERN void TclDeleteLateExitHandler (Tcl_ExitProc * proc, + ClientData clientData); EXTERN void TclFinalizeAllocSubsystem _ANSI_ARGS_((void)); EXTERN void TclFinalizeAsync _ANSI_ARGS_((void)); EXTERN void TclFinalizeCompilation _ANSI_ARGS_((void)); |