emit-context-object ( block node -- block' )

Vocabulary

compiler.cfg.intrinsics.misc

Inputs

block	current basic-block
node	a node

Outputs

block'

a basic-block

Word description

Emits intrinsic code for a call to the context-object primitive.

Definition

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

IN: compiler.cfg.intrinsics.misc

: emit-context-object ( block node -- block' )
    [ node-input-infos first literal>> ] [
        "ctx" vm offset-of
        ^^vm-field ds-drop swap context-object-offset cell /i
        0 ^^slot-imm ds-push
    ] [ emit-primitive ] ?if ;