projects
/
openssl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
89c16ab
)
Detect and mark functions that no longer exist.
author
Richard Levitte
<levitte@openssl.org>
Tue, 14 Nov 2000 13:20:10 +0000
(13:20 +0000)
committer
Richard Levitte
<levitte@openssl.org>
Tue, 14 Nov 2000 13:20:10 +0000
(13:20 +0000)
util/mkdef.pl
patch
|
blob
|
history
diff --git
a/util/mkdef.pl
b/util/mkdef.pl
index 403f82367617be91d450bc4ac60787e9a5253ea6..07bf4103ea8c4d4c4bf33f33703d1f8e1a235088 100755
(executable)
--- a/
util/mkdef.pl
+++ b/
util/mkdef.pl
@@
-611,6
+611,7
@@
sub maybe_add_info {
(my $name, *nums, my @symbols) = @_;
my $sym;
my $new_info = 0;
(my $name, *nums, my @symbols) = @_;
my $sym;
my $new_info = 0;
+ my %syms=();
print STDERR "Updating $name info\n";
foreach $sym (@symbols) {
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";
}
}
#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";
}
if ($new_info) {
print STDERR "$new_info old symbols got an info update\n";
@@
-852,12
+863,19
@@
sub rewrite_numbers
$rsyms{$s} = 1;
}
$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});
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};
printf OUT "%s%-40s%d\t%s\n","",$sym,$n,$i;
if (exists $r{$sym}) {
(my $s, $i) = split /\\/,$r{$sym};