Changeset 14151


Ignore:
Timestamp:
Aug 5, 2010, 6:17:08 PM (9 years ago)
Author:
rme
Message:

Restore r13769.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-0/l0-float.lisp

    r14119 r14151  
    840840           (%single-float-expt (%short-float b) (%short-float e))
    841841           ))
     842        ((typep (realpart e) 'double-float)
     843         ;; Avoid intermediate single-float result from LOG
     844         (let ((promoted-base (* 1d0 b)))
     845           (exp (* e (log promoted-base)))))
    842846        (t (exp (* e (log b))))))
    843847
Note: See TracChangeset for help on using the changeset viewer.