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:
fef3313
)
[project @ 1997-03-14 03:44:29 by sof]
author
sof
<unknown>
Fri, 14 Mar 1997 03:44:29 +0000
(
03:44
+0000)
committer
sof
<unknown>
Fri, 14 Mar 1997 03:44:29 +0000
(
03:44
+0000)
Nil_closure renamed
ghc/runtime/main/Select.lc
patch
|
blob
|
history
diff --git
a/ghc/runtime/main/Select.lc
b/ghc/runtime/main/Select.lc
index
325a4a9
..
25547e1
100644
(file)
--- a/
ghc/runtime/main/Select.lc
+++ b/
ghc/runtime/main/Select.lc
@@
-84,7
+84,7
@@
AwaitEvent(I_ delta)
*/
FD_ZERO(&rfd);
FD_ZERO(&wfd);
*/
FD_ZERO(&rfd);
FD_ZERO(&wfd);
- for(tso = WaitingThreadsHd; tso != Prelude_Z91Z93_closure; tso = TSO_LINK(tso)) {
+ for(tso = WaitingThreadsHd; tso != PrelBase_Z91Z93_closure; tso = TSO_LINK(tso)) {
us = (I_) TSO_EVENT(tso);
if (us > 0) {
/* Looking at a delay event */
us = (I_) TSO_EVENT(tso);
if (us > 0) {
/* Looking at a delay event */
@@
-142,7
+142,7
@@
AwaitEvent(I_ delta)
*/
prev = NULL;
*/
prev = NULL;
- for(tso = WaitingThreadsHd; tso != Prelude_Z91Z93_closure; tso = next) {
+ for(tso = WaitingThreadsHd; tso != PrelBase_Z91Z93_closure; tso = next) {
next = TSO_LINK(tso);
us = (I_) TSO_EVENT(tso);
if (us > 0) {
next = TSO_LINK(tso);
us = (I_) TSO_EVENT(tso);
if (us > 0) {
@@
-161,19
+161,19
@@
AwaitEvent(I_ delta)
if (ready) {
#if defined(GRAN)
if (ready) {
#if defined(GRAN)
- if (ThreadQueueTl == Prelude_Z91Z93_closure)
+ if (ThreadQueueTl == PrelBase_Z91Z93_closure)
ThreadQueueHd = tso;
else
TSO_LINK(ThreadQueueTl) = tso;
ThreadQueueTl = tso;
ThreadQueueHd = tso;
else
TSO_LINK(ThreadQueueTl) = tso;
ThreadQueueTl = tso;
- TSO_LINK(tso) = Prelude_Z91Z93_closure;
+ TSO_LINK(tso) = PrelBase_Z91Z93_closure;
#else
#else
- if (RunnableThreadsTl == Prelude_Z91Z93_closure)
+ if (RunnableThreadsTl == PrelBase_Z91Z93_closure)
RunnableThreadsHd = tso;
else
TSO_LINK(RunnableThreadsTl) = tso;
RunnableThreadsTl = tso;
RunnableThreadsHd = tso;
else
TSO_LINK(RunnableThreadsTl) = tso;
RunnableThreadsTl = tso;
- TSO_LINK(tso) = Prelude_Z91Z93_closure;
+ TSO_LINK(tso) = PrelBase_Z91Z93_closure;
#endif
} else {
if (prev == NULL)
#endif
} else {
if (prev == NULL)
@@
-184,9
+184,9
@@
AwaitEvent(I_ delta)
}
}
if (prev == NULL)
}
}
if (prev == NULL)
- WaitingThreadsHd = WaitingThreadsTl = Prelude_Z91Z93_closure;
+ WaitingThreadsHd = WaitingThreadsTl = PrelBase_Z91Z93_closure;
else {
else {
- TSO_LINK(prev) = Prelude_Z91Z93_closure;
+ TSO_LINK(prev) = PrelBase_Z91Z93_closure;
WaitingThreadsTl = prev;
}
}
WaitingThreadsTl = prev;
}
}