diff options
| author | Elena Zannoni <ezannoni@kwikemart.cygnus.com> | 2004-01-09 15:33:15 +0000 |
|---|---|---|
| committer | Elena Zannoni <ezannoni@kwikemart.cygnus.com> | 2004-01-09 15:33:15 +0000 |
| commit | 5c5f0e69cba49b66e208850dc4d883fc37ed388e (patch) | |
| tree | 377ad36a4b1a94b3734748e4a3c9039207c46ab9 /gdb | |
| parent | 2944855a237ddcd833064271227528c16b602ce5 (diff) | |
| download | gdb-5c5f0e69cba49b66e208850dc4d883fc37ed388e.tar.gz | |
2004-01-09 Elena Zannoni <ezannoni@redhat.com>
* dwarf2read.c (read_array_type): Discard FORTRAN_HACK macro and
ifdeffed code.
Update copyright year.
Diffstat (limited to 'gdb')
| -rw-r--r-- | gdb/ChangeLog | 6 | ||||
| -rw-r--r-- | gdb/dwarf2read.c | 13 |
2 files changed, 8 insertions, 11 deletions
diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 4d6dd0c18a5..7dfffcf50c0 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,3 +1,9 @@ +2004-01-09 Elena Zannoni <ezannoni@redhat.com> + + * dwarf2read.c (read_array_type): Discard FORTRAN_HACK macro and + ifdeffed code. + Update copyright year. + 2004-01-08 Michael Chastain <mec.gnu@mindspring.com> * config/pa/tm-hppa.h: Update extern declarations for diff --git a/gdb/dwarf2read.c b/gdb/dwarf2read.c index bf2a57e5197..9c07a04e5bc 100644 --- a/gdb/dwarf2read.c +++ b/gdb/dwarf2read.c @@ -1,5 +1,6 @@ /* DWARF 2 debugging format support for GDB. - Copyright 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003 + Copyright 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, + 2004 Free Software Foundation, Inc. Adapted by Gary Funck (gary@intrepid.com), Intrepid Technology, @@ -3088,12 +3089,7 @@ read_array_type (struct die_info *die, struct dwarf2_cu *cu) { dwarf2_non_const_array_bound_ignored_complaint (dwarf_form_name (attr->form)); -#ifdef FORTRAN_HACK - die->type = lookup_pointer_type (element_type); - return; -#else low = 0; -#endif } } attr = dwarf_attr (child_die, DW_AT_upper_bound); @@ -3130,12 +3126,7 @@ read_array_type (struct die_info *die, struct dwarf2_cu *cu) { dwarf2_non_const_array_bound_ignored_complaint (dwarf_form_name (attr->form)); -#ifdef FORTRAN_HACK - die->type = lookup_pointer_type (element_type); - return; -#else high = 1; -#endif } } |