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/StgCmmPrim.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/StgCmmPrim.hs')
| -rw-r--r-- | compiler/codeGen/StgCmmPrim.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/codeGen/StgCmmPrim.hs b/compiler/codeGen/StgCmmPrim.hs index 1d2f0db142..7bc75de940 100644 --- a/compiler/codeGen/StgCmmPrim.hs +++ b/compiler/codeGen/StgCmmPrim.hs @@ -82,7 +82,7 @@ cgOpApp (StgPrimOp primop) args res_ty | primOpOutOfLine primop = do { cmm_args <- getNonVoidArgAmodes args ; let fun = CmmLit (CmmLabel (mkRtsPrimOpLabel primop)) - ; emitCall PrimOpCall fun cmm_args } + ; emitCall (PrimOpCall, PrimOpReturn) fun cmm_args } | ReturnsPrim VoidRep <- result_info = do cgPrimOp [] primop args |