slot-indexing ( slot tag -- slot scale tag )


Vocabulary
compiler.cfg.intrinsics.slots

Inputs
slotan object
tagan object


Outputs
slotan object
scalean object
tagan object


Definition
USING: compiler.cfg.hats cpu.architecture kernel layouts math ;

IN: compiler.cfg.intrinsics.slots

: slot-indexing ( slot tag -- slot scale tag )
complex-addressing?
[ [ cell log2 ] dip ]
[ [ ^^offset>slot ] dip ^^sub-imm 0 0 ] if ;