%fixnum-mul ( label dst src1 src2 cc -- )

Vocabulary

cpu.architecture

Inputs

label	an object
dst	an object
src1	an object
src2	an object
cc	an object

Outputs

None

Definition

USING: system ;

IN: cpu.architecture

HOOK: %fixnum-mul cpu ( label dst src1 src2 cc -- )

Methods

USING: combinators compiler.cfg.comparisons cpu.architecture
cpu.arm.64.assembler system ;

M:: arm.64 %fixnum-mul ( label dst src1 src2 cc -- )
    temp src1 src2 SMULH dst src1 src2 MUL temp dst 63 <ASR> CMP
    label cc { { cc-o [ BNE ] } { cc/o [ BEQ ] } } case ;


USING: cpu.architecture cpu.x86 cpu.x86.assembler system ;

M: x86 %fixnum-mul [ IMUL2 ] fixnum-overflow ;