Lines Matching defs:base
16 static const unsigned int base = 36;
36 * while delta > ((base - tmin) * tmax) div 2 do begin
37 * let delta = delta div (base - tmin)
38 * let k = k + base
40 * return k + (((base - tmin + 1) * delta) div (delta + skew))
51 while (delta > ((base - tmin) * tmax) / 2) {
52 delta = delta / (base - tmin);
53 k = k + base;
56 return k + (((base - tmin + 1) * delta) / (delta + skew));
100 * for k = base to infinity in steps of base do begin
107 * let w = w * (base - t), fail on overflow
154 for (k = base;; k += base) {
172 if (w > maxint / (base - t))
174 w = w * (base - t);