encode-width** ( reg -- size VR opc1 shift )

Vocabulary

cpu.arm.64.assembler.private

Inputs

reg

an object

Outputs

size	an object
VR	an object
opc1	an object
shift	an object

Definition

IN: cpu.arm.64.assembler.private

GENERIC: encode-width** ( reg -- size VR opc1 shift )

Methods

USING: accessors combinators cpu.arm.64.assembler
cpu.arm.64.assembler.private ;

M: fp-register encode-width**
    width>> {
        { 8 [ 0 1 0 0 ] }
        { 16 [ 1 1 0 1 ] }
        { 32 [ 2 1 0 2 ] }
        { 64 [ 3 1 0 3 ] }
        { 128 [ 0 1 1 4 ] }
        [ register-width-error ]
    } case ;


USING: accessors combinators cpu.arm.64.assembler.private ;

M: general-register encode-width**
    width>> {
        { 32 [ 2 0 0 2 ] }
        { 64 [ 3 0 0 3 ] }
        [ register-width-error ]
    } case ;


USING: cpu.arm.64.assembler.private kernel ;

M: vector-register encode-width** drop 3 1 0 3 ;