emit-(byte-array) ( block node -- block' )
Generating instructions for inline memory allocation

Next:

emit-<array> ( block node -- block' )

Vocabulary
compiler.cfg.intrinsics.allot

Inputs

block	an object
node	an object

Outputs

block'

an object

Definition

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

IN: compiler.cfg.intrinsics.allot

: emit-(byte-array) ( block node -- block' )
    dup node-input-infos first literal>> dup
    expand-(byte-array)?
    [ nip emit-allot-byte-array drop ] [ drop emit-primitive ]
    if ;