X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fincludes%2FLLC.h;h=c097e4005a79dbb5c676e38f9580e052a1b2f3ee;hb=063eda14b18aadc138bc27eb460e1af93b09ca9b;hp=dcf815bcf00318de6438f350c22ac6aba4e93d3d;hpb=9d4c03805bafb6b1e1d47306b6a6c591c998e517;p=ghc-hetmet.git

diff --git a/ghc/includes/LLC.h b/ghc/includes/LLC.h
index dcf815b..c097e40 100644
--- a/ghc/includes/LLC.h
+++ b/ghc/includes/LLC.h
@@ -67,12 +67,12 @@
 #define GetArgN(n,a)		pvm_upklong(&(a),1,1)
 #define GetArgs(b,n)		pvm_upklong(b,n,1)
 
-extern void SendOp PROTO((OPCODE,GLOBAL_TASK_ID)),
-            SendOp1 PROTO((OPCODE,GLOBAL_TASK_ID,StgWord)),
-            SendOp2 PROTO((OPCODE,GLOBAL_TASK_ID,StgWord,StgWord)),
-	    SendOpV PROTO((OPCODE,GLOBAL_TASK_ID,int,...)), 
-            SendOpN PROTO((OPCODE,GLOBAL_TASK_ID,int,StgWord *)),
-            SendOpNV PROTO((OPCODE,GLOBAL_TASK_ID,int,StgWord*,int,...));
+void SendOp   PROTO((OPCODE,GLOBAL_TASK_ID)),
+     SendOp1  PROTO((OPCODE,GLOBAL_TASK_ID,StgWord)),
+     SendOp2  PROTO((OPCODE,GLOBAL_TASK_ID,StgWord,StgWord)),
+     SendOpV  PROTO((OPCODE,GLOBAL_TASK_ID,int,...)), 
+     SendOpN  PROTO((OPCODE,GLOBAL_TASK_ID,int,StgWord *)),
+     SendOpNV PROTO((OPCODE,GLOBAL_TASK_ID,int,StgWord*,int,...));
 
 char *GetOpName PROTO((unsigned op));
 void NullException(STG_NO_ARGS);
@@ -84,7 +84,7 @@ void get_opcode_and_sender PROTO((PACKET p, OPCODE *popcode, GLOBAL_TASK_ID *pse
 GLOBAL_TASK_ID *PEStartUp PROTO((unsigned nPEs));
 void PEShutDown(STG_NO_ARGS);
 
-extern void (*ExceptionHandler)();
+void (*ExceptionHandler)(STG_NO_ARGS);
 
 #endif /*PAR */
 #endif /*defined __LLC_H */