diff options
| author | Hécate <hecate+gitlab@glitchbra.in> | 2020-12-30 00:48:38 +0100 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-01-17 05:49:17 -0500 |
| commit | 971a88a78105b207fb1e2e2614877fd080d2ccd1 (patch) | |
| tree | 252f164129b85d593bc84884eb2d045846a633b2 /compiler/GHC/StgToCmm/Prim.hs | |
| parent | 2facd1e94039cbd489ba0a7ce9ba2c5f53780afc (diff) | |
| download | haskell-971a88a78105b207fb1e2e2614877fd080d2ccd1.tar.gz | |
Remove unused extension pragmas from the compiler code base
Diffstat (limited to 'compiler/GHC/StgToCmm/Prim.hs')
| -rw-r--r-- | compiler/GHC/StgToCmm/Prim.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/GHC/StgToCmm/Prim.hs b/compiler/GHC/StgToCmm/Prim.hs index afb495e9e7..b7efb3b8ee 100644 --- a/compiler/GHC/StgToCmm/Prim.hs +++ b/compiler/GHC/StgToCmm/Prim.hs @@ -2955,7 +2955,7 @@ doAtomicAddrRMW -> CmmType -- ^ Pointed value type -> CmmExpr -- ^ Op argument (e.g. amount to add) -> FCode () -doAtomicAddrRMW res amop addr ty n = do +doAtomicAddrRMW res amop addr ty n = emitPrimCall [ res ] (MO_AtomicRMW (typeWidth ty) amop) @@ -2982,7 +2982,7 @@ doAtomicReadAddr -> CmmExpr -- ^ Addr# -> CmmType -- ^ Type of element by which we are indexing -> FCode () -doAtomicReadAddr res addr ty = do +doAtomicReadAddr res addr ty = emitPrimCall [ res ] (MO_AtomicRead (typeWidth ty)) @@ -3009,7 +3009,7 @@ doAtomicWriteAddr -> CmmType -- ^ Type of element by which we are indexing -> CmmExpr -- ^ Value to write -> FCode () -doAtomicWriteAddr addr ty val = do +doAtomicWriteAddr addr ty val = emitPrimCall [ {- no results -} ] (MO_AtomicWrite (typeWidth ty)) |