X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FyaccParser%2Ffinfot.c;h=504d5c9c6c92fc4a1af9b25aff928060f92f3b84;hb=ed7464364646a28aaf27d1dbc2ceaf7a9d9ce62f;hp=d155b2b467627f73e0be61b7bc4f1b0a3b65e1ee;hpb=e7d21ee4f8ac907665a7e170c71d59e13a01da09;p=ghc-hetmet.git

diff --git a/ghc/compiler/yaccParser/finfot.c b/ghc/compiler/yaccParser/finfot.c
index d155b2b..504d5c9 100644
--- a/ghc/compiler/yaccParser/finfot.c
+++ b/ghc/compiler/yaccParser/finfot.c
@@ -10,16 +10,6 @@ Tfinfot tfinfot(t)
 }
 
 
-/************** nofinfo ******************/
-
-finfot mknofinfo()
-{
-	register struct Snofinfo *pp =
-		(struct Snofinfo *) malloc(sizeof(struct Snofinfo));
-	pp -> tag = nofinfo;
-	return((finfot)pp);
-}
-
 /************** finfo ******************/
 
 finfot mkfinfo(PPfi1, PPfi2)