Changeset 10079


Ignore:
Timestamp:
Jul 18, 2008, 3:19:14 PM (11 years ago)
Author:
gb
Message:

Propagate r10009 (ignore-errors during late constant-folding of
SINGLE-FLOAT/DOUBLE-FLOAT) to trunk.

File:
1 edited

Legend:

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

    r9914 r10079  
    91359135                                  (%nx1-operator immediate))
    91369136                              (typep (cadr form) 'real))
    9137                        (cadr form))))))
    9138     (if real
    9139       (x862-immediate seg vreg xfer (float real 0.0d0))
     9137                       (cadr form)))))
     9138         (dconst (and real (ignore-errors (float real 0.0d0)))))
     9139    (if dconst
     9140      (x862-immediate seg vreg xfer dconst)
    91409141      (if (x862-form-typep arg 'single-float)
    91419142        (x862-use-operator (%nx1-operator %single-to-double)
     
    91659166                                  (%nx1-operator immediate))
    91669167                              (typep (cadr form) 'real))
    9167                        (cadr form))))))
    9168     (if real
    9169       (x862-immediate seg vreg xfer (float real 0.0f0))
     9168                       (cadr form)))))
     9169         (sconst (and real (ignore-errors (float real 0.0f0)))))
     9170    (if sconst
     9171      (x862-immediate seg vreg xfer sconst)
    91709172      (if (x862-form-typep arg 'double-float)
    91719173        (x862-use-operator (%nx1-operator %double-to-single)
Note: See TracChangeset for help on using the changeset viewer.