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

compiler.cfg.linear-scan.allocation: removes no-free-registers?

locals-and-roots
Björn Lindqvist 2016-04-22 12:04:22 +02:00
parent c8d648f3f2
commit 951c0586f0
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
basis/compiler/cfg/linear-scan/allocation/allocation.factor
View File

@ -25,12 +25,9 @@ IN: compiler.cfg.linear-scan.allocation
[ inactive-positions ] [ active-positions ] 2bi [ inactive-positions ] [ active-positions ] 2bi
] keep alist-max ; ] keep alist-max ;
: no-free-registers? ( result -- ? )
second 0 = ; inline
: assign-register ( new registers -- ) : assign-register ( new registers -- )
dupd register-status { dupd register-status {
{ [ dup no-free-registers? ] [ drop assign-blocked-register ] } { [ dup second 0 = ] [ drop assign-blocked-register ] }
{ [ 2dup register-available? ] [ register-available ] } { [ 2dup register-available? ] [ register-available ] }
[ drop assign-blocked-register ] [ drop assign-blocked-register ]
} cond ; } cond ;