diff options
author | tpearson <tpearson@283d02a7-25f6-0310-bc7c-ecb5cbfe19da> | 2011-01-07 03:45:53 +0000 |
---|---|---|
committer | tpearson <tpearson@283d02a7-25f6-0310-bc7c-ecb5cbfe19da> | 2011-01-07 03:45:53 +0000 |
commit | 10308be19ef7fa44699562cc75946e7ea1fdf6b9 (patch) | |
tree | 4bc444c00a79e88105f2cfce5b6209994c413ca0 /kjs/dtoa.cpp | |
parent | 307136d8eef0ba133b78ceee8e901138d4c996a1 (diff) | |
download | tdelibs-10308be19ef7fa44699562cc75946e7ea1fdf6b9.tar.gz tdelibs-10308be19ef7fa44699562cc75946e7ea1fdf6b9.zip |
Revert automated changes
Sorry guys, they are just not ready for prime time
Work will continue as always
git-svn-id: svn://anonsvn.kde.org/home/kde/branches/trinity/kdelibs@1212479 283d02a7-25f6-0310-bc7c-ecb5cbfe19da
Diffstat (limited to 'kjs/dtoa.cpp')
-rw-r--r-- | kjs/dtoa.cpp | 116 |
1 files changed, 58 insertions, 58 deletions
diff --git a/kjs/dtoa.cpp b/kjs/dtoa.cpp index a4d86f208..054450f12 100644 --- a/kjs/dtoa.cpp +++ b/kjs/dtoa.cpp @@ -307,19 +307,19 @@ typedef union { double d; ULong L[2]; } U; #define Exp_shift1 20 #define Exp_msk1 0x100000 #define Exp_msk11 0x100000 -#define Exp_tqmask 0x7ff00000 +#define Exp_mask 0x7ff00000 #define P 53 #define Bias 1023 #define Emin (-1022) #define Exp_1 0x3ff00000 #define Exp_11 0x3ff00000 #define Ebits 11 -#define Frac_tqmask 0xfffff -#define Frac_tqmask1 0xfffff +#define Frac_mask 0xfffff +#define Frac_mask1 0xfffff #define Ten_pmax 22 #define Bletch 0x10 -#define Bndry_tqmask 0xfffff -#define Bndry_tqmask1 0xfffff +#define Bndry_mask 0xfffff +#define Bndry_mask1 0xfffff #define LSB 1 #define Sign_bit 0x80000000 #define Log2P 1 @@ -363,18 +363,18 @@ typedef union { double d; ULong L[2]; } U; #define Exp_shift1 24 #define Exp_msk1 0x1000000 #define Exp_msk11 0x1000000 -#define Exp_tqmask 0x7f000000 +#define Exp_mask 0x7f000000 #define P 14 #define Bias 65 #define Exp_1 0x41000000 #define Exp_11 0x41000000 #define Ebits 8 /* exponent has 7 bits, but 8 is the right value in b2d */ -#define Frac_tqmask 0xffffff -#define Frac_tqmask1 0xffffff +#define Frac_mask 0xffffff +#define Frac_mask1 0xffffff #define Bletch 4 #define Ten_pmax 22 -#define Bndry_tqmask 0xefffff -#define Bndry_tqmask1 0xffffff +#define Bndry_mask 0xefffff +#define Bndry_mask1 0xffffff #define LSB 1 #define Sign_bit 0x80000000 #define Log2P 4 @@ -389,18 +389,18 @@ typedef union { double d; ULong L[2]; } U; #define Exp_shift1 7 #define Exp_msk1 0x80 #define Exp_msk11 0x800000 -#define Exp_tqmask 0x7f80 +#define Exp_mask 0x7f80 #define P 56 #define Bias 129 #define Exp_1 0x40800000 #define Exp_11 0x4080 #define Ebits 8 -#define Frac_tqmask 0x7fffff -#define Frac_tqmask1 0xffff007f +#define Frac_mask 0x7fffff +#define Frac_mask1 0xffff007f #define Ten_pmax 24 #define Bletch 2 -#define Bndry_tqmask 0xffff007f -#define Bndry_tqmask1 0xffff007f +#define Bndry_mask 0xffff007f +#define Bndry_mask1 0xffff007f #define LSB 0x10000 #define Sign_bit 0x8000 #define Log2P 1 @@ -424,7 +424,7 @@ extern double rnd_prod(double, double), rnd_quot(double, double); #define rounded_quotient(a,b) a /= b #endif -#define Big0 (Frac_tqmask1 | Exp_msk1*(DBL_MAX_EXP+Bias-1)) +#define Big0 (Frac_mask1 | Exp_msk1*(DBL_MAX_EXP+Bias-1)) #define Big1 0xffffffff #ifndef Pack_32 @@ -1039,7 +1039,7 @@ ulp U x, a; dval(x) = dx; - L = (word0(x) & Exp_tqmask) - (P-1)*Exp_msk1; + L = (word0(x) & Exp_mask) - (P-1)*Exp_msk1; #ifndef Avoid_Underflow #ifndef Sudden_Underflow if (L > 0) { @@ -1166,7 +1166,7 @@ d2b #endif x = b->x; - z = d0 & Frac_tqmask; + z = d0 & Frac_mask; d0 &= 0x7fffffff; /* clear sign bit, which we ignore */ #ifdef Sudden_Underflow de = (int)(d0 >> Exp_shift); @@ -1253,7 +1253,7 @@ d2b #endif #ifdef IBM *e = (de - Bias - (P-1) << 2) + k; - *bits = 4*P + 8 - k - hi0bits(word0(d) & Frac_tqmask); + *bits = 4*P + 8 - k - hi0bits(word0(d) & Frac_mask); #else *e = de - Bias - (P-1) + k; *bits = P - k; @@ -1423,7 +1423,7 @@ hexnan x[1] = (x[1] << 4) | c; } if ((x[0] &= 0xfffff) || x[1]) { - word0(*rvp) = Exp_tqmask | x[0]; + word0(*rvp) = Exp_mask | x[0]; word1(*rvp) = x[1]; } } @@ -1680,7 +1680,7 @@ strtod vax_ovfl_check: word0(rv) -= P*Exp_msk1; /* rv = */ rounded_product(dval(rv), tens[e]); - if ((word0(rv) & Exp_tqmask) + if ((word0(rv) & Exp_mask) > Exp_msk1*(DBL_MAX_EXP+Bias-1-P)) goto ovfl; word0(rv) += P*Exp_msk1; @@ -1747,11 +1747,11 @@ strtod word1(rv) = Big1; break; default: - word0(rv) = Exp_tqmask; + word0(rv) = Exp_mask; word1(rv) = 0; } #else /*Honor_FLT_ROUNDS*/ - word0(rv) = Exp_tqmask; + word0(rv) = Exp_mask; word1(rv) = 0; #endif /*Honor_FLT_ROUNDS*/ #ifdef SET_INEXACT @@ -1774,7 +1774,7 @@ strtod /* The last multiplication could overflow. */ word0(rv) -= P*Exp_msk1; dval(rv) *= bigtens[j]; - if ((z = word0(rv) & Exp_tqmask) + if ((z = word0(rv) & Exp_mask) > Exp_msk1*(DBL_MAX_EXP+Bias-P)) goto ovfl; if (z > Exp_msk1*(DBL_MAX_EXP+Bias-1-P)) { @@ -1800,7 +1800,7 @@ strtod for(j = 0; e1 > 0; j++, e1 >>= 1) if (e1 & 1) dval(rv) *= tinytens[j]; - if (scale && (j = 2*P + 1 - ((word0(rv) & Exp_tqmask) + if (scale && (j = 2*P + 1 - ((word0(rv) & Exp_mask) >> Exp_shift)) > 0) { /* scaled rv is denormal; zap j low bits */ if (j >= 32) { @@ -1948,8 +1948,8 @@ strtod else if (!dsign) { adj = -1.; if (!word1(rv) - && !(word0(rv) & Frac_tqmask)) { - y = word0(rv) & Exp_tqmask; + && !(word0(rv) & Frac_mask)) { + y = word0(rv) & Exp_mask; #ifdef Avoid_Underflow if (!scale || y > 2*P*Exp_msk1) #else @@ -1963,12 +1963,12 @@ strtod } apply_adj: #ifdef Avoid_Underflow - if (scale && (y = word0(rv) & Exp_tqmask) + if (scale && (y = word0(rv) & Exp_mask) <= 2*P*Exp_msk1) word0(adj) += (2*P+1)*Exp_msk1 - y; #else #ifdef Sudden_Underflow - if ((word0(rv) & Exp_tqmask) <= + if ((word0(rv) & Exp_mask) <= P*Exp_msk1) { word0(rv) += P*Exp_msk1; dval(rv) += adj*ulp(dval(rv)); @@ -1994,11 +1994,11 @@ strtod } } #ifdef Avoid_Underflow - if (scale && (y = word0(rv) & Exp_tqmask) <= 2*P*Exp_msk1) + if (scale && (y = word0(rv) & Exp_mask) <= 2*P*Exp_msk1) word0(adj) += (2*P+1)*Exp_msk1 - y; #else #ifdef Sudden_Underflow - if ((word0(rv) & Exp_tqmask) <= P*Exp_msk1) { + if ((word0(rv) & Exp_mask) <= P*Exp_msk1) { word0(rv) += P*Exp_msk1; adj *= ulp(dval(rv)); if (dsign) @@ -2023,12 +2023,12 @@ strtod /* Error is less than half an ulp -- check for * special case of mantissa a power of two. */ - if (dsign || word1(rv) || word0(rv) & Bndry_tqmask + if (dsign || word1(rv) || word0(rv) & Bndry_mask #ifdef IEEE_Arith #ifdef Avoid_Underflow - || (word0(rv) & Exp_tqmask) <= (2*P+1)*Exp_msk1 + || (word0(rv) & Exp_mask) <= (2*P+1)*Exp_msk1 #else - || (word0(rv) & Exp_tqmask) <= Exp_msk1 + || (word0(rv) & Exp_mask) <= Exp_msk1 #endif #endif ) { @@ -2053,15 +2053,15 @@ strtod if (i == 0) { /* exactly half-way between */ if (dsign) { - if ((word0(rv) & Bndry_tqmask1) == Bndry_tqmask1 + if ((word0(rv) & Bndry_mask1) == Bndry_mask1 && word1(rv) == ( #ifdef Avoid_Underflow - (scale && (y = word0(rv) & Exp_tqmask) <= 2*P*Exp_msk1) + (scale && (y = word0(rv) & Exp_mask) <= 2*P*Exp_msk1) ? (0xffffffff & (0xffffffff << (2*P+1-(y>>Exp_shift)))) : #endif 0xffffffff)) { /*boundary case -- increment exponent*/ - word0(rv) = (word0(rv) & Exp_tqmask) + word0(rv) = (word0(rv) & Exp_mask) + Exp_msk1 #ifdef IBM | Exp_msk1 >> 4 @@ -2074,11 +2074,11 @@ strtod break; } } - else if (!(word0(rv) & Bndry_tqmask) && !word1(rv)) { + else if (!(word0(rv) & Bndry_mask) && !word1(rv)) { drop_down: /* boundary case -- decrement exponent */ #ifdef Sudden_Underflow /*{{*/ - L = word0(rv) & Exp_tqmask; + L = word0(rv) & Exp_mask; #ifdef IBM if (L < Exp_msk1) #else @@ -2093,7 +2093,7 @@ strtod #else /*Sudden_Underflow}{*/ #ifdef Avoid_Underflow if (scale) { - L = word0(rv) & Exp_tqmask; + L = word0(rv) & Exp_mask; if (L <= (2*P+1)*Exp_msk1) { if (L > (P+2)*Exp_msk1) /* round even ==> */ @@ -2104,9 +2104,9 @@ strtod } } #endif /*Avoid_Underflow*/ - L = (word0(rv) & Exp_tqmask) - Exp_msk1; + L = (word0(rv) & Exp_mask) - Exp_msk1; #endif /*Sudden_Underflow}}*/ - word0(rv) = L | Bndry_tqmask1; + word0(rv) = L | Bndry_mask1; word1(rv) = 0xffffffff; #ifdef IBM goto cont; @@ -2137,7 +2137,7 @@ strtod if ((aadj = ratio(delta, bs)) <= 2.) { if (dsign) aadj = aadj1 = 1.; - else if (word1(rv) || word0(rv) & Bndry_tqmask) { + else if (word1(rv) || word0(rv) & Bndry_mask) { #ifndef Sudden_Underflow if (word1(rv) == Tiny1 && !word0(rv)) goto undfl; @@ -2173,7 +2173,7 @@ strtod aadj1 += 0.5; #endif /*Check_FLT_ROUNDS*/ } - y = word0(rv) & Exp_tqmask; + y = word0(rv) & Exp_mask; /* Check for overflow */ @@ -2182,7 +2182,7 @@ strtod word0(rv) -= P*Exp_msk1; adj = aadj1 * ulp(dval(rv)); dval(rv) += adj; - if ((word0(rv) & Exp_tqmask) >= + if ((word0(rv) & Exp_mask) >= Exp_msk1*(DBL_MAX_EXP+Bias-P)) { if (word0(rv0) == Big0 && word1(rv0) == Big1) goto ovfl; @@ -2210,15 +2210,15 @@ strtod dval(rv) += adj; #else #ifdef Sudden_Underflow - if ((word0(rv) & Exp_tqmask) <= P*Exp_msk1) { + if ((word0(rv) & Exp_mask) <= P*Exp_msk1) { dval(rv0) = dval(rv); word0(rv) += P*Exp_msk1; adj = aadj1 * ulp(dval(rv)); dval(rv) += adj; #ifdef IBM - if ((word0(rv) & Exp_tqmask) < P*Exp_msk1) + if ((word0(rv) & Exp_mask) < P*Exp_msk1) #else - if ((word0(rv) & Exp_tqmask) <= P*Exp_msk1) + if ((word0(rv) & Exp_mask) <= P*Exp_msk1) #endif { if (word0(rv0) == Tiny0 @@ -2253,7 +2253,7 @@ strtod #endif /*Sudden_Underflow*/ #endif /*Avoid_Underflow*/ } - z = word0(rv) & Exp_tqmask; + z = word0(rv) & Exp_mask; #ifndef SET_INEXACT #ifdef Avoid_Underflow if (!scale) @@ -2263,7 +2263,7 @@ strtod L = (Long)aadj; aadj -= L; /* The tolerances below are conservative. */ - if (dsign || word1(rv) || word0(rv) & Bndry_tqmask) { + if (dsign || word1(rv) || word0(rv) & Bndry_mask) { if (aadj < .4999999 || aadj > .5000001) break; } @@ -2301,7 +2301,7 @@ strtod } #endif /* Avoid_Underflow */ #ifdef SET_INEXACT - if (inexact && !(word0(rv) & Exp_tqmask)) { + if (inexact && !(word0(rv) & Exp_mask)) { /* set underflow bit */ dval(rv0) = 1e-300; dval(rv0) *= dval(rv0); @@ -2595,7 +2595,7 @@ dtoa #if defined(IEEE_Arith) + defined(VAX) #ifdef IEEE_Arith - if ((word0(d) & Exp_tqmask) == Exp_tqmask) + if ((word0(d) & Exp_mask) == Exp_mask) #else if (word0(d) == 0x8000) #endif @@ -2633,15 +2633,15 @@ dtoa b = d2b(dval(d), &be, &bbits); #ifdef Sudden_Underflow - i = (int)(word0(d) >> Exp_shift1 & (Exp_tqmask>>Exp_shift1)); + i = (int)(word0(d) >> Exp_shift1 & (Exp_mask>>Exp_shift1)); #else - if ((i = (int)(word0(d) >> Exp_shift1 & (Exp_tqmask>>Exp_shift1)))) { + if ((i = (int)(word0(d) >> Exp_shift1 & (Exp_mask>>Exp_shift1)))) { #endif dval(d2) = dval(d); - word0(d2) &= Frac_tqmask1; + word0(d2) &= Frac_mask1; word0(d2) |= Exp_11; #ifdef IBM - if (j = 11 - hi0bits(word0(d2) & Frac_tqmask)) + if (j = 11 - hi0bits(word0(d2) & Frac_mask)) dval(d2) /= 1 << j; #endif @@ -2969,9 +2969,9 @@ dtoa && rounding == 1 #endif ) { - if (!word1(d) && !(word0(d) & Bndry_tqmask) + if (!word1(d) && !(word0(d) & Bndry_mask) #ifndef Sudden_Underflow - && word0(d) & (Exp_tqmask & ~Exp_msk1) + && word0(d) & (Exp_mask & ~Exp_msk1) #endif ) { /* The special case */ |