diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2012-01-23 13:38:55 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-01-23 13:38:55 +0000 |
| commit | cd35b83b914075265e37c98626a0cc5ef5c135ba (patch) | |
| tree | 9b743a5501761a4c878804825a0b5231ff8b066e /compiler/cmm/CmmNode.hs | |
| parent | 2e2297dfb4ebd2615195d8062bcea801ea1e393d (diff) | |
| download | haskell-cd35b83b914075265e37c98626a0cc5ef5c135ba.tar.gz | |
strictness annotations
Diffstat (limited to 'compiler/cmm/CmmNode.hs')
| -rw-r--r-- | compiler/cmm/CmmNode.hs | 4 |
1 files 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. |