X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=ghc%2Fruntime%2Fgum%2FLLComms.lc;h=3c9214083a3ea248ba56f33ead7e995f35ae7d64;hp=200ca3450f467e66fc6d587fbb6a85bf3bd541ed;hb=5eb1c77c795f92ed0f4c8023847e9d4be1a4fd0d;hpb=f7ecf7234c224489be8a5e63fced903b655d92ee

diff --git a/ghc/runtime/gum/LLComms.lc b/ghc/runtime/gum/LLComms.lc
index 200ca34..3c92140 100644
--- a/ghc/runtime/gum/LLComms.lc
+++ b/ghc/runtime/gum/LLComms.lc
@@ -371,12 +371,12 @@ unsigned nPEs;
     } 
     addr = WaitForPEOp(PP_PETIDS, ANY_GLOBAL_TASK);
     GetArgs(buffer, nPEs);
-#if 0
     for (i = 0; i < nPEs; ++i) {
 	PEs[i] = (GLOBAL_TASK_ID) buffer[i];
+#if 0
 	fprintf(stderr,"PEs[%d] = %x \n", i, PEs[i]); 
-    }
 #endif
+    }
     free(buffer);
     return PEs;
 }