visit-gc-root ( vreg derived-roots gc-roots -- )

Vocabulary
compiler.cfg.liveness

Definition

USING: combinators compiler.cfg.registers cpu.architecture
kernel sets ;

IN: compiler.cfg.liveness

: visit-gc-root ( vreg derived-roots gc-roots -- )
    pick rep-of {
        { tagged-rep [ nip adjoin ] }
        { int-rep [ visit-derived-root ] }
        [ 4drop ]
    } case ;