X-Git-Url: http://wien.tomnetworks.com/gitweb/?a=blobdiff_plain;ds=sidebyside;f=codea%2Fparser.y;h=e75f2efcd55d1b4eb76dbca072bb89adce393e12;hb=9ac1f0e860f07bb8b7e57ee95d572827a4211de9;hp=34dadf16ebc3b310f2bd51bce6a7303e3b6f4d79;hpb=777a3cb3a801b3ab86e9a77fe045676ed498e350;p=uebersetzerbau-ss10.git

diff --git a/codea/parser.y b/codea/parser.y
index 34dadf1..e75f2ef 100644
--- a/codea/parser.y
+++ b/codea/parser.y
@@ -107,7 +107,7 @@ Statseq:
 	  @{
 		@i @Statement.sin@ = @Statseq.0.s@;
 		@i @Statseq.1.s@ = @Statement.sout@;
-		@gen burm_label(@Statement.node@); burm_reduce(@Statement.node@, 1);
+		@gen write_tree(@Statement.node@, 0); burm_label(@Statement.node@); burm_reduce(@Statement.node@, 1);
 	  @}
 
 	|
@@ -186,7 +186,6 @@ Feld: Term '.' IDENT
 	  @{
 	    @c check(@Feld.s@, @IDENT.name@, S_FIELD);
 	    @i @Feld.node@ = TREENULL;
-		@reg fprintf(stderr, "w00t8\n");
 	  @}
 	;
 
@@ -198,7 +197,7 @@ Expr:
 
 	| NOT Term
 	  @{
-	    @i @Expr.node@ = TREENULL; fprintf(stderr, "w00t2\n");
+	    @i @Expr.node@ = TREENULL;
 	  @}
 
 	| Term Minusterm
@@ -223,23 +222,23 @@ Expr:
 
 	| Term Multerm
 	  @{
-	    @i @Expr.node@ = TREENULL; fprintf(stderr, "w00t4\n");
+	    @i @Expr.node@ = TREENULL;
 	  @}
 
 	| Term Orterm
 	  @{
-	    @i @Expr.node@ = TREENULL; fprintf(stderr, "w00t5\n");
+	    @i @Expr.node@ = TREENULL;
 	  @}
 
 	| Term '<' Term
 	  @{
-	    @i @Expr.node@ = TREENULL; fprintf(stderr, "w00t6\n");
+	    @i @Expr.node@ = TREENULL;
 		/* das is bloedsinn atm */ @i @Expr.imm@ = @Term.0.imm@ && @Term.1.imm@;
 	  @}
 
 	| Term '=' Term
 	  @{
-	    @i @Expr.node@ = TREENULL; fprintf(stderr, "w00t7\n");
+	    @i @Expr.node@ = TREENULL;
 		/* das is bloedsinn atm */ @i @Expr.imm@ = @Term.0.imm@ && @Term.1.imm@;
 	  @}
 	;
@@ -266,13 +265,11 @@ Multerm:
 	  '*' Term Multerm
 	  @{
 	    @i @Multerm.node@ = TREENULL;
-	    @reg fprintf(stderr, "mul1\n");
 	  @}
 
 	| '*' Term
 	  @{
 	    @i @Multerm.node@ = TREENULL;
-	    @reg fprintf(stderr, "mul2\n");
 	  @}
 	;
 
@@ -280,12 +277,10 @@ Orterm:
 	  OR Term Orterm
 	  @{
 	    @i @Orterm.node@ = TREENULL;
-	    @reg fprintf(stderr, "or1\n");
 	  @}
 	| OR Term
 	  @{
 	    @i @Orterm.node@ = TREENULL;
-	    @reg fprintf(stderr, "or2\n");
 	  @}
 
 	;