[project @ 2004-10-07 15:54:03 by wolfgang]

[ghc-hetmet.git] / ghc / includes / Storage.h

diff --git a/ghc/includes/Storage.h b/ghc/includes/Storage.h
index eb3c716..5c76094 100644 (file)
--- a/ghc/includes/Storage.h
+++ b/ghc/includes/Storage.h
@@ -333,7 +333,7 @@ INLINE_HEADER StgWord stack_frame_sizeW( StgClosure *frame )
 
     case RET_BIG:
     case RET_VEC_BIG:
-       return 1 + info->i.layout.large_bitmap->size;
+       return 1 + GET_LARGE_BITMAP(&info->i)->size;
 
     case RET_BCO:
        return 2 + BCO_BITMAP_SIZE((StgBCO *)((P_)frame)[1]);