emit-local-allot ( block node -- block' )

Vocabulary

compiler.cfg.intrinsics.misc

Inputs

block	an object
node	an object

Outputs

block'

an object

Definition

USING: accessors compiler.cfg.builder.blocks compiler.cfg.hats
compiler.cfg.stacks compiler.tree.propagation.info kernel math
sequences ;

IN: compiler.cfg.intrinsics.misc

: emit-local-allot ( block node -- block' )
    dup node-input-infos first2 [ literal>> ] bi@ 2dup
    [ integer? ] both?
    [ ds-drop ds-drop f ^^local-allot ^^box-alien ds-push drop ]
    [ 2drop emit-primitive ] if ;