X-Git-Url: http://wien.tomnetworks.com/gitweb/?a=blobdiff_plain;f=mcs%2Fmbas%2Fmb-parser.jay;h=a97a2ae03c8f9ad29f752e9e087d843b55fd5590;hb=113658ab64e452b87435309f61893c273320c221;hp=c22bfea64c8d3c4c7dae06fc668b58885fef7ae3;hpb=7c102be407dfe063b8aee3b448ac91f9dd640b2f;p=mono.git

diff --git a/mcs/mbas/mb-parser.jay b/mcs/mbas/mb-parser.jay
index c22bfea64c8..a97a2ae03c8 100644
--- a/mcs/mbas/mb-parser.jay
+++ b/mcs/mbas/mb-parser.jay
@@ -2824,12 +2824,11 @@ array_handling_statement
 	;
 	
 redim_statement
-	: REDIM opt_preserve redim_clauses
+	: REDIM _mark_ opt_preserve redim_clauses
 	  {
-	  	ArrayList list = (ArrayList) $3;
-		ReDim r = new ReDim (list, (bool) $2, lexer.Location);
+	  	ArrayList list = (ArrayList) $4;
+		ReDim r = new ReDim (list, (bool) $3, (Location)$2);
 		$$ = r;
-
 	  }
 	;
 	
@@ -2849,7 +2848,7 @@ redim_clauses
 	| redim_clauses COMMA redim_clause
 	  {
 		ArrayList clauses = (ArrayList) ($1);
-		clauses.Add ($2);
+		clauses.Add ($3);
 
 		$$ = clauses;
 	  }
@@ -2859,7 +2858,7 @@ redim_clause
 	: invocation_expression opt_type_spec
 	  {
 	  	Invocation i = (Invocation) $1;
-		RedimClause rc = new RedimClause (i.expr, i.Arguments);
+		RedimClause rc = new RedimClause (i.expr, i.Arguments, (Expression) $2);
 		$$ = rc;
 	  }
 	;