diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2021-01-22 18:32:29 +0000 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-02-22 18:27:05 -0500 |
| commit | d1ceadc7f8bd1acbd3e5138748049d398f993091 (patch) | |
| tree | de40cacae6d42851079f287a74d41ccc3163da84 | |
| parent | 8bc9df52ae8b1fd213290e1da1ed6e5af902a718 (diff) | |
| download | haskell-d1ceadc7f8bd1acbd3e5138748049d398f993091.tar.gz | |
Make Width field in CmmType strict
This value is eventually forced so don't build up thunks.
Observed with T3294 and -hi profile.
| -rw-r--r-- | compiler/GHC/Cmm/Type.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Cmm/Type.hs b/compiler/GHC/Cmm/Type.hs index 8cd502f8b7..067dc9de47 100644 --- a/compiler/GHC/Cmm/Type.hs +++ b/compiler/GHC/Cmm/Type.hs @@ -50,7 +50,7 @@ import Data.Int -- and is used extensively in pattern-matching data CmmType -- The important one! - = CmmType CmmCat Width + = CmmType CmmCat !Width data CmmCat -- "Category" (not exported) = GcPtrCat -- GC pointer |