valid-slot-offset? ( slot# in -- ? )

Vocabulary

compiler.tree.escape-analysis.simple

Inputs

slot#	an object
in	an object

Outputs

?

an object

Definition

USING: arrays compiler.tree.escape-analysis.allocations kernel
sequences ;

IN: compiler.tree.escape-analysis.simple

: valid-slot-offset? ( slot# in -- ? )
    over [
        allocation dup
        [ dup array? [ bounds-check? ] [ 2drop f ] if ]
        [ 2drop t ] if
    ] [ 2drop f ] if ;