From c56106fe9863edb27815e31b19be1f3f2516bc91 Mon Sep 17 00:00:00 2001 From: "Ben.Lippmeier@anu.edu.au" Date: Sat, 14 Nov 2009 06:15:59 +0000 Subject: [PATCH] Use DLL aware runIO_closure instead of base_GHCziTopHandler_runIO_closure directly --- rts/RtsStartup.c | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/rts/RtsStartup.c b/rts/RtsStartup.c index 1c39cf8..edb8088 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); -- 1.7.10.4