From 8349f9a99ffb33fa969812cb150a4b9f2bcaf448 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Wed, 5 Apr 2000 15:28:59 +0000
Subject: [PATCH] [project @ 2000-04-05 15:28:59 by simonmar] TSOs now belong
to CCS_SYSTEM.
---
ghc/rts/Schedule.c | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/ghc/rts/Schedule.c b/ghc/rts/Schedule.c
index 1f1faa1e6ab4..1f78e73f1d0b 100644
--- a/ghc/rts/Schedule.c
+++ b/ghc/rts/Schedule.c
@@ -1,5 +1,5 @@
/* ---------------------------------------------------------------------------
- * $Id: Schedule.c,v 1.63 2000/04/04 15:02:02 simonmar Exp $
+ * $Id: Schedule.c,v 1.64 2000/04/05 15:28:59 simonmar Exp $
*
* (c) The GHC Team, 1998-2000
*
@@ -1326,7 +1326,7 @@ createThread_(nat size, rtsBool have_lock)
tso = (StgTSO *)allocate(size);
TICK_ALLOC_TSO(size-TSO_STRUCT_SIZEW, 0);
- SET_HDR(tso, &TSO_info, CCS_MAIN);
+ SET_HDR(tso, &TSO_info, CCS_SYSTEM);
#if defined(GRAN)
SET_GRAN_HDR(tso, ThisPE);
#endif
@@ -1355,7 +1355,7 @@ createThread_(nat size, rtsBool have_lock)
/* put a stop frame on the stack */
tso->sp -= sizeofW(StgStopFrame);
- SET_HDR((StgClosure*)tso->sp,(StgInfoTable *)&stg_stop_thread_info,CCS_MAIN);
+ SET_HDR((StgClosure*)tso->sp,(StgInfoTable *)&stg_stop_thread_info,CCS_SYSTEM);
tso->su = (StgUpdateFrame*)tso->sp;
IF_DEBUG(scheduler,belch("---- Initialised TSO %ld (%p), stack size = %lx words",
--
GitLab