diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2020-04-24 17:22:44 -0400 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2020-05-22 23:28:03 -0400 |
| commit | 3ddb90189212c5a5282cd9a0581cf288539206a4 (patch) | |
| tree | 541f76d7a23544d959da9404421c73644a403216 /compiler/GHC/ByteCode/Linker.hs | |
| parent | 566cc73f46d67e2b36fda95d0253067bb0ecc12f (diff) | |
| download | haskell-wip/T18079.tar.gz | |
Eta expand un-saturated primopswip/T18079
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/Linker.hs')
| -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_" |