[project @ 1996-01-22 18:37:39 by partain]

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

diff --git a/ghc/runtime/gum/HLComms.lc b/ghc/runtime/gum/HLComms.lc
index 450fa0b..e9e86bc 100644 (file)
--- a/ghc/runtime/gum/HLComms.lc
+++ b/ghc/runtime/gum/HLComms.lc
@@ -884,11 +884,6 @@ PACKET packet;
 
     switch (opcode) {
 
-    case PP_IO_INIT:
-       IAmMainThread = rtsTrue;        /* This processor is the IO task */
-/*        fprintf(stderr,"I am Main Thread\n"); */
-       break;
-
     case PP_FINISH:
         EXIT(EXIT_SUCCESS);
        break;
@@ -984,18 +979,13 @@ void
 STG_Exception(packet)
 PACKET packet;
 {
-/*  GLOBAL_TASK_ID sender = Sender_Task(packet); */
+    GLOBAL_TASK_ID sender = Sender_Task(packet); 
     OPCODE opcode = Opcode(packet);
     
-/*    fprintf(stderr,"STG_Exception: Received %s (%x), sender %x\n",GetOpName(opcode),opcode,sender); */
+    fprintf(stderr,"STG_Exception: Received %s (%x), sender %x\n",GetOpName(opcode),opcode,sender); 
 
     switch (opcode) {
 
-    case PP_IO_INIT:
-       IAmMainThread = rtsTrue;        /* This processor is the IO task */
-/*        fprintf(stderr,"I am Main Thread\n"); */
-       break;
-
     case PP_FINISH:
         EXIT(EXIT_SUCCESS);
        break;