Changeset 11601


Ignore:
Timestamp:
Jan 8, 2009, 4:36:11 PM (11 years ago)
Author:
rme
Message:

Trivial fix for overflow handling bug in X862-%I+

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/X86/x862.lisp

    r11559 r11601  
    75037503         (x862-form seg nil nil form1)
    75047504         (x862-form seg nil xfer form2))
    7505        
    75067505        (t                             
    75077506         (let* ((fix1 (acode-fixnum-form-p form1))
     
    75157514                                         '(signed-byte 32)))
    75167515                           form1))))
    7517            (if (and fix1 fix2)
     7516           (if (and fix1 fix2 (not overflow))
    75187517             (x862-lri seg vreg (ash (+ fix1 fix2) *x862-target-fixnum-shift*))
    75197518             (if other
Note: See TracChangeset for help on using the changeset viewer.