Lines Matching refs:BASE_LEN
40 my ($MBASE,$BASE,$RBASE,$BASE_LEN,$MAX_VAL,$BASE_LEN2,$BASE_LEN_SMALL);
46 # set/get the BASE_LEN and assorted other, connected values
66 # BASE_LEN is used for anything else than mul()/div()
67 $BASE_LEN = $BASE_LEN_SMALL;
68 $BASE_LEN = shift if (defined $_[0]); # one more arg?
69 $BASE = int("1e".$BASE_LEN);
96 return $BASE_LEN unless wantarray;
97 return ($BASE_LEN, $AND_BITS, $XOR_BITS, $OR_BITS, $BASE_LEN_SMALL, $MAX_VAL);
193 # < BASE_LEN due len-1 above
194 return [ int($_[1]) ] if $il < $BASE_LEN; # shortcut for short numbers
197 [ reverse(unpack("a" . ($il % $BASE_LEN+1)
198 . ("a$BASE_LEN" x ($il / $BASE_LEN)), $_[1])) ];
260 my $z = '0' x ($BASE_LEN-1);
263 $ret .= substr($z.$ar->[$l],-$BASE_LEN); # fastest way I could think of
954 (@$cx-1)*$BASE_LEN+length(int($cx->[-1]));
969 my $elem = int($n / $BASE_LEN); # which array element
970 my $digit = $n % $BASE_LEN; # which digit in this element
991 $zeros *= $BASE_LEN; # elems * 5
1175 # multiples of $BASE_LEN
1178 my $xlen = (@$x-1)*$BASE_LEN+length(int($x->[-1])); # len of x in digits
1186 my $rem = $src % $BASE_LEN; # remainder to shift
1187 $src = int($src / $BASE_LEN); # source
1195 my $vd; my $z = '0'x $BASE_LEN;
1200 $vd = substr($vd,-$BASE_LEN,$BASE_LEN-$rem);
1203 $vd = substr($vd,-$BASE_LEN,$BASE_LEN) if length($vd) > $BASE_LEN;
1223 # multiples of $BASE_LEN:
1226 my $rem = $len % $BASE_LEN; # remainder to shift
1227 my $dst = $src + int($len/$BASE_LEN); # destination
1230 my $z = '0' x $BASE_LEN;
1234 $vd = substr($vd,-$BASE_LEN+$rem,$BASE_LEN-$rem);
1235 $vd .= $src > 0 ? substr($z.$x->[$src-1],-$BASE_LEN,$rem) : '0' x $rem;
1236 $vd = substr($vd,-$BASE_LEN,$BASE_LEN) if length($vd) > $BASE_LEN;
1488 $lastelem .= substr($x->[-2] . '0' x $BASE_LEN,0,$BASE_LEN);
1495 my $r = $l % $BASE_LEN; # 10000 00000 00000 00000 ($BASE_LEN=5)
1496 $l = int($l / $BASE_LEN);
1578 # $x * $BASE * $BASE. This gives us more $BASE_LEN digits for result