From e3036c87fff64ea83251f4f5348db778ed288607 Mon Sep 17 00:00:00 2001 From: sof Date: Fri, 14 Mar 1997 03:44:29 +0000 Subject: [PATCH] [project @ 1997-03-14 03:44:29 by sof] Nil_closure renamed --- ghc/runtime/main/Select.lc | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/ghc/runtime/main/Select.lc b/ghc/runtime/main/Select.lc index 325a4a9..25547e1 100644 --- 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); - 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 */ @@ -142,7 +142,7 @@ AwaitEvent(I_ delta) */ 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) { @@ -161,19 +161,19 @@ AwaitEvent(I_ delta) if (ready) { #if defined(GRAN) - if (ThreadQueueTl == Prelude_Z91Z93_closure) + if (ThreadQueueTl == PrelBase_Z91Z93_closure) ThreadQueueHd = tso; else TSO_LINK(ThreadQueueTl) = tso; ThreadQueueTl = tso; - TSO_LINK(tso) = Prelude_Z91Z93_closure; + TSO_LINK(tso) = PrelBase_Z91Z93_closure; #else - if (RunnableThreadsTl == Prelude_Z91Z93_closure) + if (RunnableThreadsTl == PrelBase_Z91Z93_closure) 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) @@ -184,9 +184,9 @@ AwaitEvent(I_ delta) } } if (prev == NULL) - WaitingThreadsHd = WaitingThreadsTl = Prelude_Z91Z93_closure; + WaitingThreadsHd = WaitingThreadsTl = PrelBase_Z91Z93_closure; else { - TSO_LINK(prev) = Prelude_Z91Z93_closure; + TSO_LINK(prev) = PrelBase_Z91Z93_closure; WaitingThreadsTl = prev; } } -- 1.7.10.4