diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2021-01-22 18:36:07 +0000 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-02-22 18:27:05 -0500 |
| commit | db74c8f48897f5366298b1a1d9e698cc8e3b8547 (patch) | |
| tree | c5943c53aae0ab5c59492e61ae47dee6b2ab4d93 | |
| parent | d1ceadc7f8bd1acbd3e5138748049d398f993091 (diff) | |
| download | haskell-db74c8f48897f5366298b1a1d9e698cc8e3b8547.tar.gz | |
Make CmmType field of LocalReg strict
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 |