From 96a1ac66aea8ec7b447c2215242f59b91b3c8d35 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Thu, 5 May 2005 11:19:42 +0000
Subject: [PATCH] [project @ 2005-05-05 11:19:42 by simonmar] Sanity fix for
 SMP

---
 ghc/rts/Sanity.c |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ghc/rts/Sanity.c b/ghc/rts/Sanity.c
index a3bd96f..89c1a7e 100644
--- a/ghc/rts/Sanity.c
+++ b/ghc/rts/Sanity.c
@@ -280,7 +280,7 @@ checkClosure( StgClosure* p )
 	for (i = 0; i < info->layout.payload.ptrs; i++) {
 	  ASSERT(LOOKS_LIKE_CLOSURE_PTR(((StgThunk *)p)->payload[i]));
 	}
-	return stg_max(sizeW_fromITBL(info), sizeofW(StgHeader)+MIN_UPD_SIZE);
+	return stg_max(thunk_sizeW_fromITBL(info), sizeofW(StgHeader)+MIN_UPD_SIZE);
       }
 
     case FUN:
-- 
1.7.10.4