X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FyaccParser%2Fbinding.c;fp=ghc%2Fcompiler%2FyaccParser%2Fbinding.c;h=6aa24ec47025f4fe8f455f5b5c54941ad563a5e0;hb=ed7464364646a28aaf27d1dbc2ceaf7a9d9ce62f;hp=20a82a36f1bce841d8408bc10d3d3c7e5b219dfa;hpb=10521d8418fd3a1cf32882718b5bd28992db36fd;p=ghc-hetmet.git

diff --git a/ghc/compiler/yaccParser/binding.c b/ghc/compiler/yaccParser/binding.c
index 20a82a3..6aa24ec 100644
--- a/ghc/compiler/yaccParser/binding.c
+++ b/ghc/compiler/yaccParser/binding.c
@@ -252,132 +252,6 @@ binding *Rgabindsnd(t)
 	return(& t -> Xgabindsnd);
 }
 
-/************** lbind ******************/
-
-binding mklbind(PPglbindfst, PPglbindsnd)
- binding PPglbindfst;
- binding PPglbindsnd;
-{
-	register struct Slbind *pp =
-		(struct Slbind *) malloc(sizeof(struct Slbind));
-	pp -> tag = lbind;
-	pp -> Xglbindfst = PPglbindfst;
-	pp -> Xglbindsnd = PPglbindsnd;
-	return((binding)pp);
-}
-
-binding *Rglbindfst(t)
- struct Slbind *t;
-{
-#ifdef UGEN_DEBUG
-	if(t -> tag != lbind)
-		fprintf(stderr,"glbindfst: illegal selection; was %d\n", t -> tag);
-#endif /* UGEN_DEBUG */
-	return(& t -> Xglbindfst);
-}
-
-binding *Rglbindsnd(t)
- struct Slbind *t;
-{
-#ifdef UGEN_DEBUG
-	if(t -> tag != lbind)
-		fprintf(stderr,"glbindsnd: illegal selection; was %d\n", t -> tag);
-#endif /* UGEN_DEBUG */
-	return(& t -> Xglbindsnd);
-}
-
-/************** ebind ******************/
-
-binding mkebind(PPgebindl, PPgebind, PPgeline)
- list PPgebindl;
- binding PPgebind;
- long PPgeline;
-{
-	register struct Sebind *pp =
-		(struct Sebind *) malloc(sizeof(struct Sebind));
-	pp -> tag = ebind;
-	pp -> Xgebindl = PPgebindl;
-	pp -> Xgebind = PPgebind;
-	pp -> Xgeline = PPgeline;
-	return((binding)pp);
-}
-
-list *Rgebindl(t)
- struct Sebind *t;
-{
-#ifdef UGEN_DEBUG
-	if(t -> tag != ebind)
-		fprintf(stderr,"gebindl: illegal selection; was %d\n", t -> tag);
-#endif /* UGEN_DEBUG */
-	return(& t -> Xgebindl);
-}
-
-binding *Rgebind(t)
- struct Sebind *t;
-{
-#ifdef UGEN_DEBUG
-	if(t -> tag != ebind)
-		fprintf(stderr,"gebind: illegal selection; was %d\n", t -> tag);
-#endif /* UGEN_DEBUG */
-	return(& t -> Xgebind);
-}
-
-long *Rgeline(t)
- struct Sebind *t;
-{
-#ifdef UGEN_DEBUG
-	if(t -> tag != ebind)
-		fprintf(stderr,"geline: illegal selection; was %d\n", t -> tag);
-#endif /* UGEN_DEBUG */
-	return(& t -> Xgeline);
-}
-
-/************** hbind ******************/
-
-binding mkhbind(PPghbindl, PPghbind, PPghline)
- list PPghbindl;
- binding PPghbind;
- long PPghline;
-{
-	register struct Shbind *pp =
-		(struct Shbind *) malloc(sizeof(struct Shbind));
-	pp -> tag = hbind;
-	pp -> Xghbindl = PPghbindl;
-	pp -> Xghbind = PPghbind;
-	pp -> Xghline = PPghline;
-	return((binding)pp);
-}
-
-list *Rghbindl(t)
- struct Shbind *t;
-{
-#ifdef UGEN_DEBUG
-	if(t -> tag != hbind)
-		fprintf(stderr,"ghbindl: illegal selection; was %d\n", t -> tag);
-#endif /* UGEN_DEBUG */
-	return(& t -> Xghbindl);
-}
-
-binding *Rghbind(t)
- struct Shbind *t;
-{
-#ifdef UGEN_DEBUG
-	if(t -> tag != hbind)
-		fprintf(stderr,"ghbind: illegal selection; was %d\n", t -> tag);
-#endif /* UGEN_DEBUG */
-	return(& t -> Xghbind);
-}
-
-long *Rghline(t)
- struct Shbind *t;
-{
-#ifdef UGEN_DEBUG
-	if(t -> tag != hbind)
-		fprintf(stderr,"ghline: illegal selection; was %d\n", t -> tag);
-#endif /* UGEN_DEBUG */
-	return(& t -> Xghline);
-}
-
 /************** ibind ******************/
 
 binding mkibind(PPgibindc, PPgibindid, PPgibindi, PPgibindw, PPgiline, PPgipragma)
@@ -682,7 +556,7 @@ long *Rgmline(t)
 
 /************** nullbind ******************/
 
-binding mknullbind()
+binding mknullbind(void)
 {
 	register struct Snullbind *pp =
 		(struct Snullbind *) malloc(sizeof(struct Snullbind));