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

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 82f6ae80d99a8e8b3add7abe26e76a0ea92be596..ccc112fa0803749ba0422c427bf92c91220f5477 100644 (file)
--- 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 3ba9f6c29f1752cbf8c465edd04ae66a4b561600..1f7f13fc821e8cfec1bd2fbacb985d401062d3df 100644 (file)
--- 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)