diff options
| -rwxr-xr-x[-rw-r--r--] | rts/Prelude.h | 2 | ||||
| -rwxr-xr-x[-rw-r--r--] | rts/RtsStartup.c | 2 | ||||
| -rw-r--r-- | rts/win32/libHSbase.def | 2 |
3 files changed, 5 insertions, 1 deletions
diff --git a/rts/Prelude.h b/rts/Prelude.h index c103b1e0e6..618cd95910 100644..100755 --- a/rts/Prelude.h +++ b/rts/Prelude.h @@ -94,6 +94,8 @@ PRELUDE_INFO(base_GHCziStable_StablePtr_con_info); #define ensureIOManagerIsRunning_closure DLL_IMPORT_DATA_REF(base_GHCziConcziIO_ensureIOManagerIsRunning_closure) #define runHandlers_closure DLL_IMPORT_DATA_REF(base_GHCziConcziSignal_runHandlers_closure) +#define flushStdHandles_closure DLL_IMPORT_DATA_REF(base_GHCziTopHandler_flushStdHandles_closure) + #define stackOverflow_closure DLL_IMPORT_DATA_REF(base_GHCziIOziException_stackOverflow_closure) #define heapOverflow_closure DLL_IMPORT_DATA_REF(base_GHCziIOziException_heapOverflow_closure) #define blockedIndefinitelyOnMVar_closure DLL_IMPORT_DATA_REF(base_GHCziIOziException_blockedIndefinitelyOnMVar_closure) diff --git a/rts/RtsStartup.c b/rts/RtsStartup.c index 6e803bba24..de8bf792c4 100644..100755 --- a/rts/RtsStartup.c +++ b/rts/RtsStartup.c @@ -418,7 +418,7 @@ static void flushStdHandles(void) { Capability *cap; cap = rts_lock(); - rts_evalIO(cap, &base_GHCziTopHandler_flushStdHandles_closure, NULL); + rts_evalIO(cap, flushStdHandles_closure, NULL); rts_unlock(cap); } diff --git a/rts/win32/libHSbase.def b/rts/win32/libHSbase.def index b5c8a37070..c98c2e99fd 100644 --- a/rts/win32/libHSbase.def +++ b/rts/win32/libHSbase.def @@ -30,6 +30,8 @@ EXPORTS base_GHCziConcziIO_ensureIOManagerIsRunning_closure base_GHCziConcziSync_runSparks_closure + base_GHCziTopHandler_flushStdHandles_closure + base_GHCziWeak_runFinalizzerBatch_closure base_GHCziPack_unpackCString_closure base_GHCziIOziException_blockedIndefinitelyOnMVar_closure |