Lines Matching refs:bitcnt

447 	my($bitcnt) = @_;
448 	$bitcnt > 0 ? 1 + (($bitcnt - 1) >> 3) : 0;
489 	my($bitstr, $bitcnt, $self) = @_;
490 	my $savecnt = $bitcnt;
493 	while ($bitcnt >= $self->{blocksize}) {
496 		$bitcnt -= $self->{blocksize};
498 	if ($bitcnt > 0) {
499 		$self->{block} = substr($bitstr, $offset, _BYTECNT($bitcnt));
500 		$self->{blockcnt} = $bitcnt;
506 	my($bitstr, $bitcnt, $self) = @_;
508 	my $savecnt = $bitcnt;
509 	if ($self->{blockcnt} + $bitcnt >= $self->{blocksize}) {
512 		$bitcnt -= $numbits;
513 		$bitstr = substr($bitstr, $numbits >> 3, _BYTECNT($bitcnt));
517 		_shadirect($bitstr, $bitcnt, $self);
520 		$self->{block} .= substr($bitstr, 0, _BYTECNT($bitcnt));
521 		$self->{blockcnt} += $bitcnt;
527 	my($bitstr, $bitcnt, $self) = @_;
529 	my $numbytes = _BYTECNT($bitcnt);
530 	my $savecnt = $bitcnt;
537 	$self->{blockcnt} += ($bitcnt < $gap) ? $bitcnt : $gap;
538 	return($savecnt) if $bitcnt < $gap;
544 	return($savecnt) if ($bitcnt -= $gap) == 0;
549 	_shabytes(pack("C*", @buf), $bitcnt, $self);
554 	my($bitstr, $bitcnt, $self) = @_;
555 	return(0) unless $bitcnt > 0;
558 	if (($self->{lenll} += $bitcnt) >= $TWO32) {
572 	return(_shadirect($bitstr, $bitcnt, $self)) if $blockcnt == 0;
573 	return(_shabytes ($bitstr, $bitcnt, $self)) if $blockcnt % 8 == 0;
574 	return(_shabits  ($bitstr, $bitcnt, $self));