| /dports/lang/ghc/ghc-8.10.7/compiler/GHC/StgToCmm/ |
| H A D | Foreign.hs | 119 ; emitReturn (map (CmmReg . CmmLocal) res_regs)
278 return (CmmReg (CmmLocal reg))
303 (CmmReg (CmmLocal tso))
424 (CmmLoad (cmmOffset dflags (CmmReg (CmmLocal tso))
481 mkAssign hpReg (cmmOffsetW df (CmmReg bdfreereg) (-1)),
489 (CmmReg bdstartreg)
502 CmmMachOp (mo_wordSub df) [CmmReg bdfreereg, CmmReg bdstartreg]
515 :: DynFlags -> CmmReg -> CmmExpr
517 cmmOffset dflags (CmmReg cn) (oFFSET_bdescr_free dflags)
519 cmmOffset dflags (CmmReg cn) (oFFSET_bdescr_start dflags)
[all …]
|
| H A D | Bind.hs | 504 [ CmmReg (CmmLocal node) -- See [NodeReg clobbered with loopification]
560 (map (CmmReg . CmmLocal) (node : arg_regs))
590 do { enterCostCentreThunk (CmmReg nodeReg)
605 = emitBlackHoleCode (CmmReg (CmmLocal node_reg))
640 emitStore node (CmmReg (CmmGlobal EagerBlackholeInfo))
664 pushUpdateFrame lbl (CmmReg (CmmLocal node)) body
723 (CmmReg (CmmLocal node), AddrRep, AddrHint) ]
728 ; let target = entryCode dflags (closureInfoPtr dflags (CmmReg (CmmLocal node)))
730 (cmmEqWord dflags (CmmReg (CmmLocal bh)) (zeroExpr dflags))
734 ; return (CmmReg (CmmLocal bh)) }
|
| H A D | Heap.hs | 333 Just r -> CmmReg (CmmLocal r)
351 args' = map (CmmReg . CmmLocal) args
352 stg_gc_fun = CmmReg (CmmGlobal GCFun)
353 stg_gc_enter1 = CmmReg (CmmGlobal GCEnter1)
433 reg_exprs = map (CmmReg . CmmLocal) regs
611 CmmReg spLimReg]
643 [CmmReg hpLimReg,
|
| H A D | Prof.hs | 137 = emit (storeCurCCS (CmmReg (CmmLocal local_cc)))
278 when tick $ emit (bumpSccCount dflags (CmmReg (CmmLocal tmp)))
279 when push $ emit (storeCurCCS (CmmReg (CmmLocal tmp)))
329 ldvEnterClosure :: ClosureInfo -> CmmReg -> FCode ()
334 ldvEnter (cmmOffsetB dflags (CmmReg node_reg) (-tag))
|
| H A D | Expr.hs | 77 emitReturn [getConstrTag dflags (cmmUntag dflags (CmmReg (CmmLocal tmp)))]
330 return (CmmReg (CmmLocal tmp))
628 ; emitCmmLitSwitch (CmmReg bndr_reg) tagged_cmms' deflt
638 !ptag_expr = cmmConstrTag1 dflags (CmmReg bndr_reg)
654 let !untagged_ptr = cmmUntag dflags (CmmReg bndr_reg)
1087 { let entry = entryCode dflags $ closureInfoPtr dflags $ CmmReg nodeReg
1129 ; let entry = entryCode dflags (closureInfoPtr dflags (CmmReg nodeReg))
1134 mkCbranch (cmmIsTagged dflags (CmmReg nodeReg))
|
| H A D | Prim.hs | 106 emitReturn [CmmReg (CmmLocal res)]
1706 (topHalf (CmmReg (CmmLocal r2))),
1764 CmmReg (CmmLocal res_r)
1861 (sum [topHalf (CmmReg xlyl),
1862 bottomHalf (CmmReg xhyl),
1865 (or (bottomHalf (CmmReg xlyl))
1866 (toTopHalf (CmmReg r))),
1869 topHalf (CmmReg xhyl),
1870 topHalf (CmmReg xlyh),
1871 topHalf (CmmReg r)])]
[all …]
|
| H A D | Utils.hs | 159 (CmmReg (CmmLocal base))
266 = mkStore (get_GlobalReg_addr dflags reg) (CmmReg (CmmGlobal reg))
314 assignTemp (CmmReg (CmmLocal reg)) = return reg
403 = ((tmp, rhs), (reg, CmmReg (CmmLocal tmp)))
590 return (CmmReg reg)
615 [(CmmReg (CmmGlobal BaseReg), AddrRep, AddrHint),
625 [(CmmReg (CmmGlobal BaseReg), AddrRep, AddrHint),
|
| H A D | CgUtils.hs | 159 CmmReg (CmmGlobal MachSp) -> expr
160 CmmReg (CmmGlobal reg) ->
182 fixExpr (CmmReg (CmmGlobal reg)),
|
| H A D | Env.hs | 80 return (mkCgIdInfo id lf_info (CmmReg (CmmLocal reg)), reg)
182 addBindC (mkCgIdInfo id lf_info (CmmReg (CmmLocal reg)))
|
| H A D | ExtCode.hs | 154 addVarDecl name (CmmReg (CmmLocal reg))
223 emitAssign :: CmmReg -> CmmExpr -> CmmParse ()
|
| /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 | 10 , CmmReg(..), cmmRegType, cmmRegWidth
58 | CmmReg !CmmReg -- Contents of register constructor
63 | CmmRegOff !CmmReg !Int
73 CmmReg r1 == CmmReg r2 = r1==r2 function
79 data CmmReg type
297 cmmRegType :: Platform -> CmmReg -> CmmType
301 cmmRegWidth :: Platform -> CmmReg -> Width
359 instance UserOfRegs LocalReg CmmReg where
363 instance DefinerOfRegs LocalReg CmmReg where
367 instance UserOfRegs GlobalReg CmmReg where
[all …]
|
| /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 | 10 , CmmReg(..), cmmRegType, cmmRegWidth
58 | CmmReg !CmmReg -- Contents of register constructor
63 | CmmRegOff !CmmReg Int
72 CmmReg r1 == CmmReg r2 = r1==r2 function
78 data CmmReg type
285 cmmRegType :: Platform -> CmmReg -> CmmType
289 cmmRegWidth :: Platform -> CmmReg -> Width
347 instance UserOfRegs LocalReg CmmReg where
351 instance DefinerOfRegs LocalReg CmmReg where
355 instance UserOfRegs GlobalReg CmmReg where
[all …]
|
| /dports/lang/ghc/ghc-8.10.7/compiler/cmm/ |
| H A D | CmmExpr.hs | 9 , CmmReg(..), cmmRegType, cmmRegWidth
56 | CmmReg !CmmReg -- Contents of register constructor
61 | CmmRegOff !CmmReg Int
70 CmmReg r1 == CmmReg r2 = r1==r2 function
76 data CmmReg type
281 cmmRegType :: DynFlags -> CmmReg -> CmmType
285 cmmRegWidth :: DynFlags -> CmmReg -> Width
343 instance UserOfRegs LocalReg CmmReg where
347 instance DefinerOfRegs LocalReg CmmReg where
351 instance UserOfRegs GlobalReg CmmReg where
[all …]
|
| H A D | CmmUtils.hs | 260 cmmRegOff :: CmmReg -> Int -> CmmExpr
261 cmmRegOff reg 0 = CmmReg reg
381 in (CmmAssign reg expr, CmmReg reg)
446 regsOverlap :: DynFlags -> CmmReg -> CmmReg -> Bool
594 baseExpr = CmmReg baseReg
595 spExpr = CmmReg spReg
596 spLimExpr = CmmReg spLimReg
597 hpExpr = CmmReg hpReg
598 hpLimExpr = CmmReg hpLimReg
599 currentTSOExpr = CmmReg currentTSOReg
[all …]
|
| H A D | PprCmmExpr.hs | 56 instance Outputable CmmReg where
81 [CmmReg reg, CmmLit (CmmInt (fromIntegral i) rep)])
143 CmmReg reg -> ppr reg
220 pprReg :: CmmReg -> SDoc
|
| H A D | CmmSink.hs | 258 isTrivial _ (CmmReg (CmmLocal _)) = True
259 isTrivial dflags (CmmReg (CmmGlobal r)) = -- see Note [Inline GlobalRegs?]
373 CmmAssign r (CmmReg r') | r == r' -> True
463 inl_exp (CmmReg (CmmLocal l')) | l == l' = rhs
559 where f (CmmReg (CmmLocal l)) _ | l `elemLRegSet` ls = True
756 CmmReg r -> regAddr dflags r 0 w
761 regAddr :: DynFlags -> CmmReg -> Int -> Width -> AbsMem
|
| H A D | PprC.hs | 380 CmmReg reg -> pprCastReg reg
420 pprExpr1 e@(CmmReg _reg) = pprExpr e
876 pprAssign _ r1 (CmmReg r2)
904 pprCastReg :: CmmReg -> SDoc
912 isFixedPtrReg :: CmmReg -> Bool
920 isPtrReg :: CmmReg -> Bool
936 isStrangeTypeReg :: CmmReg -> Bool
947 strangeRegType :: CmmReg -> Maybe SDoc
956 pprReg :: CmmReg -> SDoc
961 pprAsPtrReg :: CmmReg -> SDoc
[all …]
|
| H A D | CmmOpt.hs | 36 f (CmmRegOff r 0) = CmmReg r
211 cmmMachOpFoldM _ (MO_Add _) [CmmReg reg, CmmLit (CmmInt n rep)]
215 cmmMachOpFoldM _ (MO_Sub _) [CmmReg reg, CmmLit (CmmInt n rep)]
357 CmmReg _ <- x -> -- We duplicate x in signedQuotRemHelper, hence require
363 CmmReg _ <- x -> -- We duplicate x in signedQuotRemHelper, hence require
422 isPicReg (CmmReg (CmmGlobal PicBaseReg)) = True
|
| H A D | CmmLayoutStack.hs | 352 isGcJump (CmmCall { cml_target = CmmReg (CmmGlobal l) })
608 (CmmReg (CmmLocal r))]
755 (CmmReg (CmmLocal r))
789 (CmmReg (CmmLocal r))
939 , CmmReg (CmmGlobal SpLim)]
996 CmmStore (CmmStackSlot area m) (CmmReg (CmmLocal r))
1149 mkAssign baseReg (CmmReg (CmmLocal new_base)) <*>
1155 (map (CmmReg . CmmLocal) res)
1203 [new_base] [CmmReg (CmmLocal id)]
|
| H A D | CmmCommonBlockElim.hs | 156 hash_reg :: CmmReg -> Word32
163 hash_e (CmmReg r) = hash_reg r
226 CmmReg r1 `eq` CmmReg r2 = r1==r2 function
|
| H A D | MkGraph.hs | 191 mkAssign :: CmmReg -> CmmExpr -> CmmAGraph
192 mkAssign l (CmmReg r) | l == r = mkNop
316 global = CmmReg (CmmGlobal r)
328 CmmAssign (CmmLocal reg) (CmmReg (CmmGlobal r))
|
| /dports/lang/ghc/ghc-8.10.7/compiler/nativeGen/SPARC/CodeGen/ |
| H A D | Base.hs | 97 getRegisterReg :: Platform -> CmmReg -> Reg
115 = CmmMachOp (MO_Add width) [CmmReg reg, CmmLit (CmmInt (fromIntegral off) width)]
|
| H A D | Gen64.hs | 65 :: CmmReg -- ^ the destination register
164 iselExpr64 (CmmReg (CmmLocal (LocalReg uq ty)))
|
| /dports/lang/ghc/ghc-8.10.7/compiler/GHC/ |
| H A D | StgToCmm.hs | 218 ; ldvEnter (CmmReg nodeReg)
220 ; void $ emitReturn [cmmOffsetB dflags (CmmReg nodeReg) (tagForCon dflags data_con)]
|
| /dports/lang/ghc/ghc-8.10.7/compiler/llvmGen/LlvmCodeGen/ |
| H A D | CodeGen.hs | 970 genAssign :: CmmReg -> CmmExpr -> LlvmM StmtData
1002 genStore addr@(CmmReg (CmmGlobal r)) val
1009 (CmmReg (CmmGlobal r)),
1015 (CmmReg (CmmGlobal r)),
1246 CmmReg r -> do
1665 genLoad atomic e@(CmmReg (CmmGlobal r)) ty
1672 (CmmReg (CmmGlobal r)),
1752 getCmmReg :: CmmReg -> LlvmM LlvmVar
1789 allocReg :: CmmReg -> (LlvmVar, LlvmStatements)
1890 let getAssignedRegs :: CmmNode O O -> [CmmReg]
[all …]
|