emit-simple-allot ( node -- )

Vocabulary

compiler.cfg.intrinsics.allot

Inputs

node

an object

Outputs

None

Definition

USING: accessors compiler.cfg.hats compiler.cfg.registers
compiler.cfg.stacks compiler.tree.propagation.info kernel
layouts math sequences ;

IN: compiler.cfg.intrinsics.allot

: emit-simple-allot ( node -- )
    [ in-d>> length ] [ node-output-infos first class>> ] bi
    [ drop ds-loc load-vregs ] [ [ 1 + cells ] dip ^^allot ]
    [ nip ] 2tri
    [ ##set-slots, ] [ [ drop ] [ ds-push ] [ drop ] tri* ] 3bi
    ;