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

compiler.cfg.gvn.alien: use next-vreg on final iteration, which seems to fix a bug

db4
Alex Vondrak 2011-07-05 21:00:52 -07:00 committed by John Benediktsson
parent 2f1fdaad6c
commit 0bcff5d642
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/compiler/cfg/gvn/alien/alien.factor
View File

@ -1,7 +1,7 @@
! Copyright (C) 2010 Slava Pestov. ! Copyright (C) 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors combinators combinators.short-circuit fry USING: accessors combinators combinators.short-circuit fry
kernel make math sequences kernel make math namespaces sequences
cpu.architecture cpu.architecture
compiler.cfg.hats compiler.cfg.hats
compiler.cfg.utilities compiler.cfg.utilities
@ -46,7 +46,11 @@ M: ##box-displaced-alien rewrite
} }
{ {
! [ dup [ ##box-displaced-alien? ] with-available-uses? ] ! [ dup [ ##box-displaced-alien? ] with-available-uses? ]
[ f ] [
final-iteration? get [
dup [ ##box-displaced-alien? ] with-available-uses?
] [ f ] if
]
[ rewrite-unbox-displaced-alien ] [ rewrite-unbox-displaced-alien ]
} }
[ 2drop f ] [ 2drop f ]