%compare-vector-ccs ( rep cc -- {cc,swap?}s not? )

Vocabulary

cpu.architecture

Inputs

rep	an object
cc	an object

Outputs

{cc,swap?}s	an object
not?	an object

Definition

USING: system ;

IN: cpu.architecture

HOOK: %compare-vector-ccs cpu ( rep cc -- {cc,swap?}s not? )

Methods

USING: cpu.architecture kernel system ;

M: arm.64 %compare-vector-ccs nip f ;


USING: cpu.architecture kernel ;

M: object %compare-vector-ccs 2drop { } f ;


USING: cpu.architecture cpu.x86.sse kernel system ;

M: x86 %compare-vector-ccs
    swap float-vector-rep?
    [ %compare-float-vector-ccs ] [ %compare-int-vector-ccs ] if
    ;