double __tan(double x, double y, int iy)
{
- double z, r, v, w, s, sign;
+ double_t z, r, v, w, s, sign;
int32_t ix, hx;
GET_HIGH_WORD(hx,x);
* -1.0 / (x+r) here
*/
/* compute -1.0 / (x+r) accurately */
- double a, t;
+ double_t a;
+ double z, t;
z = w;
SET_LOW_WORD(z,0);
v = r - (z - x); /* z+v = r+x */