strictness annotations
authorSimon Marlow <marlowsd@gmail.com>
Mon, 23 Jan 2012 13:38:55 +0000 (13:38 +0000)
committerSimon Marlow <marlowsd@gmail.com>
Mon, 23 Jan 2012 13:38:55 +0000 (13:38 +0000)
compiler/cmm/CmmNode.hs

index be3b434..3c3fd89 100644 (file)
@@ -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.