Lines Matching refs:bits
163 my $bits = 0;
192 $bits =
197 $bits = $minbits if $bits < $minbits;
217 $bits = $subobj->{BITS} if $bits < $subobj->{BITS};
222 print STDERR "CLASS = $class, TYPE => $type, BITS => $bits, NONE => $none\nEXTRAS =>\n$extras\nLIST =>\n$list\n" if DEBUG;
226 BITS => $bits,
247 my $bits = $self->{BITS};
249 print STDERR "SWASHGET @_ [$type/$bits/$none]\n" if DEBUG;
253 vec($swatch, $len - 1, $bits) = 0; # Extend to correct length.
255 for $key (0 .. $len - 1) { vec($swatch, $key, $bits) = $none }
260 if ($bits > 1) {
281 vec($swatch, $key - $start, $bits) = $val;
293 vec($swatch, $key - $start, $bits) = $val;
323 croak("SWASHGET size mismatch") if $bits < $otherbits;
326 if ($bits == 1 and $otherbits == 1) {
331 vec($swatch, $key, $bits) = vec($other, $key, $otherbits);
336 if ($bits == 1 and $otherbits == 1) {
342 vec($swatch, $key, $bits) = 1;
348 if ($bits == 1 and $otherbits == 1) {
354 vec($swatch, $key, $bits) = 0;
364 print STDERR vec($swatch, $key, $bits), " ";