reference-expr

Vocabulary

compiler.cfg.gvn.expressions

Definition

IN: compiler.cfg.gvn.expressions

TUPLE: reference-expr value ;

Methods

USING: accessors compiler.cfg.gvn.expressions kernel math ;

M: reference-expr equal?
    over reference-expr? [
        [ value>> ] bi@ 2dup [ float? ] both?
        [ fp-bitwise= ] [ eq? ] if
    ] [ 2drop f ] if ;


USING: accessors compiler.cfg.gvn.expressions
compiler.cfg.gvn.testing prettyprint ;

M: reference-expr expr>str value>> unparse ;


USING: accessors compiler.cfg.gvn.expressions kernel math ;

M: reference-expr hashcode*
    nip value>> dup float?
    [ double>bits ] [ identity-hashcode ] if ;