%mneg ( dst src1 src2 -- )

Vocabulary

cpu.architecture

Inputs

dst	an object
src1	an object
src2	an object

Outputs

None

Definition

USING: system ;

IN: cpu.architecture

HOOK: %mneg cpu ( dst src1 src2 -- )

Methods

USING: cpu.architecture kernel ;

M:: object %mneg ( dst src1 src2 -- )
    dst src2 eq?
    [ dst src2 src1 %mul ] [ dst src1 src2 %mul ] if
    dst dst %neg ;