diff options
Diffstat (limited to 'rts/Apply.cmm')
| -rw-r--r-- | rts/Apply.cmm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/rts/Apply.cmm b/rts/Apply.cmm index 9b1e7f72e8..b338b4c387 100644 --- a/rts/Apply.cmm +++ b/rts/Apply.cmm @@ -694,8 +694,7 @@ INFO_TABLE(stg_AP_STACK,/*special layout*/0,0,AP_STACK,"AP_STACK","AP_STACK") // Can't add StgInd_indirectee(ap) to UpdRemSet here because the old value is // not reachable. StgInd_indirectee(ap) = CurrentTSO; - prim_write_barrier; - SET_INFO(ap, __stg_EAGER_BLACKHOLE_info); + SET_INFO_RELEASE(ap, __stg_EAGER_BLACKHOLE_info); /* ensure there is at least AP_STACK_SPLIM words of headroom available * after unpacking the AP_STACK. See bug #1466 */ |