From: Joel Brobecker <brobecker@gnat.com>
Date: Fri, 4 Jan 2008 19:46:28 +0000 (+0000)
Subject:         * ada-exp.y: Allow '{type} ADDRESS' notation on left of assignment.
X-Git-Tag: sid-snapshot-20080201~285
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=bb28a9dcd8450fd66f9228050f677c0b6e6c04fd;p=external%2Fbinutils.git

    * ada-exp.y: Allow '{type} ADDRESS' notation on left of assignment.
---

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 82f6ae8..ccc112f 100644
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,7 @@
+2008-01-04  Paul N. Hilfinger  <hilfinger@adacore.com>
+
+        * ada-exp.y: Allow '{type} ADDRESS' notation on left of assignment.
+
 2008-01-04  Joel Brobecker  <brobecker@adacore.com>
 
 	* ada-lang.c (ada_evaluate_subexp): Evaluate tagged types in
diff --git a/gdb/ada-exp.y b/gdb/ada-exp.y
index 3ba9f6c..1f7f13f 100644
--- a/gdb/ada-exp.y
+++ b/gdb/ada-exp.y
@@ -353,7 +353,7 @@ arglist	:	exp
 			{ $$ = $1 + 1; }
 	;
 
-simple_exp :	'{' var_or_type '}' simple_exp  %prec '.'
+primary :	'{' var_or_type '}' primary  %prec '.'
 		/* GDB extension */
 			{ 
 			  if ($2 == NULL)