From: Per Bothner <per@bothner.com>
Date: Thu, 8 Jun 1995 00:49:10 +0000 (+0000)
Subject: 	* ch-exp.y: Handle <primitive_value> "->" <modename>.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=3029162cdf703ccb5469b4e0370010b7d01c51a2;p=binutils-gdb.git

	* 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 62719a26b2a..c1b132b2398 100644
--- 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 */