(e24toe, e53toe, e64toe): Fix sign in conversions of -infinity.

(e24toe, e53toe, e64toe): Fix sign in conversions
of -infinity.  Always do eclear before einfin.

From-SVN: r4513
This commit is contained in:
Richard Stallman 1993-05-20 04:27:34 +00:00
parent ffed099353
commit dca821e1a9
1 changed files with 9 additions and 4 deletions

View File

@ -1328,7 +1328,9 @@ eisnan (x)
}
/* Fill external format number with infinity pattern (IEEE)
or largest possible number (non-IEEE). */
or largest possible number (non-IEEE).
Before calling einfin, you should either call eclear
or set up the sign bit by hand. */
void
einfin (x)
@ -1458,7 +1460,7 @@ emovo (a, b)
}
#endif
einfin (b);
return;
return;
}
#endif
/* skip over guard word */
@ -2635,8 +2637,9 @@ e53toe (pe, y)
}
#endif
#endif /* NANS */
eclear (y);
einfin (y);
if (r & 0x8000)
if (yy[0])
eneg (y);
return;
}
@ -2728,6 +2731,7 @@ e64toe (pe, y)
}
#endif
#endif /* NANS */
eclear (y);
einfin (y);
if (*p & 0x8000)
eneg (y);
@ -2787,8 +2791,9 @@ e24toe (pe, y)
}
#endif
#endif /* NANS */
eclear (y);
einfin (y);
if (r & 0x8000)
if (yy[0])
eneg (y);
return;
}