diff options
author | David Terei <davidterei@gmail.com> | 2011-05-31 13:44:04 -0700 |
---|---|---|
committer | David Terei <davidterei@gmail.com> | 2011-06-17 20:40:18 -0700 |
commit | 83d2f75bcde40e24921b19150ba4ecac3fb679c3 (patch) | |
tree | ab52df8b63b9c3af78dd060fe9a8e2c2569dee5b /rts | |
parent | d9965c117a24dfe47c55e2b00d18359c2ef896d3 (diff) | |
download | haskell-83d2f75bcde40e24921b19150ba4ecac3fb679c3.tar.gz |
SafeHaskell: Even more fixing to work with safe base
Diffstat (limited to 'rts')
-rw-r--r-- | rts/Prelude.h | 4 | ||||
-rw-r--r-- | rts/posix/Signals.c | 2 | ||||
-rw-r--r-- | rts/win32/ThrIOManager.c | 4 |
3 files changed, 5 insertions, 5 deletions
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);
}
|