remove-overflow-check? ( #call -- ? )

Vocabulary

compiler.tree.cleanup

Inputs

#call

an object

Outputs

?

an object

Definition

USING: accessors combinators kernel math.partial-dispatch
math.private ;

IN: compiler.tree.cleanup

: remove-overflow-check? ( #call -- ? )
    {
        {
            [ dup word>> \ fixnum-shift eq? ]
            [
                [ (remove-overflow-check?) ] [ small-shift? ] bi
                and
            ]
        }
        {
            [ dup word>> no-overflow-variant ]
            [ (remove-overflow-check?) ]
        }
        [ drop f ]
    } cond ;