From 606ec8dcf1dcdfbe7c9cfca131fdb2c95808bc13 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Thu, 13 Mar 1997 07:52:30 +0000
Subject: [PATCH] [project @ 1997-03-13 07:52:30 by sof] prof-conc setting and
 resetting of TSO_CCC & CCC

---
 ghc/includes/StgRegs.lh |    6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/ghc/includes/StgRegs.lh b/ghc/includes/StgRegs.lh
index 31e2ce7..ddeebf3 100644
--- a/ghc/includes/StgRegs.lh
+++ b/ghc/includes/StgRegs.lh
@@ -140,7 +140,7 @@ SaveAllStgContext(STG_NO_ARGS)
 {
     SaveAllStgRegs(); 
 #ifdef CONCURRENT
-# ifdef PAR
+# if defined(PROFILING) || defined(PAR)
     TSO_CCC(CurrentTSO) = CCC;
     CCC = (CostCentre)STATIC_CC_REF(CC_MAIN);
 # endif
@@ -279,8 +279,10 @@ RestoreAllStgRegs (STG_NO_ARGS)
     StkStubReg = STK_STUB_closure;
 #endif
 
-#ifdef PAR
+#if CONCURRENT
+# if defined(PROFILING) || defined(PAR)
     CCC = TSO_CCC(CurrentTSO);
+# endif
 #endif
 }
 
-- 
1.7.10.4