remove OSF1 support

This commit is contained in:
chase
2018-05-24 14:50:03 -05:00
committed by Jon Trulson
parent 3c1736f077
commit 164e695cd0
325 changed files with 290 additions and 9980 deletions

View File

@@ -1729,13 +1729,13 @@ do_round(double result, int ndigits)
int temp;
if (isnan(result)) return result;
#if defined(_AIX) || defined(__aix) || defined(__osf__) || defined(__sparc)
#if defined(_AIX) || defined(__aix) || defined(__sparc)
temp = finite(result);
if (!temp)
return (temp > 0) ? HUGE : -HUGE;
#else
if ((temp = isinf(result))) return (temp > 0) ? HUGE : -HUGE;
#endif /* _AIX or __osf__ */
#endif /* _AIX or sparc*/
if (ndigits >= 0 && ndigits < MAX_DIGITS)
{
@@ -1843,13 +1843,13 @@ try_compute_i(double guess, double *result, int method)
new_w = w - f / f_prime;
#if defined(_AIX) || defined(__aix) || defined (__osf__) || defined(__sparc)
#if defined(_AIX) || defined(__aix) || defined(__sparc)
if (!(!isnan(new_w) && finite(new_w)))
return FALSE;
#else
if (!(!isnan(new_w) && !isinf(new_w)))
return FALSE;
#endif /* _AIX or __osf__ */
#endif /* _AIX or sparc */
if (new_w == w || (w != 0.0 && fabs((new_w - w) / w) < FIN_EPSILON))
break;