Changeset 14226
 Timestamp:
 Aug 30, 2010, 3:26:03 PM (9 years ago)
 Location:
 release/1.5/source
 Files:

 3 edited
Legend:
 Unmodified
 Added
 Removed

release/1.5/source
 Property svn:mergeinfo changed
/trunk/source merged: 14224
 Property svn:mergeinfo changed

release/1.5/source/cocoaide
 Property svn:mergeinfo changed (with no actual effect on merging)

release/1.5/source/level0/l0float.lisp
r13067 r14226 911 911 912 912 (evalwhen (:execute :compiletoplevel) 913 (defconstant singlefloatpi (coerce pi 'singlefloat)) 913 914 (defconstant doublefloathalfpi (asin 1.0d0)) 914 915 (defconstant singlefloathalfpi (asin 1.0f0)) … … 964 965 965 966 966 (defun %dfatan2 (y x &optional result)967 (defun %dfatan2 (y x) 967 968 (if (zerop x) 968 969 (if (zerop y) 969 970 (if (plusp (floatsign x)) 970 y 971 (if (eql y 0.0d0) 972 0.0d0 973 0.0d0) 971 974 (floatsign y pi)) 972 975 (floatsign y doublefloathalfpi)) 973 (%doublefloatatan2! y x ( or result (%makedfloat)))))976 (%doublefloatatan2! y x (%makedfloat)))) 974 977 975 978 #+32bittarget 976 (defun %sfatan2! (y x &optional result)979 (defun %sfatan2! (y x) 977 980 (if (zerop x) 978 981 (if (zerop y) 979 982 (if (plusp (floatsign x)) 980 y 981 (floatsign y pi)) 983 ;; Don't return Y (which may be stackconsed) here. 984 ;; We know that (ZEROP Y) is true, so: 985 (if (eql y 0.0s0) 986 0.0s0 987 0.0s0) 988 (floatsign y singlefloatpi)) 982 989 (floatsign y singlefloathalfpi)) 983 (%singlefloatatan2! y x ( or result (%makesfloat)))))990 (%singlefloatatan2! y x (%makesfloat)))) 984 991 985 992 #+64bittarget … … 989 996 (if (plusp (floatsign x)) 990 997 y 991 (floatsign y pi))998 (floatsign y singlefloatpi)) 992 999 (floatsign y singlefloathalfpi)) 993 1000 (%singlefloatatan2 y x)))
Note: See TracChangeset
for help on using the changeset viewer.