-- later, we might want to inline it.
vols <- getVolatileRegs live
emitForeignCall' PlayRisky
-- later, we might want to inline it.
vols <- getVolatileRegs live
emitForeignCall' PlayRisky
- [ (CmmHinted (CmmReg (CmmGlobal BaseReg)) PtrHint)
- , (CmmHinted arg PtrHint) ]
+ [ (CmmKinded (CmmReg (CmmGlobal BaseReg)) PtrHint)
+ , (CmmKinded arg PtrHint) ]
emitPrimOp [res] ReadMutVarOp [mutv] live
= stmtC (CmmAssign (CmmLocal res) (cmmLoadIndexW mutv fixedHdrSize))
emitPrimOp [res] ReadMutVarOp [mutv] live
= stmtC (CmmAssign (CmmLocal res) (cmmLoadIndexW mutv fixedHdrSize))
- [ (CmmHinted (CmmReg (CmmGlobal BaseReg)) PtrHint)
- , (CmmHinted mutv PtrHint) ]
+ [ (CmmKinded (CmmReg (CmmGlobal BaseReg)) PtrHint)
+ , (CmmKinded mutv PtrHint) ]
| Just prim <- callishOp op
= do vols <- getVolatileRegs live
emitForeignCall' PlayRisky
| Just prim <- callishOp op
= do vols <- getVolatileRegs live
emitForeignCall' PlayRisky