projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
add (trivial) support for STM objects in lag/drag/void profiling
[ghc-hetmet.git]
/
ghc
/
rts
/
RtsAPI.c
diff --git
a/ghc/rts/RtsAPI.c
b/ghc/rts/RtsAPI.c
index
45c09d8
..
b1b1d9c
100644
(file)
--- a/
ghc/rts/RtsAPI.c
+++ b/
ghc/rts/RtsAPI.c
@@
-578,7
+578,7
@@
rts_unlock (Capability *cap)
Task *task;
task = cap->running_task;
- ASSERT(task == myTask());
+ ASSERT_FULL_CAPABILITY_INVARIANTS(cap,task);
// slightly delicate ordering of operations below, pay attention!