From: Richard Levitte <levitte@openssl.org>
Date: Tue, 14 Nov 2000 13:20:10 +0000 (+0000)
Subject: Detect and mark functions that no longer exist.
X-Git-Tag: OpenSSL_0_9_6a-beta1~107^2~187
X-Git-Url: https://git.librecmc.org/?a=commitdiff_plain;h=451e60e99f03298c02a1570d0f167a566e57a974;p=oweals%2Fopenssl.git

Detect and mark functions that no longer exist.
---

diff --git a/util/mkdef.pl b/util/mkdef.pl
index 403f823676..07bf4103ea 100755
--- 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 %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};