Ignore:
Timestamp:
Feb 4, 2013, 6:52:19 PM (7 years ago)
Author:
gb
Message:

Propagate r15683 to trunk.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/1.9/source/level-1/l1-numbers.lisp

    r15650 r15685  
    734734    temp))
    735735
     736;;; On current (early 2013) versions of x8664 Linux,
     737;;; (#_atan2 most-positive-double-float most-positive-double-float)
     738;;; returns the correct answer but generates an intermediate
     739;;; invalid-operation exception. #_atan2[f] is documented to never
     740;;; raise fp exceptions, so don't check for them.
    736741(defun %double-float-atan2! (x y result)
    737742  (declare (double-float x y result))
    738   (with-stack-double-floats ((temp))
    739     #+arm-target (%set-fpscr-status 0)
    740     (%setf-double-float TEMP (#_atan2 x y))
    741     (%df-check-exception-2 'atan2 x y (%ffi-exception-status))
    742     (%setf-double-float result TEMP)))
     743  (%setf-double-float result (#_atan2 x y)))
    743744
    744745#+32-bit-target
    745746(defun %single-float-atan2! (x y result)
    746747  (declare (single-float x y result))
    747   (target::with-stack-short-floats ((temp))
    748     #+arm-target (%set-fpscr-status 0)
    749     (%setf-short-float TEMP (#_atan2f x y))
    750     (%sf-check-exception-2 'atan2 x y (%ffi-exception-status))
    751     (%setf-short-float result TEMP)))
     748  (%setf-short-float result (#_atan2f x y)))
    752749
    753750#+64-bit-target
    754751(defun %single-float-atan2 (x y)
    755752  (declare (single-float x y))
    756   (let* ((result (#_atan2f x y)))
    757     (%sf-check-exception-2 'atan2 x y (%ffi-exception-status))
    758     result))
     753  (#_atan2f x y))
    759754
    760755(defun %double-float-exp! (n result)
Note: See TracChangeset for help on using the changeset viewer.