X-Git-Url: http://wien.tomnetworks.com/gitweb/?p=uebersetzerbau-ss10.git;a=blobdiff_plain;f=codeb%2Fparser.y;h=a9860895d0df459dced36bf255aa8dace1370832;hp=a6a9a21a32cfa1b0fb8ecf2c1d73cad658086370;hb=680d52d2b5a8fbedca7f8d7ebe2a968b59c2e110;hpb=2ec508631be2adbb0921bdfe90fb41a8f5743d3b

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@);
 	  @}
 	;