add-gc-checks ( insns-seq -- )

Vocabulary

compiler.cfg.gc-checks.private

Inputs

insns-seq

a sequence of instruction sequences

Outputs

None

Word description

Insert a GC check at the end of every chunk but the last one. This ensures that every section other than the first has a GC check in the section immediately preceeding it.

Definition

USING: compiler.cfg.comparisons compiler.cfg.instructions
compiler.cfg.registers cpu.architecture grouping kernel
sequences ;

IN: compiler.cfg.gc-checks.private

: add-gc-checks ( insns-seq -- )
    2 <clumps> [
        first2 allocation-size cc<= int-rep next-vreg-rep
        int-rep next-vreg-rep ##check-nursery-branch new-insn
        swap push
    ] each ;