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

compiler.cfg.linear-scan.resolve: use if-empty.

db4
John Benediktsson 2014-12-11 14:00:50 -08:00
parent 068ddd6c7b
commit c3a4bdcf68
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/compiler/cfg/linear-scan/resolve/resolve.factor
View File

@ -93,10 +93,10 @@ SYMBOL: temp-locations
] { } make ; ] { } make ;
: perform-mappings ( bb to mappings -- ) : perform-mappings ( bb to mappings -- )
dup empty? [ 3drop ] [ [ 2drop ] [
mapping-instructions insert-basic-block mapping-instructions insert-basic-block
cfg get cfg-changed cfg get cfg-changed
] if ; ] if-empty ;
: resolve-edge-data-flow ( bb to -- ) : resolve-edge-data-flow ( bb to -- )
2dup compute-mappings perform-mappings ; 2dup compute-mappings perform-mappings ;