* ch-exp.y: Handle <primitive_value> "->" <modename>.

This fixes PR chill/6932.

diff --git a/gdb/ch-exp.y b/gdb/ch-exp.y
index 62719a26b2ad8b6358821e545b8f883daa086ae7..c1b132b2398561ee52c441374014843b363fba00 100644 (file)
--- a/gdb/ch-exp.y
+++ b/gdb/ch-exp.y
@@ -414,6 +414,13 @@ primitive_value    :
                        {
                          write_exp_elt_opcode (UNOP_IND);
                        }
+               |       primitive_value POINTER mode_name
+                       {
+                         write_exp_elt_opcode (UNOP_CAST);
+                         write_exp_elt_type (lookup_pointer_type ($3.type));
+                         write_exp_elt_opcode (UNOP_CAST);
+                         write_exp_elt_opcode (UNOP_IND);
+                       }
                 |      value_name
                        {
                          $$ = 0;       /* FIXME */