Changeset 11643


Ignore:
Timestamp:
Jan 23, 2009, 1:19:33 PM (10 years ago)
Author:
gz
Message:

merge r11601 from trunk

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/compiler/X86/x862.lisp

    r11279 r11643  
    76567656         (x862-form seg nil nil form1)
    76577657         (x862-form seg nil xfer form2))
    7658        
    76597658        (t                             
    76607659         (let* ((fix1 (acode-fixnum-form-p form1))
     
    76687667                                         '(signed-byte 32)))
    76697668                           form1))))
    7670            (if (and fix1 fix2)
     7669           (if (and fix1 fix2 (not overflow))
    76717670             (x862-lri seg vreg (ash (+ fix1 fix2) *x862-target-fixnum-shift*))
    76727671             (if other
Note: See TracChangeset for help on using the changeset viewer.