compiler: fix stack effects to indicate visited is same object.
parent
bf35114fec
commit
b97a1a0753
|
@ -5,7 +5,7 @@ assocs fry compiler.cfg compiler.cfg.instructions ;
|
|||
FROM: namespaces => set ;
|
||||
IN: compiler.cfg.rpo
|
||||
|
||||
: post-order-traversal ( visited bb -- visited' )
|
||||
: post-order-traversal ( visited bb -- visited )
|
||||
dup pick in? [ drop ] [
|
||||
dup pick adjoin
|
||||
[
|
||||
|
|
|
@ -18,7 +18,7 @@ IN: compiler.cfg.utilities
|
|||
[ first ##branch? ]
|
||||
} 1&& ;
|
||||
|
||||
: (skip-empty-blocks) ( visited bb -- visited' bb' )
|
||||
: (skip-empty-blocks) ( visited bb -- visited bb' )
|
||||
dup pick in? [
|
||||
dup empty-block? [
|
||||
dup pick adjoin
|
||||
|
|
Loading…
Reference in New Issue