compute-absolute-label ( label-fixup -- )

Vocabulary

compiler.codegen.labels

Inputs

label-fixup

an object

Outputs

None

Definition

USING: accessors compiler.codegen.relocation compiler.constants
kernel math ;

IN: compiler.codegen.labels

: compute-absolute-label ( label-fixup -- )
    [ compute-target neg add-literal ]
    [ [ class>> rt-here ] [ offset>> ] bi add-relocation-at ] bi
    ;