emit-fixnum-right-shift ( -- )

Vocabulary

compiler.cfg.intrinsics.fixnum

Inputs

None

Outputs

None

Definition

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

IN: compiler.cfg.intrinsics.fixnum

: emit-fixnum-right-shift ( -- )
    [
        [ tag-bits get ^^shl-imm ] dip ^^neg ^^sar
        tag-bits get ^^sar-imm
    ] binary-op ;