Handbook
Glossary
chain-intersect ( vreg1 vreg2 -- vreg )
Vocabulary
compiler
.
cfg
.
ssa
.
interference
.
private
Inputs
vreg1
an
object
vreg2
an
object
Outputs
vreg
an
object
Definition
USING:
accessors
combinators.short-circuit
kernel
;
IN:
compiler.cfg.ssa.interference.private
:
chain-intersect
( vreg1 vreg2 -- vreg )
[
2dup
{
[
nip
]
[
vregs-intersect?
not
]
}
2&&
]
[
equal-anc-in>>
]
while
nip
;