compiler.cfg.linear-scan: Fix a couple of bugs

db4
Slava Pestov 2009-06-19 03:42:42 -05:00
parent ca298656e3
commit 2f15ac3c8f
2 changed files with 2 additions and 2 deletions

View File

@ -41,7 +41,7 @@ IN: compiler.cfg.linear-scan.allocation
2tri 3array assoc-combine
>alist sort-values ;
: no-free-registers? ( new result -- ? )
: no-free-registers? ( result -- ? )
second 0 = ; inline
: register-available? ( new result -- ? )

View File

@ -39,7 +39,7 @@ IN: compiler.cfg.linear-scan.allocation.spilling
#! with the most distant use location. Spill the existing
#! interval, then process the new interval and the tail end
#! of the existing interval again.
[ reg>> >>reg drop ]
[ reg>> >>reg add-active ]
[ [ add-handled ] [ delete-active ] bi* ]
[ split-and-spill [ add-handled ] [ add-unhandled ] bi* ] 2tri ;