From: simonmar <unknown>
Date: Fri, 19 Nov 1999 12:39:49 +0000 (+0000)
Subject: [project @ 1999-11-19 12:39:49 by simonmar]
X-Git-Tag: Approximately_9120_patches~5541
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=7c6cc32d0ca7bbbf154758404193ea2fbf3eff3d;p=ghc-hetmet.git

[project @ 1999-11-19 12:39:49 by simonmar]
Initialize the cost-centre in the header of a new TSO.
---

diff --git a/ghc/rts/Schedule.c b/ghc/rts/Schedule.c
index 27bc1c5..24f07bf 100644
--- a/ghc/rts/Schedule.c
+++ b/ghc/rts/Schedule.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: Schedule.c,v 1.34 1999/11/18 12:10:29 sewardj Exp $
+ * $Id: Schedule.c,v 1.35 1999/11/19 12:39:49 simonmar Exp $
  *
  * (c) The GHC Team, 1998-1999
  *
@@ -678,7 +678,7 @@ createThread(nat stack_size)
 void
 initThread(StgTSO *tso, nat stack_size)
 {
-  SET_INFO(tso,&TSO_info);
+  SET_HDR(tso, &TSO_info, CCS_MAIN);
   tso->whatNext     = ThreadEnterGHC;
   
   /* tso->id needs to be unique.  For now we use a heavyweight mutex to