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

Vocabulary

compiler.cfg.stacks.local

Inputs

height-state

a height-state

Outputs

insns

a 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 ;