@@ -234,7 +234,7 @@ sub write_test_table_epilog(*);
234
234
235
235
sub write_source ($$$$$$$);
236
236
sub write_source_prolog (*);
237
- sub write_source_line (*$$$$$$ );
237
+ sub write_source_line (*$$$$$);
238
238
sub write_source_epilog (*);
239
239
240
240
sub write_frameset (*$$$);
@@ -4154,16 +4154,15 @@ sub format_count($$)
4154
4154
4155
4155
#
4156
4156
# write_source_line(filehandle, line_num, source, hit_count, converted,
4157
- # brdata, add_anchor )
4157
+ # brdata)
4158
4158
#
4159
4159
# Write formatted source code line. Return a line in a format as needed
4160
4160
# by gen_png()
4161
4161
#
4162
4162
4163
- sub write_source_line (*$$$$$$ )
4163
+ sub write_source_line (*$$$$$)
4164
4164
{
4165
- my ($handle , $line , $source , $count , $converted , $brdata ,
4166
- $add_anchor ) = @_ ;
4165
+ my ($handle , $line , $source , $count , $converted , $brdata ) = @_ ;
4167
4166
my $source_format ;
4168
4167
my $count_format ;
4169
4168
my $result ;
@@ -4200,11 +4199,8 @@ sub write_source_line(*$$$$$$)
4200
4199
4201
4200
# Write out a line number navigation anchor every $nav_resolution
4202
4201
# lines if necessary
4203
- if ($add_anchor )
4204
- {
4205
- $anchor_start = " <a name=\" $_ [1]\" >" ;
4206
- $anchor_end = " </a>" ;
4207
- }
4202
+ $anchor_start = " <a name=\" $_ [1]\" >" ;
4203
+ $anchor_end = " </a>" ;
4208
4204
4209
4205
4210
4206
# *************************************************************
@@ -5126,7 +5122,6 @@ sub write_source($$$$$$$)
5126
5122
my $funcdata = $_ [5];
5127
5123
my $sumbrcount = $_ [6];
5128
5124
my $datafunc = get_hash_reverse($funcdata );
5129
- my $add_anchor ;
5130
5125
my @file ;
5131
5126
5132
5127
if ($_ [2])
@@ -5177,25 +5172,11 @@ sub write_source($$$$$$$)
5177
5172
" $line_number \n " );
5178
5173
}
5179
5174
5180
- $add_anchor = 0;
5181
- if ($frames ) {
5182
- if (($line_number - 1) % $nav_resolution == 0) {
5183
- $add_anchor = 1;
5184
- }
5185
- }
5186
- if ($func_coverage ) {
5187
- if ($line_number == 1) {
5188
- $add_anchor = 1;
5189
- } elsif (defined ($datafunc -> {$line_number +
5190
- $func_offset })) {
5191
- $add_anchor = 1;
5192
- }
5193
- }
5194
5175
push (@result ,
5195
5176
write_source_line(HTML_HANDLE, $line_number ,
5196
5177
$_ , $count_data {$line_number },
5197
5178
$converted -> {$line_number },
5198
- $sumbrcount -> {$line_number }, $add_anchor ));
5179
+ $sumbrcount -> {$line_number }));
5199
5180
}
5200
5181
5201
5182
close (SOURCE_HANDLE);
0 commit comments