diff options
| author | Antoine Latter <aslatter@gmail.com> | 2010-01-01 18:33:46 +0000 |
|---|---|---|
| committer | Antoine Latter <aslatter@gmail.com> | 2010-01-01 18:33:46 +0000 |
| commit | 17c8229adf9f268097e4c87053d940a918c3a26f (patch) | |
| tree | 578661321f7a92f51f397ac5a0bf2e26a1683f5e /rts/Printer.c | |
| parent | a0e32f1151a9bc765527bd9ee48a54a27ce1750e (diff) | |
| download | haskell-17c8229adf9f268097e4c87053d940a918c3a26f.tar.gz | |
FIX #38000 Store StgArrWords payload size in bytes
Diffstat (limited to 'rts/Printer.c')
| -rw-r--r-- | rts/Printer.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/Printer.c b/rts/Printer.c index 9e772c4f61..b55f1055f8 100644 --- 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; |