remove OSF1 support
This commit is contained in:
@@ -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;
|
||||
|
||||
Reference in New Issue
Block a user