diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2009-12-31 11:34:35 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2009-12-31 11:34:35 +0000 |
| commit | bfe90953c7700efb3b62a7c63a823608add077b8 (patch) | |
| tree | c8f5ead7c818d8aff8888a777081ce805c4f91b0 /rts/Updates.cmm | |
| parent | f2c58035f765712341399be2dcec871757f529e6 (diff) | |
| download | haskell-bfe90953c7700efb3b62a7c63a823608add077b8.tar.gz | |
Use local mut lists in UPD_IND(), also clean up Updates.h
Diffstat (limited to 'rts/Updates.cmm')
| -rw-r--r-- | rts/Updates.cmm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/rts/Updates.cmm b/rts/Updates.cmm index fadf63b857..e0fd7c30d5 100644 --- a/rts/Updates.cmm +++ b/rts/Updates.cmm @@ -42,7 +42,10 @@ /* ToDo: it might be a PAP, so we should check... */ \ TICK_UPD_CON_IN_NEW(sizeW_fromITBL(%GET_STD_INFO(updatee))); \ \ - UPD_SPEC_IND(updatee, stg_IND_direct_info, R1, jump %ENTRY_CODE(Sp(0))); \ + updateWithIndirection(stg_IND_direct_info, \ + updatee, \ + R1, \ + jump %ENTRY_CODE(Sp(0))); \ } #if defined(PROFILING) |