X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Fparallel%2FParallel.c;h=55c22c752acf046d1c1fdc79576c29b54a302540;hb=e5c3b478b3cd1707cf122833822f44b2ac09b8e9;hp=99a2bb221b48d35dd5d71017a7a43e67875fcb8c;hpb=81c95f7d9854521a568179bb19199299835b7a53;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;