emit-overflow-case ( word block -- final-bb )


Vocabulary
compiler.cfg.intrinsics.fixnum

Inputs
wordan object
blockan object


Outputs
final-bban object


Definition
USING: compiler.cfg.builder.blocks kernel ;

IN: compiler.cfg.intrinsics.fixnum

: emit-overflow-case ( word block -- final-bb )
[ -1 swap [ emit-call-block ] keep ] with-branch ;