Changeset 10009


Ignore:
Timestamp:
Jul 11, 2008, 11:54:59 PM (11 years ago)
Author:
gb
Message:

In X862-%SINGLE-FLOAT and X862-%DOUBLE-FLOAT, ignore errors that
may occur during attempts to do late constant-folding.
(This was causing some tests to fail at compile-time; we now
pass all tests again on the working-0711 branch.)

File:
1 edited

Legend:

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

    r9936 r10009  
    93829382                                  (%nx1-operator immediate))
    93839383                              (typep (cadr form) 'real))
    9384                        (cadr form))))))
    9385     (if real
    9386       (x862-immediate seg vreg xfer (float real 0.0d0))
     9384                       (cadr form)))))
     9385         (dconst (and real (ignore-errors (float real 0.0d0)))))
     9386    (if dconst
     9387      (x862-immediate seg vreg xfer dconst)
    93879388      (if (x862-form-typep arg 'single-float)
    93889389        (x862-use-operator (%nx1-operator %single-to-double)
     
    94129413                                  (%nx1-operator immediate))
    94139414                              (typep (cadr form) 'real))
    9414                        (cadr form))))))
    9415     (if real
    9416       (x862-immediate seg vreg xfer (float real 0.0f0))
     9415                       (cadr form)))))
     9416         (sconst (and real (ignore-errors (float real 0.0f0)))))
     9417    (if sconst
     9418      (x862-immediate seg vreg xfer sconst)
    94179419      (if (x862-form-typep arg 'double-float)
    94189420        (x862-use-operator (%nx1-operator %double-to-single)
Note: See TracChangeset for help on using the changeset viewer.