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

compiler.cfg.linear-scan: fix typo

db4
Slava Pestov 2010-05-17 05:18:40 -04:00
parent 93abc7d169
commit 0955f2c7eb
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/linear-scan.factor
View File

@ -40,9 +40,9 @@ IN: compiler.cfg.linear-scan
: admissible-registers ( cfg -- regs ) : admissible-registers ( cfg -- regs )
[ machine-registers ] dip [ machine-registers ] dip
frame-pointer?>> [ frame-pointer?>> [
[ int-regs ] dip clone [ int-regs ] dip [ clone ] map
[ [ [ frame-reg ] dip remove ] change-at ] keep [ [ [ frame-reg ] dip remove ] change-at ] keep
] unless ; ] when ;
: linear-scan ( cfg -- cfg' ) : linear-scan ( cfg -- cfg' )
dup dup admissible-registers (linear-scan) ; dup dup admissible-registers (linear-scan) ;