[project @ 2005-01-11 15:22:04 by simonmar]

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

diff --git a/ghc/includes/Storage.h b/ghc/includes/Storage.h
index 861cbeb..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]);
@@ -373,7 +373,7 @@ extern void         markCAFs     ( evac_fn evac );
    Stats 'n' DEBUG stuff
    -------------------------------------------------------------------------- */
 
-extern lnat RTS_VAR(total_allocated);
+extern ullong RTS_VAR(total_allocated);
 
 extern lnat calcAllocated  ( void );
 extern lnat calcLive       ( void );