number-blocks ( blocks -- )

Vocabulary

compiler.cfg.rpo

Inputs

blocks

a sequence

Outputs

None

Word description

Initializes the number slot of each basic-block.

Examples

USING: accessors compiler.cfg compiler.cfg.rpo kernel prettyprint sequences ; 10 [ <basic-block> ] replicate dup number-blocks [ number>> ] map .
{ 9 8 7 6 5 4 3 2 1 0 }

Definition

USING: accessors kernel sequences ;

IN: compiler.cfg.rpo

: number-blocks ( blocks -- )
    dup length <iota> <reversed> [ >>number drop ] 2each ;