From fe9fb2be322ae63eaa24858a8a581b0eb94ca681 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Mon, 24 Nov 1997 21:07:39 +0000
Subject: [PATCH] [project @ 1997-11-24 21:07:39 by sof] Add spark count to
debug msg
---
ghc/runtime/gum/ParInit.lc | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/ghc/runtime/gum/ParInit.lc b/ghc/runtime/gum/ParInit.lc
index b9612355ce22..4020a766ee4a 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);
--
GitLab