indirect

Vocabulary

cpu.x86.assembler.operands.private

Class description

Tuple that represents an indirect addressing operand. It has the following slots:

index	Register for the index value. It must not be ESP or RSP.
displacement	An integer offset.

Definition

IN: cpu.x86.assembler.operands.private

TUPLE: indirect base index scale displacement ;

Methods

USING: accessors cpu.x86.assembler.operands.private
cpu.x86.assembler.private kernel make ;

M: indirect displacement,
    dup displacement>> dup [
        swap base>>
        [ dup fits-in-byte? [ , ] [ 4, ] if ] [ 4, ] if
    ] [ 2drop ] if ;


USING: accessors cpu.x86.assembler.operands.private ;

M: indirect extended? base>> extended? ;


USING: accessors combinators cpu.x86.assembler.operands.private
cpu.x86.assembler.private kernel ;

M: indirect modifier
    dup base>> [
        displacement>> {
            { [ dup not ] [ 0 ] }
            { [ dup fits-in-byte? ] [ 1 ] }
            { [ dup immediate? ] [ 2 ] }
        } cond nip
    ] [ drop 0 ] if ;


USING: accessors cpu.x86.assembler.operands.private kernel ;

M: indirect operand-64?
    [ base>> ] [ index>> ] bi [ operand-64? ] either? ;


USING: cpu.x86.assembler.operands
cpu.x86.assembler.operands.private cpu.x86.assembler.private
kernel ;

M: indirect r/m
    dup sib-present? [ drop ESP reg-code ] [ indirect-base* ] if
    ;


USING: accessors combinators.short-circuit
cpu.x86.assembler.operands cpu.x86.assembler.operands.private
cpu.x86.assembler.private sequences ;

M: indirect sib-present?
    {
        [ base>> { ESP RSP R12 } member? ]
        [ index>> ]
        [ scale>> ]
    } 1|| ;