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 …]
1105 my @line_nums = sort {$a <=> $b} keys %$src_file_CCs; 1123 shift(@line_nums) if (0 == $line_nums[0]);1127 my $n = @line_nums;1130 push(@pairs, $line_nums[$i] - $context); # lower marker1132 $line_nums[$i] + 2*$context >= $line_nums[$i+1]) {1135 push(@pairs, $line_nums[$i] + $context); # upper marker1151 if (defined $line_nums[0] && $. == $line_nums[0]) {1155 shift(@line_nums);1184 if (@line_nums) {1185 foreach my $line_num (@line_nums) {[all …]