Fcalva/OpenLibm
1
0
Fork 0
mirror of https://git.planet-casio.com/Lephenixnoir/OpenLibm.git synced 2024-12-28 04:23:41 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Get more files to build with clang.

Browse source
This commit is contained in:
Viral B. Shah 2011-12-16 11:09:32 +05:30
parent 3c7b5cc6f7
commit 9b7ae68a59
10 changed files with 23 additions and 22 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/e_fmodl.c
View file

@ -23,13 +23,13 @@
#define BIAS (LDBL_MAX_EXP - 1)
#if LDBL_MANL_SIZE > 32
typedef uint64_t manl_t;
typedef u_int64_t manl_t;
#else
typedef u_int32_t manl_t;
#endif
#if LDBL_MANH_SIZE > 32
typedef uint64_t manh_t;
typedef u_int64_t manh_t;
#else
typedef u_int32_t manh_t;
#endif

2
src/e_hypotl.c
View file

@ -40,7 +40,7 @@
#define MAX_EXP LDBL_MAX_EXP
#if LDBL_MANL_SIZE > 32
typedef uint64_t man_t;
typedef u_int64_t man_t;
#else
typedef u_int32_t man_t;
#endif

2
src/s_cbrt.c
View file

@ -39,7 +39,7 @@ cbrt(double x)
int32_t hx;
union {
double value;
uint64_t bits;
u_int64_t bits;
} u;
double r,s,t=0.0,w;
u_int32_t sign;

2
src/s_cbrtl.c
View file

@ -38,7 +38,7 @@ cbrtl(long double x)
double dr, dt, dx;
float ft, fx;
u_int32_t hx;
uint16_t expsign;
u_int16_t expsign;
int k;
u.e = x;

11
src/s_ceill.c
View file

@ -25,6 +25,7 @@
#include <float.h>
#include <openlibm.h>
#include "math_private.h"
#include <stdint.h>
#include "fpmath.h"
@ -32,7 +33,7 @@
#ifdef LDBL_IMPLICIT_NBIT
#define MANH_SIZE (LDBL_MANH_SIZE + 1)
#define INC_MANH(u, c) do { \
uint64_t o = u.bits.manh; \
u_int64_t o = u.bits.manh; \
u.bits.manh += (c); \
if (u.bits.manh < o) \
u.bits.exp++; \
@ -40,7 +41,7 @@
#else
#define MANH_SIZE LDBL_MANH_SIZE
#define INC_MANH(u, c) do { \
uint64_t o = u.bits.manh; \
u_int64_t o = u.bits.manh; \
u.bits.manh += (c); \
if (u.bits.manh < o) { \
u.bits.exp++; \
@ -64,7 +65,7 @@ ceill(long double x)
(u.bits.manh | u.bits.manl) != 0)
u.e = u.bits.sign ? -0.0 : 1.0;
} else {
uint64_t m = ((1llu << MANH_SIZE) - 1) >> (e + 1);
u_int64_t m = ((1llu << MANH_SIZE) - 1) >> (e + 1);
if (((u.bits.manh & m) | u.bits.manl) == 0)
return (x); /* x is integral */
if (!u.bits.sign) {
@ -81,14 +82,14 @@ ceill(long double x)
}
}
} else if (e < LDBL_MANT_DIG - 1) {
uint64_t m = (uint64_t)-1 >> (64 - LDBL_MANT_DIG + e + 1);
u_int64_t m = (u_int64_t)-1 >> (64 - LDBL_MANT_DIG + e + 1);
if ((u.bits.manl & m) == 0)
return (x); /* x is integral */
if (!u.bits.sign) {
if (e == MANH_SIZE - 1)
INC_MANH(u, 1);
else {
uint64_t o = u.bits.manl;
u_int64_t o = u.bits.manl;
u.bits.manl += 1llu << (LDBL_MANT_DIG - e - 1);
if (u.bits.manl < o) /* got a carry */
INC_MANH(u, 1);

10
src/s_floorl.c
View file

@ -32,7 +32,7 @@
#ifdef LDBL_IMPLICIT_NBIT
#define MANH_SIZE (LDBL_MANH_SIZE + 1)
#define INC_MANH(u, c) do { \
uint64_t o = u.bits.manh; \
u_int64_t o = u.bits.manh; \
u.bits.manh += (c); \
if (u.bits.manh < o) \
u.bits.exp++; \
@ -40,7 +40,7 @@
#else
#define MANH_SIZE LDBL_MANH_SIZE
#define INC_MANH(u, c) do { \
uint64_t o = u.bits.manh; \
u_int64_t o = u.bits.manh; \
u.bits.manh += (c); \
if (u.bits.manh < o) { \
u.bits.exp++; \
@ -64,7 +64,7 @@ floorl(long double x)
(u.bits.manh | u.bits.manl) != 0)
u.e = u.bits.sign ? -1.0 : 0.0;
} else {
uint64_t m = ((1llu << MANH_SIZE) - 1) >> (e + 1);
u_int64_t m = ((1llu << MANH_SIZE) - 1) >> (e + 1);
if (((u.bits.manh & m) | u.bits.manl) == 0)
return (x); /* x is integral */
if (u.bits.sign) {
@ -81,14 +81,14 @@ floorl(long double x)
}
}
} else if (e < LDBL_MANT_DIG - 1) {
uint64_t m = (uint64_t)-1 >> (64 - LDBL_MANT_DIG + e + 1);
u_int64_t m = (u_int64_t)-1 >> (64 - LDBL_MANT_DIG + e + 1);
if ((u.bits.manl & m) == 0)
return (x); /* x is integral */
if (u.bits.sign) {
if (e == MANH_SIZE - 1)
INC_MANH(u, 1);
else {
uint64_t o = u.bits.manl;
u_int64_t o = u.bits.manl;
u.bits.manl += 1llu << (LDBL_MANT_DIG - e - 1);
if (u.bits.manl < o) /* got a carry */
INC_MANH(u, 1);

4
src/s_fma.c
View file

@ -75,7 +75,7 @@ static inline double
add_adjusted(double a, double b)
{
struct dd sum;
uint64_t hibits, lobits;
u_int64_t hibits, lobits;
sum = dd_add(a, b);
if (sum.lo != 0) {
@ -99,7 +99,7 @@ static inline double
add_and_denormalize(double a, double b, int scale)
{
struct dd sum;
uint64_t hibits, lobits;
u_int64_t hibits, lobits;
int bits_lost;
sum = dd_add(a, b);

2
src/s_modfl.c
View file

@ -43,7 +43,7 @@
#include "fpmath.h"
#if LDBL_MANL_SIZE > 32
#define MASK ((uint64_t)-1)
#define MASK ((u_int64_t)-1)
#else
#define MASK ((u_int32_t)-1)
#endif

4
src/s_remquol.c
View file

@ -23,13 +23,13 @@
#define BIAS (LDBL_MAX_EXP - 1)
#if LDBL_MANL_SIZE > 32
typedef uint64_t manl_t;
typedef u_int64_t manl_t;
#else
typedef u_int32_t manl_t;
#endif
#if LDBL_MANH_SIZE > 32
typedef uint64_t manh_t;
typedef u_int64_t manh_t;
#else
typedef u_int32_t manh_t;
#endif

4
src/s_truncl.c
View file

@ -49,7 +49,7 @@ truncl(long double x)
if (huge + x > 0.0)
u.e = zero[u.bits.sign];
} else {
uint64_t m = ((1llu << MANH_SIZE) - 1) >> (e + 1);
u_int64_t m = ((1llu << MANH_SIZE) - 1) >> (e + 1);
if (((u.bits.manh & m) | u.bits.manl) == 0)
return (x); /* x is integral */
if (huge + x > 0.0) { /* raise inexact flag */
@ -58,7 +58,7 @@ truncl(long double x)
}
}
} else if (e < LDBL_MANT_DIG - 1) {
uint64_t m = (uint64_t)-1 >> (64 - LDBL_MANT_DIG + e + 1);
u_int64_t m = (u_int64_t)-1 >> (64 - LDBL_MANT_DIG + e + 1);
if ((u.bits.manl & m) == 0)
return (x); /* x is integral */
if (huge + x > 0.0) /* raise inexact flag */