PlaneteCasio
/
libc
1
0
Fork 0
Code Issues 6 Pull Requests Releases Wiki Activity

* mingwex/math/tgamma.c, tgammaf.c, tgammal.c (small): 

Rename to Small (case difference).
This commit is contained in:
Earnie Boyd 2003-07-01 13:55:47 +00:00
parent 6dbe0697a7
commit e21a622054
4 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
winsup/mingw/ChangeLog
View File

@ -2,6 +2,8 @@
* include/_mingw.h (__int32, __int16, __int8, small, hyper): Define.
Note: Also added to w32api/include/basetyps.h.
* mingwex/math/tgamma.c, tgammaf.c, tgammal.c (small):
Rename to Small (case difference).
2003-06-18 Earnie Boyd <earnie@users.sf.net>

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

@ -346,7 +346,7 @@ while( x >= 3.0 )
while( x < 0.0 )
{
if( x > -1.E-9 )
goto small;
goto Small;
z /= x;
x += 1.0;
}
@ -354,7 +354,7 @@ while( x < 0.0 )
while( x < 2.0 )
{
if( x < 1.e-9 )
goto small;
goto Small;
z /= x;
x += 1.0;
}
@ -367,7 +367,7 @@ p = polevl( x, P, 6 );
q = polevl( x, Q, 7 );
return( z * p / q );
small:
Small:
if( x == 0.0 )
{
goto gsing;

6
winsup/mingw/mingwex/math/tgammaf.c
View File

@ -214,7 +214,7 @@ while( x >= 3.0 )
while( x < 0.0 )
{
if( x > -1.E-4 )
goto small;
goto Small;
z *=x;
x += 1.0;
}
@ -222,7 +222,7 @@ while( x < 0.0 )
while( x < 2.0 )
{
if( x < 1.e-4 )
goto small;
goto Small;
z *=x;
x += 1.0;
}
@ -244,7 +244,7 @@ if( negative )
}
return(p);
small:
Small:
if( x == 0.0 )
{
goto gsing;

4
winsup/mingw/mingwex/math/tgammal.c
View File

@ -456,7 +456,7 @@ while( x < -0.03125L )
}
if( x <= 0.03125L )
goto small;
goto Small;
while( x < 2.0L )
{
@ -472,7 +472,7 @@ p = polevll( x, P, 7 );
q = polevll( x, Q, 8 );
return( z * p / q );
small:
Small:
if( x == 0.0L )
{
goto gsing;