[project @ 1996-07-25 20:43:49 by partain]

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

diff --git a/ghc/runtime/gum/ParInit.lc b/ghc/runtime/gum/ParInit.lc
index 780c676..277f500 100644 (file)
--- a/ghc/runtime/gum/ParInit.lc
+++ b/ghc/runtime/gum/ParInit.lc
@@ -134,8 +134,7 @@ initParallelSystem(STG_NO_ARGS)
 }
 \end{code}
 
-@SynchroniseSystem@ synchronises the reduction task with the system manager,
-and gathers information about which PEs are actually in use.
+@SynchroniseSystem@ synchronises the reduction task with the system manager.
 
 \begin{code}
 GLOBAL_TASK_ID *PEs;
@@ -157,10 +156,7 @@ SynchroniseSystem(STG_NO_ARGS)
     for (i = 0; i < nPEs; ++i)
        registerTask(PEs[i]);
 
-    addr = WaitForPEOp(PP_INIT, ANY_GLOBAL_TASK);
-    SysManTask = Sender_Task(addr);
-
-/*  pvm_notify( PvmTaskExit, PP_FAIL, 1, &SysManTask);  /* Setup an error handler */
+/*  pvm_notify( PvmTaskExit, PP_FAIL, 1, &SysManTask);  /? Setup an error handler */
 
     /* Initialise the PE task array? */
 }