-- ---------------------------------------------------------------------------
-- Code generation for PrimOps
-- ---------------------------------------------------------------------------
-- Code generation for PrimOps
-- later, we might want to inline it.
vols <- getVolatileRegs live
emitForeignCall' PlayRisky
-- later, we might want to inline it.
vols <- getVolatileRegs live
emitForeignCall' PlayRisky
- [(CmmReg (CmmGlobal BaseReg), PtrHint), (arg,PtrHint)]
+ [ (CmmHinted (CmmReg (CmmGlobal BaseReg)) PtrHint)
+ , (CmmHinted arg PtrHint) ]
- [(CmmReg (CmmGlobal BaseReg), PtrHint), (mutv,PtrHint)]
+ [ (CmmHinted (CmmReg (CmmGlobal BaseReg)) PtrHint)
+ , (CmmHinted mutv PtrHint) ]
| Just prim <- callishOp op
= do vols <- getVolatileRegs live
emitForeignCall' PlayRisky
| Just prim <- callishOp op
= do vols <- getVolatileRegs live
emitForeignCall' PlayRisky