diff options
author | Simon Marlow <marlowsd@gmail.com> | 2009-04-23 11:30:02 +0000 |
---|---|---|
committer | Simon Marlow <marlowsd@gmail.com> | 2009-04-23 11:30:02 +0000 |
commit | 2b569f55bdaaeb0cbff16f9e2bf90e14a2fb3139 (patch) | |
tree | 5805c63f60fc7f76d7c839a04e07bb1cfd669ba1 /rts/RtsStartup.c | |
parent | e06849a10aedcd41edd5b32d6f7a0c1d133f0500 (diff) | |
download | haskell-2b569f55bdaaeb0cbff16f9e2bf90e14a2fb3139.tar.gz |
add getOrSetSignalHandlerStore, much like getOrSetTypeableStore
Part of the fix for #3171
Diffstat (limited to 'rts/RtsStartup.c')
-rw-r--r-- | rts/RtsStartup.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/rts/RtsStartup.c b/rts/RtsStartup.c index f10de578c7..c9edeace8e 100644 --- a/rts/RtsStartup.c +++ b/rts/RtsStartup.c @@ -30,7 +30,7 @@ #include "ThreadLabels.h" #include "BlockAlloc.h" #include "Trace.h" -#include "RtsTypeable.h" +#include "RtsGlobals.h" #include "Stable.h" #include "Hpc.h" #include "FileLock.h" @@ -243,7 +243,7 @@ hs_init(int *argc, char **argv[]) getStablePtr((StgPtr)blockedIndefinitely_closure); /* initialise the shared Typeable store */ - initTypeableStore(); + initGlobalStore(); /* initialise file locking, if necessary */ #if !defined(mingw32_HOST_OS) @@ -488,7 +488,7 @@ hs_exit_(rtsBool wait_foreign) freeScheduler(); /* free shared Typeable store */ - exitTypeableStore(); + exitGlobalStore(); /* free file locking tables, if necessary */ #if !defined(mingw32_HOST_OS) |