| /dports/lang/ghc/ghc-8.10.7/compiler/cmm/ |
| H A D | CmmOpt.hs | 61 cmmMachOpFoldM _ op [CmmLit (CmmInt x rep)]
63 MO_S_Neg _ -> CmmLit (CmmInt (-x) rep)
115 cmmMachOpFoldM dflags mop [CmmLit (CmmInt x xrep), CmmLit (CmmInt y _)]
162 cmmMachOpFoldM dflags op [x@(CmmLit _), y]
222 cmmMachOpFoldM _ (MO_Add _) [CmmLit lit, CmmLit (CmmInt i rep)]
224 cmmMachOpFoldM _ (MO_Add _) [CmmLit (CmmInt i rep), CmmLit lit]
226 cmmMachOpFoldM _ (MO_Sub _) [CmmLit lit, CmmLit (CmmInt i rep)]
313 zero = CmmLit (CmmInt 0 (wordWidth dflags))
314 one = CmmLit (CmmInt 1 (wordWidth dflags))
339 zero = CmmLit (CmmInt 0 (wordWidth dflags))
[all …]
|
| H A D | CmmUtils.hs | 171 mkIntCLit :: DynFlags -> Int -> CmmLit
177 zeroCLit :: DynFlags -> CmmLit
236 mkLblExpr lbl = CmmLit (CmmLabel lbl)
247 cmmOffset _ (CmmLit lit) byte_off = CmmLit (cmmOffsetLit lit byte_off)
264 cmmOffsetLit :: CmmLit -> Int -> CmmLit
272 cmmLabelOff :: CLabel -> Int -> CmmLit
315 cmmOffsetLitB :: CmmLit -> ByteOff -> CmmLit
332 cmmOffsetLitW :: DynFlags -> CmmLit -> WordOff -> CmmLit
363 cmmNegate _ (CmmLit (CmmInt n rep)) = CmmLit (CmmInt (-n) rep)
407 isLit (CmmLit _) = True
[all …]
|
| H A D | CmmInfo.hs | 177 , [CmmLit] ) -- The "extra bits"
222 mk_pieces :: ClosureTypeInfo -> [CmmLit]
263 packIntsCLit :: DynFlags -> Int -> Int -> CmmLit
272 -> ([CmmLit], -- srt_label, if any
273 CmmLit) -- srt_bitmap
315 makeRelativeRefTo :: DynFlags -> CLabel -> CmmLit -> CmmLit
393 -> (CmmLit,CmmLit) -- Closure type descr and closure descr (profiling)
395 -> CmmLit -- SRT length
396 -> CmmLit -- layout field
397 -> [CmmLit]
[all …]
|
| H A D | PprCmmExpr.hs | 59 instance Outputable CmmLit where
81 [CmmReg reg, CmmLit (CmmInt (fromIntegral i) rep)])
83 CmmLit lit -> pprLit lit
118 pprExpr7 (CmmMachOp (MO_Add rep1) [x, CmmLit (CmmInt i rep2)]) | i < 0
119 = pprExpr7 (CmmMachOp (MO_Sub rep1) [x, CmmLit (CmmInt (negate i) rep2)])
141 CmmLit lit -> pprLit1 lit
190 pprLit :: CmmLit -> SDoc
207 pprLit1 :: CmmLit -> SDoc
|
| H A D | CmmExpr.hs | 10 , CmmLit(..), cmmLitType
54 = CmmLit CmmLit -- Literal constructor
68 CmmLit l1 == CmmLit l2 = l1==l2 function
173 data CmmLit type
181 | CmmVec [CmmLit] -- Vector literal
213 cmmExprType dflags (CmmLit lit) = cmmLitType dflags lit
222 cmmLitType :: DynFlags -> CmmLit -> CmmType
249 cmmExprAlignment (CmmLit (CmmInt intOff _)) = alignmentOf (fromInteger intOff)
369 where expr z (CmmLit _) = z
|
| H A D | CmmImplementSwitchPlans.hs | 95 scrut = lt dflags expr $ CmmLit $ mkWordCLit dflags i
103 let scrut = cmmNeWord dflags expr $ CmmLit $ mkWordCLit dflags i
|
| H A D | CmmLint.hs | 103 [CmmReg reg, CmmLit (CmmInt (fromIntegral offset) rep)])
110 cmmCheckMachOp op [lit@(CmmLit (CmmInt { })), reg@(CmmReg _)] tys
205 checkCond dflags (CmmLit (CmmInt x t)) | x == 0 || x == 1, t == wordWidth dflags = return () -- con…
|
| H A D | CmmCommonBlockElim.hs | 161 hash_e (CmmLit l) = hash_lit l
168 hash_lit :: CmmLit -> Word32
224 CmmLit l1 `eq` CmmLit l2 = eqLit l1 l2 function
|
| /dports/lang/ghc/ghc-8.10.7/compiler/GHC/StgToCmm/ |
| H A D | Prof.hs | 65 mkCCostCentre :: CostCentre -> CmmLit
68 mkCCostCentreStack :: CostCentreStack -> CmmLit
77 staticProfHdr :: DynFlags -> CostCentreStack -> [CmmLit]
255 zero :: DynFlags -> CmmLit
257 zero64 :: CmmLit
286 (CmmLit (mkCCostCentre cc), AddrRep, AddrHint)]
303 staticLdvInit :: DynFlags -> CmmLit
313 CmmLit (mkWordCLit dflags (iLDV_STATE_CREATE dflags))
343 … (CmmLit (mkWordCLit dflags (iLDV_CREATE_MASK dflags))))
344 … (cmmOrWord dflags (loadEra dflags) (CmmLit (mkWordCLit dflags (iLDV_STATE_USE dflags))))
[all …]
|
| H A D | Heap.hs | 104 let info_ptr = CmmLit (CmmLabel (cit_lbl info_tbl))
170 -> [CmmLit] -- Payload
171 -> [CmmLit] -- The full closure
215 mkStaticClosure :: DynFlags -> CLabel -> CostCentreStack -> [CmmLit]
216 -> [CmmLit] -> [CmmLit] -> [CmmLit] -> [CmmLit]
334 Nothing -> CmmLit (CmmLabel $ staticClosureLabel cl_info)
508 mkGcLabel s = CmmLit (CmmLabel (mkCmmCodeLabel rtsUnitId (fsLit s)))
528 stk_hwm | checkStack = Just (CmmLit CmmHighStackMark)
644 CmmLit (zeroCLit dflags)]
|
| H A D | Ticky.hs | 358 [CmmLoad (CmmLit (cmmLabelOffB ctr_lbl
362 = [ mkStore (CmmLit (cmmLabelOffB ctr_lbl (oFFSET_StgEntCounter_link dflags)))
365 , mkStore (CmmLit (cmmLabelOffB ctr_lbl
504 (CmmLit (cmmLabelOffB ticky_ctr (oFFSET_StgEntCounter_allocs dflags)))
604 bumpTickyLit :: CmmLit -> FCode ()
607 bumpTickyLitBy :: CmmLit -> Int -> FCode ()
610 emit (addToMem (bWord dflags) (CmmLit lhs) n)
612 bumpTickyLitByE :: CmmLit -> CmmExpr -> FCode ()
615 emit (addToMemE (bWord dflags) (CmmLit lhs) e)
624 (CmmLit (CmmLabel (mkRtsCmmDataLabel lbl)))
[all …]
|
| H A D | Utils.hs | 95 cgLit :: Literal -> FCode CmmLit
101 mkSimpleLit :: DynFlags -> Literal -> CmmLit
125 addToMemLbl rep lbl n = addToMem rep (CmmLit (CmmLabel lbl)) n
128 addToMemLblE rep lbl = addToMemE rep (CmmLit (CmmLabel lbl))
173 where closure_tbl = CmmLit (CmmLabel lbl)
280 emitDataLits :: CLabel -> [CmmLit] -> FCode ()
284 emitRODataLits :: CLabel -> [CmmLit] -> FCode ()
288 newStringCLit :: String -> FCode CmmLit
293 newByteStringCLit :: ByteString -> FCode CmmLit
531 cond dflags = CmmMachOp ne [scrut, CmmLit cmm_lit]
[all …]
|
| H A D | Hpc.hs | 30 , CmmLit (CmmInt 1 W64)
34 (CmmLit $ CmmLabel $ mkHpcTicksLabel $ mod)
|
| H A D | Prim.hs | 187 [(CmmLit (CmmInt n w))]
193 [(CmmLit (CmmInt n w)), init]
225 [src, src_off, (CmmLit (CmmInt n w))]
231 [src, src_off, (CmmLit (CmmInt n w))]
237 [src, src_off, (CmmLit (CmmInt n w))]
243 [src, src_off, (CmmLit (CmmInt n w))]
249 [(CmmLit (CmmInt n w)), init]
270 [src, src_off, (CmmLit (CmmInt n w))]
883 zero :: CmmLit
901 zero :: CmmLit
[all …]
|
| H A D | Env.hs | 60 litIdInfo :: DynFlags -> Id -> LambdaFormInfo -> CmmLit -> CgIdInfo
63 , cg_loc = CmmLoc (addDynTag dflags (CmmLit lit) tag) }
160 getArgAmode (NonVoid (StgLitArg lit)) = CmmLit <$> cgLit lit
|
| H A D | ExtCode.hs | 182 = addVarDecl name (CmmLit (CmmLabel cmmLabel))
207 Just (FunN pkg) -> CmmLit (CmmLabel (mkCmmCodeLabel pkg name))
208 _other -> CmmLit (CmmLabel (mkCmmCodeLabel rtsUnitId name))
|
| /dports/devel/hs-ormolu/ormolu-0.4.0.0/_cabal_deps/ghc-lib-parser-9.2.1.20211101/compiler/GHC/Cmm/ |
| H A D | Expr.hs | 11 , CmmLit(..), cmmLitType
56 = CmmLit !CmmLit -- Literal constructor
71 CmmLit l1 == CmmLit l2 = l1==l2 function
176 data CmmLit type
184 | CmmVec [CmmLit] -- Vector literal
215 instance Outputable CmmLit where
227 (CmmLit lit) -> cmmLitType platform lit
236 cmmLitType :: Platform -> CmmLit -> CmmType
264 cmmExprAlignment (CmmLit (CmmInt intOff _)) = alignmentOf (fromInteger intOff)
387 where expr z (CmmLit _) = z
|
| /dports/devel/hs-hlint/hlint-3.3.4/_cabal_deps/ghc-lib-parser-9.0.1.20210324/compiler/GHC/Cmm/ |
| H A D | Expr.hs | 11 , CmmLit(..), cmmLitType
56 = CmmLit CmmLit -- Literal constructor
70 CmmLit l1 == CmmLit l2 = l1==l2 function
175 data CmmLit type
183 | CmmVec [CmmLit] -- Vector literal
216 (CmmLit lit) -> cmmLitType platform lit
225 cmmLitType :: Platform -> CmmLit -> CmmType
253 cmmExprAlignment (CmmLit (CmmInt intOff _)) = alignmentOf (fromInteger intOff)
373 where expr z (CmmLit _) = z
|
| /dports/lang/ghc/ghc-8.10.7/compiler/nativeGen/SPARC/CodeGen/ |
| H A D | Amode.hs | 33 getAmode (CmmMachOp (MO_Sub _) [x, CmmLit (CmmInt i _)])
42 getAmode (CmmMachOp (MO_Add _) [x, CmmLit (CmmInt i _)])
58 getAmode (CmmLit lit)
|
| H A D | Gen32.hs | 62 [CmmMachOp (MO_U_Shr W64) [x,CmmLit (CmmInt 32 _)]]) = do
67 [CmmMachOp (MO_U_Shr W64) [x,CmmLit (CmmInt 32 _)]]) = do
83 getRegister (CmmLit (CmmFloat f W32)) = do
100 getRegister (CmmLit (CmmFloat d W64)) = do
142 MO_UU_Conv W16 W8 -> trivialCode W8 (AND False) x (CmmLit (CmmInt 255 W8))
143 MO_UU_Conv W32 W8 -> trivialCode W8 (AND False) x (CmmLit (CmmInt 255 W8))
246 getRegister (CmmLit (CmmInt i _))
254 getRegister (CmmLit lit)
459 trivialCode _ instr x (CmmLit (CmmInt y _))
606 condIntReg EQQ x (CmmLit (CmmInt 0 _)) = do
[all …]
|
| /dports/lang/ghc/ghc-8.10.7/compiler/nativeGen/ |
| H A D | PIC.hs | 119 = return $ CmmLit $ CmmLabel lbl -- already processed it, pass through
133 return $ CmmLit $ CmmLabel stub
146 _ -> return $ CmmLit $ CmmLabel lbl
162 = CmmLit $ CmmLabel lbl
167 , CmmLit $ picRelative dflags
176 , CmmLit $ picRelative dflags
185 , CmmLit $ picRelative dflags
191 = CmmLit $ CmmLabel lbl
408 picRelative :: DynFlags -> Arch -> OS -> CLabel -> CmmLit
|
| H A D | AsmCodeGen.hs | 1142 CmmLit (CmmInt 0 _) -> CmmBranch false
1143 CmmLit (CmmInt _ _) -> CmmBranch true
1187 CmmLit (CmmBlock id)
1188 -> cmmExprNative referenceKind (CmmLit (CmmLabel (infoTblLbl id)))
1193 CmmLit (CmmLabel lbl)
1196 CmmLit (CmmLabelOff lbl off)
1202 (CmmLit $ CmmInt (fromIntegral off) (wordWidth dflags))
1211 CmmLit (CmmLabel (mkCmmCodeLabel rtsUnitId (fsLit "__stg_EAGER_BLACKHOLE_info")))
1215 CmmLit (CmmLabel (mkCmmCodeLabel rtsUnitId (fsLit "__stg_gc_enter_1")))
1219 CmmLit (CmmLabel (mkCmmCodeLabel rtsUnitId (fsLit "__stg_gc_fun")))
|
| /dports/lang/ghc/ghc-8.10.7/compiler/nativeGen/X86/ |
| H A D | CodeGen.hs | 534 iselExpr64 (CmmLit (CmmInt i _)) = do
1057 add_code rep x (CmmLit (CmmInt y _))
1066 sub_code rep x (CmmLit (CmmInt y _))
1166 getRegister' dflags is32Bit (CmmLit lit)
1182 getRegister' dflags _ (CmmLit lit)
1360 getNonClobberedOperand (CmmLit lit) = do
1419 getOperand (CmmLit lit) = do
1523 is32BitLit :: Bool -> CmmLit -> Bool
1779 genJump (CmmLit lit) regs = do
2297 CmmLit (CmmInt c _),
[all …]
|
| /dports/lang/ghc/ghc-8.10.7/compiler/nativeGen/PPC/ |
| H A D | CodeGen.hs | 342 iselExpr64 (CmmLit (CmmInt i _)) = do
586 CmmLit lit
603 CmmLit (CmmInt imm _)
657 getRegister' _ (CmmLit (CmmInt i rep))
664 getRegister' _ (CmmLit (CmmFloat f frep)) = do
676 getRegister' dflags (CmmLit lit)
820 getAmode _ (CmmLit lit)
961 (CmmLit (CmmInt 0 _))
1052 genJump (CmmLit (CmmLabel lbl)) regs
1143 CmmLit (CmmInt i _)
[all …]
|
| /dports/devel/hs-hlint/hlint-3.3.4/_cabal_deps/ghc-lib-parser-9.0.1.20210324/compiler/GHC/ |
| H A D | Cmm.hs | 216 = CmmStaticLit CmmLit
231 -> [CmmLit] -- Payload
|