Better error message

2008-10-22 21:58:37 -05:00 · 2008-10-22 21:58:37 -05:00 · ba0ed21e1d
parent 9a07760542
commit ba0ed21e1d
1 changed files with 1 additions and 0 deletions
--- a/basis/compiler/cfg/linear-scan/live-intervals/live-intervals.factor
+++ b/basis/compiler/cfg/linear-scan/live-intervals/live-intervals.factor
@ -11,6 +11,7 @@ reg spill-to reload-from split-before split-after
 start end uses ;

 : add-use ( n live-interval -- )
+    dup live-interval? [ "No def" throw ] unless
    [ (>>end) ] [ uses>> push ] 2bi ;

 : <live-interval> ( start vreg -- live-interval )