From dcecd7a5170b54d06df3f7eb6e8f38585a283a21 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Wed, 14 Feb 2007 12:04:01 +0000 Subject: [PATCH] fix closure_sizeW_() for AP closures Since thunks grew an extra padding word in GHC 6.6, closure_sizeW() has been wrong for AP closures because it assumed compatible layout between PAPs and APs. One symptom is that the compacting GC would crash if it encountered an AP. APs conly crop up in GHCi or when using asynchronous exceptions. Fixes #1010 --- includes/Storage.h | 1 + 1 file changed, 1 insertion(+) diff --git a/includes/Storage.h b/includes/Storage.h index 12be6d1..da24a78 100644 --- a/includes/Storage.h +++ b/includes/Storage.h @@ -392,6 +392,7 @@ closure_sizeW_ (StgClosure *p, StgInfoTable *info) case AP_STACK: return ap_stack_sizeW((StgAP_STACK *)p); case AP: + return ap_sizeW((StgAP *)p); case PAP: return pap_sizeW((StgPAP *)p); case IND: -- 1.7.10.4