diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2020-04-24 17:22:44 -0400 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-05-29 01:39:55 -0400 |
| commit | 277c2f26e6966e0cfaa1ddcd297af44766f37958 (patch) | |
| tree | fab5159ddfdf399e43a7660938c974b8d12c8eb1 /compiler/GHC/ByteCode | |
| parent | 46720997a0b1fa2971a884adf43de096ce130a7e (diff) | |
| download | haskell-277c2f26e6966e0cfaa1ddcd297af44766f37958.tar.gz | |
Eta expand un-saturated primops
Now since we no longer try to predict CAFfyness we have no need for the
solution to #16846. Eta expanding unsaturated primop applications is
conceptually simpler, especially in the presence of levity polymorphism.
This essentially reverts cac8dc9f51e31e4c0a6cd9bc302f7e1bc7c03beb,
as suggested in #18079.
Closes #18079.
Diffstat (limited to 'compiler/GHC/ByteCode')
| -rw-r--r-- | compiler/GHC/ByteCode/Linker.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/compiler/GHC/ByteCode/Linker.hs b/compiler/GHC/ByteCode/Linker.hs index bda0e03445..1fab779619 100644 --- a/compiler/GHC/ByteCode/Linker.hs +++ b/compiler/GHC/ByteCode/Linker.hs @@ -176,6 +176,7 @@ nameToCLabel n suffix = mkFastString label ] +-- See Note [Primop wrappers] in GHC.Builtin.PrimOps primopToCLabel :: PrimOp -> String -> String primopToCLabel primop suffix = concat [ "ghczmprim_GHCziPrimopWrappers_" |