From: Bernhard Urban <lewurm@gmail.com>
Date: Sat, 29 May 2010 22:57:37 +0000 (+0200)
Subject: codeb: Lexpr braucht auch ein register
X-Git-Url: http://wien.tomnetworks.com/gitweb/?p=uebersetzerbau-ss10.git;a=commitdiff_plain;h=2fac64499628bc16944094ed83a3191a270523b4

codeb: Lexpr braucht auch ein register
---

diff --git a/codeb/parser.y b/codeb/parser.y
index 9205550..a6a9a21 100644
--- a/codeb/parser.y
+++ b/codeb/parser.y
@@ -156,6 +156,7 @@ Statement:
 	    @i @Statement.node@ = new_node(O_ASSIGN, @Expr.node@, @Lexpr.node@);
 		@i @Statement.vars@ = 0;
 		@reg @Statement.node@->reg = @Expr.node@->reg = next_reg((char *)NULL, @Expr.gparamges@);
+		@reg @Lexpr.node@->reg = next_reg(@Expr.node@->reg, @Expr.gparamges@);
 
 		@gen write_tree(@Statement.node@, 0); burm_label(@Statement.node@); burm_reduce(@Statement.node@, 1);
 	  @}