diff options
| author | Simon Marlow <simonmar@microsoft.com> | 2007-06-26 21:10:58 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmar@microsoft.com> | 2007-06-26 21:10:58 +0000 |
| commit | 16ed3e3cd3ba05ae7222f8da2c80f8294540817d (patch) | |
| tree | 1d7a5e64f6f9c498a0801bd724a7eb46a7d6110e /rts/HeapStackCheck.cmm | |
| parent | bf3339dd17b16dcc13212cd016a7c44a58183336 (diff) | |
| download | haskell-16ed3e3cd3ba05ae7222f8da2c80f8294540817d.tar.gz | |
Make the threaded RTS compilable using -fasm
We needed to turn some inline C functions and C macros into either
real C functions or C-- macros.
Diffstat (limited to 'rts/HeapStackCheck.cmm')
| -rw-r--r-- | rts/HeapStackCheck.cmm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/rts/HeapStackCheck.cmm b/rts/HeapStackCheck.cmm index aae28cb77f..e9ddf5b69e 100644 --- a/rts/HeapStackCheck.cmm +++ b/rts/HeapStackCheck.cmm @@ -841,7 +841,7 @@ INFO_TABLE_RET( stg_block_takemvar, 1/*framesize*/, 0/*bitmap*/, RET_SMALL ) stg_block_takemvar_finally { #ifdef THREADED_RTS - foreign "C" unlockClosure(R3 "ptr", stg_EMPTY_MVAR_info); + unlockClosure(R3, stg_EMPTY_MVAR_info); #endif jump StgReturn; } @@ -867,7 +867,7 @@ INFO_TABLE_RET( stg_block_putmvar, 2/*framesize*/, 0/*bitmap*/, RET_SMALL ) stg_block_putmvar_finally { #ifdef THREADED_RTS - foreign "C" unlockClosure(R3 "ptr", stg_FULL_MVAR_info); + unlockClosure(R3, stg_FULL_MVAR_info); #endif jump StgReturn; } |