Permalink
Browse files

[project @ 2004-02-27 13:35:16 by simonmar]

hs_exit(): call exitScheduler() *after* finalizeWeakPointersNow(),
because the latter needs to create/run threads.
  • Loading branch information...
1 parent 6e81743 commit 8fcae518e33613c93b55ab5f165954727cf4aa30 simonmar committed Feb 27, 2004
Showing with 4 additions and 4 deletions.
  1. +4 −4 ghc/rts/RtsStartup.c
View
@@ -1,5 +1,5 @@
/* -----------------------------------------------------------------------------
- * $Id: RtsStartup.c,v 1.78 2003/09/26 12:12:35 panne Exp $
+ * $Id: RtsStartup.c,v 1.79 2004/02/27 13:35:16 simonmar Exp $
*
* (c) The GHC Team, 1998-2002
*
@@ -324,14 +324,14 @@ hs_exit(void)
/* start timing the shutdown */
stat_startExit();
- /* stop all running tasks */
- exitScheduler();
-
#if !defined(GRAN)
/* Finalize any remaining weak pointers */
finalizeWeakPointersNow();
#endif
+ /* stop all running tasks */
+ exitScheduler();
+
#if defined(GRAN)
/* end_gr_simulation prints global stats if requested -- HWL */
if (!RtsFlags.GranFlags.GranSimStats.Suppressed)

0 comments on commit 8fcae51

Please sign in to comment.