From 01630909feb4057225cdbe9fb8f8024a699690ca Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Mon, 24 Nov 1997 20:56:46 +0000
Subject: [PATCH] [project @ 1997-11-24 20:56:46 by sof] Print out module name
on entering unregistered CCs
---
ghc/includes/CostCentre.lh | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/ghc/includes/CostCentre.lh b/ghc/includes/CostCentre.lh
index 4444090c9da6..404d286554dc 100644
--- a/ghc/includes/CostCentre.lh
+++ b/ghc/includes/CostCentre.lh
@@ -415,7 +415,7 @@ We don't want to attribute costs to an unregistered cost-centre:
do { /* beware of cc name-capture */ \
CostCentre c_c = (CostCentre) (cc); \
if (c_c->registered == NOT_REGISTERED) { \
- fprintf(stderr,"Entering unregistered CC: %s\n",c_c->label); \
+ fprintf(stderr,"Entering unregistered CC: %s %s\n",c_c->module, c_c->label); \
/* unsafe c-call, BTW */ \
} \
if ( (chk_not_overhead) && c_c == STATIC_CC_REF(CC_OVERHEAD) ) { \
--
GitLab