diff options
| author | dias@eecs.tufts.edu <unknown> | 2009-03-23 17:07:06 +0000 |
|---|---|---|
| committer | dias@eecs.tufts.edu <unknown> | 2009-03-23 17:07:06 +0000 |
| commit | e239aa2329416a2822fcc03c4ed486c7d28739e1 (patch) | |
| tree | dce8820a6afe5cc6cb626bafe3be64eaaad96719 /compiler/codeGen/StgCmmLayout.hs | |
| parent | f9d5c95fb4b4989ce4da8005793d3730452a33a9 (diff) | |
| download | haskell-e239aa2329416a2822fcc03c4ed486c7d28739e1.tar.gz | |
Small step toward call-conv improvement: separate out calls and returns
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 dbc97d49d8..c9f0324181 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 Native target args + = emitCall NativeCall target args | otherwise -- Over-saturated call = ASSERT( arity == length initial_reps ) do { pap_id <- newTemp gcWord ; withSequel (AssignTo [pap_id] True) - (emitCall Native target fast_args) + (emitCall NativeCall target fast_args) ; slow_call (CmmReg (CmmLocal pap_id)) rest_args rest_reps } where |