diff options
| author | law <law@138bc75d-0d04-0410-961f-82ee72b054a4> | 1997-12-18 23:20:19 +0000 |
|---|---|---|
| committer | law <law@138bc75d-0d04-0410-961f-82ee72b054a4> | 1997-12-18 23:20:19 +0000 |
| commit | f52483b521c7b159573fadd04a86feb13363dbc2 (patch) | |
| tree | f6256a46a8fe9fd54c5f8fa94aaed268e376f33b /gcc/dwarf2out.c | |
| parent | 0ecd40382be58ef287e29464a46f1a173fb5d00c (diff) | |
| download | gcc-f52483b521c7b159573fadd04a86feb13363dbc2.tar.gz | |
* tree.c (build_range_type): Allow creation of ranges with no maximum.
* dbxout.c (dbxout_range_type): Handle missing TYPE_MAX_VALUE.
* dwarf2out.c (add_subscript_info): Likewise.
* dwarfout.c (subscript_data_attribute, byte_size_attribute): Likewise.
* sdbout.c (plain_type_1): Likewise.
* stmt.c (pushcase_range, all_cases_count, node_has_high_bound):
Likewise.
* fold-const.c (int_const_binop, fold_convert, make_range, fold):
Likewise.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@17142 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/dwarf2out.c')
| -rw-r--r-- | gcc/dwarf2out.c | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/gcc/dwarf2out.c b/gcc/dwarf2out.c index d321e9f0f3a..f41cd5efeb0 100644 --- a/gcc/dwarf2out.c +++ b/gcc/dwarf2out.c @@ -7195,8 +7195,16 @@ add_subscript_info (type_die, type) type_die); } + /* ??? If upper is NULL, the array has unspecified length, + but it does have a lower bound. This happens with Fortran + dimension arr(N:*) + Since the debugger is definitely going to need to know N + to produce useful results, go ahead and output the lower + bound solo, and hope the debugger can cope. */ + add_bound_info (subrange_die, DW_AT_lower_bound, lower); - add_bound_info (subrange_die, DW_AT_upper_bound, upper); + if (upper) + add_bound_info (subrange_die, DW_AT_upper_bound, upper); } else /* We have an array type with an unspecified length. The DWARF-2 |