2004-01-09 Elena Zannoni <ezannoni@redhat.com>
authorElena Zannoni <ezannoni@kwikemart.cygnus.com>
Fri, 9 Jan 2004 15:33:15 +0000 (15:33 +0000)
committerElena Zannoni <ezannoni@kwikemart.cygnus.com>
Fri, 9 Jan 2004 15:33:15 +0000 (15:33 +0000)
       * dwarf2read.c (read_array_type): Discard FORTRAN_HACK macro and
       ifdeffed code.
       Update copyright year.

gdb/ChangeLog
gdb/dwarf2read.c

index 4d6dd0c18a5d6f436df223aa7cb914312ee8cf65..7dfffcf50c01bcb953dec9809091a56046ff5d7c 100644 (file)
@@ -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
index bf2a57e519758a1fba4cb77a9d1e9d1196f01f33..9c07a04e5bce2b0310fe7c0473ccedee68f45e61 100644 (file)
@@ -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
                }
            }