projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add missing eventlog subdir
[ghc-hetmet.git]
/
rts
/
RtsStartup.c
diff --git
a/rts/RtsStartup.c
b/rts/RtsStartup.c
index
f10de57
..
c9edeac
100644
(file)
--- a/
rts/RtsStartup.c
+++ b/
rts/RtsStartup.c
@@
-30,7
+30,7
@@
#include "ThreadLabels.h"
#include "BlockAlloc.h"
#include "Trace.h"
#include "ThreadLabels.h"
#include "BlockAlloc.h"
#include "Trace.h"
-#include "RtsTypeable.h"
+#include "RtsGlobals.h"
#include "Stable.h"
#include "Hpc.h"
#include "FileLock.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 */
getStablePtr((StgPtr)blockedIndefinitely_closure);
/* initialise the shared Typeable store */
- initTypeableStore();
+ initGlobalStore();
/* initialise file locking, if necessary */
#if !defined(mingw32_HOST_OS)
/* initialise file locking, if necessary */
#if !defined(mingw32_HOST_OS)
@@
-488,7
+488,7
@@
hs_exit_(rtsBool wait_foreign)
freeScheduler();
/* free shared Typeable store */
freeScheduler();
/* free shared Typeable store */
- exitTypeableStore();
+ exitGlobalStore();
/* free file locking tables, if necessary */
#if !defined(mingw32_HOST_OS)
/* free file locking tables, if necessary */
#if !defined(mingw32_HOST_OS)