diff options
| author | simonpj@microsoft.com <unknown> | 2007-08-09 15:37:37 +0000 |
|---|---|---|
| committer | simonpj@microsoft.com <unknown> | 2007-08-09 15:37:37 +0000 |
| commit | 1c5499d4d5d506ce0cc971e98c09bfbf7bc290a1 (patch) | |
| tree | b615619708fc0fbb334389aea9bf33cd7c0d8bcf /compiler/cmm/PprCmm.hs | |
| parent | 474b582b68ea9289f3da4355da816164138604b0 (diff) | |
| download | haskell-1c5499d4d5d506ce0cc971e98c09bfbf7bc290a1.tar.gz | |
Rename a constructor CmmForeignCall to CmmCallee, and tidy Cmm code
This patch should have no effect; it's mainly comments, layout,
plus this contructor name change.
Diffstat (limited to 'compiler/cmm/PprCmm.hs')
| -rw-r--r-- | compiler/cmm/PprCmm.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/cmm/PprCmm.hs b/compiler/cmm/PprCmm.hs index 9221c086af..2d3fd6a746 100644 --- a/compiler/cmm/PprCmm.hs +++ b/compiler/cmm/PprCmm.hs @@ -212,7 +212,7 @@ pprStmt stmt = case stmt of -- call "ccall" foo(x, y)[r1, r2]; -- ToDo ppr volatile - CmmCall (CmmForeignCall fn cconv) results args safety -> + CmmCall (CmmCallee fn cconv) results args safety -> hcat [ if null results then empty else parens (commafy $ map ppr results) <> @@ -226,7 +226,7 @@ pprStmt stmt = case stmt of target fn' = parens (ppr fn') CmmCall (CmmPrim op) results args safety -> - pprStmt (CmmCall (CmmForeignCall (CmmLit lbl) CCallConv) + pprStmt (CmmCall (CmmCallee (CmmLit lbl) CCallConv) results args safety) where lbl = CmmLabel (mkForeignLabel (mkFastString (show op)) Nothing False) |