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


Vocabulary
tools.image-analyzer.graphviz

Inputs
imagean object
heap-nodean object


Outputs
addressan 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* ? - ;