X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=ghc%2Fcompiler%2FyaccParser%2Flist.h;h=cbd9014ad019ce6514e7f6252be31494e7886c50;hp=2eefe33fe25f94dec94b783171815df37ad0b797;hb=ed7464364646a28aaf27d1dbc2ceaf7a9d9ce62f;hpb=10521d8418fd3a1cf32882718b5bd28992db36fd

diff --git a/ghc/compiler/yaccParser/list.h b/ghc/compiler/yaccParser/list.h
index 2eefe33..cbd9014 100644
--- a/ghc/compiler/yaccParser/list.h
+++ b/ghc/compiler/yaccParser/list.h
@@ -19,6 +19,7 @@ typedef enum {
 typedef struct { Tlist tag; } *list;
 
 #ifdef __GNUC__
+Tlist tlist(list t);
 extern __inline__ Tlist tlist(list t)
 {
 	return(t -> tag);
@@ -40,6 +41,8 @@ struct Slnil {
 extern list mklcons PROTO((VOID_STAR, list));
 #ifdef __GNUC__
 
+VOID_STAR *Rlhd PROTO((struct Slcons *));
+
 extern __inline__ VOID_STAR *Rlhd(struct Slcons *t)
 {
 #ifdef UGEN_DEBUG
@@ -55,6 +58,8 @@ extern VOID_STAR *Rlhd PROTO((struct Slcons *));
 #define lhd(xyzxyz) (*Rlhd((struct Slcons *) (xyzxyz)))
 #ifdef __GNUC__
 
+list *Rltl PROTO((struct Slcons *));
+
 extern __inline__ list *Rltl(struct Slcons *t)
 {
 #ifdef UGEN_DEBUG
@@ -69,6 +74,6 @@ extern list *Rltl PROTO((struct Slcons *));
 
 #define ltl(xyzxyz) (*Rltl((struct Slcons *) (xyzxyz)))
 
-extern list mklnil PROTO(());
+extern list mklnil PROTO((void));
 
 #endif