Changeset 531


Ignore:
Timestamp:
Feb 11, 2004, 11:22:12 PM (21 years ago)
Author:
Gary Byers
Message:

ACOS: double-float case uses %MAKE-DFLOAT to allocate result.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/ccl/level-0/l0-float.lisp

    r392 r531  
    684684      (if (and (<= -1.0d0 x)
    685685               (<= x 1.0d0))
    686         (%double-float-acos! x (%make-sfloat))
     686        (%double-float-acos! x (%make-dfloat))
    687687        (- double-float-half-pi (asin x))))
    688688    (ppc32::with-stack-short-floats ((sx x))
Note: See TracChangeset for help on using the changeset viewer.