(%compare-imm) ( src1 src2 -- )

Vocabulary

cpu.x86

Inputs

src1	an object
src2	an object

Outputs

None

Definition

USING: combinators cpu.x86.assembler kernel layouts math ;

IN: cpu.x86

: (%compare-imm) ( src1 src2 -- )
    {
        { [ dup fixnum? ] [ tag-fixnum CMP ] }
        { [ dup not ] [ drop \ f type-number CMP ] }
        [ (%compare-tagged) ]
    } cond ;