From bb28a9dcd8450fd66f9228050f677c0b6e6c04fd Mon Sep 17 00:00:00 2001
From: Joel Brobecker <brobecker@gnat.com>
Date: Fri, 4 Jan 2008 19:46:28 +0000
Subject: [PATCH]         * ada-exp.y: Allow '{type} ADDRESS' notation on left
 of assignment.

---
 gdb/ChangeLog | 4 ++++
 gdb/ada-exp.y | 2 +-
 2 files changed, 5 insertions(+), 1 deletion(-)

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)
-- 
2.7.4