ReceiveTempSMS
/
Sweden-Number
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Add support for the +snoop style output.

This commit is contained in:
Guy Albertelli 2001-09-20 18:58:25 +00:00 committed by Alexandre Julliard
parent 848bc15ab1
commit 2011fa2d34
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
tools/examine-relay
View File

@ -23,10 +23,13 @@ open (IN, "<$srcfile") || die "Cannot open $srcfile for reading: $!\n";
LINE: LINE:
while (<IN>) { while (<IN>) {
if (/^([0-9a-f]+):Call ([A-Za-z0-9]+\.[A-Za-z0-9_]+)\((.*\)) .*/) {
if (/^([0-9a-f]+):Call ([A-Za-z0-9]+\.[A-Za-z0-9_]+)\((.*\)) .*/ ||
/^([0-9a-f]+):CALL ([A-Za-z0-9]+\.[A-Za-z0-9_]+: [A-Za-z0-9]+)\((.*\)) .*/) {
my $tid = $1; my $tid = $1;
my $func = $2; my $func = $2;
# print "have call func=$func <$_>\n";
if (/ ret=(........)$/ || if (/ ret=(........)$/ ||
/ ret=(....:....) (ds=....)$/) { / ret=(....:....) (ds=....)$/) {
my $retaddr = $1; my $retaddr = $1;
@ -49,13 +52,15 @@ 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_]+: [A-Za-z0-9]+)\(.*\) .* ret=(........)$/) {
my $tid = $1; my $tid = $1;
my $func = $2; my $func = $2;
my $retaddr = $3; my $retaddr = $3;
my $segreg = $4; my $segreg = $4;
my ($topfunc,$topaddr,$topseg); my ($topfunc,$topaddr,$topseg);
# print "have ret func=$func <$_>\n";
if (!defined($tid_callstack{$tid})) if (!defined($tid_callstack{$tid}))
{ {
print "Err[$tid]: unknown tid\n"; print "Err[$tid]: unknown tid\n";