From 290e7896a6785ba5dcfbc7045438f382afd447ff Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Thu, 23 Mar 2000 16:01:16 +0000
Subject: [PATCH] [project @ 2000-03-23 16:01:16 by simonmar] Work around the
 slightly deranged way we deal with thunks and MIN_UPD_SIZE
 at the moment.

---
 ghc/rts/ProfHeap.c |    6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/ghc/rts/ProfHeap.c b/ghc/rts/ProfHeap.c
index 5028249..fe2746b 100644
--- a/ghc/rts/ProfHeap.c
+++ b/ghc/rts/ProfHeap.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: ProfHeap.c,v 1.7 2000/03/23 13:13:29 simonmar Exp $
+ * $Id: ProfHeap.c,v 1.8 2000/03/23 16:01:16 simonmar Exp $
  *
  * (c) The GHC Team, 1998-2000
  *
@@ -396,8 +396,6 @@ heapCensus(void)
       case FUN_1_1:
       case FUN_0_2:
       case FUN_2_0:
-      case THUNK_1_0:
-      case THUNK_0_1:
       case THUNK_1_1:
       case THUNK_0_2:
       case THUNK_2_0:
@@ -409,6 +407,8 @@ heapCensus(void)
 	size = sizeW_fromITBL(info);
 	break;
 	
+      case THUNK_1_0:		/* ToDo - shouldn't be here */
+      case THUNK_0_1:		/* "  ditto  " */
       case THUNK_SELECTOR:
 	size = sizeofW(StgHeader) + MIN_UPD_SIZE;
 	break;
-- 
1.7.10.4