From: simonmar <unknown>
Date: Thu, 5 May 2005 11:19:42 +0000 (+0000)
Subject: [project @ 2005-05-05 11:19:42 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~601
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=96a1ac66aea8ec7b447c2215242f59b91b3c8d35;p=ghc-hetmet.git

[project @ 2005-05-05 11:19:42 by simonmar]
Sanity fix for SMP
---

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: