* language.h (struct language_defn): New field c_style_arrays.

	* language.c (unknown_language_defn, auto_language_defn,
	local_language_defn), c-lang.c (c_language_defn, cplus_language_defn,
	asm_language_defn):  Set c_style_arrays to true.
	* m2-lang.c (m2_language_defn), ch-lang.c (chill_language_defn),
	f-lang.c (f_language_defn):  Set c_style_arrays to false.
	* valops.c (value_string):  If c_style_array is not set,
	allocate string in gdb (not inferior) using allocate_value.

	* value.h (COERCE_ARRAY), valops.c (value_addr, value_arg_coerce):
	Only call value_coerce_array if current_language->c_style_arrays.
	* values.c:  Add #include "language.h".  (Needed for COERCE_ARRAY.)

	* valops.c (chill_varying_type):  New predicate.
	* valops.c (value_cast):  Support assigning a fixed string or array
	to a variable string/array structure.

	* valarith.c (value_subscripted_rvalue):  Extra parameter lowerbound.
	Check index>=lowerbound, and then add lowerbound to index here,
	instead of in caller.  Generalize to arbitrary lval_types.
	(value_subscript):  Use enhanced value_subscripted_rvalue if
	c_style_arrays is false (and index is in range).

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 9dac0e49de79b4b9ebe93178c9778c94bfda6fd7..7954cfc7bdcd2d11c0758825988cd95aca444b1b 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,28 @@
+Wed Jan 25 18:13:14 1995  Per Bothner  <bothner@kalessin.cygnus.com>
+
+       * language.h (struct language_defn):  New field c_style_arrays.
+       * language.c (unknown_language_defn, auto_language_defn,
+       local_language_defn), c-lang.c (c_language_defn, cplus_language_defn,
+       asm_language_defn):  Set c_style_arrays to true.
+       * m2-lang.c (m2_language_defn), ch-lang.c (chill_language_defn),
+       f-lang.c (f_language_defn):  Set c_style_arrays to false.
+       * valops.c (value_string):  If c_style_array is not set,
+       allocate string in gdb (not inferior) using allocate_value.
+
+       * value.h (COERCE_ARRAY), valops.c (value_addr, value_arg_coerce):
+       Only call value_coerce_array if current_language->c_style_arrays.
+       * values.c:  Add #include "language.h".  (Needed for COERCE_ARRAY.)
+
+       * valops.c (chill_varying_type):  New predicate.
+       * valops.c (value_cast):  Support assigning a fixed string or array
+       to a variable string/array structure.
+
+       * valarith.c (value_subscripted_rvalue):  Extra parameter lowerbound.
+       Check index>=lowerbound, and then add lowerbound to index here,
+       instead of in caller.  Generalize to arbitrary lval_types.
+       (value_subscript):  Use enhanced value_subscripted_rvalue if
+       c_style_arrays is false (and index is in range).
+
 Wed Jan 25 18:23:46 1995  Stu Grossman  (grossman@cygnus.com)
 
        * gdbtk.c (gdbtk_init):  Prevent segfault when gdbtk.tcl can't be

diff --git a/gdb/c-lang.c b/gdb/c-lang.c
index 98d09eb43b5832b46c5857cbb8b043243b9d22a5..eccd230487930fb8260738d43e8df7fd1b92f9c6 100644 (file)
--- a/gdb/c-lang.c
+++ b/gdb/c-lang.c
@@ -410,6 +410,7 @@ const struct language_defn c_language_defn = {
   {"%ld",   "",    "d", ""},   /* Decimal format info */
   {"0x%lx", "0x",  "x", ""},   /* Hex format info */
   c_op_print_tab,              /* expression operators for printing */
+  1,                           /* c-style arrays */
   LANG_MAGIC
 };
 
@@ -432,6 +433,7 @@ const struct language_defn cplus_language_defn = {
   {"%ld",    "",    "d",  ""}, /* Decimal format info */
   {"0x%lx",  "0x",  "x",  ""}, /* Hex format info */
   c_op_print_tab,              /* expression operators for printing */
+  1,                           /* c-style arrays */
   LANG_MAGIC
 };
 
@@ -454,6 +456,7 @@ const struct language_defn asm_language_defn = {
   {"%ld",   "",    "d", ""},   /* Decimal format info */
   {"0x%lx", "0x",  "x", ""},   /* Hex format info */
   c_op_print_tab,              /* expression operators for printing */
+  1,                           /* c-style arrays */
   LANG_MAGIC
 };
 

diff --git a/gdb/ch-lang.c b/gdb/ch-lang.c
index bfd7728863169521f4d7c00f0a5e23e64ffa8560..a3d2d143c23b84a9d4767b1b7f34850d61098971 100644 (file)
--- a/gdb/ch-lang.c
+++ b/gdb/ch-lang.c
@@ -323,6 +323,7 @@ const struct language_defn chill_language_defn = {
   {"D'%ld",  "D'",  "d",  ""}, /* Decimal format info */
   {"H'%lx",  "H'",  "x",  ""}, /* Hex format info */
   chill_op_print_tab,          /* expression operators for printing */
+  0,                           /* arrays are first-class (not c-style) */
   LANG_MAGIC
 };
 

diff --git a/gdb/f-lang.c b/gdb/f-lang.c
index 7a1f7142b6f6735f850034ea5169e8dd72fc4329..0232a548b8583e676d420c8f61660c8bfb2c74ae 100644 (file)
--- a/gdb/f-lang.c
+++ b/gdb/f-lang.c
@@ -431,6 +431,7 @@ const struct language_defn f_language_defn = {
   {"%d",   "",    "d", ""},    /* Decimal format info */
   {"0x%x", "0x",  "x", ""},    /* Hex format info */
   f_op_print_tab,              /* expression operators for printing */
+  0,                           /* arrays are first-class (not c-style) */
   LANG_MAGIC
   };
 

diff --git a/gdb/language.c b/gdb/language.c
index f27512c071b4364c0ddee8a88db8b6100498fee9..d8cbd569911b2bb20f3be75cac29c237bd957d99 100644 (file)
--- a/gdb/language.c
+++ b/gdb/language.c
@@ -1200,6 +1200,7 @@ const struct language_defn unknown_language_defn = {
   {"%ld",    "",    "d",  ""}, /* Decimal format info */
   {"0x%lx",  "0x",  "x",  ""}, /* Hex format info */
   unk_op_print_tab,            /* expression operators for printing */
+  1,                           /* c-style arrays */
   LANG_MAGIC
 };
 
@@ -1223,6 +1224,7 @@ const struct language_defn auto_language_defn = {
   {"%ld",    "",    "d",  ""}, /* Decimal format info */
   {"0x%lx",  "0x",  "x",  ""}, /* Hex format info */
   unk_op_print_tab,            /* expression operators for printing */
+  1,                           /* c-style arrays */
   LANG_MAGIC
 };
 
@@ -1245,6 +1247,7 @@ const struct language_defn local_language_defn = {
   {"%ld",    "",    "d",  ""}, /* Decimal format info */
   {"0x%lx",  "0x",  "x",  ""}, /* Hex format info */
   unk_op_print_tab,            /* expression operators for printing */
+  1,                           /* c-style arrays */
   LANG_MAGIC
 };
 \f

diff --git a/gdb/language.h b/gdb/language.h
index 7ab04dba1b827f94499682e319ce9f639e3b3e72..6122bbfc21cfec4d0f75da8c3e32c777d33b68b9 100644 (file)
--- a/gdb/language.h
+++ b/gdb/language.h
@@ -172,6 +172,11 @@ struct language_defn
 
   const struct op_print *la_op_print_tab;
 
+  /* Zero if the language has first-class arrays.  True if there are no
+     array values, and array objects decay to pointers, as in C. */
+
+  char c_style_arrays;
+
   /* Add fields above this point, so the magic number is always last. */
   /* Magic number for compat checking */
 

diff --git a/gdb/m2-lang.c b/gdb/m2-lang.c
index 8d2f2a58e231b2c497fb1d74e082bfb48ee759f0..c7b753010395a1896ea95536045b9c3f6c9d6627 100644 (file)
--- a/gdb/m2-lang.c
+++ b/gdb/m2-lang.c
@@ -412,6 +412,7 @@ const struct language_defn m2_language_defn = {
   {"%ld",    "",   "d",  ""},  /* Decimal format info */
   {"0%lXH",  "0",  "X",  "H"}, /* Hex format info */
   m2_op_print_tab,             /* expression operators for printing */
+  0,                           /* arrays are first-class (not c-style) */
   LANG_MAGIC
 };
 

diff --git a/gdb/values.c b/gdb/values.c
index aa4a4f2090a7cc4563f3786bc2e1864b56d47f5e..788222e528c48e9c6ef110077220341d32268d95 100644 (file)
--- a/gdb/values.c
+++ b/gdb/values.c
@@ -28,6 +28,7 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
 #include "command.h"
 #include "gdbcmd.h"
 #include "target.h"
+#include "language.h"
 #include "demangle.h"
 
 /* Local function prototypes. */