X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fruntime%2Fgum%2FParInit.lc;fp=ghc%2Fruntime%2Fgum%2FParInit.lc;h=4020a766ee4a808d05966c063b56b0038de082fa;hb=fe9fb2be322ae63eaa24858a8a581b0eb94ca681;hp=b9612355ce220255b2982d7d22473694bb5825cb;hpb=752fd59c1803419f4919365504065d3688b0d1ab;p=ghc-hetmet.git

diff --git a/ghc/runtime/gum/ParInit.lc b/ghc/runtime/gum/ParInit.lc
index b961235..4020a766 100644
--- a/ghc/runtime/gum/ParInit.lc
+++ b/ghc/runtime/gum/ParInit.lc
@@ -107,7 +107,7 @@ I_ n;
     else
       WaitForPEOp(PP_FINISH, SysManTask);
     PEShutDown();
-    fprintf(stderr,"PE %lx shutting down, %ld Threads run, %ld Sparks Ignored\n", (W_) mytid, threadId, sparksIgnored);
+    fprintf(stderr,"PE %lx shutting down, %ld Threads run, %ld Sparks created, %ld Sparks ignored\n", (W_) mytid, threadId, sparksCreated, sparksIgnored); /* HWL */
 
     /* And actually terminate -- always with code 0 */
     longjmp(exit_parallel_system, 1);