projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
e10324c
)
initialise the headers of MVAR_TSO_QUEUE objects properly
author
Simon Marlow
<marlowsd@gmail.com>
Wed, 7 Apr 2010 08:15:14 +0000
(08:15 +0000)
committer
Simon Marlow
<marlowsd@gmail.com>
Wed, 7 Apr 2010 08:15:14 +0000
(08:15 +0000)
rts/PrimOps.cmm
patch
|
blob
|
history
diff --git
a/rts/PrimOps.cmm
b/rts/PrimOps.cmm
index
ada23fd
..
892ef68
100644
(file)
--- a/
rts/PrimOps.cmm
+++ b/
rts/PrimOps.cmm
@@
-1171,7
+1171,7
@@
stg_takeMVarzh
q = Hp - SIZEOF_StgMVarTSOQueue + WDS(1);
q = Hp - SIZEOF_StgMVarTSOQueue + WDS(1);
- StgHeader_info(q) = stg_MVAR_TSO_QUEUE_info;
+ SET_HDR(q, stg_MVAR_TSO_QUEUE_info, CCS_SYSTEM);
StgMVarTSOQueue_link(q) = END_TSO_QUEUE;
StgMVarTSOQueue_tso(q) = CurrentTSO;
StgMVarTSOQueue_link(q) = END_TSO_QUEUE;
StgMVarTSOQueue_tso(q) = CurrentTSO;
@@
-1330,7
+1330,7
@@
stg_putMVarzh
q = Hp - SIZEOF_StgMVarTSOQueue + WDS(1);
q = Hp - SIZEOF_StgMVarTSOQueue + WDS(1);
- StgHeader_info(q) = stg_MVAR_TSO_QUEUE_info;
+ SET_HDR(q, stg_MVAR_TSO_QUEUE_info, CCS_SYSTEM);
StgMVarTSOQueue_link(q) = END_TSO_QUEUE;
StgMVarTSOQueue_tso(q) = CurrentTSO;
StgMVarTSOQueue_link(q) = END_TSO_QUEUE;
StgMVarTSOQueue_tso(q) = CurrentTSO;