libm: change j0 to _j0 and y1 to _y1 to avoid shadow warning

Signed-off-by: Peter S. Mazinger <ps.m@gmx.net>
Signed-off-by: Bernhard Reutner-Fischer <rep.dot.nop@gmail.com>

diff --git a/libm/e_hypot.c b/libm/e_hypot.c
index 2649825..7567454 100644 (file)
--- a/libm/e_hypot.c
+++ b/libm/e_hypot.c
@@ -46,7 +46,7 @@
 
 double attribute_hidden __ieee754_hypot(double x, double y)
 {
-       double a=x,b=y,t1,t2,y1,y2,w;
+       double a=x,b=y,t1,t2,_y1,y2,w;
        int32_t j,k,ha,hb;
 
        GET_HIGH_WORD(ha,x);
@@ -100,13 +100,13 @@ double attribute_hidden __ieee754_hypot(double x, double y)
            w  = __ieee754_sqrt(t1*t1-(b*(-b)-t2*(a+t1)));
        } else {
            a  = a+a;
-           y1 = 0;
-           SET_HIGH_WORD(y1,hb);
-           y2 = b - y1;
+           _y1 = 0;
+           SET_HIGH_WORD(_y1,hb);
+           y2 = b - _y1;
            t1 = 0;
            SET_HIGH_WORD(t1,ha+0x00100000);
            t2 = a - t1;
-           w  = __ieee754_sqrt(t1*y1-(w*(-w)-(t1*y2+t2*b)));
+           w  = __ieee754_sqrt(t1*_y1-(w*(-w)-(t1*y2+t2*b)));
        }
        if(k!=0) {
            u_int32_t high;

diff --git a/libm/e_pow.c b/libm/e_pow.c
index 3be9003..1be740e 100644 (file)
--- a/libm/e_pow.c
+++ b/libm/e_pow.c
@@ -94,7 +94,7 @@ ivln2_l  =  1.92596299112661746887e-08; /* 0x3E54AE0B, 0xF85DDF44 =1/ln2 tail*/
 double attribute_hidden __ieee754_pow(double x, double y)
 {
        double z,ax,z_h,z_l,p_h,p_l;
-       double y1,t1,t2,r,s,t,u,v,w;
+       double _y1,t1,t2,r,s,t,u,v,w;
        int32_t i,j,k,yisint,n;
        int32_t hx,hy,ix,iy;
        u_int32_t lx,ly;
@@ -249,10 +249,10 @@ double attribute_hidden __ieee754_pow(double x, double y)
            s = -one;/* (-ve)**(odd int) */
 
     /* split up y into y1+y2 and compute (y1+y2)*(t1+t2) */
-       y1  = y;
-       SET_LOW_WORD(y1,0);
-       p_l = (y-y1)*t1+y*t2;
-       p_h = y1*t1;
+       _y1  = y;
+       SET_LOW_WORD(_y1,0);
+       p_l = (y-_y1)*t1+y*t2;
+       p_h = _y1*t1;
        z = p_l+p_h;
        EXTRACT_WORDS(j,i,z);
        if (j>=0x40900000) {                            /* z >= 1024 */

diff --git a/libm/s_ceil.c b/libm/s_ceil.c
index ad0916e..edbf934 100644 (file)
--- a/libm/s_ceil.c
+++ b/libm/s_ceil.c
@@ -28,35 +28,35 @@ static const double huge = 1.0e300;
 
 double ceil(double x)
 {
-       int32_t i0,i1,j0;
+       int32_t i0,i1,_j0;
        u_int32_t i,j;
        EXTRACT_WORDS(i0,i1,x);
-       j0 = ((i0>>20)&0x7ff)-0x3ff;
-       if(j0<20) {
-           if(j0<0) {  /* raise inexact if x != 0 */
+       _j0 = ((i0>>20)&0x7ff)-0x3ff;
+       if(_j0<20) {
+           if(_j0<0) {         /* raise inexact if x != 0 */
                if(huge+x>0.0) {/* return 0*sign(x) if |x|<1 */
                    if(i0<0) {i0=0x80000000;i1=0;}
                    else if((i0|i1)!=0) { i0=0x3ff00000;i1=0;}
                }
            } else {
-               i = (0x000fffff)>>j0;
+               i = (0x000fffff)>>_j0;
                if(((i0&i)|i1)==0) return x; /* x is integral */
                if(huge+x>0.0) {        /* raise inexact flag */
-                   if(i0>0) i0 += (0x00100000)>>j0;
+                   if(i0>0) i0 += (0x00100000)>>_j0;
                    i0 &= (~i); i1=0;
                }
            }
-       } else if (j0>51) {
-           if(j0==0x400) return x+x;   /* inf or NaN */
+       } else if (_j0>51) {
+           if(_j0==0x400) return x+x;  /* inf or NaN */
            else return x;              /* x is integral */
        } else {
-           i = ((u_int32_t)(0xffffffff))>>(j0-20);
+           i = ((u_int32_t)(0xffffffff))>>(_j0-20);
            if((i1&i)==0) return x;     /* x is integral */
            if(huge+x>0.0) {            /* raise inexact flag */
                if(i0>0) {
-                   if(j0==20) i0+=1;
+                   if(_j0==20) i0+=1;
                    else {
-                       j = i1 + (1<<(52-j0));
+                       j = i1 + (1<<(52-_j0));
                        if(j<i1) i0+=1; /* got a carry */
                        i1 = j;
                    }

diff --git a/libm/s_floor.c b/libm/s_floor.c
index 91f1879..21d9821 100644 (file)
--- a/libm/s_floor.c
+++ b/libm/s_floor.c
@@ -28,36 +28,36 @@ static const double huge = 1.0e300;
 
 double floor(double x)
 {
-       int32_t i0,i1,j0;
+       int32_t i0,i1,_j0;
        u_int32_t i,j;
        EXTRACT_WORDS(i0,i1,x);
-       j0 = ((i0>>20)&0x7ff)-0x3ff;
-       if(j0<20) {
-           if(j0<0) {  /* raise inexact if x != 0 */
+       _j0 = ((i0>>20)&0x7ff)-0x3ff;
+       if(_j0<20) {
+           if(_j0<0) {         /* raise inexact if x != 0 */
                if(huge+x>0.0) {/* return 0*sign(x) if |x|<1 */
                    if(i0>=0) {i0=i1=0;}
                    else if(((i0&0x7fffffff)|i1)!=0)
                        { i0=0xbff00000;i1=0;}
                }
            } else {
-               i = (0x000fffff)>>j0;
+               i = (0x000fffff)>>_j0;
                if(((i0&i)|i1)==0) return x; /* x is integral */
                if(huge+x>0.0) {        /* raise inexact flag */
-                   if(i0<0) i0 += (0x00100000)>>j0;
+                   if(i0<0) i0 += (0x00100000)>>_j0;
                    i0 &= (~i); i1=0;
                }
            }
-       } else if (j0>51) {
-           if(j0==0x400) return x+x;   /* inf or NaN */
+       } else if (_j0>51) {
+           if(_j0==0x400) return x+x;  /* inf or NaN */
            else return x;              /* x is integral */
        } else {
-           i = ((u_int32_t)(0xffffffff))>>(j0-20);
+           i = ((u_int32_t)(0xffffffff))>>(_j0-20);
            if((i1&i)==0) return x;     /* x is integral */
            if(huge+x>0.0) {            /* raise inexact flag */
                if(i0<0) {
-                   if(j0==20) i0+=1;
+                   if(_j0==20) i0+=1;
                    else {
-                       j = i1+(1<<(52-j0));
+                       j = i1+(1<<(52-_j0));
                        if(j<i1) i0 +=1 ;       /* got a carry */
                        i1=j;
                    }

diff --git a/libm/s_llrint.c b/libm/s_llrint.c
index b5f75c2..bb22917 100644 (file)
--- a/libm/s_llrint.c
+++ b/libm/s_llrint.c
@@ -34,7 +34,7 @@ static const double two52[2] =
 long long int
 llrint (double x)
 {
-  int32_t j0;
+  int32_t _j0;
   u_int32_t i1, i0;
   long long int result;
   volatile double w;
@@ -42,39 +42,39 @@ llrint (double x)
   int sx;
 
   EXTRACT_WORDS (i0, i1, x);
-  j0 = ((i0 >> 20) & 0x7ff) - 0x3ff;
+  _j0 = ((i0 >> 20) & 0x7ff) - 0x3ff;
   sx = i0 >> 31;
   i0 &= 0xfffff;
   i0 |= 0x100000;
 
-  if (j0 < 20)
+  if (_j0 < 20)
     {
       w = two52[sx] + x;
       t = w - two52[sx];
       EXTRACT_WORDS (i0, i1, t);
-      j0 = ((i0 >> 20) & 0x7ff) - 0x3ff;
+      _j0 = ((i0 >> 20) & 0x7ff) - 0x3ff;
       i0 &= 0xfffff;
       i0 |= 0x100000;
 
-      result = (j0 < 0 ? 0 : i0 >> (20 - j0));
+      result = (_j0 < 0 ? 0 : i0 >> (20 - _j0));
     }
-  else if (j0 < (int32_t) (8 * sizeof (long long int)) - 1)
+  else if (_j0 < (int32_t) (8 * sizeof (long long int)) - 1)
     {
-      if (j0 >= 52)
-       result = (((long long int) i0 << 32) | i1) << (j0 - 52);
+      if (_j0 >= 52)
+       result = (((long long int) i0 << 32) | i1) << (_j0 - 52);
       else
        {
          w = two52[sx] + x;
          t = w - two52[sx];
          EXTRACT_WORDS (i0, i1, t);
-         j0 = ((i0 >> 20) & 0x7ff) - 0x3ff;
+         _j0 = ((i0 >> 20) & 0x7ff) - 0x3ff;
          i0 &= 0xfffff;
          i0 |= 0x100000;
 
-         if (j0 == 20)
+         if (_j0 == 20)
            result = (long long int) i0;
          else
-           result = ((long long int) i0 << (j0 - 20)) | (i1 >> (52 - j0));
+           result = ((long long int) i0 << (_j0 - 20)) | (i1 >> (52 - _j0));
        }
     }
   else

diff --git a/libm/s_llround.c b/libm/s_llround.c
index 8263b03..7b554a2 100644 (file)
--- a/libm/s_llround.c
+++ b/libm/s_llround.c
@@ -24,42 +24,42 @@
 long long int
 llround (double x)
 {
-  int32_t j0;
+  int32_t _j0;
   u_int32_t i1, i0;
   long long int result;
   int sign;
 
   EXTRACT_WORDS (i0, i1, x);
-  j0 = ((i0 >> 20) & 0x7ff) - 0x3ff;
+  _j0 = ((i0 >> 20) & 0x7ff) - 0x3ff;
   sign = (i0 & 0x80000000) != 0 ? -1 : 1;
   i0 &= 0xfffff;
   i0 |= 0x100000;
 
-  if (j0 < 20)
+  if (_j0 < 20)
     {
-      if (j0 < 0)
-       return j0 < -1 ? 0 : sign;
+      if (_j0 < 0)
+       return _j0 < -1 ? 0 : sign;
       else
        {
-         i0 += 0x80000 >> j0;
+         i0 += 0x80000 >> _j0;
 
-         result = i0 >> (20 - j0);
+         result = i0 >> (20 - _j0);
        }
     }
-  else if (j0 < (int32_t) (8 * sizeof (long long int)) - 1)
+  else if (_j0 < (int32_t) (8 * sizeof (long long int)) - 1)
     {
-      if (j0 >= 52)
-       result = (((long long int) i0 << 32) | i1) << (j0 - 52);
+      if (_j0 >= 52)
+       result = (((long long int) i0 << 32) | i1) << (_j0 - 52);
       else
        {
-         u_int32_t j = i1 + (0x80000000 >> (j0 - 20));
+         u_int32_t j = i1 + (0x80000000 >> (_j0 - 20));
          if (j < i1)
            ++i0;
 
-         if (j0 == 20)
+         if (_j0 == 20)
            result = (long long int) i0;
          else
-           result = ((long long int) i0 << (j0 - 20)) | (j >> (52 - j0));
+           result = ((long long int) i0 << (_j0 - 20)) | (j >> (52 - _j0));
        }
     }
   else

diff --git a/libm/s_lrint.c b/libm/s_lrint.c
index 3cdc8a2..979d66c 100644 (file)
--- a/libm/s_lrint.c
+++ b/libm/s_lrint.c
@@ -35,7 +35,7 @@ static const double two52[2] =
 long int
 lrint (double x)
 {
-  int32_t j0;
+  int32_t _j0;
   u_int32_t i0,i1;
   volatile double w;
   double t;
@@ -43,44 +43,44 @@ lrint (double x)
   int sx;
 
   EXTRACT_WORDS (i0, i1, x);
-  j0 = ((i0 >> 20) & 0x7ff) - 0x3ff;
+  _j0 = ((i0 >> 20) & 0x7ff) - 0x3ff;
   sx = i0 >> 31;
   i0 &= 0xfffff;
   i0 |= 0x100000;
 
-  if (j0 < 20)
+  if (_j0 < 20)
     {
-      if (j0 < -1)
+      if (_j0 < -1)
        return 0;
       else
        {
          w = two52[sx] + x;
          t = w - two52[sx];
          EXTRACT_WORDS (i0, i1, t);
-         j0 = ((i0 >> 20) & 0x7ff) - 0x3ff;
+         _j0 = ((i0 >> 20) & 0x7ff) - 0x3ff;
          i0 &= 0xfffff;
          i0 |= 0x100000;
 
-         result = i0 >> (20 - j0);
+         result = i0 >> (20 - _j0);
        }
     }
-  else if (j0 < (int32_t) (8 * sizeof (long int)) - 1)
+  else if (_j0 < (int32_t) (8 * sizeof (long int)) - 1)
     {
-      if (j0 >= 52)
-       result = ((long int) i0 << (j0 - 20)) | (i1 << (j0 - 52));
+      if (_j0 >= 52)
+       result = ((long int) i0 << (_j0 - 20)) | (i1 << (_j0 - 52));
       else
        {
          w = two52[sx] + x;
          t = w - two52[sx];
          EXTRACT_WORDS (i0, i1, t);
-         j0 = ((i0 >> 20) & 0x7ff) - 0x3ff;
+         _j0 = ((i0 >> 20) & 0x7ff) - 0x3ff;
          i0 &= 0xfffff;
          i0 |= 0x100000;
 
-         if (j0 == 20)
+         if (_j0 == 20)
            result = (long int) i0;
          else
-           result = ((long int) i0 << (j0 - 20)) | (i1 >> (52 - j0));
+           result = ((long int) i0 << (_j0 - 20)) | (i1 >> (52 - _j0));
        }
     }
   else

diff --git a/libm/s_lround.c b/libm/s_lround.c
index acf8fb6..4922abd 100644 (file)
--- a/libm/s_lround.c
+++ b/libm/s_lround.c
@@ -24,42 +24,42 @@
 long int
 lround (double x)
 {
-  int32_t j0;
+  int32_t _j0;
   u_int32_t i1, i0;
   long int result;
   int sign;
 
   EXTRACT_WORDS (i0, i1, x);
-  j0 = ((i0 >> 20) & 0x7ff) - 0x3ff;
+  _j0 = ((i0 >> 20) & 0x7ff) - 0x3ff;
   sign = (i0 & 0x80000000) != 0 ? -1 : 1;
   i0 &= 0xfffff;
   i0 |= 0x100000;
 
-  if (j0 < 20)
+  if (_j0 < 20)
     {
-      if (j0 < 0)
-       return j0 < -1 ? 0 : sign;
+      if (_j0 < 0)
+       return _j0 < -1 ? 0 : sign;
       else
        {
-         i0 += 0x80000 >> j0;
+         i0 += 0x80000 >> _j0;
 
-         result = i0 >> (20 - j0);
+         result = i0 >> (20 - _j0);
        }
     }
-  else if (j0 < (int32_t) (8 * sizeof (long int)) - 1)
+  else if (_j0 < (int32_t) (8 * sizeof (long int)) - 1)
     {
-      if (j0 >= 52)
-       result = ((long int) i0 << (j0 - 20)) | (i1 << (j0 - 52));
+      if (_j0 >= 52)
+       result = ((long int) i0 << (_j0 - 20)) | (i1 << (_j0 - 52));
       else
        {
-         u_int32_t j = i1 + (0x80000000 >> (j0 - 20));
+         u_int32_t j = i1 + (0x80000000 >> (_j0 - 20));
          if (j < i1)
            ++i0;
 
-         if (j0 == 20)
+         if (_j0 == 20)
            result = (long int) i0;
          else
-           result = ((long int) i0 << (j0 - 20)) | (j >> (52 - j0));
+           result = ((long int) i0 << (_j0 - 20)) | (j >> (52 - _j0));
        }
     }
   else

diff --git a/libm/s_modf.c b/libm/s_modf.c
index f73d5fd..0a2026c 100644 (file)
--- a/libm/s_modf.c
+++ b/libm/s_modf.c
@@ -26,16 +26,16 @@ static const double one = 1.0;
 
 double modf(double x, double *iptr)
 {
-       int32_t i0,i1,j0;
+       int32_t i0,i1,_j0;
        u_int32_t i;
        EXTRACT_WORDS(i0,i1,x);
-       j0 = ((i0>>20)&0x7ff)-0x3ff;    /* exponent of x */
-       if(j0<20) {                     /* integer part in high x */
-           if(j0<0) {                  /* |x|<1 */
+       _j0 = ((i0>>20)&0x7ff)-0x3ff;   /* exponent of x */
+       if(_j0<20) {                    /* integer part in high x */
+           if(_j0<0) {                 /* |x|<1 */
                INSERT_WORDS(*iptr,i0&0x80000000,0);    /* *iptr = +-0 */
                return x;
            } else {
-               i = (0x000fffff)>>j0;
+               i = (0x000fffff)>>_j0;
                if(((i0&i)|i1)==0) {            /* x is integral */
                    *iptr = x;
                    INSERT_WORDS(x,i0&0x80000000,0);    /* return +-0 */
@@ -45,15 +45,15 @@ double modf(double x, double *iptr)
                    return x - *iptr;
                }
            }
-       } else if (j0>51) {             /* no fraction part */
+       } else if (_j0>51) {            /* no fraction part */
            *iptr = x*one;
            /* We must handle NaNs separately.  */
-           if (j0 == 0x400 && ((i0 & 0xfffff) | i1))
+           if (_j0 == 0x400 && ((i0 & 0xfffff) | i1))
              return x*one;
            INSERT_WORDS(x,i0&0x80000000,0);    /* return +-0 */
            return x;
        } else {                        /* fraction part in low x */
-           i = ((u_int32_t)(0xffffffff))>>(j0-20);
+           i = ((u_int32_t)(0xffffffff))>>(_j0-20);
            if((i1&i)==0) {             /* x is integral */
                *iptr = x;
                INSERT_WORDS(x,i0&0x80000000,0);        /* return +-0 */

diff --git a/libm/s_rint.c b/libm/s_rint.c
index 06432c6..02ec404 100644 (file)
--- a/libm/s_rint.c
+++ b/libm/s_rint.c
@@ -30,7 +30,7 @@ TWO52[2]={
 
 double rint(double x)
 {
-       int32_t i0, j0, sx;
+       int32_t i0, _j0, sx;
        u_int32_t i,i1;
        double t;
        /* We use w = x + 2^52; t = w - 2^52; trick to round x to integer.
@@ -43,11 +43,11 @@ double rint(double x)
 
        EXTRACT_WORDS(i0,i1,x);
        /* Unbiased exponent */
-       j0 = ((((u_int32_t)i0) >> 20)&0x7ff)-0x3ff;
+       _j0 = ((((u_int32_t)i0) >> 20)&0x7ff)-0x3ff;
 
-       if (j0 > 51) {
+       if (_j0 > 51) {
                //Why bother? Just returning x works too
-               //if (j0 == 0x400)  /* inf or NaN */
+               //if (_j0 == 0x400)  /* inf or NaN */
                //      return x+x;
                return x;  /* x is integral */
        }
@@ -55,8 +55,8 @@ double rint(double x)
        /* Sign */
        sx = ((u_int32_t)i0) >> 31;
 
-       if (j0<20) {
-           if (j0<0) { /* |x| < 1 */
+       if (_j0<20) {
+           if (_j0<0) { /* |x| < 1 */
                if (((i0&0x7fffffff)|i1)==0) return x;
                i1 |= (i0&0x0fffff);
                i0 &= 0xfffe0000;
@@ -68,19 +68,19 @@ double rint(double x)
                SET_HIGH_WORD(t,(i0&0x7fffffff)|(sx<<31));
                return t;
            } else {
-               i = (0x000fffff)>>j0;
+               i = (0x000fffff)>>_j0;
                if (((i0&i)|i1)==0) return x; /* x is integral */
                i>>=1;
                if (((i0&i)|i1)!=0) {
-                   if (j0==19) i1 = 0x40000000;
-                   else i0 = (i0&(~i))|((0x20000)>>j0);
+                   if (_j0==19) i1 = 0x40000000;
+                   else i0 = (i0&(~i))|((0x20000)>>_j0);
                }
            }
        } else {
-           i = ((u_int32_t)(0xffffffff))>>(j0-20);
+           i = ((u_int32_t)(0xffffffff))>>(_j0-20);
            if ((i1&i)==0) return x;    /* x is integral */
            i>>=1;
-           if ((i1&i)!=0) i1 = (i1&(~i))|((0x40000000)>>(j0-20));
+           if ((i1&i)!=0) i1 = (i1&(~i))|((0x40000000)>>(_j0-20));
        }
        INSERT_WORDS(x,i0,i1);
        w = TWO52[sx]+x;

diff --git a/libm/s_round.c b/libm/s_round.c
index b3e2263..30a2715 100644 (file)
--- a/libm/s_round.c
+++ b/libm/s_round.c
@@ -26,41 +26,41 @@ static const double huge = 1.0e300;
 double
 round (double x)
 {
-  int32_t i0, j0;
+  int32_t i0, _j0;
   u_int32_t i1;
 
   EXTRACT_WORDS (i0, i1, x);
-  j0 = ((i0 >> 20) & 0x7ff) - 0x3ff;
-  if (j0 < 20)
+  _j0 = ((i0 >> 20) & 0x7ff) - 0x3ff;
+  if (_j0 < 20)
     {
-      if (j0 < 0)
+      if (_j0 < 0)
        {
          if (huge + x > 0.0)
            {
              i0 &= 0x80000000;
-             if (j0 == -1)
+             if (_j0 == -1)
                i0 |= 0x3ff00000;
              i1 = 0;
            }
        }
       else
        {
-         u_int32_t i = 0x000fffff >> j0;
+         u_int32_t i = 0x000fffff >> _j0;
          if (((i0 & i) | i1) == 0)
            /* X is integral.  */
            return x;
          if (huge + x > 0.0)
            {
              /* Raise inexact if x != 0.  */
-             i0 += 0x00080000 >> j0;
+             i0 += 0x00080000 >> _j0;
              i0 &= ~i;
              i1 = 0;
            }
        }
     }
-  else if (j0 > 51)
+  else if (_j0 > 51)
     {
-      if (j0 == 0x400)
+      if (_j0 == 0x400)
        /* Inf or NaN.  */
        return x + x;
       else
@@ -68,7 +68,7 @@ round (double x)
     }
   else
     {
-      u_int32_t i = 0xffffffff >> (j0 - 20);
+      u_int32_t i = 0xffffffff >> (_j0 - 20);
       if ((i1 & i) == 0)
        /* X is integral.  */
        return x;
@@ -76,7 +76,7 @@ round (double x)
       if (huge + x > 0.0)
        {
          /* Raise inexact if x != 0.  */
-         u_int32_t j = i1 + (1 << (51 - j0));
+         u_int32_t j = i1 + (1 << (51 - _j0));
          if (j < i1)
            i0 += 1;
          i1 = j;

diff --git a/libm/s_trunc.c b/libm/s_trunc.c
index eb4f6a8..987ada9 100644 (file)
--- a/libm/s_trunc.c
+++ b/libm/s_trunc.c
@@ -24,30 +24,30 @@
 double
 trunc (double x)
 {
-  int32_t i0, j0;
+  int32_t i0, _j0;
   u_int32_t i1;
   int sx;
 
   EXTRACT_WORDS (i0, i1, x);
   sx = i0 & 0x80000000;
-  j0 = ((i0 >> 20) & 0x7ff) - 0x3ff;
-  if (j0 < 20)
+  _j0 = ((i0 >> 20) & 0x7ff) - 0x3ff;
+  if (_j0 < 20)
     {
-      if (j0 < 0)
+      if (_j0 < 0)
        /* The magnitude of the number is < 1 so the result is +-0.  */
        INSERT_WORDS (x, sx, 0);
       else
-       INSERT_WORDS (x, sx | (i0 & ~(0x000fffff >> j0)), 0);
+       INSERT_WORDS (x, sx | (i0 & ~(0x000fffff >> _j0)), 0);
     }
-  else if (j0 > 51)
+  else if (_j0 > 51)
     {
-      if (j0 == 0x400)
+      if (_j0 == 0x400)
        /* x is inf or NaN.  */
        return x + x;
     }
   else
     {
-      INSERT_WORDS (x, i0, i1 & ~(0xffffffffu >> (j0 - 20)));
+      INSERT_WORDS (x, i0, i1 & ~(0xffffffffu >> (_j0 - 20)));
     }
 
   return x;