^^test-vector ( src1 rep vcc -- vreg )

Vocabulary

compiler.cfg.hats

Inputs

src1	an object
rep	an object
vcc	an object

Outputs

vreg

an object

Definition

USING: compiler.cfg.instructions compiler.cfg.registers kernel ;

IN: compiler.cfg.hats

: ^^test-vector ( src1 rep vcc -- vreg )
    [ [ next-vreg [ [ next-vreg dup [ ] dip ] dip ] dip ] dip ]
    dip ##test-vector, ; inline