diff options
Diffstat (limited to 'compiler/codeGen/CgPrimOp.hs')
| -rw-r--r-- | compiler/codeGen/CgPrimOp.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/compiler/codeGen/CgPrimOp.hs b/compiler/codeGen/CgPrimOp.hs index 43a570d41e..e912a08b6e 100644 --- a/compiler/codeGen/CgPrimOp.hs +++ b/compiler/codeGen/CgPrimOp.hs @@ -145,7 +145,9 @@ emitPrimOp [res] SparkOp [arg] live = do stmtC (CmmAssign (CmmLocal tmp) arg) vols <- getVolatileRegs live - emitForeignCall' PlayRisky [] + res' <- newTemp bWord + emitForeignCall' PlayRisky + [CmmHinted res' NoHint] (CmmCallee newspark CCallConv) [ (CmmHinted (CmmReg (CmmGlobal BaseReg)) AddrHint) , (CmmHinted arg AddrHint) ] |