X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Fparallel%2FParallel.c;fp=rts%2Fparallel%2FParallel.c;h=55c22c752acf046d1c1fdc79576c29b54a302540;hb=17c8229adf9f268097e4c87053d940a918c3a26f;hp=99a2bb221b48d35dd5d71017a7a43e67875fcb8c;hpb=a0e32f1151a9bc765527bd9ee48a54a27ce1750e;p=ghc-hetmet.git

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