From 0675454371608ee9696edb765aeffb64fa10a942 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Wed, 25 Jul 2001 11:55:57 +0000
Subject: [PATCH] [project @ 2001-07-25 11:55:57 by simonmar] Specialise
 thread_static() a little bit: improves performance for
 threading the static object list.

---
 ghc/rts/GCCompact.c |   13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

diff --git a/ghc/rts/GCCompact.c b/ghc/rts/GCCompact.c
index 7b2aca0..b3f4fb7 100644
--- a/ghc/rts/GCCompact.c
+++ b/ghc/rts/GCCompact.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: GCCompact.c,v 1.3 2001/07/24 15:13:01 simonmar Exp $
+ * $Id: GCCompact.c,v 1.4 2001/07/25 11:55:57 simonmar Exp $
  *
  * (c) The GHC Team 2001
  *
@@ -148,18 +148,23 @@ thread_static( StgClosure* p )
       
     case IND_STATIC:
 	thread((StgPtr)&((StgInd *)p)->indirectee);
-	break;
+	p = IND_STATIC_LINK(p);
+	continue;
       
     case THUNK_STATIC:
+	p = THUNK_STATIC_LINK(p);
+	continue;
     case FUN_STATIC:
+	p = FUN_STATIC_LINK(p);
+	continue;
     case CONSTR_STATIC:
-	break;
+	p = STATIC_LINK(info,p);
+	continue;
       
     default:
 	barf("thread_static: strange closure %d", (int)(info->type));
     }
 
-    p = STATIC_LINK(info,p);
   }
 }
 
-- 
1.7.10.4