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

compiler.cfg.dataflow-analysis: generic for configuring the "block skipping" 

To accurately record uninitialized/overinitialized stack locations,
kill blocks needs to be analyzed. Now you can make it so by overriding
ignore-block?.
db4
Björn Lindqvist 2014-08-13 10:55:44 +02:00 committed by Doug Coleman
parent a80540fdee
commit d1032c159a
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/compiler/cfg/dataflow-analysis/dataflow-analysis.factor
View File

@ -10,6 +10,7 @@ GENERIC: transfer-set ( in-set bb dfa -- out-set )
GENERIC: block-order ( cfg dfa -- bbs ) GENERIC: block-order ( cfg dfa -- bbs )
GENERIC: successors ( bb dfa -- seq ) GENERIC: successors ( bb dfa -- seq )
GENERIC: predecessors ( bb dfa -- seq ) GENERIC: predecessors ( bb dfa -- seq )
GENERIC: ignore-block? ( bb dfa -- ? )
<PRIVATE <PRIVATE
@ -20,7 +21,7 @@ MIXIN: dataflow-analysis
:: compute-in-set ( bb out-sets dfa -- set ) :: compute-in-set ( bb out-sets dfa -- set )
! Only consider initialized sets. ! Only consider initialized sets.
bb kill-block?>> [ f ] [ bb dfa ignore-block? [ f ] [
bb dfa predecessors bb dfa predecessors
[ out-sets key? ] filter [ out-sets key? ] filter
[ out-sets at ] map [ out-sets at ] map
@ -32,7 +33,7 @@ MIXIN: dataflow-analysis
bb in-sets maybe-set-at ; inline bb in-sets maybe-set-at ; inline
:: compute-out-set ( bb in-sets dfa -- set ) :: compute-out-set ( bb in-sets dfa -- set )
bb kill-block?>> [ f ] [ bb in-sets at bb dfa transfer-set ] if ; bb dfa ignore-block? [ f ] [ bb in-sets at bb dfa transfer-set ] if ;
:: update-out-set ( bb in-sets out-sets dfa -- ? ) :: update-out-set ( bb in-sets out-sets dfa -- ? )
bb in-sets dfa compute-out-set bb in-sets dfa compute-out-set
@ -55,6 +56,7 @@ MIXIN: dataflow-analysis
out-sets ; inline out-sets ; inline
M: dataflow-analysis join-sets 2drop assoc-refine ; M: dataflow-analysis join-sets 2drop assoc-refine ;
M: dataflow-analysis ignore-block? drop kill-block?>> ;
FUNCTOR: define-analysis ( name -- ) FUNCTOR: define-analysis ( name -- )