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

* 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

View File

@ -164,29 +164,28 @@ static const unsigned short LPI[4] = {
#endif
#ifdef IBMPC
static const unsigned short A[] = {
0x6661,0x2733,0x9850,0x3f4a,
0xe943,0xb580,0x7fbd,0xbf43,
0x5ebb,0x20dc,0x019f,0x3f4a,
0xa5a1,0x16b0,0xc16c,0xbf66,
0x554b,0x5555,0x5555,0x3fb5
static const uD A[] = {
{ { 0x6661,0x2733,0x9850,0x3f4a } },
{ { 0xe943,0xb580,0x7fbd,0xbf43 } },
{ { 0x5ebb,0x20dc,0x019f,0x3f4a } },
{ { 0xa5a1,0x16b0,0xc16c,0xbf66 } },
{ { 0x554b,0x5555,0x5555,0x3fb5 } }
};
static const unsigned short B[] = {
0x6761,0x8ff3,0x8901,0xc095,
0xb93e,0x355b,0xf234,0xc0e2,
0x89e5,0xf890,0x3d73,0xc114,
0xdb51,0xf994,0xbc82,0xc131,
0xf20b,0x0219,0x4589,0xc13a,
0x055e,0x5418,0x0c67,0xc12a
static const uD B[] = {
{ { 0x6761,0x8ff3,0x8901,0xc095 } },
{ { 0xb93e,0x355b,0xf234,0xc0e2 } },
{ { 0x89e5,0xf890,0x3d73,0xc114 } },
{ { 0xdb51,0xf994,0xbc82,0xc131 } },
{ { 0xf20b,0x0219,0x4589,0xc13a } },
{ { 0x055e,0x5418,0x0c67,0xc12a } }
};
static const unsigned short C[] = {
/*0x0000,0x0000,0x0000,0x3ff0,*/
0x12b2,0x1cf3,0xfd0d,0xc075,
0xd757,0x7b89,0xaa0d,0xc0d0,
0x4c9b,0xb974,0xeb84,0xc10a,
0x0043,0x7195,0x6286,0xc131,
0xf34c,0x892f,0x5255,0xc143,
0xe14a,0x6a11,0xce4b,0xc13e
static const uD C[] = {
{ { 0x12b2,0x1cf3,0xfd0d,0xc075 } },
{ { 0xd757,0x7b89,0xaa0d,0xc0d0 } },
{ { 0x4c9b,0xb974,0xeb84,0xc10a } },
{ { 0x0043,0x7195,0x6286,0xc131 } },
{ { 0xf34c,0x892f,0x5255,0xc143 } },
{ { 0xe14a,0x6a11,0xce4b,0xc13e } }
};
/* log( sqrt( 2*pi ) ) */
static const union