insert-save-context ( insns -- insns' )

Vocabulary

compiler.cfg.save-contexts

Inputs

insns

an object

Outputs

insns'

an object

Definition

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

IN: compiler.cfg.save-contexts

: insert-save-context ( insns -- insns' )
    dup insns-needs-save-context? [
        [
            int-rep next-vreg-rep int-rep next-vreg-rep
            ##save-context new-insn
        ] dip [ save-context-offset ] keep insert-nth
    ] when ;