Lines Matching refs:slots
3517 slots => [],
3526 # Read the first two slots to figure out bitsize and endianness.
3527 my $slots = $self->{slots};
3541 @$slots = unpack($self->{unpack_code} . "*", $str);
3564 @$slots = (0, $pair[0] + $pair[1]);
3569 # Load more data when we access slots->get(X) which is not yet in memory.
3572 my $slots = $self->{slots};
3573 $self->{base} += $#$slots + 1; # skip over data we're replacing
3578 @$slots = unpack($self->{unpack_code} . "*", $str);
3599 @$slots = @b64_values;
3606 my $slots = $self->{slots};
3607 while ($#$slots >= 0) {
3609 # The only time we expect a reference to $slots[$i - something]
3610 # after referencing $slots[$i] is reading the very first header.
3615 } elsif ($idx > $self->{base} + $#$slots) {
3618 return $slots->[$idx - $self->{base}];
3621 # If we get here, $slots is [], which means we've reached EOF
3622 return -1; # unique since slots is supposed to hold unsigned numbers
3811 # Parse string into array of slots.
3812 my $slots = CpuProfileStream->new(*PROFILE, $fname);
3821 if ($slots->get(0) != 0 ) {
3824 $i = 2 + $slots->get(1);
3825 $version = $slots->get(2);
3826 $period = $slots->get(3);
3833 while ($slots->get($i) != -1) {
3834 my $n = $slots->get($i++);
3835 my $d = $slots->get($i++);
3841 if ($slots->get($i) == 0) {
3850 my $pc = $slots->get($i+$j);
