From 3029162cdf703ccb5469b4e0370010b7d01c51a2 Mon Sep 17 00:00:00 2001
From: Per Bothner <per@bothner.com>
Date: Thu, 8 Jun 1995 00:49:10 +0000
Subject: [PATCH] 	* ch-exp.y: Handle <primitive_value> "->" <modename>.
 This fixes PR chill/6932.

---
 gdb/ch-exp.y | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/gdb/ch-exp.y b/gdb/ch-exp.y
index 62719a2..c1b132b 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 */
-- 
2.7.4