*** 74,85 ****
          union {
                  unsigned i[2];
                  double d;
          } xx, yy, zz;
          double xhi, yhi, xlo, ylo, t;
!         unsigned int xy0, xy1, xy2, xy3, z0, z1, z2, z3, rm, sticky;
!         unsigned int fsr;
          int hx, hy, hz, ex, ey, ez, exy, sxy, sz, e, ibit;
          volatile double dummy;
  
          /* extract the high order words of the arguments */
          xx.d = x;
--- 74,84 ----
          union {
                  unsigned i[2];
                  double d;
          } xx, yy, zz;
          double xhi, yhi, xlo, ylo, t;
!         unsigned int xy0, xy1, xy2, xy3, z0, z1, z2, z3, fsr, rm, sticky;
          int hx, hy, hz, ex, ey, ez, exy, sxy, sz, e, ibit;
          volatile double dummy;
  
          /* extract the high order words of the arguments */
          xx.d = x;