diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2013-08-13 12:06:03 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2013-08-13 12:06:03 +0100 |
| commit | a27895b359db20197d9ec72b03c4e304a20585d8 (patch) | |
| tree | 0c55098c9e7e7ccd953333a885dff608f54144c2 /rts/StgStdThunks.cmm | |
| parent | c24ce5a18350265f94834299578bf5fe68dbf01a (diff) | |
| download | haskell-a27895b359db20197d9ec72b03c4e304a20585d8.tar.gz | |
Add a missing untag to the non-updatable selector thunks (#7978)
Diffstat (limited to 'rts/StgStdThunks.cmm')
| -rw-r--r-- | rts/StgStdThunks.cmm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/rts/StgStdThunks.cmm b/rts/StgStdThunks.cmm index 53e4cb1d23..979f7498ca 100644 --- a/rts/StgStdThunks.cmm +++ b/rts/StgStdThunks.cmm @@ -111,10 +111,10 @@ SELECTOR_CODE_UPD(15) UPD_BH_UPDATABLE(node); \ LDV_ENTER(node); \ selectee = StgThunk_payload(node,0); \ + ENTER_CCS_THUNK(node); \ if (NEED_EVAL(selectee)) { \ - ENTER_CCS_THUNK(node); \ SAVE_CCS; \ - (P_ constr) = call %GET_ENTRY(selectee) (selectee); \ + (P_ constr) = call %GET_ENTRY(UNTAG_IF_PROF(selectee)) (selectee); \ RESTORE_CCS; \ selectee = constr; \ } \ |