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/StgCmmUtils.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/StgCmmUtils.hs')
| -rw-r--r-- | compiler/codeGen/StgCmmUtils.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/codeGen/StgCmmUtils.hs b/compiler/codeGen/StgCmmUtils.hs index f49c266499..9ef5862eaa 100644 --- a/compiler/codeGen/StgCmmUtils.hs +++ b/compiler/codeGen/StgCmmUtils.hs @@ -314,7 +314,7 @@ emitRtsCall' res fun args _vols safe where call updfr_off = if safe then - mkCall fun_expr Native res' args' updfr_off + mkCall fun_expr NativeCall res' args' updfr_off else mkUnsafeCall (ForeignTarget fun_expr (ForeignConvention CCallConv arg_hints res_hints)) res' args' |