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/RtsStartup.c | |
| parent | 1f801e3abd16559f2120b7f482b19deb0c43a0c7 (diff) | |
| download | haskell-ed12b7043fa98928f75c289a756fbcef546315f8.tar.gz | |
Free more things that we allocate2006-12-16
Diffstat (limited to 'rts/RtsStartup.c')
| -rw-r--r-- | rts/RtsStartup.c | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/rts/RtsStartup.c b/rts/RtsStartup.c index 87df96a13c..7193876970 100644 --- a/rts/RtsStartup.c +++ b/rts/RtsStartup.c @@ -378,6 +378,10 @@ hs_exit(void) /* start timing the shutdown */ stat_startExit(); +#if defined(RTS_USER_SIGNALS) + freeSignalHandlers(); +#endif + #if defined(THREADED_RTS) ioManagerDie(); #endif @@ -447,6 +451,10 @@ hs_exit(void) /* free the stable pointer table */ exitStablePtrTable(); +#if defined(PROFILING) || defined(DEBUG) + freeProfiling1(); +#endif + #if defined(DEBUG) /* free the thread label table */ freeThreadLabelTable(); |