X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FyaccParser%2Fprinttree.c;h=d276110d8b5de2882864a0c6c29b7eef6cb54270;hb=b52838bcf54a3d5d07cf29f17f3af6f584fc0f4e;hp=1300baf87d5f2d38b700e099d12def45a1f3de91;hpb=10521d8418fd3a1cf32882718b5bd28992db36fd;p=ghc-hetmet.git

diff --git a/ghc/compiler/yaccParser/printtree.c b/ghc/compiler/yaccParser/printtree.c
index 1300baf..d276110 100644
--- a/ghc/compiler/yaccParser/printtree.c
+++ b/ghc/compiler/yaccParser/printtree.c
@@ -719,11 +719,6 @@ ppragma(p)
 				ppragma(gprag_dfun_const(p));
 				plist(ppragma, gprag_constms(p));
 				break;
-      case iinst_spec_pragma:	PUTTAGSTR("PiS");
-				pid(gprag_imod_spec(p));
-				ppragma(gprag_dfun_spec(p));
-				plist(ppragma, gprag_inst_specs(p));
-				break;
 
       case igen_pragma:		PUTTAGSTR("Pg");
 				ppragma(gprag_arity(p));
@@ -772,12 +767,6 @@ ppragma(p)
 				pid(gprag_type_pr2(p));
 				ppragma(gprag_type_pr3(p));
 				break;
-      case iinst_pragma_3s:	PUTTAGSTR("P3");
-				plist(pttype, gprag_inst_pt1(p));
-				pid(gprag_inst_pt2(p));
-				ppragma(gprag_inst_pt3(p));
-				plist(ppragma,gprag_inst_pt4(p));
-				break;
 
       case idata_pragma_4s:	PUTTAGSTR("P4");
 				plist(pttype, gprag_data_spec(p));