general-register

Vocabulary

cpu.arm.64.assembler.private

Definition

USING: cpu.arm.64.assembler ;

IN: cpu.arm.64.assembler.private

TUPLE: general-register < register ;

Methods

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

M: general-register encode-type drop 0 ;


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

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


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

M: general-register encode-width*
    width>>
    { { 32 [ 0 0 ] } { 64 [ 2 0 ] } [ 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: accessors cpu.arm.64.assembler.private kernel make
math.parser prettyprint.custom prettyprint.sections ;

M: general-register pprint*
    [ [ general-prefix % ] [ n>> # ] bi ] "" make text ;