diff options
Diffstat (limited to 'rts')
| -rw-r--r-- | rts/HeapStackCheck.cmm | 2 | ||||
| -rw-r--r-- | rts/PrimOps.cmm | 4 | ||||
| -rw-r--r-- | rts/StgMiscClosures.cmm | 4 | ||||
| -rw-r--r-- | rts/win32/OSThreads.c | 8 |
4 files changed, 5 insertions, 13 deletions
diff --git a/rts/HeapStackCheck.cmm b/rts/HeapStackCheck.cmm index a4fb5c0a16..753e6718e7 100644 --- a/rts/HeapStackCheck.cmm +++ b/rts/HeapStackCheck.cmm @@ -873,7 +873,7 @@ stg_block_blackhole_finally // The last thing we do is release sched_lock, which is // preventing other threads from accessing blackhole_queue and // picking up this thread before we are finished with it. - foreign "C" RELEASE_LOCK(sched_mutex "ptr"); + RELEASE_LOCK(sched_mutex "ptr"); #endif jump StgReturn; } diff --git a/rts/PrimOps.cmm b/rts/PrimOps.cmm index f3f23d6ae0..d465709617 100644 --- a/rts/PrimOps.cmm +++ b/rts/PrimOps.cmm @@ -229,7 +229,7 @@ atomicModifyMutVarzh_fast HP_CHK_GEN_TICKY(SIZE, R1_PTR & R2_PTR, atomicModifyMutVarzh_fast); #if defined(THREADED_RTS) - foreign "C" ACQUIRE_LOCK(atomic_modify_mutvar_mutex "ptr") [R1,R2]; + ACQUIRE_LOCK(atomic_modify_mutvar_mutex "ptr") [R1,R2]; #endif x = StgMutVar_var(R1); @@ -260,7 +260,7 @@ atomicModifyMutVarzh_fast StgThunk_payload(r,0) = z; #if defined(THREADED_RTS) - foreign "C" RELEASE_LOCK(atomic_modify_mutvar_mutex "ptr") []; + RELEASE_LOCK(atomic_modify_mutvar_mutex "ptr") []; #endif RET_P(r); diff --git a/rts/StgMiscClosures.cmm b/rts/StgMiscClosures.cmm index 9e1eaf929f..43efa784a0 100644 --- a/rts/StgMiscClosures.cmm +++ b/rts/StgMiscClosures.cmm @@ -304,7 +304,7 @@ INFO_TABLE(stg_BLACKHOLE,0,1,BLACKHOLE,"BLACKHOLE","BLACKHOLE") LDV_ENTER(R1); #if defined(THREADED_RTS) - foreign "C" ACQUIRE_LOCK(sched_mutex "ptr"); + ACQUIRE_LOCK(sched_mutex "ptr"); // released in stg_block_blackhole_finally #endif @@ -369,7 +369,7 @@ INFO_TABLE(stg_CAF_BLACKHOLE,0,1,CAF_BLACKHOLE,"CAF_BLACKHOLE","CAF_BLACKHOLE") #endif #if defined(THREADED_RTS) - foreign "C" ACQUIRE_LOCK(sched_mutex "ptr"); + ACQUIRE_LOCK(sched_mutex "ptr"); // released in stg_block_blackhole_finally #endif diff --git a/rts/win32/OSThreads.c b/rts/win32/OSThreads.c index 13a3666b63..ed5c968cf1 100644 --- a/rts/win32/OSThreads.c +++ b/rts/win32/OSThreads.c @@ -232,14 +232,6 @@ forkOS_createThread ( HsStablePtr entry ) (unsigned*)&pId) == 0); } -void CCallEnterCriticalSection(LPCRITICAL_SECTION s) { - EnterCriticalSection(s); -} - -void CCallLeaveCriticalSection(LPCRITICAL_SECTION s) { - LeaveCriticalSection(s); -} - #else /* !defined(THREADED_RTS) */ int |