relativise-address ( image heap-node -- address )

Vocabulary

tools.image.analyzer.graphviz

Inputs

image	an object
heap-node	an object

Outputs

address

an object

Definition

USING: accessors kernel math tools.image.analyzer.vm ;

IN: tools.image.analyzer.graphviz

: relativise-address ( image heap-node -- address )
    swap
    [ [ address>> ] [ code-heap-node? ] bi ] [
        header>>
        [ code-relocation-base>> ] [ data-relocation-base>> ] bi
    ] bi* ? - ;