diff options
| author | dias@eecs.tufts.edu <unknown> | 2009-03-23 17:47:00 +0000 |
|---|---|---|
| committer | dias@eecs.tufts.edu <unknown> | 2009-03-23 17:47:00 +0000 |
| commit | 617eb195e67525ffda967099fa8d9899e2b15ce8 (patch) | |
| tree | 80a7c9fbf641bd369860382cadb6d807bbfe6295 /compiler/cmm/CmmCvt.hs | |
| parent | 5d1c70a506f366eca47464f2a354de8cc0d9a795 (diff) | |
| download | haskell-617eb195e67525ffda967099fa8d9899e2b15ce8.tar.gz | |
Calls with and without passing node arguments more clearly separated
Diffstat (limited to 'compiler/cmm/CmmCvt.hs')
| -rw-r--r-- | compiler/cmm/CmmCvt.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/cmm/CmmCvt.hs b/compiler/cmm/CmmCvt.hs index 4eedd55100..9f8279e87e 100644 --- a/compiler/cmm/CmmCvt.hs +++ b/compiler/cmm/CmmCvt.hs @@ -36,7 +36,7 @@ toZgraph _ _ (ListGraph []) = do g <- lgraphOfAGraph emptyAGraph return ((0, Nothing), g) toZgraph fun_name args g@(ListGraph (BasicBlock id ss : other_blocks)) = - let (offset, entry) = mkEntry id NativeCall args in + let (offset, entry) = mkEntry id NativeNodeCall args in do g <- labelAGraph id $ entry <*> mkStmts ss <*> foldr addBlock emptyAGraph other_blocks return ((offset, Nothing), g) @@ -94,7 +94,7 @@ get_hints (Foreign (ForeignConvention _ _ hints)) Results = hints get_hints _other_conv _vd = repeat NoHint get_conv :: MidCallTarget -> Convention -get_conv (PrimTarget _) = NativeCall +get_conv (PrimTarget _) = NativeNodeCall -- JD: SUSPICIOUS get_conv (ForeignTarget _ fc) = Foreign fc cmm_target :: MidCallTarget -> CmmCallTarget |