diff options
| author | Simon Marlow <simonmar@microsoft.com> | 2006-06-29 13:47:26 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmar@microsoft.com> | 2006-06-29 13:47:26 +0000 |
| commit | 73566e25d75588185b0581722406da5c48965c51 (patch) | |
| tree | 5b44477006e139b0b5331c3c94af62afa8b53bc0 /rts/Updates.h | |
| parent | 6bf790bab31b9bb8791e2adc46c8ff511392419f (diff) | |
| download | haskell-73566e25d75588185b0581722406da5c48965c51.tar.gz | |
Replace inline C functions with C-- macros in .cmm code
So that we can build the RTS with the NCG.
Diffstat (limited to 'rts/Updates.h')
| -rw-r--r-- | rts/Updates.h | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/rts/Updates.h b/rts/Updates.h index c8c75b130e..2456f12b58 100644 --- a/rts/Updates.h +++ b/rts/Updates.h @@ -280,9 +280,7 @@ FILL_SLOP(StgClosure *p) prim %write_barrier() []; \ bd = Bdescr(p1); \ if (bdescr_gen_no(bd) != 0 :: CInt) { \ - foreign "C" recordMutableCap(p1 "ptr", \ - MyCapability() "ptr", \ - bdescr_gen_no(bd)) [R1]; \ + recordMutableCap(p1, TO_W_(bdescr_gen_no(bd)), R1); \ SET_INFO(p1, stg_IND_OLDGEN_info); \ LDV_RECORD_CREATE(p1); \ TICK_UPD_OLD_IND(); \ |