diff options
| author | Sebastian Graf <sebastian.graf@kit.edu> | 2021-03-26 11:54:25 +0100 |
|---|---|---|
| committer | Sebastian Graf <sebastian.graf@kit.edu> | 2021-03-27 22:03:27 +0100 |
| commit | 8f3aaff863eb9c497ca7a4b6d09893cd04e2c965 (patch) | |
| tree | d5dd2e86a4fd4da3d2df645250ad9bfd82d1c3da /compiler/GHC/CoreToStg/Prep.hs | |
| parent | c83e4d05646c6c7b0396c4b984c201faf5c62fda (diff) | |
| download | haskell-wip/T19597.tar.gz | |
Rename StrictSig to DmdSig (#19597)wip/T19597
In #19597, we also settled on the following renamings:
* `idStrictness` -> `idDmdSig`,
`strictnessInfo` -> `dmdSigInfo`,
`HsStrictness` -> `HsDmdSig`
* `idCprInfo` -> `idCprSig`,
`cprInfo` -> `cprSigInfo`,
`HsCpr` -> `HsCprSig`
Fixes #19597.
Diffstat (limited to 'compiler/GHC/CoreToStg/Prep.hs')
| -rw-r--r-- | compiler/GHC/CoreToStg/Prep.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/GHC/CoreToStg/Prep.hs b/compiler/GHC/CoreToStg/Prep.hs index af94cb92d7..2e2c4d84af 100644 --- a/compiler/GHC/CoreToStg/Prep.hs +++ b/compiler/GHC/CoreToStg/Prep.hs @@ -849,8 +849,8 @@ cpeApp top_env expr ; (app, floats) <- rebuild_app args e2 (exprType e2) emptyFloats stricts ; mb_saturate hd app floats depth } where - stricts = case idStrictness v of - StrictSig (DmdType _ demands _) + stricts = case idDmdSig v of + DmdSig (DmdType _ demands _) | listLengthCmp demands depth /= GT -> demands -- length demands <= depth | otherwise -> [] @@ -1345,7 +1345,7 @@ Note [Speculative evaluation] Since call-by-value is much cheaper than call-by-need, we case-bind arguments that are either - 1. Strictly evaluated anyway, according to the StrictSig of the callee, or + 1. Strictly evaluated anyway, according to the DmdSig of the callee, or 2. ok-for-spec, according to 'exprOkForSpeculation' While (1) is a no-brainer and always beneficial, (2) is a bit |