]> git.pld-linux.org Git - packages/gdb.git/blobdiff - gdb-fortran-common.patch
projects / packages / gdb.git / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
- updated to gdb-7.4.50.20120120.
[packages/gdb.git] / gdb-fortran-common.patch
diff --git a/gdb-fortran-common.patch b/gdb-fortran-common.patch
index 1304868ceb9f5bbd3dfa1b02249150f69192c1c9..66d46b9762ab57f484549691d3f213c48f7645b7 100644 (file)
--- a/gdb-fortran-common.patch
+++ b/gdb-fortran-common.patch
@@ -1,8 +1,8 @@
-Index: gdb-7.2.90.20110525/gdb/dwarf2read.c
+Index: gdb-7.3.50.20110722/gdb/dwarf2read.c
 ===================================================================
---- gdb-7.2.90.20110525.orig/gdb/dwarf2read.c  2011-05-25 17:06:19.000000000 +0200
-+++ gdb-7.2.90.20110525/gdb/dwarf2read.c       2011-05-25 17:10:46.000000000 +0200
-@@ -7665,12 +7665,14 @@ read_set_type (struct die_info *die, str
+--- gdb-7.3.50.20110722.orig/gdb/dwarf2read.c  2011-07-22 20:12:05.000000000 +0200
++++ gdb-7.3.50.20110722/gdb/dwarf2read.c       2011-07-22 20:17:22.000000000 +0200
+@@ -7969,12 +7969,14 @@ read_set_type (struct die_info *die, str
    return set_die_type (die, set_type, cu);
  }
  
@@ -19,7 +19,7 @@ Index: gdb-7.2.90.20110525/gdb/dwarf2read.c
    struct attribute *attr;
    struct symbol *sym;
    CORE_ADDR base = (CORE_ADDR) 0;
-@@ -7695,20 +7697,67 @@ read_common_block (struct die_info *die,
+@@ -7999,20 +8001,67 @@ read_common_block (struct die_info *die,
      }
    if (die->child != NULL)
      {
@@ -87,7 +87,7 @@ Index: gdb-7.2.90.20110525/gdb/dwarf2read.c
      }
  }
  
-@@ -11376,6 +11425,13 @@ new_symbol_full (struct die_info *die, s
+@@ -11695,6 +11744,13 @@ new_symbol_full (struct die_info *die, s
            {
              var_decode_location (attr, sym, cu);
              attr2 = dwarf2_attr (die, DW_AT_external, cu);
@@ -101,7 +101,7 @@ Index: gdb-7.2.90.20110525/gdb/dwarf2read.c
              if (SYMBOL_CLASS (sym) == LOC_STATIC
                  && SYMBOL_VALUE_ADDRESS (sym) == 0
                  && !dwarf2_per_objfile->has_section_at_zero)
-@@ -11548,6 +11604,11 @@ new_symbol_full (struct die_info *die, s
+@@ -11867,6 +11923,11 @@ new_symbol_full (struct die_info *die, s
          SYMBOL_CLASS (sym) = LOC_TYPEDEF;
          list_to_add = &global_symbols;
          break;
@@ -113,11 +113,11 @@ Index: gdb-7.2.90.20110525/gdb/dwarf2read.c
        default:
          /* Not a tag we recognize.  Hopefully we aren't processing
             trash data, but since we must specifically ignore things
-Index: gdb-7.2.90.20110525/gdb/f-lang.c
+Index: gdb-7.3.50.20110722/gdb/f-lang.c
 ===================================================================
---- gdb-7.2.90.20110525.orig/gdb/f-lang.c      2011-05-25 17:06:22.000000000 +0200
-+++ gdb-7.2.90.20110525/gdb/f-lang.c   2011-05-25 17:07:02.000000000 +0200
-@@ -446,27 +446,3 @@ _initialize_f_language (void)
+--- gdb-7.3.50.20110722.orig/gdb/f-lang.c      2011-07-22 20:17:16.000000000 +0200
++++ gdb-7.3.50.20110722/gdb/f-lang.c   2011-07-22 20:17:22.000000000 +0200
+@@ -371,27 +371,3 @@ _initialize_f_language (void)
  
    add_language (&f_language_defn);
  }
@@ -145,10 +145,10 @@ Index: gdb-7.2.90.20110525/gdb/f-lang.c
 -    }
 -  return (NULL);
 -}
-Index: gdb-7.2.90.20110525/gdb/f-lang.h
+Index: gdb-7.3.50.20110722/gdb/f-lang.h
 ===================================================================
---- gdb-7.2.90.20110525.orig/gdb/f-lang.h      2011-05-25 17:06:22.000000000 +0200
-+++ gdb-7.2.90.20110525/gdb/f-lang.h   2011-05-25 17:07:02.000000000 +0200
+--- gdb-7.3.50.20110722.orig/gdb/f-lang.h      2011-07-22 20:17:16.000000000 +0200
++++ gdb-7.3.50.20110722/gdb/f-lang.h   2011-07-22 20:17:22.000000000 +0200
 @@ -52,36 +52,8 @@ enum f90_range_type
      NONE_BOUND_DEFAULT                /* "(low:high)"  */
    };
@@ -186,11 +186,11 @@ Index: gdb-7.2.90.20110525/gdb/f-lang.h
  
  /* When reasonable array bounds cannot be fetched, such as when 
     you ask to 'mt print symbols' and there is no stack frame and 
-Index: gdb-7.2.90.20110525/gdb/f-valprint.c
+Index: gdb-7.3.50.20110722/gdb/f-valprint.c
 ===================================================================
---- gdb-7.2.90.20110525.orig/gdb/f-valprint.c  2011-05-25 17:06:22.000000000 +0200
-+++ gdb-7.2.90.20110525/gdb/f-valprint.c       2011-05-25 17:07:02.000000000 +0200
-@@ -34,6 +34,8 @@
+--- gdb-7.3.50.20110722.orig/gdb/f-valprint.c  2011-07-22 20:17:16.000000000 +0200
++++ gdb-7.3.50.20110722/gdb/f-valprint.c       2011-07-22 20:18:26.000000000 +0200
+@@ -34,10 +34,11 @@
  #include "gdbcore.h"
  #include "command.h"
  #include "block.h"
@@ -199,7 +199,11 @@ Index: gdb-7.2.90.20110525/gdb/f-valprint.c
  
  extern void _initialize_f_valprint (void);
  static void info_common_command (char *, int);
-@@ -501,22 +503,54 @@ f_val_print (struct type *type, const gd
+-static void list_all_visible_commons (char *);
+ static void f77_create_arrayprint_offset_tbl (struct type *,
+                                             struct ui_file *);
+ static void f77_get_dynamic_length_of_aggregate (struct type *);
+@@ -515,22 +516,54 @@ f_val_print (struct type *type, const gd
    return 0;
  }
  
@@ -267,7 +271,7 @@ Index: gdb-7.2.90.20110525/gdb/f-valprint.c
  }
  
  /* This function is used to print out the values in a given COMMON 
-@@ -526,11 +560,9 @@ list_all_visible_commons (char *funname)
+@@ -540,11 +573,9 @@ list_all_visible_commons (char *funname)
  static void
  info_common_command (char *comname, int from_tty)
  {
@@ -281,7 +285,7 @@ Index: gdb-7.2.90.20110525/gdb/f-valprint.c
  
    /* We have been told to display the contents of F77 COMMON 
       block supposedly visible in this function.  Let us 
-@@ -542,74 +574,31 @@ info_common_command (char *comname, int 
+@@ -556,74 +587,31 @@ info_common_command (char *comname, int 
    /* The following is generally ripped off from stack.c's routine 
       print_frame_info().  */
  
@@ -372,11 +376,11 @@ Index: gdb-7.2.90.20110525/gdb/f-valprint.c
  }
  
  void
-Index: gdb-7.2.90.20110525/gdb/stack.c
+Index: gdb-7.3.50.20110722/gdb/stack.c
 ===================================================================
---- gdb-7.2.90.20110525.orig/gdb/stack.c       2011-05-25 17:05:21.000000000 +0200
-+++ gdb-7.2.90.20110525/gdb/stack.c    2011-05-25 17:07:02.000000000 +0200
-@@ -1525,6 +1525,8 @@ iterate_over_block_locals (struct block 
+--- gdb-7.3.50.20110722.orig/gdb/stack.c       2011-07-22 20:12:05.000000000 +0200
++++ gdb-7.3.50.20110722/gdb/stack.c    2011-07-22 20:17:22.000000000 +0200
+@@ -1524,6 +1524,8 @@ iterate_over_block_locals (struct block 
        case LOC_COMPUTED:
          if (SYMBOL_IS_ARGUMENT (sym))
            break;
@@ -385,26 +389,26 @@ Index: gdb-7.2.90.20110525/gdb/stack.c
          (*cb) (SYMBOL_PRINT_NAME (sym), sym, cb_data);
          break;
  
-Index: gdb-7.2.90.20110525/gdb/symtab.h
+Index: gdb-7.3.50.20110722/gdb/symtab.h
 ===================================================================
---- gdb-7.2.90.20110525.orig/gdb/symtab.h      2011-05-25 17:05:21.000000000 +0200
-+++ gdb-7.2.90.20110525/gdb/symtab.h   2011-05-25 17:07:02.000000000 +0200
-@@ -411,7 +411,10 @@ typedef enum domain_enum_tag
-   TYPES_DOMAIN,
+--- gdb-7.3.50.20110722.orig/gdb/symtab.h      2011-07-22 20:12:05.000000000 +0200
++++ gdb-7.3.50.20110722/gdb/symtab.h   2011-07-22 20:18:58.000000000 +0200
+@@ -396,7 +396,10 @@ typedef enum domain_enum_tag
  
-   /* Any type.  */
--  ALL_DOMAIN
-+  ALL_DOMAIN,
+   /* LABEL_DOMAIN may be used for names of labels (for gotos).  */
+ 
+-  LABEL_DOMAIN
++  LABEL_DOMAIN,
 +
 +  /* Fortran common blocks.  Their naming must be separate from VAR_DOMAIN.  */
 +  COMMON_BLOCK_DOMAIN
- }
- domain_enum;
+ } domain_enum;
  
-Index: gdb-7.2.90.20110525/gdb/testsuite/gdb.fortran/common-block.exp
+ /* Searching domains, used for `search_symbols'.  Element numbers are
+Index: gdb-7.3.50.20110722/gdb/testsuite/gdb.fortran/common-block.exp
 ===================================================================
 --- /dev/null  1970-01-01 00:00:00.000000000 +0000
-+++ gdb-7.2.90.20110525/gdb/testsuite/gdb.fortran/common-block.exp     2011-05-25 17:07:02.000000000 +0200
++++ gdb-7.3.50.20110722/gdb/testsuite/gdb.fortran/common-block.exp     2011-07-22 20:17:22.000000000 +0200
 @@ -0,0 +1,101 @@
 +# Copyright 2008 Free Software Foundation, Inc.
 +
@@ -428,7 +432,7 @@ Index: gdb-7.2.90.20110525/gdb/testsuite/gdb.fortran/common-block.exp
 +set srcfile ${testfile}.f90
 +set binfile ${objdir}/${subdir}/${testfile}
 +
-+if  { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug f77 quiet}] != "" } {
++if  { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug f90 quiet}] != "" } {
 +    untested "Couldn't compile ${srcfile}"
 +    return -1
 +}
@@ -507,10 +511,10 @@ Index: gdb-7.2.90.20110525/gdb/testsuite/gdb.fortran/common-block.exp
 +gdb_test "p ix_x" " = 1 *" "p ix_x in"
 +gdb_test "p iy_y" " = 2 *" "p iy_y in"
 +gdb_test "p iz_z2" " = 3 *" "p iz_z2 in"
-Index: gdb-7.2.90.20110525/gdb/testsuite/gdb.fortran/common-block.f90
+Index: gdb-7.3.50.20110722/gdb/testsuite/gdb.fortran/common-block.f90
 ===================================================================
 --- /dev/null  1970-01-01 00:00:00.000000000 +0000
-+++ gdb-7.2.90.20110525/gdb/testsuite/gdb.fortran/common-block.f90     2011-05-25 17:07:02.000000000 +0200
++++ gdb-7.3.50.20110722/gdb/testsuite/gdb.fortran/common-block.f90     2011-07-22 20:17:22.000000000 +0200
 @@ -0,0 +1,67 @@
 +! Copyright 2008 Free Software Foundation, Inc.
 +!
A GNU source-level debugger for C, C++ and Fortran
This page took 0.047281 seconds and 4 git commands to generate.