steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Cleaning up compiler.cfg.ssa.construction

db4
Daniel Ehrenberg 2010-03-17 20:12:10 -04:00
parent 39df2c373f
commit 248730d39f
2 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/compiler/cfg/ssa/construction/construction.factor
View File

@ -57,7 +57,7 @@ SYMBOL: inserting-phi-nodes
] [ 2drop ] if ; ] [ 2drop ] if ;
: compute-phi-nodes-for ( vreg bbs -- ) : compute-phi-nodes-for ( vreg bbs -- )
keys [ insert-phi-node-later ] with merge-set-each ; keys merge-set [ insert-phi-node-later ] with each ;
: compute-phi-nodes ( -- ) : compute-phi-nodes ( -- )
H{ } clone inserting-phi-nodes set H{ } clone inserting-phi-nodes set

4
basis/compiler/cfg/ssa/construction/tdmsc/tdmsc.factor
View File

@ -88,7 +88,6 @@ PRIVATE>
: compute-merge-sets ( cfg -- ) : compute-merge-sets ( cfg -- )
needs-dominance needs-dominance
HS{ } clone visited set
[ compute-levels ] [ compute-levels ]
[ init-merge-sets ] [ init-merge-sets ]
[ compute-merge-set-loop ] [ compute-merge-set-loop ]
@ -96,6 +95,3 @@ PRIVATE>
: merge-set ( bbs -- bbs' ) : merge-set ( bbs -- bbs' )
(merge-set) [ members ] dip nths ; (merge-set) [ members ] dip nths ;
: merge-set-each ( bbs quot: ( bb -- ) -- )
[ merge-set ] dip each ; inline