h 4959 src/decNumber/decNumber.c Int h; // adjusted exponent for 0.xxxx h 5047 src/decNumber/decNumber.c h=rhs->exponent+rhs->digits; h 5053 src/decNumber/decNumber.c if (h>8) { // overflow/underflow h 5060 src/decNumber/decNumber.c h=8; // clamp so 10**h computable h 5075 src/decNumber/decNumber.c Int lever=MINI(8-h, maxlever); // leverage attainable h 5077 src/decNumber/decNumber.c h+=lever; // apply leverage selected h 5078 src/decNumber/decNumber.c if (h<0) { // clamp h 5079 src/decNumber/decNumber.c use+=h; // [may end up subnormal] h 5080 src/decNumber/decNumber.c h=0; h 5109 src/decNumber/decNumber.c p=MAXI(x->digits, set->digits)+h+2; // [h<=8] h 5172 src/decNumber/decNumber.c if (h>0) { h 5175 src/decNumber/decNumber.c Int n=powers[h]; // always positive h 49 src/dps8/dps8.h typedef struct { uint64_t h; uint64_t l; } x__uint128_t; h 50 src/dps8/dps8.h typedef struct { int64_t h; uint64_t l; } x__int128_t; h 51 src/dps8/dps8.h # define construct_128(h, l) ((uint128) { (h), (l) }) h 52 src/dps8/dps8.h # define construct_s128(h, l) ((int128) { (h), (l) }) h 346 src/dps8/dps8_crdrdr.c h 350 src/dps8/dps8_crdrdr.c h 351 src/dps8/dps8_crdrdr.c h 330 src/dps8/dps8_hw_consts.h return (int128) { (uint64_t) v.h, v.l}; h 332 src/dps8/dps8_hw_consts.h return (int128) { (int64_t) v.h, v.l}; h 334 src/dps8/dps8_hw_consts.h return (int128) { (__int64_t) v.h, v.l}; h 3559 src/dps8/dps8_math.c if (sm1.h < 0) h 3562 src/dps8/dps8_math.c if (sm2.h < 0) h 37 src/dps8/dps8_math128.c if (w.h || w.l) h 44 src/dps8/dps8_math128.c if (w.h || w.l) h 51 src/dps8/dps8_math128.c return a.h == b.h && a.l == b.l; h 56 src/dps8/dps8_math128.c if (a.h > b.h) return true; h 57 src/dps8/dps8_math128.c if (a.h < b.h) return false; h 64 src/dps8/dps8_math128.c if (a.h < b.h) return true; h 65 src/dps8/dps8_math128.c if (a.h > b.h) return false; h 72 src/dps8/dps8_math128.c if (a.h > b.h) return true; h 73 src/dps8/dps8_math128.c if (a.h < b.h) return false; h 80 src/dps8/dps8_math128.c if (a.h < b.h) return true; h 81 src/dps8/dps8_math128.c if (a.h > b.h) return false; h 88 src/dps8/dps8_math128.c if (a.h > b.h) return true; h 89 src/dps8/dps8_math128.c if (a.h < b.h) return false; h 96 src/dps8/dps8_math128.c return (uint128) {a.h & b.h, a.l & b.l}; h 101 src/dps8/dps8_math128.c return (int128) {a.h & (int64_t)b.h, a.l & b.l}; h 106 src/dps8/dps8_math128.c return (uint128) {a.h | b.h, a.l | b.l}; h 111 src/dps8/dps8_math128.c return (uint128) {a.h ^ b.h, a.l ^ b.l}; h 116 src/dps8/dps8_math128.c return (uint128) {~ a.h, ~ a.l}; h 138 src/dps8/dps8_math128.c uint64_t h64 = a.h + b.h + c64; // compute the high h 147 src/dps8/dps8_math128.c uint128 res = construct_128 (a.h - b.h, a.l - b.l); h 149 src/dps8/dps8_math128.c res.h --; h 183 src/dps8/dps8_math128.c uint64_t h = a.h << n; h 186 src/dps8/dps8_math128.c h |= keep; h 188 src/dps8/dps8_math128.c return construct_128 (h, l); h 190 src/dps8/dps8_math128.c uint64_t h = a.l << (n - 64); h 191 src/dps8/dps8_math128.c return construct_128 (h, 0); h 203 src/dps8/dps8_math128.c h 208 src/dps8/dps8_math128.c h 216 src/dps8/dps8_math128.c h 223 src/dps8/dps8_math128.c h 228 src/dps8/dps8_math128.c h 229 src/dps8/dps8_math128.c h 233 src/dps8/dps8_math128.c h 235 src/dps8/dps8_math128.c h 236 src/dps8/dps8_math128.c h 250 src/dps8/dps8_math128.c uint64_t h = a.h; h 252 src/dps8/dps8_math128.c uint64_t sign = a.h & SIGN64; h 255 src/dps8/dps8_math128.c uint64_t b = (h & 1) ? SIGN64 : 0; h 256 src/dps8/dps8_math128.c h >>= 1; h 257 src/dps8/dps8_math128.c h |= sign; h 263 src/dps8/dps8_math128.c return construct_128 (h, l); h 479 src/dps8/dps8_math128.c u[3] = (uint32_t) (a.h >> 32); h 480 src/dps8/dps8_math128.c u[2] = (uint32_t) a.h; h 483 src/dps8/dps8_math128.c v[3] = (uint32_t) (b.h >> 32); h 484 src/dps8/dps8_math128.c v[2] = (uint32_t) b.h; h 499 src/dps8/dps8_math128.c u[3] = (uint32_t) (a.h >> 32); h 500 src/dps8/dps8_math128.c u[2] = (uint32_t) a.h; h 503 src/dps8/dps8_math128.c v[3] = (uint32_t) (b.h >> 32); h 504 src/dps8/dps8_math128.c v[2] = (uint32_t) b.h; h 523 src/dps8/dps8_math128.c u[4] = (uint16_t) a.h; h 524 src/dps8/dps8_math128.c u[5] = (uint16_t) (a.h >> 16); h 525 src/dps8/dps8_math128.c u[6] = (uint16_t) (a.h >> 32); h 526 src/dps8/dps8_math128.c u[7] = (uint16_t) (a.h >> 48); h 532 src/dps8/dps8_math128.c v[4] = (uint16_t) b.h; h 533 src/dps8/dps8_math128.c v[5] = (uint16_t) (b.h >> 16); h 534 src/dps8/dps8_math128.c v[6] = (uint16_t) (b.h >> 32); h 535 src/dps8/dps8_math128.c v[7] = (uint16_t) (b.h >> 48); h 578 src/dps8/dps8_math128.c u[4] = (uint16_t) a.h; h 579 src/dps8/dps8_math128.c u[5] = (uint16_t) (a.h >> 16); h 580 src/dps8/dps8_math128.c u[6] = (uint16_t) (a.h >> 32); h 581 src/dps8/dps8_math128.c u[7] = (uint16_t) (a.h >> 48); h 614 src/dps8/dps8_math128.c u[4] = (uint16_t) a.h; h 615 src/dps8/dps8_math128.c u[5] = (uint16_t) (a.h >> 16); h 616 src/dps8/dps8_math128.c u[6] = (uint16_t) (a.h >> 32); h 617 src/dps8/dps8_math128.c u[7] = (uint16_t) (a.h >> 48); h 641 src/dps8/dps8_math128.c static void tisz (uint64_t h, uint64_t l, bool expect) h 643 src/dps8/dps8_math128.c bool r = iszero_128 (construct_128 (h, l)); h 648 src/dps8/dps8_math128.c (unsigned long long)h, (unsigned long long)l, (unsigned long)r); h 660 src/dps8/dps8_math128.c if (r.h != rh || r.l != rl) { h 664 src/dps8/dps8_math128.c (unsigned long long)bl, (unsigned long long)r.h, (unsigned long long)r.l); h 676 src/dps8/dps8_math128.c if (r.h != rh || r.l != rl) { h 680 src/dps8/dps8_math128.c (unsigned long long)bl, (unsigned long long)r.h, (unsigned long long)r.l); h 691 src/dps8/dps8_math128.c if (r.h != rh || r.l != rl) { h 694 src/dps8/dps8_math128.c (unsigned long long)ah, (unsigned long long)al, (unsigned long long)r.h, h 707 src/dps8/dps8_math128.c if (r.h != rh || r.l != rl) { h 711 src/dps8/dps8_math128.c (unsigned long long)bl, (unsigned long long)r.h, (unsigned long long)r.l); h 723 src/dps8/dps8_math128.c if (r.h != rh || r.l != rl) { h 727 src/dps8/dps8_math128.c (unsigned long long)bl, (unsigned long long)r.h, (unsigned long long)r.l); h 738 src/dps8/dps8_math128.c if (r.h != rh || r.l != rl) { h 741 src/dps8/dps8_math128.c (unsigned long long)ah, (unsigned long long)al, (unsigned long long)r.h, h 769 src/dps8/dps8_math128.c if (r.h != rh || r.l != rl) { h 773 src/dps8/dps8_math128.c (unsigned long long)r.h, (unsigned long long)r.l); h 784 src/dps8/dps8_math128.c if (r.h != rh || r.l != rl) { h 788 src/dps8/dps8_math128.c (unsigned long long)r.h, (unsigned long long)r.l); h 800 src/dps8/dps8_math128.c if (r.h != rh || r.l != rl) { h 804 src/dps8/dps8_math128.c (unsigned long long)bl, (unsigned long long)r.h, (unsigned long long)r.l); h 816 src/dps8/dps8_math128.c if (r.h != rh || r.l != rl) { h 820 src/dps8/dps8_math128.c (unsigned long long)bl, (unsigned long long)r.h, (unsigned long long)r.l); h 833 src/dps8/dps8_math128.c if (res.h != resh || res.l != resl || rem != remainder) { h 837 src/dps8/dps8_math128.c (unsigned long long)res.h, (unsigned long long)res.l, rem); h 850 src/dps8/dps8_math128.c if (res.h != resh || res.l != resl || rem != remainder) { h 854 src/dps8/dps8_math128.c (unsigned long long)res.h, (unsigned long long)res.l, rem); h 23 src/dps8/dps8_math128.h # define cast_128(x) construct_128 ((uint64_t) (x).h, (x).l) h 24 src/dps8/dps8_math128.h # define cast_s128(x) construct_s128 ((int64_t) (x).h, (x).l) h 120 src/dps8/dps8_mgp.c hash32s(const void *buf, size_t len, uint32_t h) h 125 src/dps8/dps8_mgp.c h = h * 31 + p[i]; h 127 src/dps8/dps8_mgp.c h ^= h >> 17; h 128 src/dps8/dps8_mgp.c h *= UINT32_C(0xed5ad4bb); h 129 src/dps8/dps8_mgp.c h ^= h >> 11; h 130 src/dps8/dps8_mgp.c h *= UINT32_C(0xac4c1b51); h 131 src/dps8/dps8_mgp.c h ^= h >> 15; h 132 src/dps8/dps8_mgp.c h *= UINT32_C(0x31848bab); h 133 src/dps8/dps8_mgp.c h ^= h >> 14; h 135 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 1183 src/dps8/dps8_mgp.c h = hash32s(&start, sizeof(start), h); h 1184 src/dps8/dps8_mgp.c h = hash32s(&counter, sizeof(counter), h); h 1188 src/dps8/dps8_mgp.c h = hash32s(&mypid, sizeof(mypid), h); h 1195 src/dps8/dps8_mgp.c h = hash32s(rnd, sizeof(rnd), h); h 1199 src/dps8/dps8_mgp.c srandom(h); h 4147 src/dps8/dps8_sys.c hash32s(const void *buf, size_t len, uint32_t h) h 4152 src/dps8/dps8_sys.c h = h * 31 + p[i]; h 4154 src/dps8/dps8_sys.c h ^= h >> 17; h 4155 src/dps8/dps8_sys.c h *= UINT32_C(0xed5ad4bb); h 4156 src/dps8/dps8_sys.c h ^= h >> 11; h 4157 src/dps8/dps8_sys.c h *= UINT32_C(0xac4c1b51); h 4158 src/dps8/dps8_sys.c h ^= h >> 15; h 4159 src/dps8/dps8_sys.c h *= UINT32_C(0x31848bab); h 4160 src/dps8/dps8_sys.c h ^= h >> 14; h 4162 src/dps8/dps8_sys.c return h; h 4398 src/dps8/dps8_sys.c uint32_t h = 0; /* initial hash value */ h 4402 src/dps8/dps8_sys.c h = hash32s(&mallocptr, sizeof(mallocptr), h); h 4405 src/dps8/dps8_sys.c h = hash32s(&small, sizeof(small), h); h 4408 src/dps8/dps8_sys.c h = hash32s(&big, sizeof(big), h); h 4411 src/dps8/dps8_sys.c h = hash32s(&ptr, sizeof(ptr), h); h 4413 src/dps8/dps8_sys.c h = hash32s(&t, sizeof(t), h); h 4423 src/dps8/dps8_sys.c h = hash32s(&start, sizeof(start), h); h 4424 src/dps8/dps8_sys.c h = hash32s(&counter, sizeof(counter), h); h 4428 src/dps8/dps8_sys.c h = hash32s(&mypid, sizeof(mypid), h); h 4435 src/dps8/dps8_sys.c h = hash32s(rnd, sizeof(rnd), h); h 4439 src/dps8/dps8_sys.c srandom(h); /* seed rng */ h 1114 src/dps8/dps8_utils.c sim_debug (DBG_TRACEEXT, & cpu_dev, "op1 %016"PRIx64"%016"PRIx64"\n", op1.h, op1.l); h 1115 src/dps8/dps8_utils.c sim_debug (DBG_TRACEEXT, & cpu_dev, "op2 %016"PRIx64"%016"PRIx64"\n", op2.h, op2.l); h 1118 src/dps8/dps8_utils.c sim_debug (DBG_TRACEEXT, & cpu_dev, "op1s %016"PRIx64"%016"PRIx64"\n", op1s.h, op1s.l); h 1119 src/dps8/dps8_utils.c sim_debug (DBG_TRACEEXT, & cpu_dev, "op2s %016"PRIx64"%016"PRIx64"\n", op2s.h, op2s.l); h 191 src/dps8/h316_imp.h # define MKWORD(h,l) ((uint16_t) ( (((h)&0xFF) << 8) | ((l)&0xFF) )) h 203 src/dps8/h316_imp.h # define MKLONG(h,l) ((uint32_t) ( (((h)&0xFFFF) << 16) | ((l)&0xFFFF) )) h 54 src/dps8/utfile.c hash32s(const void *buf, size_t len, uint32_t h) h 59 src/dps8/utfile.c h = h * 31 + p[i]; h 61 src/dps8/utfile.c h ^= h >> 17; h 62 src/dps8/utfile.c h *= UINT32_C(0xed5ad4bb); h 63 src/dps8/utfile.c h ^= h >> 11; h 64 src/dps8/utfile.c h *= UINT32_C(0xac4c1b51); h 65 src/dps8/utfile.c h ^= h >> 15; h 66 src/dps8/utfile.c h *= UINT32_C(0x31848bab); h 67 src/dps8/utfile.c h ^= h >> 14; h 69 src/dps8/utfile.c return h; h 119 src/dps8/utfile.c uint32_t h = 0; /* initial hash value */ h 123 src/dps8/utfile.c h = hash32s(&mallocptr, sizeof(mallocptr), h); h 126 src/dps8/utfile.c h = hash32s(&small, sizeof(small), h); h 129 src/dps8/utfile.c h = hash32s(&big, sizeof(big), h); h 132 src/dps8/utfile.c h = hash32s(&ptr, sizeof(ptr), h); h 134 src/dps8/utfile.c h = hash32s(&t, sizeof(t), h); h 144 src/dps8/utfile.c h = hash32s(&start, sizeof(start), h); h 145 src/dps8/utfile.c h = hash32s(&counter, sizeof(counter), h); h 149 src/dps8/utfile.c h = hash32s(&mypid, sizeof(mypid), h); h 156 src/dps8/utfile.c h = hash32s(rnd, sizeof(rnd), h); h 160 src/dps8/utfile.c srandom(h); h 54 src/libsir/include/sir/platform_importc.h # if __has_include(<features.h>) h 59 src/libsir/include/sir/platform_importc.h # if __has_include(<byteswap.h>) h 766 src/simh/sim_tmxr.c hash32s(const void *buf, size_t len, uint32_t h) h 771 src/simh/sim_tmxr.c h = h * 31 + p[i]; h 773 src/simh/sim_tmxr.c h ^= h >> 17; h 774 src/simh/sim_tmxr.c h *= UINT32_C(0xed5ad4bb); h 775 src/simh/sim_tmxr.c h ^= h >> 11; h 776 src/simh/sim_tmxr.c h *= UINT32_C(0xac4c1b51); h 777 src/simh/sim_tmxr.c h ^= h >> 15; h 778 src/simh/sim_tmxr.c h *= UINT32_C(0x31848bab); h 779 src/simh/sim_tmxr.c h ^= h >> 14; h 781 src/simh/sim_tmxr.c return h; h 856 src/simh/sim_tmxr.c uint32_t h = 0; /* initial hash value */ h 860 src/simh/sim_tmxr.c h = hash32s(&mallocptr, sizeof(mallocptr), h); h 863 src/simh/sim_tmxr.c h = hash32s(&small, sizeof(small), h); h 866 src/simh/sim_tmxr.c h = hash32s(&big, sizeof(big), h); h 869 src/simh/sim_tmxr.c h = hash32s(&ptr, sizeof(ptr), h); h 871 src/simh/sim_tmxr.c h = hash32s(&t, sizeof(t), h); h 881 src/simh/sim_tmxr.c h = hash32s(&start, sizeof(start), h); h 882 src/simh/sim_tmxr.c h = hash32s(&counter, sizeof(counter), h); h 886 src/simh/sim_tmxr.c h = hash32s(&mypid, sizeof(mypid), h); h 893 src/simh/sim_tmxr.c h = hash32s(rnd, sizeof(rnd), h); h 897 src/simh/sim_tmxr.c srandom(h);