[padb-devel] [padb commit] r95 - Re-instate the group-id= option for deadlock detection, it now works

[codesite-noreply at google.com]

Author: apittman
Date: Wed Jul  8 12:10:24 2009
New Revision: 95

Modified:
    branches/full-duplex/src/padb

Log:
Re-instate the group-id= option for deadlock detection, it now works
on strings rather than integers so works with MPI communicators as well
as QsNet groups.


Modified: branches/full-duplex/src/padb
==============================================================================
--- branches/full-duplex/src/padb	(original)
+++ branches/full-duplex/src/padb	Wed Jul  8 12:10:24 2009
@@ -588,7 +588,7 @@
          "verbose|v+"          => \$conf{verbose},
          "user|u=s"            => \$user,
          "rank|r=i"            => \@ranks,
-        "group-id=i"          => \@target_groups,
+        "group-id=s"          => \@target_groups,
          "help|h"              => \&usage,
          "all|a"               => \$all,
          "any|A"               => \$any,
@@ -1518,11 +1518,11 @@

      my %ad;

-    my @tg;
+    my %tg;

      if ( $#target_groups != -1 ) {
          foreach my $gid (@target_groups) {
-            $tg[$gid]++;
+            $tg{$gid}++;
          }
      }

@@ -1533,7 +1533,7 @@
          foreach my $gid ( keys %{ $dataset->{'subsystems'}{'Group'} } ) {

              if ( $#target_groups != -1 ) {
-                next unless defined $tg[$gid];
+                next unless defined $tg{$gid};
              }

              my $str;
@@ -1584,7 +1584,7 @@
      foreach my $gid ( sort { $a <=> $b } keys %ad ) {

          if ( $#target_groups != -1 ) {
-            next unless defined $tg[$gid];
+            next unless defined $tg{$gid};
          }

          my $gstr = "Information for group '$gid'\n";
@@ -4815,11 +4815,11 @@

      my %ad;

-    my @tg;
+    my %tg;

      if ( $#target_groups != -1 ) {
          foreach my $gid (@target_groups) {
-            $tg[$gid]++;
+            $tg{$gid}++;
          }
      }

@@ -4837,7 +4837,7 @@
              }

              if ( $#target_groups != -1 ) {
-                next unless defined $tg[$gid];
+                next unless defined $tg{$gid};
              }

              if ( $gd->{size} > 0 ) {
@@ -4865,7 +4865,7 @@
      foreach my $gid ( sort keys %ad ) {

          if ( $#target_groups != -1 ) {
-            next unless defined $tg[$gid];
+            next unless defined $tg{$gid};
          }

          my $gstr = "Information for group '$gid' ($ad{$gid}{name})\n";