From 3be9f5a036404609d88a94ce60d09dcf7c45d206 Mon Sep 17 00:00:00 2001 From: Paolo Molaro Date: Wed, 1 Dec 2010 17:19:32 +0100 Subject: [PATCH] Log profiler: fixed allocation and call frames end detection in test runner. --- mono/profiler/ptestrunner.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/mono/profiler/ptestrunner.pl b/mono/profiler/ptestrunner.pl index f346f8bd89c..36ae39ec532 100755 --- a/mono/profiler/ptestrunner.pl +++ b/mono/profiler/ptestrunner.pl @@ -226,7 +226,7 @@ sub check_call_traces foreach my $method (keys %calls) { my @desc = @{$calls{$method}}; my $num = shift @desc; - my $trace = get_delim_data ($section, "\\s+\\d+\\s+\\d+\\s+\\d+\\s+\Q$method\E", "^\\s*\\d+\\s+\\d"); + my $trace = get_delim_data ($section, "\\s+\\d+\\s+\\d+\\s+\\d+\\s+\Q$method\E", "^(\\s*\\d+\\s+\\d)|(^Total calls)"); if ($trace =~ s/^\s+(\d+)\s+calls from:$//m) { my $num_calls = $1; push @errors, "Wrong calls to $method." unless $num_calls == $num; @@ -250,7 +250,7 @@ sub check_alloc_traces foreach my $type (keys %types) { my @desc = @{$types{$type}}; my $num = shift @desc; - my $trace = get_delim_data ($section, "\\s+\\d+\\s+\\d+\\s+\\d+\\s+\Q$type\E", "^\\s*\\d+\\s+\\d"); + my $trace = get_delim_data ($section, "\\s+\\d+\\s+\\d+\\s+\\d+\\s+\Q$type\E", "^(\\s*\\d+\\s+\\d)|(^Total)"); if ($trace =~ s/^\s+(\d+)\s+bytes from:$//m) { #my $num_calls = $1; #push @errors, "Wrong calls to $method." unless $num_calls == $num; -- 2.25.1