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/codeGen/StgCmmLayout.hs | |
| parent | 5d1c70a506f366eca47464f2a354de8cc0d9a795 (diff) | |
| download | haskell-617eb195e67525ffda967099fa8d9899e2b15ce8.tar.gz | |
Calls with and without passing node arguments more clearly separated
Diffstat (limited to 'compiler/codeGen/StgCmmLayout.hs')
| -rw-r--r-- | compiler/codeGen/StgCmmLayout.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/codeGen/StgCmmLayout.hs b/compiler/codeGen/StgCmmLayout.hs index 47df621622..e306dd1046 100644 --- a/compiler/codeGen/StgCmmLayout.hs +++ b/compiler/codeGen/StgCmmLayout.hs @@ -161,13 +161,13 @@ direct_call caller lbl arity args reps <+> ppr args <+> ppr reps ) | null rest_reps -- Precisely the right number of arguments - = emitCall (NativeCall, NativeReturn) target args + = emitCall (NativeDirectCall, NativeReturn) target args | otherwise -- Over-saturated call = ASSERT( arity == length initial_reps ) do { pap_id <- newTemp gcWord ; withSequel (AssignTo [pap_id] True) - (emitCall (NativeCall, NativeReturn) target fast_args) + (emitCall (NativeDirectCall, NativeReturn) target fast_args) ; slow_call (CmmReg (CmmLocal pap_id)) rest_args rest_reps } where |