[project @ 1997-03-14 05:03:43 by sof]

[ghc-hetmet.git] / ghc / runtime / gum / HLComms.lc

diff --git a/ghc/runtime/gum/HLComms.lc b/ghc/runtime/gum/HLComms.lc
index 4eb58bc..e4dce24 100644 (file)
--- a/ghc/runtime/gum/HLComms.lc
+++ b/ghc/runtime/gum/HLComms.lc
@@ -116,7 +116,7 @@ blockFetch(P_ bf, P_ bh)
 {
     switch (INFO_TYPE(INFO_PTR(bh))) {
     case INFO_BH_TYPE:
-       BF_LINK(bf) = Prelude_Z91Z93_closure;
+       BF_LINK(bf) = PrelBase_Z91Z93_closure;
        SET_INFO_PTR(bh, BQ_info);
        BQ_ENTRIES(bh) = (W_) bf;
 
@@ -172,7 +172,7 @@ processFetches()
     P_ ip;
     globalAddr rga;
     
-    for (bf = PendingFetches; bf != Prelude_Z91Z93_closure; bf = next) {
+    for (bf = PendingFetches; bf != PrelBase_Z91Z93_closure; bf = next) {
        next = BF_LINK(bf);
 
        /*
@@ -218,7 +218,7 @@ processFetches()
            sendResume(&rga, size, graph);
        }
     }
-    PendingFetches = Prelude_Z91Z93_closure;
+    PendingFetches = PrelBase_Z91Z93_closure;
 }
 
 \end{code}
@@ -650,7 +650,7 @@ processResume(GLOBAL_TASK_ID sender)
 
        if (INFO_TYPE(INFO_PTR(old)) == INFO_FMBQ_TYPE) {
            for(tso = (P_) FMBQ_ENTRIES(old); 
-              TSO_LINK(tso) != Prelude_Z91Z93_closure; 
+              TSO_LINK(tso) != PrelBase_Z91Z93_closure; 
               tso = TSO_LINK(tso))
                ;
        }