diff options
| author | Ben.Lippmeier@anu.edu.au <unknown> | 2009-11-23 05:15:10 +0000 |
|---|---|---|
| committer | Ben.Lippmeier@anu.edu.au <unknown> | 2009-11-23 05:15:10 +0000 |
| commit | 3ad5c4bbe8b3f40a2a105722c7c1b0abb0c99c66 (patch) | |
| tree | b877423b7fc06d56537f160f1769ba7421a144af | |
| parent | cd24d61675e2f5c9145efcac62f64347789e583c (diff) | |
| download | haskell-3ad5c4bbe8b3f40a2a105722c7c1b0abb0c99c66.tar.gz | |
Windows DLLs: use DLL aware runSparks_closure instead of base_GHCziConc_runSparks_closure directly
| -rw-r--r-- | rts/Sparks.c | 2 | ||||
| -rw-r--r-- | rts/win32/libHSbase.def | 3 |
2 files changed, 4 insertions, 1 deletions
diff --git a/rts/Sparks.c b/rts/Sparks.c index e5e6d7e955..3911ae9e0b 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 583eeb038e..8f5f54e2d4 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 |