Lines Matching refs:ux
39 union IEEEl2bits ux, uy;
41 ux.e = x;
44 if ((ux.bits.exp == 0x7fff &&
45 ((ux.bits.manh&~LDBL_NBIT)|ux.bits.manl) != 0) ||
51 ux.bits.manh = 0; /* return +-minsubnormal */
52 ux.bits.manl = 1;
53 ux.bits.sign = uy.bits.sign;
54 t = ux.e*ux.e;
55 if(t==ux.e) return t; else return ux.e; /* raise underflow flag */
58 if(ux.bits.manl==0) {
59 if ((ux.bits.manh&~LDBL_NBIT)==0)
60 ux.bits.exp -= 1;
61 ux.bits.manh = (ux.bits.manh - 1) | (ux.bits.manh & LDBL_NBIT);
63 ux.bits.manl -= 1;
65 ux.bits.manl += 1;
66 if(ux.bits.manl==0) {
67 ux.bits.manh = (ux.bits.manh + 1) | (ux.bits.manh & LDBL_NBIT);
68 if ((ux.bits.manh&~LDBL_NBIT)==0)
69 ux.bits.exp += 1;
72 if(ux.bits.exp==0x7fff) return x+x; /* overflow */
73 if(ux.bits.exp==0) { /* underflow */
74 mask_nbit_l(ux);
75 t = ux.e * ux.e;
76 if(t!=ux.e) /* raise underflow flag */
77 return ux.e;
79 return ux.e;
