diff options
| author | Per Bothner <per@bothner.com> | 1995-01-26 02:32:25 +0000 |
|---|---|---|
| committer | Per Bothner <per@bothner.com> | 1995-01-26 02:32:25 +0000 |
| commit | acc4efdecd034e70feffeb15799745880ce2c45b (patch) | |
| tree | 6221711e6e08f7fee1cfe7cd590aeb2f65196089 /gdb/f-lang.c | |
| parent | b66051ec1950ddd647fbfa629bcec40ba8bd5d25 (diff) | |
| download | gdb-acc4efdecd034e70feffeb15799745880ce2c45b.zip gdb-acc4efdecd034e70feffeb15799745880ce2c45b.tar.gz gdb-acc4efdecd034e70feffeb15799745880ce2c45b.tar.bz2 | |
* 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).
Diffstat (limited to 'gdb/f-lang.c')
| -rw-r--r-- | gdb/f-lang.c | 1 |
1 files changed, 1 insertions, 0 deletions
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 }; |