emit-slot ( block node -- block' )
Generating instructions for slot access

Prev:

emit-set-slot ( block #call -- block' )

Vocabulary
compiler.cfg.intrinsics.slots

Inputs

block	an object
node	an object

Outputs

block'

an object

Definition

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

IN: compiler.cfg.intrinsics.slots

: emit-slot ( block node -- block' )
    dup node-input-infos dup first value-tag [
        nip dup second literal>> immediate-slot-offset?
        [ (emit-slot-imm) ] [ (emit-slot) ] if ds-push
    ] [ drop emit-primitive ] if ;