X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FPrinter.c;h=9e8d09043c69e3a85c06fad362168ba054c33ac0;hb=b4d045ae655e5eae25b88917cfe75d7dc7689c21;hp=c72b33a5acbffe415c18fe374b014ad6a6759628;hpb=a558bffdbf9288a5c6620b9553ec4839c8b904e4;p=ghc-hetmet.git

diff --git a/ghc/rts/Printer.c b/ghc/rts/Printer.c
index c72b33a..9e8d090 100644
--- a/ghc/rts/Printer.c
+++ b/ghc/rts/Printer.c
@@ -622,8 +622,8 @@ printStackChunk( StgPtr sp, StgPtr spBottom )
 		break;
 	    case ARG_GEN_BIG:
 		printLargeBitmap(spBottom, sp+2,
-				 (StgLargeBitmap *)fun_info->f.bitmap,
-				 BITMAP_SIZE(fun_info->f.bitmap));
+				 GET_FUN_LARGE_BITMAP(fun_info),
+				 GET_FUN_LARGE_BITMAP(fun_info)->size);
 		break;
 	    default:
 		printSmallBitmap(spBottom, sp+1,