Commit d1ceadc7 authored by Matthew Pickering's avatar Matthew Pickering Committed by Marge Bot

Make Width field in CmmType strict

This value is eventually forced so don't build up thunks.
Observed with T3294 and -hi profile.
parent 8bc9df52
......@@ -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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment