fix dynamic way on Win32 (missing bits from flushStdHandles changes)
authorDimitrios Vytiniotis <dimitris@microsoft.com>
Wed, 9 Nov 2011 10:33:07 +0000 (10:33 +0000)
committerSimon Marlow <marlowsd@gmail.com>
Wed, 9 Nov 2011 11:35:55 +0000 (11:35 +0000)
rts/Prelude.h [changed mode: 0644->0755]
rts/RtsStartup.c [changed mode: 0644->0755]
rts/win32/libHSbase.def

old mode 100644 (file)
new mode 100755 (executable)
index c103b1e..618cd95
@@ -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)
old mode 100644 (file)
new mode 100755 (executable)
index 6e803bb..de8bf79
@@ -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);
 }
 
index b5c8a37..c98c2e9 100644 (file)
@@ -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