make-input-map ( #shuffle -- assoc )

Vocabulary

compiler.cfg.builder

Inputs

#shuffle

a #shuffle

Outputs

assoc

an assoc

Word description

Creates an assoc that maps input values to the shuffle operation to stack locations.

Examples

USING: compiler.cfg.builder prettyprint ; T{ #shuffle { in-d { 37 81 92 } } } make-input-map .
{ { 37 D: 2 } { 81 D: 1 } { 92 D: 0 } }

Definition

USING: accessors assocs compiler.cfg.registers
compiler.cfg.stacks kernel sequences ;

IN: compiler.cfg.builder

: make-input-map ( #shuffle -- assoc )
    [ in-d>> ds-loc ] [ in-r>> rs-loc ] bi
    [ over length stack-locs zip ] 2bi@ append ;