diff options
| author | Jan Stolarek <jan.stolarek@p.lodz.pl> | 2013-08-29 10:56:48 +0100 |
|---|---|---|
| committer | Jan Stolarek <jan.stolarek@p.lodz.pl> | 2013-08-29 12:56:09 +0100 |
| commit | 1d1ab12d084c07bd6aee03177ef6008c7ab08127 (patch) | |
| tree | 8938200a404ff9f471fcc1c4441e82cff989963a /compiler/cmm | |
| parent | c86831b96776f28c1eeb6e49744d2ddbae4f3bb9 (diff) | |
| download | haskell-1d1ab12d084c07bd6aee03177ef6008c7ab08127.tar.gz | |
Whitespaces and comment formatting
Diffstat (limited to 'compiler/cmm')
| -rw-r--r-- | compiler/cmm/CmmExpr.hs | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/compiler/cmm/CmmExpr.hs b/compiler/cmm/CmmExpr.hs index 1df8e848b8..d3624dac6b 100644 --- a/compiler/cmm/CmmExpr.hs +++ b/compiler/cmm/CmmExpr.hs @@ -18,7 +18,7 @@ module CmmExpr , plusRegSet, minusRegSet, timesRegSet, sizeRegSet, nullRegSet , regSetToList , regUsedIn - + , Area(..) , module CmmMachOp , module CmmType @@ -119,7 +119,11 @@ data CmmLit -- Invariant: must be a continuation BlockId -- See Note [Continuation BlockId] in CmmNode. - | CmmHighStackMark -- stands for the max stack space used during a procedure + | CmmHighStackMark -- A late-bound constant that stands for the max + -- #bytes of stack space used during a procedure. + -- During the stack-layout pass, CmmHighStackMark + -- is replaced by a CmmInt for the actual number + -- of bytes used deriving Eq cmmExprType :: DynFlags -> CmmExpr -> CmmType @@ -336,7 +340,7 @@ data GlobalReg | LongReg -- long int registers (64-bit, really) {-# UNPACK #-} !Int -- its number - | XmmReg -- 128-bit SIMD vector register + | XmmReg -- 128-bit SIMD vector register {-# UNPACK #-} !Int -- its number -- STG registers |