From cd35b83b914075265e37c98626a0cc5ef5c135ba Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Mon, 23 Jan 2012 13:38:55 +0000 Subject: [PATCH] strictness annotations --- compiler/cmm/CmmNode.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/cmm/CmmNode.hs b/compiler/cmm/CmmNode.hs index be3b434eeb..3c3fd89c0a 100644 --- a/compiler/cmm/CmmNode.hs +++ b/compiler/cmm/CmmNode.hs @@ -40,10 +40,10 @@ data CmmNode e x where CmmComment :: FastString -> CmmNode O O - CmmAssign :: CmmReg -> CmmExpr -> CmmNode O O + CmmAssign :: !CmmReg -> !CmmExpr -> CmmNode O O -- Assign to register - CmmStore :: CmmExpr -> CmmExpr -> CmmNode O O + CmmStore :: !CmmExpr -> !CmmExpr -> CmmNode O O -- Assign to memory location. Size is -- given by cmmExprType of the rhs. -- GitLab