diff options
| -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 |