diff options
Diffstat (limited to 'rts/parallel/Parallel.c')
| -rw-r--r-- | rts/parallel/Parallel.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/parallel/Parallel.c b/rts/parallel/Parallel.c index 99a2bb221b..55c22c752a 100644 --- a/rts/parallel/Parallel.c +++ b/rts/parallel/Parallel.c @@ -1045,7 +1045,7 @@ get_closure_info(StgClosure* node, nat *size, nat *ptrs, nat *nonptrs, /* ToDo: check whether this can be merged with the default case */ *size = arr_words_sizeW((StgArrWords *)node); *ptrs = 0; - *nonptrs = ((StgArrWords *)node)->words; + *nonptrs = arr_words_words(((StgArrWords *)node)); *vhs = *size - *ptrs - *nonptrs - sizeofW(StgHeader); return info; |