From 3ad5c4bbe8b3f40a2a105722c7c1b0abb0c99c66 Mon Sep 17 00:00:00 2001 From: "Ben.Lippmeier@anu.edu.au" Date: Mon, 23 Nov 2009 05:15:10 +0000 Subject: [PATCH] Windows DLLs: use DLL aware runSparks_closure instead of base_GHCziConc_runSparks_closure directly --- rts/Sparks.c | 2 +- rts/win32/libHSbase.def | 3 +++ 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/rts/Sparks.c b/rts/Sparks.c index e5e6d7e..3911ae9 100644 --- a/rts/Sparks.c +++ b/rts/Sparks.c @@ -45,7 +45,7 @@ createSparkThread (Capability *cap) StgTSO *tso; tso = createIOThread (cap, RtsFlags.GcFlags.initialStkSize, - &base_GHCziConc_runSparks_closure); + (StgClosure *)runSparks_closure); traceEventCreateSparkThread(cap, tso->id); diff --git a/rts/win32/libHSbase.def b/rts/win32/libHSbase.def index 583eeb0..8f5f54e 100644 --- a/rts/win32/libHSbase.def +++ b/rts/win32/libHSbase.def @@ -27,6 +27,9 @@ EXPORTS base_GHCziPtr_Ptr_con_info base_GHCziPtr_FunPtr_con_info + base_GHCziConc_ensureIOManagerIsRunning_closure + base_GHCziConc_runSparks_closure + base_GHCziWeak_runFinalizzerBatch_closure base_GHCziPack_unpackCString_closure base_GHCziIOziException_blockedIndefinitelyOnMVar_closure -- 1.7.10.4