| /dports/lang/ghc/ghc-8.10.7/compiler/simplCore/ |
| H A D | Exitify.hs | 163 , Just join_arity <- isJoinId_maybe j
164 = do let (params, join_body) = collectNAnnBndrs join_arity rhs
175 let join_arity = idJoinArity j function
176 (params, join_body) = collectNAnnBndrs join_arity rhs
262 mkExitJoinId in_scope ty join_arity = do
269 `asJoinId` join_arity
272 addExit in_scope join_arity rhs = do
275 v <- mkExitJoinId in_scope ty join_arity
|
| H A D | SimplMonad.hs | 192 join_arity = length bndrs function
193 details = JoinId join_arity
|
| H A D | OccurAnal.hs | 2635 Just join_arity
2637 | otherwise -> all isOneShotBndr (drop join_arity bndrs)
2641 Just join_arity -> bndrs `lengthIs` join_arity
2801 ok_rule join_arity (Rule { ru_args = args })
2802 = args `lengthIs` join_arity
2807 ok_unfolding join_arity (CoreUnfolding { uf_src = src, uf_tmpl = rhs })
2808 = not (isStableSource src && join_arity > joinRhsArity rhs)
|
| H A D | FloatIn.hs | 565 | Just join_arity <- isJoinId_maybe bndr
566 , let (bndrs, body) = collectNAnnBndrs join_arity rhs
|
| /dports/devel/hs-hlint/hlint-3.3.4/_cabal_deps/ghc-lib-parser-9.0.1.20210324/compiler/GHC/Core/Opt/ |
| H A D | Arity.hs | 817 | Just join_arity <- isJoinId_maybe j
818 , (_, rhs_body) <- collectNBinders join_arity rhs
1271 etaExpandToJoinPoint join_arity expr
1272 = go join_arity [] expr
1284 etaExpandToJoinPointRule join_arity rule@(Rule { ru_bndrs = bndrs, ru_rhs = rhs function
1289 = pprPanic "etaExpandToJoinPointRule" (ppr join_arity $$ ppr rule)
1294 need_args = join_arity - length args
|
| H A D | OccurAnal.hs | 2722 Just join_arity
2724 | otherwise -> all isOneShotBndr (drop join_arity bndrs)
2731 exactJoin (Just join_arity) args = args `lengthIs` join_arity function
2891 ok_rule join_arity (Rule { ru_args = args })
2892 = args `lengthIs` join_arity
2897 ok_unfolding join_arity (CoreUnfolding { uf_src = src, uf_tmpl = rhs })
2898 = not (isStableSource src && join_arity > joinRhsArity rhs)
|
| /dports/devel/hs-ormolu/ormolu-0.4.0.0/_cabal_deps/ghc-lib-parser-9.2.1.20211101/compiler/GHC/Core/ |
| H A D | SimpleOpt.hs | 444 out_rhs | Just join_arity <- isJoinId_maybe in_bndr
445 = simple_join_rhs join_arity
449 simple_join_rhs join_arity -- See Note [Preserve join-binding arity]
453 (join_bndrs, join_body) = collectNBinders join_arity in_rhs
829 | AlwaysTailCalled join_arity <- tailCallInfo (idOccInfo bndr)
830 , (bndrs, body) <- etaExpandToJoinPoint join_arity rhs
833 join_bndr = bndr `asJoinId` join_arity
|
| H A D | Ppr.hs | 150 pp_join_bind join_arity
151 | bndrs `lengthAtLeast` join_arity
161 lhs_bndrs = take join_arity bndrs
162 rhs = mkLams (drop join_arity bndrs) body
|
| /dports/devel/hs-haskell-language-server/haskell-language-server-1.4.0/_cabal_deps/ghc-lib-parser-8.10.7.20210828/compiler/coreSyn/ |
| H A D | CoreArity.hs | 1132 etaExpandToJoinPoint join_arity expr
1133 = go join_arity [] expr
1145 etaExpandToJoinPointRule join_arity rule@(Rule { ru_bndrs = bndrs, ru_rhs = rhs function
1150 = pprPanic "etaExpandToJoinPointRule" (ppr join_arity $$ ppr rule)
1155 need_args = join_arity - length args
|
| H A D | PprCore.hs | 136 pp_join_bind join_arity
137 | bndrs `lengthAtLeast` join_arity
147 lhs_bndrs = take join_arity bndrs
148 rhs = mkLams (drop join_arity bndrs) body
|
| H A D | CoreOpt.hs | 399 out_rhs | Just join_arity <- isJoinId_maybe in_bndr
400 = simple_join_rhs join_arity
404 simple_join_rhs join_arity -- See Note [Preserve join-binding arity]
408 (join_bndrs, join_body) = collectNBinders join_arity in_rhs
762 | AlwaysTailCalled join_arity <- tailCallInfo (idOccInfo bndr)
763 , (bndrs, body) <- etaExpandToJoinPoint join_arity rhs
766 join_bndr = bndr `asJoinId` join_arity
|
| /dports/lang/ghc/ghc-8.10.7/compiler/coreSyn/ |
| H A D | CoreArity.hs | 1132 etaExpandToJoinPoint join_arity expr
1133 = go join_arity [] expr
1145 etaExpandToJoinPointRule join_arity rule@(Rule { ru_bndrs = bndrs, ru_rhs = rhs function
1150 = pprPanic "etaExpandToJoinPointRule" (ppr join_arity $$ ppr rule)
1155 need_args = join_arity - length args
|
| H A D | PprCore.hs | 136 pp_join_bind join_arity
137 | bndrs `lengthAtLeast` join_arity
147 lhs_bndrs = take join_arity bndrs
148 rhs = mkLams (drop join_arity bndrs) body
|
| H A D | CoreOpt.hs | 399 out_rhs | Just join_arity <- isJoinId_maybe in_bndr
400 = simple_join_rhs join_arity
404 simple_join_rhs join_arity -- See Note [Preserve join-binding arity]
408 (join_bndrs, join_body) = collectNBinders join_arity in_rhs
762 | AlwaysTailCalled join_arity <- tailCallInfo (idOccInfo bndr)
763 , (bndrs, body) <- etaExpandToJoinPoint join_arity rhs
766 join_bndr = bndr `asJoinId` join_arity
|
| /dports/lang/ghc/ghc-8.10.7/compiler/stranal/ |
| H A D | WorkWrap.hs | 563 Just (work_demands, join_arity, wrap_fn, work_fn) -> do
579 work_join_arity | isJoinId fn_id = Just join_arity
|
| H A D | WwLib.hs | 192 | Just join_arity <- mb_join_arity
193 , wrap_args `lengthExceeds` join_arity
195 int join_arity <+> text "but" <+>
|
| /dports/devel/hs-hlint/hlint-3.3.4/_cabal_deps/ghc-lib-parser-9.0.1.20210324/compiler/GHC/Core/ |
| H A D | SimpleOpt.hs | 411 out_rhs | Just join_arity <- isJoinId_maybe in_bndr
412 = simple_join_rhs join_arity
416 simple_join_rhs join_arity -- See Note [Preserve join-binding arity]
420 (join_bndrs, join_body) = collectNBinders join_arity in_rhs
774 | AlwaysTailCalled join_arity <- tailCallInfo (idOccInfo bndr)
775 , (bndrs, body) <- etaExpandToJoinPoint join_arity rhs
778 join_bndr = bndr `asJoinId` join_arity
|
| H A D | Ppr.hs | 138 pp_join_bind join_arity
139 | bndrs `lengthAtLeast` join_arity
149 lhs_bndrs = take join_arity bndrs
150 rhs = mkLams (drop join_arity bndrs) body
|
| /dports/devel/hs-ormolu/ormolu-0.4.0.0/_cabal_deps/ghc-lib-parser-9.2.1.20211101/compiler/GHC/Core/Opt/ |
| H A D | Arity.hs | 1047 | Just join_arity <- isJoinId_maybe j
1048 , (_, rhs_body) <- collectNBinders join_arity rhs
1895 etaExpandToJoinPoint join_arity expr
1896 = go join_arity [] expr
1908 etaExpandToJoinPointRule join_arity rule@(Rule { ru_bndrs = bndrs, ru_rhs = rhs function
1913 = pprPanic "etaExpandToJoinPointRule" (ppr join_arity $$ ppr rule)
1918 need_args = join_arity - length args
|
| H A D | OccurAnal.hs | 2961 Just join_arity
2963 | otherwise -> all isOneShotBndr (drop join_arity bndrs)
2970 exactJoin (Just join_arity) args = args `lengthIs` join_arity function
3130 ok_rule join_arity (Rule { ru_args = args })
3131 = args `lengthIs` join_arity
3136 ok_unfolding join_arity (CoreUnfolding { uf_src = src, uf_tmpl = rhs })
3137 = not (isStableSource src && join_arity > joinRhsArity rhs)
|
| /dports/devel/hs-haskell-language-server/haskell-language-server-1.4.0/_cabal_deps/ghc-lib-parser-8.10.7.20210828/compiler/simplCore/ |
| H A D | OccurAnal.hs | 2635 Just join_arity
2637 | otherwise -> all isOneShotBndr (drop join_arity bndrs)
2641 Just join_arity -> bndrs `lengthIs` join_arity
2801 ok_rule join_arity (Rule { ru_args = args })
2802 = args `lengthIs` join_arity
2807 ok_unfolding join_arity (CoreUnfolding { uf_src = src, uf_tmpl = rhs })
2808 = not (isStableSource src && join_arity > joinRhsArity rhs)
|
| /dports/devel/hs-haskell-language-server/haskell-language-server-1.4.0/_cabal_deps/ghc-lib-parser-8.10.7.20210828/compiler/basicTypes/ |
| H A D | IdInfo.hs | 189 isJoinIdDetails_maybe (JoinId join_arity) = Just join_arity function
|
| /dports/lang/ghc/ghc-8.10.7/compiler/basicTypes/ |
| H A D | IdInfo.hs | 189 isJoinIdDetails_maybe (JoinId join_arity) = Just join_arity function
|
| /dports/devel/hs-hlint/hlint-3.3.4/_cabal_deps/ghc-lib-parser-9.0.1.20210324/compiler/GHC/Types/Id/ |
| H A D | Info.hs | 204 isJoinIdDetails_maybe (JoinId join_arity) = Just join_arity function
|
| /dports/devel/hs-ormolu/ormolu-0.4.0.0/_cabal_deps/ghc-lib-parser-9.2.1.20211101/compiler/GHC/Types/Id/ |
| H A D | Info.hs | 205 isJoinIdDetails_maybe (JoinId join_arity) = Just join_arity function
|