Changeset 11601

Timestamp:

Jan 8, 2009, 4:36:11 PM (11 years ago)

Author:

rme

Message:

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

File:

• trunk/source/compiler/X86/x862.lisp (modified) (2 diffs)

trunk/source/compiler/X86/x862.lisp

@@ -7503 +7503 @@
          (x862-form seg nil nil form1) 
          (x862-form seg nil xfer form2))
-        
         (t                              
          (let* ((fix1 (acode-fixnum-form-p form1))
@@ -7515 +7514 @@
                                          '(signed-byte 32)))
                            form1))))
-           (if (and fix1 fix2)
+           (if (and fix1 fix2 (not overflow))
              (x862-lri seg vreg (ash (+ fix1 fix2) *x862-target-fixnum-shift*))
              (if other