Merge branch 'master' of git://factorcode.org/git/factor
commit
eabaf9fc40
|
@ -1 +1,2 @@
|
||||||
Joe Groff
|
Maxim Savchenko
|
||||||
|
Slava Pestov
|
||||||
|
|
|
@ -1,3 +1,5 @@
|
||||||
|
! Copyright (C) 2009 Maxim Savchenko, Slava Pestov.
|
||||||
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
IN: byte-arrays.hex
|
IN: byte-arrays.hex
|
||||||
USING: byte-arrays help.markup help.syntax ;
|
USING: byte-arrays help.markup help.syntax ;
|
||||||
|
|
||||||
|
|
|
@ -1,4 +1,4 @@
|
||||||
! Copyright (C) 2009 Joe Groff.
|
! Copyright (C) 2009 Maxim Savchenko, Slava Pestov.
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: grouping lexer ascii parser sequences kernel math.parser ;
|
USING: grouping lexer ascii parser sequences kernel math.parser ;
|
||||||
IN: byte-arrays.hex
|
IN: byte-arrays.hex
|
||||||
|
|
|
@ -42,7 +42,7 @@ SYMBOL: check-optimizer?
|
||||||
copy-propagation
|
copy-propagation
|
||||||
eliminate-dead-code
|
eliminate-dead-code
|
||||||
eliminate-write-barriers
|
eliminate-write-barriers
|
||||||
coalesce
|
destruct-ssa
|
||||||
delete-empty-blocks
|
delete-empty-blocks
|
||||||
?check
|
?check
|
||||||
] with-scope ;
|
] with-scope ;
|
||||||
|
|
|
@ -47,7 +47,7 @@ SYMBOL: seen
|
||||||
: remove-phis ( cfg -- )
|
: remove-phis ( cfg -- )
|
||||||
[ [ remove-phis-from-block ] if-has-phis ] each-basic-block ;
|
[ [ remove-phis-from-block ] if-has-phis ] each-basic-block ;
|
||||||
|
|
||||||
: coalesce ( cfg -- cfg' )
|
: destruct-ssa ( cfg -- cfg' )
|
||||||
dup cfg-has-phis? [
|
dup cfg-has-phis? [
|
||||||
init-coalescing
|
init-coalescing
|
||||||
compute-ssa-live-sets
|
compute-ssa-live-sets
|
||||||
|
|
|
@ -1191,7 +1191,7 @@ test-diamond
|
||||||
cfg new 0 get >>entry
|
cfg new 0 get >>entry
|
||||||
value-numbering
|
value-numbering
|
||||||
compute-predecessors
|
compute-predecessors
|
||||||
coalesce drop
|
destruct-ssa drop
|
||||||
] unit-test
|
] unit-test
|
||||||
|
|
||||||
[ 1 ] [ 1 get successors>> length ] unit-test
|
[ 1 ] [ 1 get successors>> length ] unit-test
|
||||||
|
|
Loading…
Reference in New Issue