getNonClobberedOperand (CmmLit lit)
| isSuitableFloatingPointLit lit = do
lbl <- getNewLabelNat
let code = unitOL (LDATA ReadOnlyData [CmmDataLabel lbl,
CmmStaticLit lit])
return (OpAddr (ripRel (ImmCLbl lbl)), code)
getNonClobberedOperand (CmmLit lit)
| isSuitableFloatingPointLit lit = do
lbl <- getNewLabelNat
let code = unitOL (LDATA ReadOnlyData [CmmDataLabel lbl,
CmmStaticLit lit])
return (OpAddr (ripRel (ImmCLbl lbl)), code)