From: Josef Weidendorfer <Josef.Weidendorfer@gmx.de>
Date: Fri, 16 Feb 2007 21:55:25 +0000 (+0000)
Subject: Callgrind: Fix threads display of "callgrind_control -s"
X-Git-Tag: svn/VALGRIND_3_3_0~363
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b7dea1c39dfe7da6494839f10ce7845bd51446de;p=thirdparty%2Fvalgrind.git

Callgrind: Fix threads display of "callgrind_control -s"


git-svn-id: svn://svn.valgrind.org/valgrind/trunk@6601
---

diff --git a/callgrind/callgrind_control.in b/callgrind/callgrind_control.in
index af0ea71356..d2e1ff57f6 100644
--- a/callgrind/callgrind_control.in
+++ b/callgrind/callgrind_control.in
@@ -370,6 +370,7 @@ foreach $pid (@pids) {
   %calls = ();
   %events = ();
   @events = ();
+  @threads = ();
   %totals = ();
 
   $exec_bbs = 0;
@@ -378,7 +379,7 @@ foreach $pid (@pids) {
   $dist_calls = 0;
   $dist_ctxs = 0;
   $dist_funcs = 0;
-  $threads = 0;
+  $threads = "";
   $events = "";
 
   while(<RESULT>) {
@@ -410,7 +411,7 @@ foreach $pid (@pids) {
     elsif (/distinct-functions: (\d+)/) { $dist_funcs = $1; }
     elsif (/distinct-contexts: (\d+)/) { $dist_ctxs = $1; }
     elsif (/events: (.+)$/) { $events = $1; prepareEvents; }
-    elsif (/threads: (\d+)$/) { $threads = $1; }
+    elsif (/threads: (.+)$/) { $threads = $1; @threads = split " ", $threads; }
     elsif (/instrumentation: (\w+)$/) { $instrumentation = $1; }
   }
 
@@ -423,7 +424,7 @@ foreach $pid (@pids) {
 
   if ($printStatus) {
     if ($requestEvents <1) {
-      print "  Number of threads: $threads\n";
+      print "  Number of running threads: " .($#threads+1). ", thread IDs: $threads\n";
       print "  Events collected: $events\n";
     }