diff options
| author | ferrieux <ferrieux@users.sourceforge.net> | 2009-04-27 21:45:20 (GMT) |
|---|---|---|
| committer | ferrieux <ferrieux@users.sourceforge.net> | 2009-04-27 21:45:20 (GMT) |
| commit | 307688a6bcc1236608fd377397fb9f49dc7f4a42 (patch) | |
| tree | a7d36c2c94c82691d7f22461bf81c46e2c66e2f6 /generic/tclInt.h | |
| parent | 9e2fbfa040b39731f29db2f5d79596099ef26489 (diff) | |
| download | tcl-307688a6bcc1236608fd377397fb9f49dc7f4a42.zip tcl-307688a6bcc1236608fd377397fb9f49dc7f4a42.tar.gz tcl-307688a6bcc1236608fd377397fb9f49dc7f4a42.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 aef7a3f..5d7e6ab 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.362.2.5 2008/11/14 00:22:39 nijtmans Exp $ + * RCS: @(#) $Id: tclInt.h,v 1.362.2.6 2009/04/27 21:45:20 ferrieux Exp $ */ #ifndef _TCLINT @@ -2502,6 +2502,10 @@ MODULE_SCOPE int TclFileMakeDirsCmd(Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); MODULE_SCOPE int TclFileRenameCmd(Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); +MODULE_SCOPE void TclCreateLateExitHandler (Tcl_ExitProc * proc, + ClientData clientData); +MODULE_SCOPE void TclDeleteLateExitHandler (Tcl_ExitProc * proc, + ClientData clientData); MODULE_SCOPE void TclFinalizeAllocSubsystem(void); MODULE_SCOPE void TclFinalizeAsync(void); MODULE_SCOPE void TclFinalizeDoubleConversion(void); |