FIX #38000 Store StgArrWords payload size in bytes

[ghc-hetmet.git] / rts / parallel / Parallel.c

diff --git a/rts/parallel/Parallel.c b/rts/parallel/Parallel.c
index 99a2bb2..55c22c7 100644 (file)
--- 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;