diff options
| author | Dimitrios Vytiniotis <dimitris@microsoft.com> | 2011-11-09 10:33:07 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2011-11-09 11:35:55 +0000 |
| commit | 2bac34064fa02d50b3501c0973c1eac73e91be74 (patch) | |
| tree | ca81a9e84837c439f206bc35950a04c93076ceb8 /rts | |
| parent | aa564232ee67d46403a69b02b0b8faf2455894f8 (diff) | |
| download | haskell-2bac34064fa02d50b3501c0973c1eac73e91be74.tar.gz | |
fix dynamic way on Win32 (missing bits from flushStdHandles changes)
Diffstat (limited to 'rts')
| -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 |