diff options
author | Matthew Pickering <matthewtpickering@gmail.com> | 2021-01-22 18:36:07 +0000 |
---|---|---|
committer | Matthew Pickering <matthewtpickering@gmail.com> | 2021-01-22 18:36:07 +0000 |
commit | 4e2143a37e107852fb781bc58079b5ca99e44739 (patch) | |
tree | a329a6381151f5867416e2f3fa6dead759059a75 | |
parent | af3831a3ca53fcb271488b86f7a19b4f93a9d750 (diff) | |
download | haskell-wip/code-gen-opt.tar.gz |
Make CmmType field of LocalReg strictwip/code-gen-opt
This was observed to build up thunks which were forced by using
a `-hi` profile and T3294 as a test.
-rw-r--r-- | compiler/GHC/Cmm/Expr.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Cmm/Expr.hs b/compiler/GHC/Cmm/Expr.hs index 574e8a4514..2c68439dc0 100644 --- a/compiler/GHC/Cmm/Expr.hs +++ b/compiler/GHC/Cmm/Expr.hs @@ -275,7 +275,7 @@ maybeInvertCmmExpr _ = Nothing ----------------------------------------------------------------------------- data LocalReg - = LocalReg {-# UNPACK #-} !Unique CmmType + = LocalReg {-# UNPACK #-} !Unique !CmmType -- ^ Parameters: -- 1. Identifier -- 2. Type |