small-shift? ( #call -- ? )

Vocabulary

compiler.tree.cleanup

Inputs

#call

an object

Outputs

?

an object

Definition

USING: accessors compiler.tree.propagation.info kernel layouts
math math.intervals namespaces sequences ;

IN: compiler.tree.cleanup

: small-shift? ( #call -- ? )
    node-input-infos second interval>> cell-bits tag-bits get -
    [ neg ] keep [a,b] interval-subset? ;