patch applied (ghc): Add freeScheduler/freeTaskManager and call it later than exitScheduler

Ian Lynagh <[email protected]> Mon, 11 Dec 2006 11:40:13 -0800

Newsgroups	gmane.comp.lang.haskell.cvs.all,gmane.comp.lang.haskell.cvs.ghc
Message-ID	<[email protected]>

Mon Dec 11 05:10:04 PST 2006  Ian Lynagh <[email protected]>
  * Add freeScheduler/freeTaskManager and call it later than exitScheduler
  We were freeing the tasks in exitScheduler (stopTaskManager) before
  exitStorage (stat_exit), but the latter needs to walk down the list
  printing stats. Resulted in segfaults with commands like
      ghc -v0 -e main q.hs -H32m -H32m +RTS -Sstderr
  (where q.hs is trivial), but very sensitive to exact commandline and
  libc version or something.

    M ./rts/RtsStartup.c +3
    M ./rts/Schedule.c +6
    M ./rts/Schedule.h +1
    M ./rts/Task.c -3 +17
    M ./rts/Task.h +1