Skip to content

W
wine-cw
Commit 3a0b3bbd authored by Eric Pouech's avatar Eric Pouech Committed by Alexandre Julliard
Browse files
Options

Fixed VxD call tracing.

parent 2e4f9ed8
Hide whitespace changes
Inline Side-by-side
Showing with 4 additions and 2 deletions
tools/examine-relay
View file @ 3a0b3bbd
...@@ -44,7 +44,8 @@ while (<IN>) { ...@@ -44,7 +44,8 @@ while (<IN>) {
# print "have call func=$func <$_>\n"; # print "have call func=$func <$_>\n";
if (/ ret=(........)$/ || if (/ ret=(........)$/ ||
/ ret=(....:....) (ds=....)$/) { / ret=(....:....) (ds=....)$/ ||
/ ret=(........) fs=....$/) {
my $retaddr = $1; my $retaddr = $1;
my $segreg = $2; my $segreg = $2;
...@@ -56,7 +57,7 @@ while (<IN>) { ...@@ -56,7 +57,7 @@ while (<IN>) {
# Assume a line got cut by a line feed in a string. # Assume a line got cut by a line feed in a string.
$_ .= scalar (<IN>); $_ .= scalar (<IN>);
if (!$newlineerror) { if (!$newlineerror) {
print "Err[$tid] string probably cut by newline.\n"; print "Err[$tid] string probably cut by newline at line $. .\n";
$newlineerror = 1; $newlineerror = 1;
} }
# print "[$_]"; # print "[$_]";
...@@ -66,6 +67,7 @@ while (<IN>) { ...@@ -66,6 +67,7 @@ while (<IN>) {
if (/^([0-9a-f]+):Ret ([A-Za-z0-9]+\.[A-Za-z0-9_]+)\(.*\) .* ret=(........)$/ || if (/^([0-9a-f]+):Ret ([A-Za-z0-9]+\.[A-Za-z0-9_]+)\(.*\) .* ret=(........)$/ ||
/^([0-9a-f]+):Ret ([A-Za-z0-9]+\.[A-Za-z0-9_]+)\(.*\) .* ret=(....:....) (ds=....)$/ || /^([0-9a-f]+):Ret ([A-Za-z0-9]+\.[A-Za-z0-9_]+)\(.*\) .* ret=(....:....) (ds=....)$/ ||
/^([0-9a-f]+):Ret ([A-Za-z0-9]+\.[A-Za-z0-9_]+)\(.*\) .* ret=(........) fs=....$/ ||
/^([0-9a-f]+):RET ([A-Za-z0-9]+\.[A-Za-z0-9_]+: [A-Za-z0-9]+)\(.*\) .* ret=(........)$/) { /^([0-9a-f]+):RET ([A-Za-z0-9]+\.[A-Za-z0-9_]+: [A-Za-z0-9]+)\(.*\) .* ret=(........)$/) {
my $tid = $1; my $tid = $1;
my $func = $2; my $func = $2;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment