| 1181 | |
| 1182 | |
| 1183 | static double ulp(U *x) |
| 1184 | { |
| 1185 | register Long L; |
| 1186 | U u; |
| 1187 | |
| 1188 | L= (word0(x) & Exp_mask) - (P - 1)*Exp_msk1; |
| 1189 | word0(&u) = L; |
| 1190 | word1(&u) = 0; |
| 1191 | return dval(&u); |
| 1192 | } |
| 1193 | |
| 1194 | |
| 1195 | static double b2d(Bigint *a, int *e) |