openssl
/
openssl
mirror of https://github.com/openssl/openssl
1
0
Fork 0
Code Issues Releases Wiki Activity

Detect and mark functions that no longer exist.

This commit is contained in:
Richard Levitte 2000-11-14 13:20:10 +00:00
parent 89c16ab53e
commit 451e60e99f
1 changed files with 19 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
util/mkdef.pl
View File

@ -611,6 +611,7 @@ sub maybe_add_info {
(my $name, *nums, my @symbols) = @_;
my $sym;
my $new_info = 0;
my %syms=();
print STDERR "Updating $name info\n";
foreach $sym (@symbols) {
@ -624,6 +625,16 @@ sub maybe_add_info {
#print STDERR "DEBUG: maybe_add_info for $s: \"$dummy\" => \"$i\"\n";
}
}
$syms{sym} = 1;
}
my @s=sort { &parse_number($nums{$a},"n") <=> &parse_number($nums{$b},"n") } keys %nums;
foreach $sym (@s) {
(my $n, my $i) = split /\\/, $nums{$sym};
if (!defined($syms{sym})) {
$new_info++;
#print STDERR "DEBUG: maybe_add_info for $sym: -> undefined\n";
}
}
if ($new_info) {
print STDERR "$new_info old symbols got an info update\n";
@ -852,12 +863,19 @@ sub rewrite_numbers
$rsyms{$s} = 1;
}
my %syms = ();
foreach $_ (@symbols) {
(my $n, my $i) = split /\\/;
$syms{$n} = 1;
}
my @s=sort { &parse_number($nums{$a},"n") <=> &parse_number($nums{$b},"n") } keys %nums;
foreach $sym (@s) {
(my $n, my $i) = split /\\/, $nums{$sym};
next if defined($i) && $i =~ /^.*?:.*?:\w+\(\w+\)/;
next if defined($rsyms{$sym});
$i="NOEXIST::FUNCTION:" if !defined($i) || $i eq "";
$i="NOEXIST::FUNCTION:"
if !defined($i) || $i eq "" || !defined($syms{$sym});
printf OUT "%s%-40s%d\t%s\n","",$sym,$n,$i;
if (exists $r{$sym}) {
(my $s, $i) = split /\\/,$r{$sym};