From: Per Bothner <per@bothner.com>
Date: Wed, 22 Feb 1995 07:43:01 +0000 (+0000)
Subject:         * ch-exp.y (expression_conversion):  Recognize 'ARRAY () TYPE (EXPR)'
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=835c25596515ca0a2376d43ce96c04674e683c2b;p=binutils-gdb.git

    * ch-exp.y (expression_conversion):  Recognize 'ARRAY () TYPE (EXPR)'
        (same as C's '(TYPE[])EXPR')
---

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 86b5499fbd3..9cdbb9e7993 100644
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,12 @@
+Tue Feb 21 20:48:42 1995  Per Bothner  <bothner@kalessin.cygnus.com>
+
+	* valops.c (call_function_by_hand):  Set using_gcc to 2 if gcc-2.
+	Call error if too few arguments.
+	If REG_STRUCT_HAS_ADDR (structs passed by invisible reference),
+	copy and convert to reference *before* we calculate alignment.
+	Also, make sure structs allocated for return values and invisible
+	reference don't violate STACK_ALIGN.
+
 Tue Feb 21 11:47:26 1995  Stan Shebs  <shebs@andros.cygnus.com>
 
 	* top.c (print_gdb_version): Update the year.
diff --git a/gdb/ch-exp.y b/gdb/ch-exp.y
index c87157c4654..98e890d9d3a 100644
--- a/gdb/ch-exp.y
+++ b/gdb/ch-exp.y
@@ -237,6 +237,7 @@ yyerror PARAMS ((char *));
 %token <voidval>	UPPER
 %token <voidval>	LOWER
 %token <voidval>	LENGTH
+%token <voidval>	ARRAY
 
 /* Tokens which are not Chill tokens used in expressions, but rather GDB
    specific things that we recognize in the same context as Chill tokens
@@ -608,6 +609,22 @@ expression_conversion:	mode_name parenthesised_expression
 			  write_exp_elt_type ($1.type);
 			  write_exp_elt_opcode (UNOP_CAST);
 			}
+		|	ARRAY '(' ')' mode_name parenthesised_expression
+			/* This is pseudo-Chill, similar to C's '(TYPE[])EXPR'
+			   which casts to an artificial array. */
+			{
+			  struct type *range_type
+			    = create_range_type ((struct type *) NULL,
+						 builtin_type_int, 0, 0);
+			  struct type *array_type
+			    = create_array_type ((struct type *) NULL,
+						 $4.type, range_type);
+			  TYPE_ARRAY_UPPER_BOUND_TYPE(array_type)
+			    = BOUND_CANNOT_BE_DETERMINED;
+			  write_exp_elt_opcode (UNOP_CAST);
+			  write_exp_elt_type (array_type);
+			  write_exp_elt_opcode (UNOP_CAST);
+			}
 		;
 
 /* Z.200, 5.2.12 */
@@ -1717,6 +1734,7 @@ struct token
 
 static const struct token idtokentab[] =
 {
+    { "array", ARRAY },
     { "length", LENGTH },
     { "lower", LOWER },
     { "upper", UPPER },