From b44e9041564f8b446bab9175540999d7930b8f84 Mon Sep 17 00:00:00 2001 From: Elena Zannoni Date: Fri, 9 Jan 2004 15:33:15 +0000 Subject: 2004-01-09 Elena Zannoni * dwarf2read.c (read_array_type): Discard FORTRAN_HACK macro and ifdeffed code. Update copyright year. --- gdb/dwarf2read.c | 13 ++----------- 1 file changed, 2 insertions(+), 11 deletions(-) (limited to 'gdb/dwarf2read.c') diff --git a/gdb/dwarf2read.c b/gdb/dwarf2read.c index bf2a57e..9c07a04 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 } } -- cgit v1.1