From d1ceadc7f8bd1acbd3e5138748049d398f993091 Mon Sep 17 00:00:00 2001 From: Matthew Pickering Date: Fri, 22 Jan 2021 18:32:29 +0000 Subject: Make Width field in CmmType strict This value is eventually forced so don't build up thunks. Observed with T3294 and -hi profile. --- compiler/GHC/Cmm/Type.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'compiler/GHC/Cmm') 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 -- cgit v1.2.1