projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
9131430
)
[project @ 2005-06-14 10:02:11 by tharris]
author
tharris
<unknown>
Tue, 14 Jun 2005 10:02:11 +0000
(10:02 +0000)
committer
tharris
<unknown>
Tue, 14 Jun 2005 10:02:11 +0000
(10:02 +0000)
Assert on nested atomic blocks
ghc/rts/PrimOps.cmm
patch
|
blob
|
history
diff --git
a/ghc/rts/PrimOps.cmm
b/ghc/rts/PrimOps.cmm
index
7b1c8aa
..
84b34d0
100644
(file)
--- a/
ghc/rts/PrimOps.cmm
+++ b/
ghc/rts/PrimOps.cmm
@@
-1181,6
+1181,7
@@
atomicallyzh_fast
/* Start the memory transcation */
old_trec = StgTSO_trec(CurrentTSO);
+ ASSERT(old_trec == NO_TREC);
"ptr" new_trec = foreign "C" stmStartTransaction(BaseReg "ptr", old_trec "ptr");
StgTSO_trec(CurrentTSO) = new_trec;