emit-both-fixnums? ( -- )

Vocabulary

compiler.cfg.intrinsics.fixnum

Inputs

None

Outputs

None

Definition

USING: compiler.cfg.comparisons compiler.cfg.hats
compiler.cfg.stacks kernel layouts namespaces ;

IN: compiler.cfg.intrinsics.fixnum

: emit-both-fixnums? ( -- )
    [
        [ ^^tagged>integer ] bi@ ^^or tag-mask get ^^and-imm
        0 cc= ^^compare-integer-imm
    ] binary-op ;