Commit 451e60e9 authored by Richard Levitte's avatar Richard Levitte
Browse files

Detect and mark functions that no longer exist.

parent 89c16ab5

util/mkdef.pl

+19 −1
Original line number Diff line number Diff line
@@ -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};