diff options
| author | David Terei <davidterei@gmail.com> | 2011-12-22 14:41:34 -0800 |
|---|---|---|
| committer | David Terei <davidterei@gmail.com> | 2012-01-05 17:05:44 -0800 |
| commit | 45818b96b9c25e8c7d715c2468b74805b86ab985 (patch) | |
| tree | 5f7a36de21d992e11da34e8a13071aeabcfc02e2 | |
| parent | 1cb4a07cf284444ed89057f4661db100ea740dc5 (diff) | |
| download | haskell-45818b96b9c25e8c7d715c2468b74805b86ab985.tar.gz | |
Formatting wibble
| -rw-r--r-- | compiler/cmm/OldCmm.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/compiler/cmm/OldCmm.hs b/compiler/cmm/OldCmm.hs index 343d7c1541..915399a2eb 100644 --- a/compiler/cmm/OldCmm.hs +++ b/compiler/cmm/OldCmm.hs @@ -168,18 +168,18 @@ data CmmStmt -- Old-style -- one -> second block etc -- Undefined outside range, and when there's a Nothing - | CmmJump CmmExpr -- Jump to another C-- function, + | CmmJump CmmExpr -- Jump to another C-- function, - | CmmReturn -- Return from a native C-- function, + | CmmReturn -- Return from a native C-- function, [HintedCmmActual] -- with these return values. (parameters never used) data CmmHinted a = CmmHinted { hintlessCmm :: a, cmmHint :: New.ForeignHint } deriving( Eq ) -type HintedCmmFormal = CmmHinted CmmFormal -type HintedCmmActual = CmmHinted CmmActual +type HintedCmmFormal = CmmHinted CmmFormal +type HintedCmmActual = CmmHinted CmmActual -data CmmSafety = CmmUnsafe | CmmSafe C_SRT | CmmInterruptible +data CmmSafety = CmmUnsafe | CmmSafe C_SRT | CmmInterruptible -- | enable us to fold used registers over '[CmmActual]' and '[CmmFormal]' instance UserOfLocalRegs CmmStmt where |