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

View File

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

View File

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