Commit e3036c87 authored by sof's avatar sof
Browse files

[project @ 1997-03-14 03:44:29 by sof]

Nil_closure renamed
parent fef3313b
...@@ -84,7 +84,7 @@ AwaitEvent(I_ delta) ...@@ -84,7 +84,7 @@ AwaitEvent(I_ delta)
*/ */
FD_ZERO(&rfd); FD_ZERO(&rfd);
FD_ZERO(&wfd); 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); us = (I_) TSO_EVENT(tso);
if (us > 0) { if (us > 0) {
/* Looking at a delay event */ /* Looking at a delay event */
...@@ -142,7 +142,7 @@ AwaitEvent(I_ delta) ...@@ -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); next = TSO_LINK(tso);
us = (I_) TSO_EVENT(tso); us = (I_) TSO_EVENT(tso);
if (us > 0) { if (us > 0) {
...@@ -161,19 +161,19 @@ AwaitEvent(I_ delta) ...@@ -161,19 +161,19 @@ AwaitEvent(I_ delta)
if (ready) { if (ready) {
#if defined(GRAN) #if defined(GRAN)
if (ThreadQueueTl == Prelude_Z91Z93_closure) if (ThreadQueueTl == PrelBase_Z91Z93_closure)
ThreadQueueHd = tso; ThreadQueueHd = tso;
else else
TSO_LINK(ThreadQueueTl) = tso; TSO_LINK(ThreadQueueTl) = tso;
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; RunnableThreadsHd = tso;
else else
TSO_LINK(RunnableThreadsTl) = tso; TSO_LINK(RunnableThreadsTl) = tso;
RunnableThreadsTl = tso; RunnableThreadsTl = tso;
TSO_LINK(tso) = Prelude_Z91Z93_closure; TSO_LINK(tso) = PrelBase_Z91Z93_closure;
#endif #endif
} else { } else {
if (prev == NULL) if (prev == NULL)
...@@ -184,9 +184,9 @@ AwaitEvent(I_ delta) ...@@ -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;
} }
} }
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment