compiler.cfg.linear-scan.live-intervals: remove bogus assertion
parent
9f926ab88c
commit
884e41dd9c
|
@ -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 ;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue