projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
releaseCapabilityAndQueueWorker: task->stopped should be false (#4850)
[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;
/* 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;
*vhs = *size - *ptrs - *nonptrs - sizeofW(StgHeader);
return info;