hat-effect ( insn -- effect )

Vocabulary

compiler.cfg.hats.private

Inputs

insn

an object

Outputs

effect

an object

Definition

USING: accessors compiler.cfg.instructions.syntax effects
sequences words ;

IN: compiler.cfg.hats.private

: hat-effect ( insn -- effect )
    "insn-slots" word-prop
    [ type>> { def temp } member-eq? ] reject [ name>> ] map
    { "vreg" } <effect> ;