diff options
| author | ferrieux <ferrieux@users.sourceforge.net> | 2009-04-27 22:10:28 (GMT) |
|---|---|---|
| committer | ferrieux <ferrieux@users.sourceforge.net> | 2009-04-27 22:10:28 (GMT) |
| commit | 4ce9fe53dec6acb9baef9825f09cccd3d2984204 (patch) | |
| tree | 1b8ee5775fa5066b3ebec1a4612f2d15ef65118e /generic/tclInt.h | |
| parent | 67f8b1bc1ba1d7df58f6005534a2f488a100c339 (diff) | |
| download | tcl-4ce9fe53dec6acb9baef9825f09cccd3d2984204.zip tcl-4ce9fe53dec6acb9baef9825f09cccd3d2984204.tar.gz tcl-4ce9fe53dec6acb9baef9825f09cccd3d2984204.tar.bz2 | |
Backport fix for [Bug 1028264]: WSACleanup() too early. The fix introduces "late exit handlers" for similar late process-wide cleanups.
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)); |