Commit 45818b96 authored by dterei's avatar dterei
Browse files

Formatting wibble

parent 1cb4a07c
...@@ -168,18 +168,18 @@ data CmmStmt -- Old-style ...@@ -168,18 +168,18 @@ data CmmStmt -- Old-style
-- one -> second block etc -- one -> second block etc
-- Undefined outside range, and when there's a Nothing -- 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) [HintedCmmActual] -- with these return values. (parameters never used)
data CmmHinted a = CmmHinted { hintlessCmm :: a, cmmHint :: New.ForeignHint } data CmmHinted a = CmmHinted { hintlessCmm :: a, cmmHint :: New.ForeignHint }
deriving( Eq ) deriving( Eq )
type HintedCmmFormal = CmmHinted CmmFormal type HintedCmmFormal = CmmHinted CmmFormal
type HintedCmmActual = CmmHinted CmmActual 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]' -- | enable us to fold used registers over '[CmmActual]' and '[CmmFormal]'
instance UserOfLocalRegs CmmStmt where instance UserOfLocalRegs CmmStmt where
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment