From: Elena Zannoni <ezannoni@kwikemart.cygnus.com>
Date: Fri, 9 Jan 2004 15:33:15 +0000 (+0000)
Subject: 2004-01-09  Elena Zannoni  <ezannoni@redhat.com>
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=b44e9041564f8b446bab9175540999d7930b8f84;p=binutils-gdb.git

2004-01-09  Elena Zannoni  <ezannoni@redhat.com>

       * dwarf2read.c (read_array_type): Discard FORTRAN_HACK macro and
       ifdeffed code.
       Update copyright year.
---

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
 		}
 	    }