diff options
| -rw-r--r-- | gdb/ChangeLog | 25 | ||||
| -rw-r--r-- | gdb/c-lang.c | 3 | ||||
| -rw-r--r-- | gdb/ch-lang.c | 1 | ||||
| -rw-r--r-- | gdb/f-lang.c | 1 | ||||
| -rw-r--r-- | gdb/language.c | 3 | ||||
| -rw-r--r-- | gdb/language.h | 5 | ||||
| -rw-r--r-- | gdb/m2-lang.c | 1 | ||||
| -rw-r--r-- | gdb/values.c | 1 |
8 files changed, 40 insertions, 0 deletions
diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 9dac0e4..7954cfc 100644 --- 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 98d09eb..eccd230 100644 --- 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 bfd7728..a3d2d14 100644 --- 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 7a1f714..0232a54 100644 --- 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 f27512c..d8cbd56 100644 --- 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 }; diff --git a/gdb/language.h b/gdb/language.h index 7ab04db..6122bbf 100644 --- 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 8d2f2a5..c7b7530 100644 --- 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 aa4a4f2..788222e 100644 --- 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. */ |