From b44e9041564f8b446bab9175540999d7930b8f84 Mon Sep 17 00:00:00 2001 From: Elena Zannoni Date: Fri, 9 Jan 2004 15:33:15 +0000 Subject: [PATCH] 2004-01-09 Elena Zannoni * dwarf2read.c (read_array_type): Discard FORTRAN_HACK macro and ifdeffed code. Update copyright year. --- gdb/ChangeLog | 6 ++++++ 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 + + * dwarf2read.c (read_array_type): Discard FORTRAN_HACK macro and + ifdeffed code. + Update copyright year. + 2004-01-08 Michael Chastain * 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 } } -- 2.30.2