h 4979 src/decNumber/decNumber.c Int h; // adjusted exponent for 0.xxxx h 5067 src/decNumber/decNumber.c h=rhs->exponent+rhs->digits; h 5073 src/decNumber/decNumber.c if (h>8) { // overflow/underflow h 5080 src/decNumber/decNumber.c h=8; // clamp so 10**h computable h 5095 src/decNumber/decNumber.c Int lever=MINI(8-h, maxlever); // leverage attainable h 5097 src/decNumber/decNumber.c h+=lever; // apply leverage selected h 5098 src/decNumber/decNumber.c if (h<0) { // clamp h 5099 src/decNumber/decNumber.c use+=h; // [may end up subnormal] h 5100 src/decNumber/decNumber.c h=0; h 5129 src/decNumber/decNumber.c p=MAXI(x->digits, set->digits)+h+2; // [h<=8] h 5192 src/decNumber/decNumber.c if (h>0) { h 5195 src/decNumber/decNumber.c Int n=powers[h]; // always positive h 41 src/dps8/dps8.h typedef struct { uint64_t h; uint64_t l; } x__uint128_t; h 42 src/dps8/dps8.h typedef struct { int64_t h; uint64_t l; } x__int128_t; h 43 src/dps8/dps8.h # define construct_128(h, l) ((uint128) { (h), (l) }) h 44 src/dps8/dps8.h # define construct_s128(h, l) ((int128) { (h), (l) }) h 349 src/dps8/dps8_crdrdr.c h 353 src/dps8/dps8_crdrdr.c h 354 src/dps8/dps8_crdrdr.c h 333 src/dps8/dps8_hw_consts.h return (int128) { (uint64_t) v.h, v.l}; h 335 src/dps8/dps8_hw_consts.h return (int128) { (int64_t) v.h, v.l}; h 337 src/dps8/dps8_hw_consts.h return (int128) { (__int64_t) v.h, v.l}; h 3548 src/dps8/dps8_math.c if (sm1.h < 0) h 3551 src/dps8/dps8_math.c if (sm2.h < 0) h 40 src/dps8/dps8_math128.c if (w.h || w.l) h 47 src/dps8/dps8_math128.c if (w.h || w.l) h 54 src/dps8/dps8_math128.c return a.h == b.h && a.l == b.l; h 59 src/dps8/dps8_math128.c if (a.h > b.h) return true; h 60 src/dps8/dps8_math128.c if (a.h < b.h) return false; h 67 src/dps8/dps8_math128.c if (a.h < b.h) return true; h 68 src/dps8/dps8_math128.c if (a.h > b.h) return false; h 75 src/dps8/dps8_math128.c if (a.h > b.h) return true; h 76 src/dps8/dps8_math128.c if (a.h < b.h) return false; h 83 src/dps8/dps8_math128.c if (a.h < b.h) return true; h 84 src/dps8/dps8_math128.c if (a.h > b.h) return false; h 91 src/dps8/dps8_math128.c if (a.h > b.h) return true; h 92 src/dps8/dps8_math128.c if (a.h < b.h) return false; h 99 src/dps8/dps8_math128.c return (uint128) {a.h & b.h, a.l & b.l}; h 104 src/dps8/dps8_math128.c return (int128) {a.h & (int64_t)b.h, a.l & b.l}; h 109 src/dps8/dps8_math128.c return (uint128) {a.h | b.h, a.l | b.l}; h 114 src/dps8/dps8_math128.c return (uint128) {a.h ^ b.h, a.l ^ b.l}; h 119 src/dps8/dps8_math128.c return (uint128) {~ a.h, ~ a.l}; h 141 src/dps8/dps8_math128.c uint64_t h64 = a.h + b.h + c64; // compute the high h 150 src/dps8/dps8_math128.c uint128 res = construct_128 (a.h - b.h, a.l - b.l); h 152 src/dps8/dps8_math128.c res.h --; h 186 src/dps8/dps8_math128.c uint64_t h = a.h << n; h 189 src/dps8/dps8_math128.c h |= keep; h 191 src/dps8/dps8_math128.c return construct_128 (h, l); h 193 src/dps8/dps8_math128.c uint64_t h = a.l << (n - 64); h 194 src/dps8/dps8_math128.c return construct_128 (h, 0); h 206 src/dps8/dps8_math128.c h 211 src/dps8/dps8_math128.c h 219 src/dps8/dps8_math128.c h 226 src/dps8/dps8_math128.c h 231 src/dps8/dps8_math128.c h 232 src/dps8/dps8_math128.c h 236 src/dps8/dps8_math128.c h 238 src/dps8/dps8_math128.c h 239 src/dps8/dps8_math128.c h 253 src/dps8/dps8_math128.c uint64_t h = a.h; h 255 src/dps8/dps8_math128.c uint64_t sign = a.h & SIGN64; h 258 src/dps8/dps8_math128.c uint64_t b = (h & 1) ? SIGN64 : 0; h 259 src/dps8/dps8_math128.c h >>= 1; h 260 src/dps8/dps8_math128.c h |= sign; h 266 src/dps8/dps8_math128.c return construct_128 (h, l); h 481 src/dps8/dps8_math128.c u[3] = (uint32_t) (a.h >> 32); h 482 src/dps8/dps8_math128.c u[2] = (uint32_t) a.h; h 485 src/dps8/dps8_math128.c v[3] = (uint32_t) (b.h >> 32); h 486 src/dps8/dps8_math128.c v[2] = (uint32_t) b.h; h 501 src/dps8/dps8_math128.c u[3] = (uint32_t) (a.h >> 32); h 502 src/dps8/dps8_math128.c u[2] = (uint32_t) a.h; h 505 src/dps8/dps8_math128.c v[3] = (uint32_t) (b.h >> 32); h 506 src/dps8/dps8_math128.c v[2] = (uint32_t) b.h; h 525 src/dps8/dps8_math128.c u[4] = (uint16_t) a.h; h 526 src/dps8/dps8_math128.c u[5] = (uint16_t) (a.h >> 16); h 527 src/dps8/dps8_math128.c u[6] = (uint16_t) (a.h >> 32); h 528 src/dps8/dps8_math128.c u[7] = (uint16_t) (a.h >> 48); h 534 src/dps8/dps8_math128.c v[4] = (uint16_t) b.h; h 535 src/dps8/dps8_math128.c v[5] = (uint16_t) (b.h >> 16); h 536 src/dps8/dps8_math128.c v[6] = (uint16_t) (b.h >> 32); h 537 src/dps8/dps8_math128.c v[7] = (uint16_t) (b.h >> 48); h 580 src/dps8/dps8_math128.c u[4] = (uint16_t) a.h; h 581 src/dps8/dps8_math128.c u[5] = (uint16_t) (a.h >> 16); h 582 src/dps8/dps8_math128.c u[6] = (uint16_t) (a.h >> 32); h 583 src/dps8/dps8_math128.c u[7] = (uint16_t) (a.h >> 48); h 616 src/dps8/dps8_math128.c u[4] = (uint16_t) a.h; h 617 src/dps8/dps8_math128.c u[5] = (uint16_t) (a.h >> 16); h 618 src/dps8/dps8_math128.c u[6] = (uint16_t) (a.h >> 32); h 619 src/dps8/dps8_math128.c u[7] = (uint16_t) (a.h >> 48); h 643 src/dps8/dps8_math128.c static void tisz (uint64_t h, uint64_t l, bool expect) h 645 src/dps8/dps8_math128.c bool r = iszero_128 (construct_128 (h, l)); h 650 src/dps8/dps8_math128.c (unsigned long long)h, (unsigned long long)l, (unsigned long)r); h 662 src/dps8/dps8_math128.c if (r.h != rh || r.l != rl) { h 666 src/dps8/dps8_math128.c (unsigned long long)bl, (unsigned long long)r.h, (unsigned long long)r.l); h 678 src/dps8/dps8_math128.c if (r.h != rh || r.l != rl) { h 682 src/dps8/dps8_math128.c (unsigned long long)bl, (unsigned long long)r.h, (unsigned long long)r.l); h 693 src/dps8/dps8_math128.c if (r.h != rh || r.l != rl) { h 696 src/dps8/dps8_math128.c (unsigned long long)ah, (unsigned long long)al, (unsigned long long)r.h, h 709 src/dps8/dps8_math128.c if (r.h != rh || r.l != rl) { h 713 src/dps8/dps8_math128.c (unsigned long long)bl, (unsigned long long)r.h, (unsigned long long)r.l); h 725 src/dps8/dps8_math128.c if (r.h != rh || r.l != rl) { h 729 src/dps8/dps8_math128.c (unsigned long long)bl, (unsigned long long)r.h, (unsigned long long)r.l); h 740 src/dps8/dps8_math128.c if (r.h != rh || r.l != rl) { h 743 src/dps8/dps8_math128.c (unsigned long long)ah, (unsigned long long)al, (unsigned long long)r.h, h 771 src/dps8/dps8_math128.c if (r.h != rh || r.l != rl) { h 775 src/dps8/dps8_math128.c (unsigned long long)r.h, (unsigned long long)r.l); h 786 src/dps8/dps8_math128.c if (r.h != rh || r.l != rl) { h 790 src/dps8/dps8_math128.c (unsigned long long)r.h, (unsigned long long)r.l); h 802 src/dps8/dps8_math128.c if (r.h != rh || r.l != rl) { h 806 src/dps8/dps8_math128.c (unsigned long long)bl, (unsigned long long)r.h, (unsigned long long)r.l); h 818 src/dps8/dps8_math128.c if (r.h != rh || r.l != rl) { h 822 src/dps8/dps8_math128.c (unsigned long long)bl, (unsigned long long)r.h, (unsigned long long)r.l); h 835 src/dps8/dps8_math128.c if (res.h != resh || res.l != resl || rem != remainder) { h 839 src/dps8/dps8_math128.c (unsigned long long)res.h, (unsigned long long)res.l, rem); h 852 src/dps8/dps8_math128.c if (res.h != resh || res.l != resl || rem != remainder) { h 856 src/dps8/dps8_math128.c (unsigned long long)res.h, (unsigned long long)res.l, rem); h 26 src/dps8/dps8_math128.h # define cast_128(x) construct_128 ((uint64_t) (x).h, (x).l) h 27 src/dps8/dps8_math128.h # define cast_s128(x) construct_s128 ((int64_t) (x).h, (x).l) h 126 src/dps8/dps8_mgp.c hash32s(const void *buf, size_t len, uint32_t h) h 131 src/dps8/dps8_mgp.c h = h * 31 + p[i]; h 133 src/dps8/dps8_mgp.c h ^= h >> 17; h 134 src/dps8/dps8_mgp.c h *= UINT32_C(0xed5ad4bb); h 135 src/dps8/dps8_mgp.c h ^= h >> 11; h 136 src/dps8/dps8_mgp.c h *= UINT32_C(0xac4c1b51); h 137 src/dps8/dps8_mgp.c h ^= h >> 15; h 138 src/dps8/dps8_mgp.c h *= UINT32_C(0x31848bab); h 139 src/dps8/dps8_mgp.c h ^= h >> 14; h 141 src/dps8/dps8_mgp.c return h; h 1158 src/dps8/dps8_mgp.c uint32_t h = 0; /* initial hash value */ h 1162 src/dps8/dps8_mgp.c h = hash32s(&mallocptr, sizeof(mallocptr), h); h 1165 src/dps8/dps8_mgp.c h = hash32s(&small, sizeof(small), h); h 1168 src/dps8/dps8_mgp.c h = hash32s(&big, sizeof(big), h); h 1171 src/dps8/dps8_mgp.c h = hash32s(&ptr, sizeof(ptr), h); h 1173 src/dps8/dps8_mgp.c h = hash32s(&t, sizeof(t), h); h 1182 src/dps8/dps8_mgp.c h = hash32s(&start, sizeof(start), h); h 1183 src/dps8/dps8_mgp.c h = hash32s(&counter, sizeof(counter), h); h 1186 src/dps8/dps8_mgp.c h = hash32s(&mypid, sizeof(mypid), h); h 1193 src/dps8/dps8_mgp.c h = hash32s(rnd, sizeof(rnd), h); h 1197 src/dps8/dps8_mgp.c srandom(h); h 4209 src/dps8/dps8_sys.c hash32s(const void *buf, size_t len, uint32_t h) h 4214 src/dps8/dps8_sys.c h = h * 31 + p[i]; h 4216 src/dps8/dps8_sys.c h ^= h >> 17; h 4217 src/dps8/dps8_sys.c h *= UINT32_C(0xed5ad4bb); h 4218 src/dps8/dps8_sys.c h ^= h >> 11; h 4219 src/dps8/dps8_sys.c h *= UINT32_C(0xac4c1b51); h 4220 src/dps8/dps8_sys.c h ^= h >> 15; h 4221 src/dps8/dps8_sys.c h *= UINT32_C(0x31848bab); h 4222 src/dps8/dps8_sys.c h ^= h >> 14; h 4224 src/dps8/dps8_sys.c return h; h 4498 src/dps8/dps8_sys.c uint32_t h = 0; /* initial hash value */ h 4502 src/dps8/dps8_sys.c h = hash32s(&mallocptr, sizeof(mallocptr), h); h 4505 src/dps8/dps8_sys.c h = hash32s(&small, sizeof(small), h); h 4508 src/dps8/dps8_sys.c h = hash32s(&big, sizeof(big), h); h 4511 src/dps8/dps8_sys.c h = hash32s(&ptr, sizeof(ptr), h); h 4513 src/dps8/dps8_sys.c h = hash32s(&t, sizeof(t), h); h 4522 src/dps8/dps8_sys.c h = hash32s(&start, sizeof(start), h); h 4523 src/dps8/dps8_sys.c h = hash32s(&counter, sizeof(counter), h); h 4526 src/dps8/dps8_sys.c h = hash32s(&mypid, sizeof(mypid), h); h 4533 src/dps8/dps8_sys.c h = hash32s(rnd, sizeof(rnd), h); h 4537 src/dps8/dps8_sys.c srandom(h); /* seed rng */ h 1091 src/dps8/dps8_utils.c sim_debug (DBG_TRACEEXT, & cpu_dev, "op1 %016"PRIx64"%016"PRIx64"\n", op1.h, op1.l); h 1092 src/dps8/dps8_utils.c sim_debug (DBG_TRACEEXT, & cpu_dev, "op2 %016"PRIx64"%016"PRIx64"\n", op2.h, op2.l); h 1095 src/dps8/dps8_utils.c sim_debug (DBG_TRACEEXT, & cpu_dev, "op1s %016"PRIx64"%016"PRIx64"\n", op1s.h, op1s.l); h 1096 src/dps8/dps8_utils.c sim_debug (DBG_TRACEEXT, & cpu_dev, "op2s %016"PRIx64"%016"PRIx64"\n", op2s.h, op2s.l); h 186 src/dps8/h316_imp.h # define MKWORD(h,l) ((uint16_t) ( (((h)&0xFF) << 8) | ((l)&0xFF) )) h 189 src/dps8/h316_imp.h # define MKLONG(h,l) ((uint32_t) ( (((h)&0xFFFF) << 16) | ((l)&0xFFFF) )) h 70 src/dps8/utfile.c hash32s(const void *buf, size_t len, uint32_t h) h 75 src/dps8/utfile.c h = h * 31 + p[i]; h 77 src/dps8/utfile.c h ^= h >> 17; h 78 src/dps8/utfile.c h *= UINT32_C(0xed5ad4bb); h 79 src/dps8/utfile.c h ^= h >> 11; h 80 src/dps8/utfile.c h *= UINT32_C(0xac4c1b51); h 81 src/dps8/utfile.c h ^= h >> 15; h 82 src/dps8/utfile.c h *= UINT32_C(0x31848bab); h 83 src/dps8/utfile.c h ^= h >> 14; h 85 src/dps8/utfile.c return h; h 152 src/dps8/utfile.c uint32_t h = 0; /* initial hash value */ h 156 src/dps8/utfile.c h = hash32s(&mallocptr, sizeof(mallocptr), h); h 159 src/dps8/utfile.c h = hash32s(&small, sizeof(small), h); h 162 src/dps8/utfile.c h = hash32s(&big, sizeof(big), h); h 165 src/dps8/utfile.c h = hash32s(&ptr, sizeof(ptr), h); h 167 src/dps8/utfile.c h = hash32s(&t, sizeof(t), h); h 176 src/dps8/utfile.c h = hash32s(&start, sizeof(start), h); h 177 src/dps8/utfile.c h = hash32s(&counter, sizeof(counter), h); h 180 src/dps8/utfile.c h = hash32s(&mypid, sizeof(mypid), h); h 187 src/dps8/utfile.c h = hash32s(rnd, sizeof(rnd), h); h 191 src/dps8/utfile.c srandom(h); h 767 src/simh/sim_tmxr.c hash32s(const void *buf, size_t len, uint32_t h) h 772 src/simh/sim_tmxr.c h = h * 31 + p[i]; h 774 src/simh/sim_tmxr.c h ^= h >> 17; h 775 src/simh/sim_tmxr.c h *= UINT32_C(0xed5ad4bb); h 776 src/simh/sim_tmxr.c h ^= h >> 11; h 777 src/simh/sim_tmxr.c h *= UINT32_C(0xac4c1b51); h 778 src/simh/sim_tmxr.c h ^= h >> 15; h 779 src/simh/sim_tmxr.c h *= UINT32_C(0x31848bab); h 780 src/simh/sim_tmxr.c h ^= h >> 14; h 782 src/simh/sim_tmxr.c return h; h 876 src/simh/sim_tmxr.c uint32_t h = 0; /* initial hash value */ h 880 src/simh/sim_tmxr.c h = hash32s(&mallocptr, sizeof(mallocptr), h); h 883 src/simh/sim_tmxr.c h = hash32s(&small, sizeof(small), h); h 886 src/simh/sim_tmxr.c h = hash32s(&big, sizeof(big), h); h 889 src/simh/sim_tmxr.c h = hash32s(&ptr, sizeof(ptr), h); h 891 src/simh/sim_tmxr.c h = hash32s(&t, sizeof(t), h); h 900 src/simh/sim_tmxr.c h = hash32s(&start, sizeof(start), h); h 901 src/simh/sim_tmxr.c h = hash32s(&counter, sizeof(counter), h); h 904 src/simh/sim_tmxr.c h = hash32s(&mypid, sizeof(mypid), h); h 911 src/simh/sim_tmxr.c h = hash32s(rnd, sizeof(rnd), h); h 915 src/simh/sim_tmxr.c srandom(h);