emit-shift ( dst src quot -- )

Vocabulary

cpu.x86

Inputs

dst	an object
src	an object
quot	an object

Outputs

None

Definition

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

IN: cpu.x86

:: emit-shift ( dst src quot -- )
    src shift-count?
    [ dst CL quot call ] [
        dst shift-count?
        [ dst src XCHG src CL quot call dst src XCHG ] [
            ECX native-version-of
            [ CL src MOV drop dst CL quot call ]
            with-save/restore
        ] if
    ] if ; inline