emit-fixnum-overflow-op ( block quot word -- block' )
Generating instructions for fixnum arithmetic

Vocabulary
compiler.cfg.intrinsics.fixnum

Inputs

block	a basic-block
quot	a quotation
word	a word

Outputs

block'

a basic-block

Word description
Inputs to the final instruction need to be copied because of loc>vreg sync.

Definition

USING: arrays combinators compiler.cfg.builder.blocks
compiler.cfg.comparisons compiler.cfg.hats compiler.cfg.stacks
cpu.architecture kernel ;

IN: compiler.cfg.intrinsics.fixnum

:: emit-fixnum-overflow-op ( block quot word -- block' )
    (2inputs) [ any-rep ^^copy ] bi@
    cc/o quot ( vreg1 vreg2 cc -- vreg ) call-effect
    block emit-no-overflow-case word block emit-overflow-case
    2array block swap emit-conditional ; inline