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

compiler.cfg.gvn.misc: simplify ##phi rewrite

db4
Alex Vondrak 2011-06-18 15:26:21 -07:00 committed by John Benediktsson
parent 4b28eeaf21
commit ad0a2e78b3
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
extra/compiler/cfg/gvn/expressions/expressions.factor
View File

@ -84,5 +84,8 @@ M: ##load-integer >expr val>> <integer-expr> ;
M: ##load-reference >expr obj>> <reference-expr> ; M: ##load-reference >expr obj>> <reference-expr> ;
! TODO experiment with sorting, in case that identifies more
! phi equivalences
M: ##phi >expr M: ##phi >expr
inputs>> values [ vreg>vn ] map \ ##phi prefix ; inputs>> values [ vreg>vn ] map \ ##phi prefix ;

6
extra/compiler/cfg/gvn/misc/misc.factor
View File

@ -16,10 +16,8 @@ M: ##replace rewrite
] [ 2drop f ] if ; ] [ 2drop f ] if ;
M: ##phi rewrite M: ##phi rewrite
[ dst>> ] [ inputs>> values [ vreg>vn ] map ] bi [ dst>> ] [ inputs>> values [ vreg>vn ] map sift ] bi
dup sift
dup all-equal? [ dup all-equal? [
nip
[ drop f ] [ drop f ]
[ first <copy> ] if-empty [ first <copy> ] if-empty
] [ 3drop f ] if ; ] [ 2drop f ] if ;