node>set-slot-data ( #call -- write-barrier? tag literal )

Vocabulary

compiler.cfg.intrinsics.slots

Inputs

#call

a #call

Outputs

write-barrier?	whether a write barrier is needed, it always is unless the item to set is an immediate
tag	a number or f
literal	a literal

Word description

Grabs the data needed from a call node to determine what intrinsic CFG instructions to emit for the set-slot call.

Definition

USING: accessors classes.algebra compiler.tree.propagation.info
kernel layouts sequences ;

IN: compiler.cfg.intrinsics.slots

: node>set-slot-data ( #call -- write-barrier? tag literal )
    node-input-infos first3
    [ class>> immediate class<= not ] [ value-tag ]
    [ literal>> ] tri* ;