11 lines
362 B
Factor
11 lines
362 B
Factor
|
! Copyright (C) 2008 Slava Pestov.
|
||
|
|
! See http://factorcode.org/license.txt for BSD license.
|
||
|
|
USING: kernel accessors sequences compiler.cfg.rpo ;
|
||
|
|
IN: compiler.cfg.predecessors
|
||
|
|
|
||
|
|
: (compute-predecessors) ( bb -- )
|
||
|
|
dup successors>> [ predecessors>> push ] with each ;
|
||
|
|
|
||
|
|
: compute-predecessors ( cfg -- cfg' )
|
||
|
|
dup [ (compute-predecessors) ] each-basic-block ;
|