Changeset 2150 for trunk/src/emx/include/math.h

Timestamp:

Jul 2, 2005, 12:40:39 PM (20 years ago)

Author:

bird

Message:

o Shopped missing math stuff from GLIBC.

File:

• trunk/src/emx/include/math.h (modified) (4 diffs, 1 prop)

trunk/src/emx/include/math.h

@@ -424 +424 @@
 long double     ceill(long double);
 long double     copysignl(long double, long double) __pure2;
-#if 1 /* bird: we've got some of these */
+#if 1 /* bird */
 long double     coshl(long double);
 long double     cosl(long double);
-/*long double   erfcl(long double);
+long double     erfcl(long double);
 long double     erfl(long double);
-long double     exp2l(long double);*/
+long double     exp2l(long double);
 long double     expl(long double);
-/*long double   expm1l(long double);*/
+long double     expm1l(long double);
 #endif
 long double     fabsl(long double) __pure2;
@@ -439 +439 @@
 long double     fmaxl(long double, long double) __pure2;
 long double     fminl(long double, long double) __pure2;
-#if 1 /* bird: we've got this one */
+#if 1 /* bird */
 long double     fmodl(long double, long double);
 #endif
 long double     frexpl(long double value, int *); /* fundamentally !__pure2 */
-#if 1 /* bird: we've got this one */
+#if 1 /* bird */
 long double     hypotl(long double, long double);
 #endif
 int             ilogbl(long double) __pure2;
 long double     ldexpl(long double, int);
-#if 0
+#if 1 /* bird */
 long double     lgammal(long double);
 long long       llrintl(long double);
 #endif
 long long       llroundl(long double);
-#if 1 /* bird: we've got some of these */
+#if 1 /* bird */
 long double     log10l(long double);
-/*long double   log1pl(long double);
+long double     log1pl(long double);
 long double     log2l(long double);
-long double     logbl(long double);*/
+long double     logbl(long double);
 long double     logl(long double);
-/*long          lrintl(long double);*/
+long            lrintl(long double);
 #endif
 long            lroundl(long double);
-#if 1 /* bird: we've got some of these. */
+#if 1 /* bird */
 long double     modfl(long double, long double *); /* fundamentally !__pure2 */
 long double     nanl(const char *) __pure2;
-/*long double   nearbyintl(long double);*/
+long double     nearbyintl(long double);
 #endif
 long double     nextafterl(long double, long double);
@@ -471 +471 @@
 float           nexttowardf(float, long double);
 long double     nexttowardl(long double, long double);
-#if 1 /* bird: we've got powl. */
+#if 1 /* bird */
 long double     powl(long double, long double);
-/*long double   remainderl(long double, long double);
-long double     remquol(long double, long double, int *);*/
+long double     remainderl(long double, long double);
+long double     remquol(long double, long double, int *);
 long double     rintl(long double);
 #endif
@@ -486 +486 @@
 long double     tanhl(long double);
 long double     tanl(long double);
-/*long double   tgammal(long double); */
+long double     tgammal(long double);
 #endif
 long double     truncl(long double);
 
-/* bird: these were missing, gcc apparnetly inlines them. */
+/* bird: these were missing, gcc apparently inlines them. */
 double          nan(const char *);
 float           nanf(const char *);
 
 #endif /* __ISO_C_VISIBLE >= 1999 */
+
+#ifdef __USE_GNU
+/*
+ * In GLIBC there are long variants of the XOPEN/SVID constant
+ * block some pages ago. We need this to get the math tests going.
+ */
+#define M_El                2.7182818284590452353602874713526625L
+#define M_LOG2El            1.4426950408889634073599246810018921L
+#define M_LOG10El           0.4342944819032518276511289189166051L
+#define M_LN2l              0.6931471805599453094172321214581766L
+#define M_LN10l             2.3025850929940456840179914546843642L
+#define M_PIl               3.1415926535897932384626433832795029L
+#define M_PI_2l             1.5707963267948966192313216916397514L
+#define M_PI_4l             0.7853981633974483096156608458198757L
+#define M_1_PIl             0.3183098861837906715377675267450287L
+#define M_2_PIl             0.6366197723675813430755350534900574L
+#define M_2_SQRTPIl         1.1283791670955125738961589031215452L
+#define M_SQRT2l            1.4142135623730950488016887242096981L
+#define M_SQRT1_2l          0.7071067811865475244008443621048490L
+#endif
+
+#ifdef __USE_GNU
+
+void sincos(double, double *, double *);
+void sincosf(float, float *, float *);
+void sincosl(long double, long double *, long double *);
+float exp10f(float);
+double exp10(double);
+long double exp10l(long double);
+float log2f(float);
+double log2(double);
+long double log2l(long double);
+float tgammaf(float);
+long double significandl(long double);
+long double j0l(long double);
+long double j1l(long double);
+long double jnl(int, long double);
+long double scalbl(long double, long double);
+long double y0l(long double);
+long double y1l(long double);
+long double ynl(int, long double);
+long double lgammal_r(long double,int *);
+long double gammal(long double);
+#endif
 __END_DECLS