diff options
| author | Edward Z. Yang <ezyang@mit.edu> | 2011-06-13 18:16:01 +0100 |
|---|---|---|
| committer | Edward Z. Yang <ezyang@mit.edu> | 2011-06-13 18:16:01 +0100 |
| commit | da15d0c556df3eacc6b37327ddffffea306b3760 (patch) | |
| tree | 5d2de70b3ba93d86f4d911d41f1428ea37fe961f /compiler/cmm/CmmNode.hs | |
| parent | f3a1b28e408de01d01ec252efd5b54722eb775d8 (diff) | |
| download | haskell-da15d0c556df3eacc6b37327ddffffea306b3760.tar.gz | |
Remove type synonyms for CmmFormals, CmmActuals (and hinted versions).
Signed-off-by: Edward Z. Yang <ezyang@mit.edu>
Diffstat (limited to 'compiler/cmm/CmmNode.hs')
| -rw-r--r-- | compiler/cmm/CmmNode.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/compiler/cmm/CmmNode.hs b/compiler/cmm/CmmNode.hs index 7d50d9ae72..0104c23753 100644 --- a/compiler/cmm/CmmNode.hs +++ b/compiler/cmm/CmmNode.hs @@ -42,8 +42,8 @@ data CmmNode e x where -- Like a "fat machine instruction"; can occur -- in the middle of a block ForeignTarget -> -- call target - CmmFormals -> -- zero or more results - CmmActuals -> -- zero or more arguments + [CmmFormal] -> -- zero or more results + [CmmActual] -> -- zero or more arguments CmmNode O O -- Semantics: kills only result regs; all other regs (both GlobalReg -- and LocalReg) are preserved. But there is a current @@ -105,8 +105,8 @@ data CmmNode e x where CmmForeignCall :: { -- A safe foreign call; see Note [Foreign calls] -- Always the last node of a block tgt :: ForeignTarget, -- call target and convention - res :: CmmFormals, -- zero or more results - args :: CmmActuals, -- zero or more arguments; see Note [Register parameter passing] + res :: [CmmFormal], -- zero or more results + args :: [CmmActual], -- zero or more arguments; see Note [Register parameter passing] succ :: Label, -- Label of continuation updfr :: UpdFrameOffset, -- where the update frame is (for building infotable) intrbl:: Bool -- whether or not the call is interruptible |