config/libbid/bid64_noncomp.c

82   unsigned int exp_x;
95       exp_x = (x & MASK_BINARY_EXPONENT2) >> 51;
102       exp_x = (x & MASK_BINARY_EXPONENT1) >> 53;
105     // if (exp_x - 398 = -383) the number may be subnormal
106     if (exp_x < 15) {
107       __mul_64x64_to_128MACH (sig_x_prime, sig_x, mult_factor[exp_x]);
134   unsigned int exp_x;
147       exp_x = (x & MASK_BINARY_EXPONENT2) >> 51;
154       exp_x = (x & MASK_BINARY_EXPONENT1) >> 53;
157     // if (exp_x - 398 = -383) the number may be subnormal
158     if (exp_x < 15) {
159       __mul_64x64_to_128MACH (sig_x_prime, sig_x, mult_factor[exp_x]);
367   int exp_x;
399     exp_x = (x & MASK_BINARY_EXPONENT2) >> 51;
407     exp_x = (x & MASK_BINARY_EXPONENT1) >> 53;
410   //  if (exp_x - 398 < -383)
411   if (exp_x < 15) {	// sig_x *10^exp_x
412     __mul_64x64_to_128MACH (sig_x_prime, sig_x, mult_factor[exp_x]);
442   unsigned int exp_x, exp_y;
456     exp_x = (x & MASK_BINARY_EXPONENT2) >> 51;
458     exp_x = (x & MASK_BINARY_EXPONENT1) >> 53;
465   res = (exp_x == exp_y);
480   int exp_x, exp_y;
612     exp_x = (x & MASK_BINARY_EXPONENT2) >> 51;
618     exp_x = (x & MASK_BINARY_EXPONENT1) >> 53;
642   // both are negative , return true iff exp_x <= exp_y
647       // totalOrder(x,y) iff exp_x >= exp_y for negative numbers
648       // totalOrder(x,y) iff exp_x <= exp_y for positive numbers
649       if (exp_x == exp_y) {
653       res = (exp_x <= exp_y) ^ ((x & MASK_SIGN) == MASK_SIGN);
676   if (sig_x > sig_y && exp_x >= exp_y) {
680   if (sig_x < sig_y && exp_x <= exp_y) {
684   // if exp_x is 15 greater than exp_y, it is
686   if (exp_x - exp_y > 15) {
691   // if exp_x is 15 less than exp_y, it is
693   if (exp_y - exp_x > 15) {
697   // if |exp_x - exp_y| < 15, it comes down
699   if (exp_x > exp_y) {
702 			    mult_factor[exp_x - exp_y]);
704     // and both are negative, return true iff exp_x <= exp_y
708       res = (exp_x <= exp_y) ^ ((x & MASK_SIGN) == MASK_SIGN);
719 			  mult_factor[exp_y - exp_x]);
722   // and both are negative, return true iff exp_x <= exp_y
726     res = (exp_x <= exp_y) ^ ((x & MASK_SIGN) == MASK_SIGN);
750   int exp_x, exp_y;
834     exp_x = (x & MASK_BINARY_EXPONENT2) >> 51;
840     exp_x = (x & MASK_BINARY_EXPONENT1) >> 53;
865   // and both are negative , return true iff exp_x <= exp_y
867     // totalOrder(x,y) iff exp_x <= exp_y for positive numbers
868     res = (exp_x <= exp_y);
883   if (sig_x > sig_y && exp_x >= exp_y) {
887   if (sig_x < sig_y && exp_x <= exp_y) {
891   // if exp_x is 15 greater than exp_y, it is definitely
893   if (exp_x - exp_y > 15) {
897   // if exp_x is 15 less than exp_y, it is definitely
899   if (exp_y - exp_x > 15) {
903   // if |exp_x - exp_y| < 15, it comes down
905   if (exp_x > exp_y) {
909 			    mult_factor[exp_x - exp_y]);
912     // and both are negative, return true iff exp_x <= exp_y
916       res = (exp_x <= exp_y);
925 			  mult_factor[exp_y - exp_x]);
928   // and both are negative, return true iff exp_x <= exp_y
930     res = (exp_x <= exp_y);