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

compiler.cfg.linear-scan.live-intervals: remove bogus assertion

db4
Slava Pestov 2009-07-16 02:42:01 -05:00
parent 9f926ab88c
commit 884e41dd9c
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
basis/compiler/cfg/linear-scan/live-intervals/live-intervals.factor
View File

@ -122,10 +122,10 @@ M: ##copy-float compute-live-intervals*
dup ranges>> [ first from>> ] [ last to>> ] bi dup ranges>> [ first from>> ] [ last to>> ] bi
[ >>start ] [ >>end ] bi* drop ; [ >>start ] [ >>end ] bi* drop ;
: check-start/end ( live-interval -- ) ERROR: bad-live-interval live-interval ;
[ [ start>> ] [ uses>> first ] bi assert= ]
[ [ end>> ] [ uses>> last ] bi assert= ] : check-start ( live-interval -- )
bi ; dup start>> -1 = [ bad-live-interval ] [ drop ] if ;
: finish-live-intervals ( live-intervals -- ) : finish-live-intervals ( live-intervals -- )
! Since live intervals are computed in a backward order, we have ! Since live intervals are computed in a backward order, we have
@ -135,7 +135,7 @@ M: ##copy-float compute-live-intervals*
[ ranges>> reverse-here ] [ ranges>> reverse-here ]
[ uses>> reverse-here ] [ uses>> reverse-here ]
[ compute-start/end ] [ compute-start/end ]
[ check-start/end ] [ check-start ]
} cleave } cleave
] each ; ] each ;