From: Bernhard Urban <lewurm@gmail.com>
Date: Sun, 30 May 2010 11:33:09 +0000 (+0200)
Subject: codeb: ups, andere registerbelegung noetig feur Feld: ..
X-Git-Url: http://wien.tomnetworks.com/gitweb/?p=uebersetzerbau-ss10.git;a=commitdiff_plain;h=680d52d2b5a8fbedca7f8d7ebe2a968b59c2e110

codeb: ups, andere registerbelegung noetig feur Feld: ..
---

diff --git a/codeb/parser.y b/codeb/parser.y
index a6a9a21..a986089 100644
--- a/codeb/parser.y
+++ b/codeb/parser.y
@@ -308,7 +308,7 @@ Feld: Term '.' IDENT
 	    @c check(@Feld.s@, @IDENT.name@, S_FIELD);
 	    @i @Feld.node@ = new_field(@IDENT.name@, @Term.node@, TREENULL, tab_lookup(@Feld.s@, @IDENT.name@, S_FIELD) == SYMNULL ? -1 : tab_lookup(@Feld.s@, @IDENT.name@, S_FIELD)->soffset);
 
-		@reg @Term.node@->reg = @Feld.node@->reg;
+		@reg @Term.node@->reg = next_reg(@Feld.node@->reg, @Term.gparamges@);
 	  @}
 	;