X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=ghc%2Fruntime%2Fgum%2FParInit.lc;fp=ghc%2Fruntime%2Fgum%2FParInit.lc;h=6f331e870bfeccea8052291e9d80814067fa9878;hb=e0befe921f5bbfa6daba3f8ff46cdf2a2abad1da;hp=c7933a356c2870662758193ebc85ef2ac51f2efe;hpb=68a1f0233996ed79824d11d946e9801473f6946c;p=ghc-hetmet.git

diff --git a/ghc/runtime/gum/ParInit.lc b/ghc/runtime/gum/ParInit.lc
index c7933a3..6f331e8 100644
--- a/ghc/runtime/gum/ParInit.lc
+++ b/ghc/runtime/gum/ParInit.lc
@@ -156,9 +156,6 @@ 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 */
 
     /* Initialise the PE task array? */