height-state>insns ( height-state -- insns )


Vocabulary
compiler.cfg.stacks.local

Inputs
height-statea height-state


Outputs
insnsa sequence


Word description
Converts a height-state tuple to 0-2 stack height change instructions.

Examples
In this example the datastacks height is increased by 4 and the retainstacks decreased by 2.
USING: compiler.cfg.stacks.local prettyprint ; T{ height-state f 0 0 4 -2 } height-state>insns .
{ T{ ##inc { loc D: 4 } } T{ ##inc { loc R: -2 } } }


Definition
USING: accessors arrays compiler.cfg.instructions
compiler.cfg.registers kernel sequences ;

IN: compiler.cfg.stacks.local

: height-state>insns ( height-state -- insns )
[ ds-inc>> ds-loc ] [ rs-inc>> rs-loc ] bi
[ new swap >>n ] 2bi@ 2array [ n>> 0 = ] reject
[ ##inc new swap >>loc ] map ;