Lines Matching defs:ux
37 union IEEEl2bits ux, uy;
39 ux.e = x;
42 if ((ux.bits.exp == 0x7fff &&
43 ((ux.bits.manh&~LDBL_NBIT)|ux.bits.manl) != 0) ||
49 ux.bits.manh = 0; /* return +-minsubnormal */
50 ux.bits.manl = 1;
51 ux.bits.sign = uy.bits.sign;
52 t = ux.e*ux.e;
53 if(t==ux.e) return t; else return ux.e; /* raise underflow flag */
56 if(ux.bits.manl==0) {
57 if ((ux.bits.manh&~LDBL_NBIT)==0)
58 ux.bits.exp -= 1;
59 ux.bits.manh = (ux.bits.manh - 1) | (ux.bits.manh & LDBL_NBIT);
61 ux.bits.manl -= 1;
63 ux.bits.manl += 1;
64 if(ux.bits.manl==0) {
65 ux.bits.manh = (ux.bits.manh + 1) | (ux.bits.manh & LDBL_NBIT);
66 if ((ux.bits.manh&~LDBL_NBIT)==0)
67 ux.bits.exp += 1;
70 if(ux.bits.exp==0x7fff) return x+x; /* overflow */
71 if(ux.bits.exp==0) { /* underflow */
72 mask_nbit_l(ux);
73 t = ux.e * ux.e;
74 if(t!=ux.e) /* raise underflow flag */
75 return ux.e;
77 return ux.e;
