From 7c6cc32d0ca7bbbf154758404193ea2fbf3eff3d Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Fri, 19 Nov 1999 12:39:49 +0000
Subject: [PATCH] [project @ 1999-11-19 12:39:49 by simonmar] Initialize the
cost-centre in the header of a new TSO.
---
ghc/rts/Schedule.c | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/ghc/rts/Schedule.c b/ghc/rts/Schedule.c
index 27bc1c526acd..24f07bf7d8a3 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
--
GitLab