diff options
| author | dias@eecs.tufts.edu <unknown> | 2009-03-23 17:28:37 +0000 |
|---|---|---|
| committer | dias@eecs.tufts.edu <unknown> | 2009-03-23 17:28:37 +0000 |
| commit | 5d1c70a506f366eca47464f2a354de8cc0d9a795 (patch) | |
| tree | 1a48d2dbe980047a1f43e730a2bbfd98f28194c2 /compiler/codeGen/StgCmmUtils.hs | |
| parent | e239aa2329416a2822fcc03c4ed486c7d28739e1 (diff) | |
| download | haskell-5d1c70a506f366eca47464f2a354de8cc0d9a795.tar.gz | |
Another small step: call and return conventions specified separately when making calls
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 9ef5862eaa..eb437a9c3d 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 NativeCall res' args' updfr_off + mkCmmCall fun_expr res' args' updfr_off else mkUnsafeCall (ForeignTarget fun_expr (ForeignConvention CCallConv arg_hints res_hints)) res' args' |