Lines Matching refs:ux
33 union IEEEl2bits ux, uy;
35 ux.e = x;
38 if ((ux.bits.exp == 0x7fff &&
39 ((ux.bits.manh&~LDBL_NBIT)|ux.bits.manl) != 0) ||
45 ux.bits.manh = 0; /* return +-minsubnormal */
46 ux.bits.manl = 1;
47 ux.bits.sign = uy.bits.sign;
48 t = ux.e*ux.e;
49 if(t==ux.e) return t; else return ux.e; /* raise underflow flag */
52 if(ux.bits.manl==0) {
53 if ((ux.bits.manh&~LDBL_NBIT)==0)
54 ux.bits.exp -= 1;
55 ux.bits.manh = (ux.bits.manh - 1) | (ux.bits.manh & LDBL_NBIT);
57 ux.bits.manl -= 1;
59 ux.bits.manl += 1;
60 if(ux.bits.manl==0) {
61 ux.bits.manh = (ux.bits.manh + 1) | (ux.bits.manh & LDBL_NBIT);
62 if ((ux.bits.manh&~LDBL_NBIT)==0)
63 ux.bits.exp += 1;
66 if(ux.bits.exp==0x7fff) return x+x; /* overflow */
67 if(ux.bits.exp==0) { /* underflow */
68 mask_nbit_l(ux);
69 t = ux.e * ux.e;
70 if(t!=ux.e) /* raise underflow flag */
71 return ux.e;
73 return ux.e;