JehanneOS/newlib
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

2009-07-17 Chris Sutcliffe <ir0nh34d@users.sourceforge.net>

Browse Source 
* mingwex/math/cephes_mconf.h mingwex/math/erfl.c mingwex/math/lgamma.c
        mingwex/math/lgammal.c mingwex/math/powl.c mingwex/math/sinhl.c
        mingwex/math/tanhl.c mingwex/math/tgamma.c mingwex/math/tgammal.c: Based on
        the fixes from the mingw-w64 code tree, fixed strict-aliasing issues.
This commit is contained in:
Chris Sutcliffe
2009-07-18 01:39:52 +00:00
parent c627d4ddd0
commit b5fb6b0dc3
10 changed files with 307 additions and 300 deletions
Download Patch File Download Diff File Expand all files Collapse all files

46
winsup/mingw/mingwex/math/tgamma.c
View File

@@ -108,24 +108,24 @@ static const unsigned short Q[] = {
#endif
#ifdef IBMPC
static const unsigned short P[] = {
0x2153,0x3998,0xfcb8,0x3f24,
0xbfab,0xe686,0x84e3,0x3f53,
0x14b0,0xe9db,0x57cd,0x3f85,
0x23d3,0x18c4,0x63d9,0x3fa8,
0x7d31,0xdcae,0x8da9,0x3fca,
0xe312,0x3993,0xa137,0x3fdf,
0x0000,0x0000,0x0000,0x3ff0
static const uD P[] = {
{ { 0x2153,0x3998,0xfcb8,0x3f24 } },
{ { 0xbfab,0xe686,0x84e3,0x3f53 } },
{ { 0x14b0,0xe9db,0x57cd,0x3f85 } },
{ { 0x23d3,0x18c4,0x63d9,0x3fa8 } },
{ { 0x7d31,0xdcae,0x8da9,0x3fca } },
{ { 0xe312,0x3993,0xa137,0x3fdf } },
{ { 0x0000,0x0000,0x0000,0x3ff0 } }
};
static const unsigned short Q[] = {
0xd3af,0x8400,0x487a,0xbef8,
0x2573,0x2915,0xae8a,0x3f41,
0xb44a,0xe750,0x40e4,0xbf72,
0xb117,0x5b1b,0x31ed,0x3f88,
0xde67,0xe33f,0x5779,0x3fa2,
0x87c2,0x9d42,0x071a,0xbfce,
0x3c51,0xc9cd,0x4944,0x3fb2,
0x0000,0x0000,0x0000,0x3ff0
static const uD Q[] = {
{ { 0xd3af,0x8400,0x487a,0xbef8 } },
{ { 0x2573,0x2915,0xae8a,0x3f41 } },
{ { 0xb44a,0xe750,0x40e4,0xbf72 } },
{ { 0xb117,0x5b1b,0x31ed,0x3f88 } },
{ { 0xde67,0xe33f,0x5779,0x3fa2 } },
{ { 0x87c2,0x9d42,0x071a,0xbfce } },
{ { 0x3c51,0xc9cd,0x4944,0x3fb2 } },
{ { 0x0000,0x0000,0x0000,0x3ff0 } }
};
#define MAXGAM 171.624376956302725
#endif
@@ -180,12 +180,12 @@ static const unsigned short SQT[4] = {
#define SQTPI *(double *)SQT
#endif
#if IBMPC
static const unsigned short STIR[20] = {
0x7293,0x592d,0xcc72,0x3f49,
0x1d7c,0x27e6,0x166b,0xbf2e,
0x4fd7,0x07d4,0xf726,0xbf65,
0xc5fd,0x1b98,0x71c7,0x3f6c,
0x5986,0x5555,0x5555,0x3fb5,
static const uD STIR[] = {
{ { 0x7293,0x592d,0xcc72,0x3f49 } },
{ { 0x1d7c,0x27e6,0x166b,0xbf2e } },
{ { 0x4fd7,0x07d4,0xf726,0xbf65 } },
{ { 0xc5fd,0x1b98,0x71c7,0x3f6c } },
{ { 0x5986,0x5555,0x5555,0x3fb5 } }
};
#define MAXSTIR 143.01608