projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Use -W, not -Werror, for gcc older than 3.4
[ghc-hetmet.git]
/
rts
/
Schedule.c
diff --git
a/rts/Schedule.c
b/rts/Schedule.c
index
10b4051
..
e9d4327
100644
(file)
--- a/
rts/Schedule.c
+++ b/
rts/Schedule.c
@@
-240,8
+240,8
@@
schedule (Capability *initialCapability, Task *task)
rtsBool ready_to_gc;
#if defined(THREADED_RTS)
rtsBool first = rtsTrue;
rtsBool ready_to_gc;
#if defined(THREADED_RTS)
rtsBool first = rtsTrue;
-#endif
rtsBool force_yield = rtsFalse;
rtsBool force_yield = rtsFalse;
+#endif
cap = initialCapability;
cap = initialCapability;
@@
-1124,10
+1124,6
@@
scheduleHandleHeapOverflow( Capability *cap, StgTSO *t )
if (cap->r.rCurrentNursery->u.back != NULL) {
cap->r.rCurrentNursery->u.back->link = bd;
} else {
if (cap->r.rCurrentNursery->u.back != NULL) {
cap->r.rCurrentNursery->u.back->link = bd;
} else {
-#if !defined(THREADED_RTS)
- ASSERT(g0s0->blocks == cap->r.rCurrentNursery &&
- g0s0 == cap->r.rNursery);
-#endif
cap->r.rNursery->blocks = bd;
}
cap->r.rCurrentNursery->u.back = bd;
cap->r.rNursery->blocks = bd;
}
cap->r.rCurrentNursery->u.back = bd;