FIX #38000 Store StgArrWords payload size in bytes

[ghc-hetmet.git] / rts / Printer.c

diff --git a/rts/Printer.c b/rts/Printer.c
index 9e772c4..b55f105 100644 (file)
--- a/rts/Printer.c
+++ b/rts/Printer.c
@@ -293,7 +293,7 @@ printClosure( StgClosure *obj )
             for (i = 0; arrWordsGetChar(obj,i); ++i) {
                 putchar(arrWordsGetChar(obj,i));
                } */
-           for (i=0; i<((StgArrWords *)obj)->words; i++)
+           for (i=0; i<arr_words_words((StgArrWords *)obj); i++)
              debugBelch("%lu", (lnat)((StgArrWords *)obj)->payload[i]);
             debugBelch("\")\n");
             break;