Changeset 11564


Ignore:
Timestamp:
01/18/09 18:34:53 (12 years ago)
Author:
ehuelsmann
Message:

Fix compiler issue found by compiling AP5: Instead of calculating the true upper bound
(which may become a number as big as 2most-positive-fixnum), return '* as the upper bound
instead. The number won't fit into a fixnum anyway.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

    r11554 r11564  
    61406140        (setf result-type (list 'INTEGER
    61416141              (ash low1 low2)
    6142               (ash high1 high2))))
     6142                                      (if (<= 64 high2)
     6143                                          '* (ash high1 high2)))))
    61436144       ((and (>= low1 0) (>= high1 0) (<= low2 0) (<= high2 0))
    61446145        ;; Negative (or zero) second argument.
Note: See TracChangeset for help on using the changeset viewer.