compute-labels ( label-fixups -- labels' )

Vocabulary

compiler.codegen.labels

Inputs

label-fixups

an object

Outputs

labels'

an object

Definition

USING: accessors compiler.constants kernel sequences ;

IN: compiler.codegen.labels

: compute-labels ( label-fixups -- labels' )
    [ class>> rc-absolute? ] partition
    [ [ compute-absolute-label ] each ]
    [ [ compute-relative-label ] map concat ] bi* ;