-}
genCCall
- :: CmmCallTarget -- function to call
- -> HintedCmmFormals -- where to put the result
- -> HintedCmmActuals -- arguments (of mixed type)
+ :: CmmCallTarget -- function to call
+ -> [HintedCmmFormal] -- where to put the result
+ -> [HintedCmmActual] -- arguments (of mixed type)
-> NatM InstrBlock
(mop == MO_Memcpy ||
mop == MO_Memset ||
mop == MO_Memmove)
- -> init argsAndHints
+ = init argsAndHints
| otherwise
- -> argsAndHints
+ = argsAndHints
-- strip hints from the arg regs
let args :: [CmmExpr]