diff options
| author | Ian Lynagh <igloo@earth.li> | 2006-12-15 21:44:30 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2006-12-15 21:44:30 +0000 |
| commit | ed12b7043fa98928f75c289a756fbcef546315f8 (patch) | |
| tree | 1b551d714a16d884843f2d361bcb42ee4c78cccb /rts/Schedule.c | |
| parent | 1f801e3abd16559f2120b7f482b19deb0c43a0c7 (diff) | |
| download | haskell-ed12b7043fa98928f75c289a756fbcef546315f8.tar.gz | |
Free more things that we allocate2006-12-16
Diffstat (limited to 'rts/Schedule.c')
| -rw-r--r-- | rts/Schedule.c | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/rts/Schedule.c b/rts/Schedule.c index 8ebedd4279..a11a15e94d 100644 --- a/rts/Schedule.c +++ b/rts/Schedule.c @@ -2581,6 +2581,8 @@ exitScheduler( void ) boundTaskExiting(task); stopTaskManager(); } +#else + freeCapability(&MainCapability); #endif } @@ -2588,6 +2590,9 @@ void freeScheduler( void ) { freeTaskManager(); + if (n_capabilities != 1) { + stgFree(capabilities); + } #if defined(THREADED_RTS) closeMutex(&sched_mutex); #endif |