Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
e3036c87
Commit
e3036c87
authored
Mar 14, 1997
by
sof
Browse files
[project @ 1997-03-14 03:44:29 by sof]
Nil_closure renamed
parent
fef3313b
Changes
1
Hide whitespace changes
Inline
Side-by-side
ghc/runtime/main/Select.lc
View file @
e3036c87
...
...
@@ -84,7 +84,7 @@ AwaitEvent(I_ delta)
*/
FD_ZERO(&rfd);
FD_ZERO(&wfd);
for(tso = WaitingThreadsHd; tso != Prel
ud
e_Z91Z93_closure; tso = TSO_LINK(tso)) {
for(tso = WaitingThreadsHd; tso != Prel
Bas
e_Z91Z93_closure; tso = TSO_LINK(tso)) {
us = (I_) TSO_EVENT(tso);
if (us > 0) {
/* Looking at a delay event */
...
...
@@ -142,7 +142,7 @@ AwaitEvent(I_ delta)
*/
prev = NULL;
for(tso = WaitingThreadsHd; tso != Prel
ud
e_Z91Z93_closure; tso = next) {
for(tso = WaitingThreadsHd; tso != Prel
Bas
e_Z91Z93_closure; tso = next) {
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 (ThreadQueueTl == Prel
ud
e_Z91Z93_closure)
if (ThreadQueueTl == Prel
Bas
e_Z91Z93_closure)
ThreadQueueHd = tso;
else
TSO_LINK(ThreadQueueTl) = tso;
ThreadQueueTl = tso;
TSO_LINK(tso) = Prel
ud
e_Z91Z93_closure;
TSO_LINK(tso) = Prel
Bas
e_Z91Z93_closure;
#else
if (RunnableThreadsTl == Prel
ud
e_Z91Z93_closure)
if (RunnableThreadsTl == Prel
Bas
e_Z91Z93_closure)
RunnableThreadsHd = tso;
else
TSO_LINK(RunnableThreadsTl) = tso;
RunnableThreadsTl = tso;
TSO_LINK(tso) = Prel
ud
e_Z91Z93_closure;
TSO_LINK(tso) = Prel
Bas
e_Z91Z93_closure;
#endif
} else {
if (prev == NULL)
...
...
@@ -184,9 +184,9 @@ AwaitEvent(I_ delta)
}
}
if (prev == NULL)
WaitingThreadsHd = WaitingThreadsTl = Prel
ud
e_Z91Z93_closure;
WaitingThreadsHd = WaitingThreadsTl = Prel
Bas
e_Z91Z93_closure;
else {
TSO_LINK(prev) = Prel
ud
e_Z91Z93_closure;
TSO_LINK(prev) = Prel
Bas
e_Z91Z93_closure;
WaitingThreadsTl = prev;
}
}
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment