emit-call-block ( word height block -- )
CFG construction utilities

Prev:	begin-branch ( block -- block' )
Next:	emit-conditional ( block branches -- block'/f )

Vocabulary
compiler.cfg.builder.blocks

Inputs

word	an object
height	an object
block	an object

Outputs
None

Definition

USING: accessors compiler.cfg.instructions
compiler.cfg.registers compiler.cfg.stacks.local kernel ;

IN: compiler.cfg.builder.blocks

: emit-call-block ( word height block -- )
    t swap kill-block?<< <ds-loc> inc-stack ##call, ;