mirror of
git://source.winehq.org/git/wine.git
synced 2024-10-31 10:41:12 +00:00
62 lines
1.4 KiB
Text
62 lines
1.4 KiB
Text
|
#!/usr/bin/perl -w
|
||
|
# -----------------------------------------------------------------------------
|
||
|
|
||
|
my $srcfile = $ARGV[0];
|
||
|
my @callstack = ();
|
||
|
|
||
|
open (IN, "<$srcfile") || die "Cannot open $srcfile for reading: $!\n";
|
||
|
LINE:
|
||
|
while (<IN>) {
|
||
|
if (/^Call ([A-Za-z0-9]+\.[0-9]+): .*\)/) {
|
||
|
my $func = $1;
|
||
|
if (/ ret=(........)$/ ||
|
||
|
/ ret=(....:....) ds=....$/) {
|
||
|
my $retaddr = $1;
|
||
|
push @callstack, [$func,$retaddr];
|
||
|
next;
|
||
|
} else {
|
||
|
# Assume a line got cut by a line feed in a string.
|
||
|
$_ .= scalar (<IN>);
|
||
|
print "[$_]";
|
||
|
redo;
|
||
|
}
|
||
|
}
|
||
|
|
||
|
|
||
|
if (/^Ret ([A-Za-z0-9]+\.[0-9]+): .* ret=(........)$/ ||
|
||
|
/^Ret ([A-Za-z0-9]+\.[0-9]+): .* ret=(....:....) ds=....$/) {
|
||
|
my $func = $1;
|
||
|
my $retaddr = $2;
|
||
|
my ($topfunc,$topaddr);
|
||
|
|
||
|
POP:
|
||
|
while (1) {
|
||
|
if ($#callstack == -1) {
|
||
|
print "Error: Return from $func to $retaddr with empty stack.\n";
|
||
|
next LINE;
|
||
|
}
|
||
|
|
||
|
($topfunc,$topaddr) = @{pop @callstack};
|
||
|
|
||
|
if ($topfunc ne $func) {
|
||
|
print "Error: Return from $topfunc, but call from $func.\n";
|
||
|
next POP
|
||
|
}
|
||
|
last POP;
|
||
|
}
|
||
|
|
||
|
if ($topaddr eq $retaddr) {
|
||
|
print "OK: $func from $retaddr.\n";
|
||
|
} else {
|
||
|
print "Error: Return from $func is to $retaddr, not $topaddr.\n";
|
||
|
}
|
||
|
}
|
||
|
}
|
||
|
|
||
|
while ($#callstack != -1) {
|
||
|
my ($topfunc,$topaddr) = @{pop @callstack};
|
||
|
print "Error: leftover call to $topfunc from $topaddr.\n";
|
||
|
}
|
||
|
|
||
|
close (IN);
|