Subversion Repositories Kolibri OS

Rev

Go to most recent revision | Blame | Last modification | View Log | Download | RSS feed

  1. /* wf_atan2.c -- float version of w_atan2.c.
  2.  * Conversion to float by Ian Lance Taylor, Cygnus Support, ian@cygnus.com.
  3.  */
  4.  
  5. /*
  6.  * ====================================================
  7.  * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved.
  8.  *
  9.  * Developed at SunPro, a Sun Microsystems, Inc. business.
  10.  * Permission to use, copy, modify, and distribute this
  11.  * software is freely granted, provided that this notice
  12.  * is preserved.
  13.  * ====================================================
  14.  *
  15.  */
  16.  
  17. /*
  18.  * wrapper atan2f(y,x)
  19.  */
  20.  
  21. #include "fdlibm.h"
  22. #include <errno.h>
  23.  
  24. #ifdef __STDC__
  25.         float atan2f(float y, float x)          /* wrapper atan2f */
  26. #else
  27.         float atan2f(y,x)                       /* wrapper atan2 */
  28.         float y,x;
  29. #endif
  30. {
  31.         return __ieee754_atan2f(y,x);
  32. }
  33.  
  34. #ifdef _DOUBLE_IS_32BITS
  35.  
  36. #ifdef __STDC__
  37.         double atan2(double y, double x)
  38. #else
  39.         double atan2(y,x)
  40.         double y,x;
  41. #endif
  42. {
  43.         return (double) atan2f((float) y, (float) x);
  44. }
  45.  
  46. #endif /* defined(_DOUBLE_IS_32BITS) */
  47.