factor/basis/compiler/cfg/rpo/rpo.factor

31 lines
837 B
Factor
Raw Normal View History

! Copyright (C) 2008, 2009 Slava Pestov.
2008-09-11 03:05:22 -04:00
! See http://factorcode.org/license.txt for BSD license.
2008-10-22 19:39:41 -04:00
USING: kernel accessors namespaces make math sequences sets
assocs fry compiler.cfg compiler.cfg.instructions ;
2008-09-11 03:05:22 -04:00
IN: compiler.cfg.rpo
2008-10-22 19:39:41 -04:00
SYMBOL: visited
: post-order-traversal ( bb -- )
dup visited get key? [ drop ] [
dup visited get conjoin
[
successors>> <reversed>
[ post-order-traversal ] each
] [ , ] bi
2008-09-11 03:05:22 -04:00
] if ;
: post-order ( cfg -- blocks )
[ entry>> post-order-traversal ] { } make ;
2008-09-11 03:05:22 -04:00
: number-blocks ( blocks -- )
[ >>number drop ] each-index ;
: reverse-post-order ( cfg -- blocks )
2008-10-22 19:39:41 -04:00
H{ } clone visited [
post-order <reversed> dup number-blocks
] with-variable ; inline
: each-basic-block ( cfg quot -- )
[ reverse-post-order ] dip each ; inline