compiler/cmm/CmmUtils.hs

171 mkIntCLit :: DynFlags -> Int -> CmmLit
175 mkIntExpr dflags i = CmmLit $! mkIntCLit dflags i
177 zeroCLit :: DynFlags -> CmmLit
181 zeroExpr dflags = CmmLit (zeroCLit dflags)
183 mkWordCLit :: DynFlags -> Integer -> CmmLit
187   :: CLabel -> ByteString -> (CmmLit, GenCmmDecl CmmStatics info stmt)
197 mkDataLits :: Section -> CLabel -> [CmmLit] -> GenCmmDecl CmmStatics info stmt
202 mkRODataLits :: CLabel -> [CmmLit] -> GenCmmDecl CmmStatics info stmt
213 mkStgWordCLit :: DynFlags -> StgWord -> CmmLit
216 packHalfWordsCLit :: DynFlags -> StgHalfWord -> StgHalfWord -> CmmLit
236 mkLblExpr lbl = CmmLit (CmmLabel lbl)
240 cmmOffsetExpr dflags e (CmmLit (CmmInt n _)) = cmmOffset dflags e (fromInteger n)
247 cmmOffset _ (CmmLit lit)      byte_off = CmmLit (cmmOffsetLit lit byte_off)
251 cmmOffset _ (CmmMachOp (MO_Add rep) [expr, CmmLit (CmmInt byte_off1 _rep)]) byte_off2
253               [expr, CmmLit (CmmInt (byte_off1 + toInteger byte_off2) rep)]
255   = CmmMachOp (MO_Add width) [expr, CmmLit (CmmInt (toInteger byte_off) width)]
264 cmmOffsetLit :: CmmLit -> Int -> CmmLit
272 cmmLabelOff :: CLabel -> Int -> CmmLit
292 cmmIndexExpr dflags width base (CmmLit (CmmInt n _)) = cmmIndex dflags width base (fromInteger n)
312 cmmLabelOffB :: CLabel -> ByteOff -> CmmLit
315 cmmOffsetLitB :: CmmLit -> ByteOff -> CmmLit
323 cmmOffsetExprW dflags  e (CmmLit (CmmInt n _)) = cmmOffsetW dflags e (fromInteger n)
332 cmmOffsetLitW :: DynFlags -> CmmLit -> WordOff -> CmmLit
335 cmmLabelOffW :: DynFlags -> CLabel -> WordOff -> CmmLit
363 cmmNegate _      (CmmLit (CmmInt n rep)) = CmmLit (CmmInt (-n) rep)
393 isTrivialCmmExpr (CmmLit _)         = True
401 hasNoGlobalRegs (CmmLit _)                 = True
407 isLit (CmmLit _) = True
428 cmmUntag _ e@(CmmLit (CmmLabel _)) = e
464   _   `regUsedIn_` CmmLit _         = False