examine-relay: DLLs can have underscore in their names (like ws2_32).
Signed-off-by: Eric Pouech <eric.pouech@gmail.com> Signed-off-by: Alexandre Julliard <julliard@winehq.org>
This commit is contained in:
parent
03649e5fb4
commit
4be47ac4a3
|
@ -44,7 +44,7 @@ LINE:
|
|||
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_.]+)\((.*\)) .*/) {
|
||||
my $tid = $1;
|
||||
my $func = $2;
|
||||
if (defined $fullformat) {
|
||||
|
@ -96,10 +96,10 @@ while (<IN>) {
|
|||
push @{$tid_callstack{$tid}}, [$func, $retaddr, $segreg];
|
||||
}
|
||||
|
||||
elsif (/^([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=(........) fs=....$/ ||
|
||||
/^([0-9a-f]+):RET ([A-Za-z0-9]+\.[A-Za-z0-9_.]+: [A-Za-z0-9]+)\(.*\) .* ret=(........)$/ ||
|
||||
elsif (/^([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=(........) fs=....$/ ||
|
||||
/^([0-9a-f]+):RET ([A-Za-z0-9_]+\.[A-Za-z0-9_.]+: [A-Za-z0-9]+)\(.*\) .* ret=(........)$/ ||
|
||||
/^([0-9a-f]+):Ret (window proc) ([0-9a-fx]+) .*/) {
|
||||
my $tid = $1;
|
||||
my $func = $2;
|
||||
|
|
Loading…
Reference in New Issue