diff options
| author | Simon Marlow <simonmar@microsoft.com> | 2007-08-29 10:48:11 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmar@microsoft.com> | 2007-08-29 10:48:11 +0000 |
| commit | b09ab92b65983635c68c8944631b1d53e9b71e42 (patch) | |
| tree | bf0e6f512ca4431f0963bf99bcd9c1c68dabb92f /rts/StgMiscClosures.cmm | |
| parent | 7605f65c7665bf1f58438d4eaf0ce9d56878a1c0 (diff) | |
| download | haskell-b09ab92b65983635c68c8944631b1d53e9b71e42.tar.gz | |
Windows: remove the {Enter,Leave}CricialSection wrappers
The C-- parser was missing the "stdcall" calling convention for
foreign calls, but once added we can call {Enter,Leave}CricialSection
directly.
Diffstat (limited to 'rts/StgMiscClosures.cmm')
| -rw-r--r-- | rts/StgMiscClosures.cmm | 4 |
1 files changed, 2 insertions, 2 deletions
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 |