Searched refs:line_nums (Results 1 – 2 of 2) sorted by relevance
778 my @line_nums = sort {$a <=> $b} keys %$src_file_CCs; 796 shift(@line_nums) if (0 == $line_nums[0]);800 my $n = @line_nums;803 push(@pairs, $line_nums[$i] - $context); # lower marker805 $line_nums[$i] + 2*$context >= $line_nums[$i+1]) {808 push(@pairs, $line_nums[$i] + $context); # upper marker824 if (defined $line_nums[0] && $. == $line_nums[0]) {828 shift(@line_nums);845 if (@line_nums) {846 foreach my $line_num (@line_nums) {[all …]
1094 my @line_nums = sort {$a <=> $b} keys %$src_file_CCs; 1112 shift(@line_nums) if (0 == $line_nums[0]);1116 my $n = @line_nums;1119 push(@pairs, $line_nums[$i] - $context); # lower marker1121 $line_nums[$i] + 2*$context >= $line_nums[$i+1]) {1124 push(@pairs, $line_nums[$i] + $context); # upper marker1140 if (defined $line_nums[0] && $. == $line_nums[0]) {1144 shift(@line_nums);1173 if (@line_nums) {1174 foreach my $line_num (@line_nums) {[all …]