From: sof <unknown>
Date: Thu, 13 Mar 1997 07:52:30 +0000 (+0000)
Subject: [project @ 1997-03-13 07:52:30 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~829
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=606ec8dcf1dcdfbe7c9cfca131fdb2c95808bc13;p=ghc-hetmet.git

[project @ 1997-03-13 07:52:30 by sof]
prof-conc setting and resetting of TSO_CCC & CCC
---

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
 }