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

Fix another code gen regression

release
Slava Pestov 2007-10-01 04:42:31 -04:00
parent 0035d42762
commit 8048a4235a
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
core/generator/registers/registers.factor
View File

@ -78,6 +78,8 @@ TUPLE: ds-loc n class ;
M: ds-loc minimal-ds-loc* ds-loc-n min ;
M: ds-loc operand-class* ds-loc-class ;
M: ds-loc set-operand-class set-ds-loc-class ;
M: ds-loc live-loc?
over ds-loc? [ [ ds-loc-n ] 2apply = not ] [ 2drop t ] if ;
! A retain stack location.
TUPLE: rs-loc n class ;
@ -86,11 +88,12 @@ TUPLE: rs-loc n class ;
M: rs-loc operand-class* rs-loc-class ;
M: rs-loc set-operand-class set-rs-loc-class ;
M: rs-loc live-loc?
over rs-loc? [ [ rs-loc-n ] 2apply = not ] [ 2drop t ] if ;
UNION: loc ds-loc rs-loc ;
M: loc move-spec drop loc ;
M: loc live-loc? = not ;
INSTANCE: loc value