newlib/libm/math/wf_sincos.c

   1 /* sincos -- currently no more efficient than two separate calls to
   2    sin and cos. */
   3 #include "fdlibm.h"
   4 #if __OBSOLETE_MATH
   5
   6 #include <errno.h>
   7
   8 #ifdef __STDC__
   9         void sincosf(float x, float *sinx, float *cosx)
  10 #else
  11         void sincosf(x, sinx, cosx)
  12         float x;
  13         float *sinx;
  14         float *cosx;
  15 #endif
  16 {
  17   *sinx = sinf (x);
  18   *cosx = cosf (x);
  19 }
  20
  21 #ifdef _DOUBLE_IS_32BITS
  22
  23 #ifdef __STDC__
  24         void sincos(double x, double *sinx, double *cosx)
  25 #else
  26         void sincos(x, sinx, cosx)
  27         double x;
  28         double sinx;
  29         double cosx;
  30 #endif
  31 {
  32   *sinx = sinf((float) x);
  33   *cosx = cosf((float) x);
  34 }
  35 #endif /* defined(_DOUBLE_IS_32BITS) */
  36 #endif /* __OBSOLETE_MATH */