From 83d2f75bcde40e24921b19150ba4ecac3fb679c3 Mon Sep 17 00:00:00 2001 From: David Terei Date: Tue, 31 May 2011 13:44:04 -0700 Subject: SafeHaskell: Even more fixing to work with safe base --- rts/Prelude.h | 4 ++-- rts/posix/Signals.c | 2 +- rts/win32/ThrIOManager.c | 4 ++-- 3 files changed, 5 insertions(+), 5 deletions(-) (limited to 'rts') diff --git a/rts/Prelude.h b/rts/Prelude.h index e32980e0d0..7b46063356 100644 --- a/rts/Prelude.h +++ b/rts/Prelude.h @@ -44,7 +44,7 @@ PRELUDE_CLOSURE(base_ControlziExceptionziBase_nonTermination_closure); PRELUDE_CLOSURE(base_ControlziExceptionziBase_nestedAtomically_closure); PRELUDE_CLOSURE(base_GHCziConcziSyncziImp_runSparks_closure); -PRELUDE_CLOSURE(base_GHCziConcziIO_ensureIOManagerIsRunning_closure); +PRELUDE_CLOSURE(base_GHCziConcziIOziImp_ensureIOManagerIsRunning_closure); PRELUDE_CLOSURE(base_GHCziConcziSignal_runHandlers_closure); PRELUDE_INFO(ghczmprim_GHCziTypes_Czh_static_info); @@ -89,7 +89,7 @@ PRELUDE_INFO(base_GHCziStableziImp_StablePtr_con_info); #define mainIO_closure (&ZCMain_main_closure) #define runSparks_closure DLL_IMPORT_DATA_REF(base_GHCziConcziSyncziImp_runSparks_closure) -#define ensureIOManagerIsRunning_closure DLL_IMPORT_DATA_REF(base_GHCziConcziIO_ensureIOManagerIsRunning_closure) +#define ensureIOManagerIsRunning_closure DLL_IMPORT_DATA_REF(base_GHCziConcziIOziImp_ensureIOManagerIsRunning_closure) #define runHandlers_closure DLL_IMPORT_DATA_REF(base_GHCziConcziSignal_runHandlers_closure) #define stackOverflow_closure DLL_IMPORT_DATA_REF(base_GHCziIOziException_stackOverflow_closure) diff --git a/rts/posix/Signals.c b/rts/posix/Signals.c index 9f5bf9f370..5df7034cc2 100644 --- a/rts/posix/Signals.c +++ b/rts/posix/Signals.c @@ -149,7 +149,7 @@ Capability * ioManagerStartCap (Capability *cap) { return rts_evalIO( - cap,&base_GHCziConcziIO_ensureIOManagerIsRunning_closure,NULL); + cap,&base_GHCziConcziIOziImp_ensureIOManagerIsRunning_closure,NULL); } void diff --git a/rts/win32/ThrIOManager.c b/rts/win32/ThrIOManager.c index f48b20387e..13c8153770 100644 --- a/rts/win32/ThrIOManager.c +++ b/rts/win32/ThrIOManager.c @@ -153,9 +153,9 @@ ioManagerStart (void) if (io_manager_event == INVALID_HANDLE_VALUE) { cap = rts_lock(); #if defined(mingw32_HOST_OS) && defined(__PIC__) - rts_evalIO(cap,_imp__base_GHCziConcziIO_ensureIOManagerIsRunning_closure,NULL); + rts_evalIO(cap,_imp__base_GHCziConcziIOziImp_ensureIOManagerIsRunning_closure,NULL); #else - rts_evalIO(cap,&base_GHCziConcziIO_ensureIOManagerIsRunning_closure,NULL); + rts_evalIO(cap,&base_GHCziConcziIOziImp_ensureIOManagerIsRunning_closure,NULL); #endif rts_unlock(cap); } -- cgit v1.2.1