diff options
| author | Ben.Lippmeier@anu.edu.au <unknown> | 2009-11-14 06:15:59 +0000 |
|---|---|---|
| committer | Ben.Lippmeier@anu.edu.au <unknown> | 2009-11-14 06:15:59 +0000 |
| commit | c56106fe9863edb27815e31b19be1f3f2516bc91 (patch) | |
| tree | cfc01fd195443123884cdb4690ce323a59c57309 /rts/RtsStartup.c | |
| parent | 3c341e968786893dd18368093068489583db1b54 (diff) | |
| download | haskell-c56106fe9863edb27815e31b19be1f3f2516bc91.tar.gz | |
Use DLL aware runIO_closure instead of base_GHCziTopHandler_runIO_closure directly
Diffstat (limited to 'rts/RtsStartup.c')
| -rw-r--r-- | rts/RtsStartup.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/rts/RtsStartup.c b/rts/RtsStartup.c index 1c39cf8422..edb8088b0a 100644 --- a/rts/RtsStartup.c +++ b/rts/RtsStartup.c @@ -17,6 +17,7 @@ #include "sm/Storage.h" #include "RtsUtils.h" +#include "Prelude.h" #include "Schedule.h" /* initScheduler */ #include "Stats.h" /* initStats */ #include "STM.h" /* initSTM */ @@ -164,8 +165,8 @@ hs_init(int *argc, char **argv[]) * knows about. We don't know whether these turn out to be CAFs * or refer to CAFs, but we have to assume that they might. */ - getStablePtr((StgPtr)base_GHCziTopHandler_runIO_closure); - getStablePtr((StgPtr)base_GHCziTopHandler_runNonIO_closure); + getStablePtr((StgPtr)runIO_closure); + getStablePtr((StgPtr)runNonIO_closure); getStablePtr((StgPtr)stackOverflow_closure); getStablePtr((StgPtr)heapOverflow_closure); getStablePtr((StgPtr)runFinalizerBatch_closure); |