emit-set-special-object ( 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.instructions compiler.cfg.stacks compiler.constants
compiler.tree.propagation.info kernel sequences ;

IN: compiler.cfg.intrinsics.misc

: emit-set-special-object ( block node -- block' )
    [ node-input-infos second literal>> ] [
        ds-drop [ ds-pop ] dip
        vm-special-object-offset ##set-vm-field,
    ] [ emit-primitive ] ?if ;