diff options
Diffstat (limited to 'compiler/GHC/StgToCmm/Utils.hs')
| -rw-r--r-- | compiler/GHC/StgToCmm/Utils.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/GHC/StgToCmm/Utils.hs b/compiler/GHC/StgToCmm/Utils.hs index 190202efb9..dbb4481d72 100644 --- a/compiler/GHC/StgToCmm/Utils.hs +++ b/compiler/GHC/StgToCmm/Utils.hs @@ -608,7 +608,7 @@ whenUpdRemSetEnabled code = do -- remembered set. emitUpdRemSetPush :: CmmExpr -- ^ value of pointer which was overwritten -> FCode () -emitUpdRemSetPush ptr = do +emitUpdRemSetPush ptr = emitRtsCall rtsUnitId (fsLit "updateRemembSetPushClosure_") @@ -618,7 +618,7 @@ emitUpdRemSetPush ptr = do emitUpdRemSetPushThunk :: CmmExpr -- ^ the thunk -> FCode () -emitUpdRemSetPushThunk ptr = do +emitUpdRemSetPushThunk ptr = emitRtsCall rtsUnitId (fsLit "updateRemembSetPushThunk_") |