diff options
| author | vincentdarley <vincentdarley> | 2002-05-14 09:44:42 (GMT) |
|---|---|---|
| committer | vincentdarley <vincentdarley> | 2002-05-14 09:44:42 (GMT) |
| commit | e8f1e422c48392dded2349ac0b46cbeabd16cf50 (patch) | |
| tree | 637a301195e3a0b9e4d58e3fc6a58b556da837bc /generic/tclEvent.c | |
| parent | 52bc7742c8816dd82b1f811d1e993e66973d69d9 (diff) | |
| download | tcl-e8f1e422c48392dded2349ac0b46cbeabd16cf50.zip tcl-e8f1e422c48392dded2349ac0b46cbeabd16cf50.tar.gz tcl-e8f1e422c48392dded2349ac0b46cbeabd16cf50.tar.bz2 | |
memory cleanup
Diffstat (limited to 'generic/tclEvent.c')
| -rw-r--r-- | generic/tclEvent.c | 13 |
1 files changed, 3 insertions, 10 deletions
diff --git a/generic/tclEvent.c b/generic/tclEvent.c index 6d16bf7..4f0ec61 100644 --- a/generic/tclEvent.c +++ b/generic/tclEvent.c @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclEvent.c,v 1.21 2002/05/13 13:20:00 vincentdarley Exp $ + * RCS: @(#) $Id: tclEvent.c,v 1.22 2002/05/14 09:44:43 vincentdarley Exp $ */ #include "tclInt.h" @@ -836,17 +836,10 @@ Tcl_Finalize() TclFinalizeSynchronization(); - /* - * We defer unloading of packages until very late - * to avoid memory access issues. Both exit callbacks and - * synchronization variables may be stored in packages. - */ - - TclFinalizeLoad(); - /** * Finalizing the filesystem must come after anything which - * might conceivably interact with the 'Tcl_FS' API. + * might conceivably interact with the 'Tcl_FS' API. This + * will also unload any extensions which have been loaded. */ TclFinalizeFilesystem(); |