gdb
authorTom Tromey <tromey@redhat.com>
Fri, 22 Jan 2010 17:06:49 +0000 (17:06 +0000)
committerTom Tromey <tromey@redhat.com>
Fri, 22 Jan 2010 17:06:49 +0000 (17:06 +0000)
PR symtab/11199:
* dwarf2read.c (quirk_gcc_member_function_pointer): Change return
type and arguments.  Use smash_to_methodptr_type.
(read_structure_type): Call quirk_gcc_member_function_pointer
later.
* gdbtypes.h (smash_to_methodptr_type): Declare.
* gdbtypes.c (smash_to_methodptr_type): New function.
(lookup_methodptr_type): Use it.
gdb/testsuite
2010-01-22  Jan Kratochvil  <jan.kratochvil@redhat.com>

PR symtab/11199:
* gdb.dwarf2/member-ptr-forwardref.exp,
gdb.dwarf2/member-ptr-forwardref.S: New.

gdb/ChangeLog
gdb/dwarf2read.c
gdb/gdbtypes.c
gdb/gdbtypes.h
gdb/testsuite/ChangeLog
gdb/testsuite/gdb.dwarf2/member-ptr-forwardref.S [new file with mode: 0644]
gdb/testsuite/gdb.dwarf2/member-ptr-forwardref.exp [new file with mode: 0644]

index 74d4031..061cc1a 100644 (file)
@@ -1,3 +1,14 @@
+2010-01-22  Tom Tromey  <tromey@redhat.com>
+
+       PR symtab/11199:
+       * dwarf2read.c (quirk_gcc_member_function_pointer): Change return
+       type and arguments.  Use smash_to_methodptr_type.
+       (read_structure_type): Call quirk_gcc_member_function_pointer
+       later.
+       * gdbtypes.h (smash_to_methodptr_type): Declare.
+       * gdbtypes.c (smash_to_methodptr_type): New function.
+       (lookup_methodptr_type): Use it.
+
 2010-01-21  Tom Tromey  <tromey@redhat.com>
 
        PR symtab/11198:
index 15ef3e9..8088830 100644 (file)
@@ -4892,68 +4892,48 @@ is_vtable_name (const char *name, struct dwarf2_cu *cu)
 }
 
 /* GCC outputs unnamed structures that are really pointers to member
-   functions, with the ABI-specified layout.  If DIE (from CU) describes
-   such a structure, set its type, and return nonzero.  Otherwise return
-   zero.
+   functions, with the ABI-specified layout.  If TYPE describes
+   such a structure, smash it into a member function type.
 
    GCC shouldn't do this; it should just output pointer to member DIEs.
    This is GCC PR debug/28767.  */
 
-static struct type *
-quirk_gcc_member_function_pointer (struct die_info *die, struct dwarf2_cu *cu)
+static void
+quirk_gcc_member_function_pointer (struct type *type, struct objfile *objfile)
 {
-  struct objfile *objfile = cu->objfile;
-  struct type *type;
-  struct die_info *pfn_die, *delta_die;
-  struct attribute *pfn_name, *delta_name;
-  struct type *pfn_type, *domain_type;
+  struct type *pfn_type, *domain_type, *new_type;
 
   /* Check for a structure with no name and two children.  */
-  if (die->tag != DW_TAG_structure_type
-      || dwarf2_attr (die, DW_AT_name, cu) != NULL
-      || die->child == NULL
-      || die->child->sibling == NULL
-      || (die->child->sibling->sibling != NULL
-         && die->child->sibling->sibling->tag != DW_TAG_padding))
-    return NULL;
+  if (TYPE_CODE (type) != TYPE_CODE_STRUCT || TYPE_NFIELDS (type) != 2)
+    return;
 
   /* Check for __pfn and __delta members.  */
-  pfn_die = die->child;
-  pfn_name = dwarf2_attr (pfn_die, DW_AT_name, cu);
-  if (pfn_die->tag != DW_TAG_member
-      || pfn_name == NULL
-      || DW_STRING (pfn_name) == NULL
-      || strcmp ("__pfn", DW_STRING (pfn_name)) != 0)
-    return NULL;
-
-  delta_die = pfn_die->sibling;
-  delta_name = dwarf2_attr (delta_die, DW_AT_name, cu);
-  if (delta_die->tag != DW_TAG_member
-      || delta_name == NULL
-      || DW_STRING (delta_name) == NULL
-      || strcmp ("__delta", DW_STRING (delta_name)) != 0)
-    return NULL;
+  if (TYPE_FIELD_NAME (type, 0) == NULL
+      || strcmp (TYPE_FIELD_NAME (type, 0), "__pfn") != 0
+      || TYPE_FIELD_NAME (type, 1) == NULL
+      || strcmp (TYPE_FIELD_NAME (type, 1), "__delta") != 0)
+    return;
 
   /* Find the type of the method.  */
-  pfn_type = die_type (pfn_die, cu);
+  pfn_type = TYPE_FIELD_TYPE (type, 0);
   if (pfn_type == NULL
       || TYPE_CODE (pfn_type) != TYPE_CODE_PTR
       || TYPE_CODE (TYPE_TARGET_TYPE (pfn_type)) != TYPE_CODE_FUNC)
-    return NULL;
+    return;
 
   /* Look for the "this" argument.  */
   pfn_type = TYPE_TARGET_TYPE (pfn_type);
   if (TYPE_NFIELDS (pfn_type) == 0
+      /* || TYPE_FIELD_TYPE (pfn_type, 0) == NULL */
       || TYPE_CODE (TYPE_FIELD_TYPE (pfn_type, 0)) != TYPE_CODE_PTR)
-    return NULL;
+    return;
 
   domain_type = TYPE_TARGET_TYPE (TYPE_FIELD_TYPE (pfn_type, 0));
-  type = alloc_type (objfile);
-  smash_to_method_type (type, domain_type, TYPE_TARGET_TYPE (pfn_type),
+  new_type = alloc_type (objfile);
+  smash_to_method_type (new_type, domain_type, TYPE_TARGET_TYPE (pfn_type),
                        TYPE_FIELDS (pfn_type), TYPE_NFIELDS (pfn_type),
                        TYPE_VARARGS (pfn_type));
-  type = lookup_methodptr_type (type);
-  return set_die_type (die, type, cu);
+  smash_to_methodptr_type (type, new_type);
 }
 
 /* Called when we find the DIE that starts a structure or union scope
@@ -4981,10 +4961,6 @@ read_structure_type (struct die_info *die, struct dwarf2_cu *cu)
   char *name;
   struct cleanup *back_to = make_cleanup (null_cleanup, 0);
 
-  type = quirk_gcc_member_function_pointer (die, cu);
-  if (type)
-    return type;
-
   /* If the definition of this type lives in .debug_types, read that type.
      Don't follow DW_AT_specification though, that will take us back up
      the chain and we want to go down.  */
@@ -5163,6 +5139,8 @@ read_structure_type (struct die_info *die, struct dwarf2_cu *cu)
        }
     }
 
+  quirk_gcc_member_function_pointer (type, cu->objfile);
+
   do_cleanups (back_to);
   return type;
 }
index 117606a..2ff8647 100644 (file)
@@ -673,10 +673,7 @@ lookup_methodptr_type (struct type *to_type)
   struct type *mtype;
 
   mtype = alloc_type_copy (to_type);
-  TYPE_TARGET_TYPE (mtype) = to_type;
-  TYPE_DOMAIN_TYPE (mtype) = TYPE_DOMAIN_TYPE (to_type);
-  TYPE_LENGTH (mtype) = cplus_method_ptr_size (to_type);
-  TYPE_CODE (mtype) = TYPE_CODE_METHODPTR;
+  smash_to_methodptr_type (mtype, to_type);
   return mtype;
 }
 
@@ -981,6 +978,22 @@ smash_to_memberptr_type (struct type *type, struct type *domain,
   TYPE_CODE (type) = TYPE_CODE_MEMBERPTR;
 }
 
+/* Smash TYPE to be a type of pointer to methods type TO_TYPE.
+
+   When "smashing" the type, we preserve the objfile that the old type
+   pointed to, since we aren't changing where the type is actually
+   allocated.  */
+
+void
+smash_to_methodptr_type (struct type *type, struct type *to_type)
+{
+  smash_type (type);
+  TYPE_TARGET_TYPE (type) = to_type;
+  TYPE_DOMAIN_TYPE (type) = TYPE_DOMAIN_TYPE (to_type);
+  TYPE_LENGTH (type) = cplus_method_ptr_size (to_type);
+  TYPE_CODE (type) = TYPE_CODE_METHODPTR;
+}
+
 /* Smash TYPE to be a type of method of DOMAIN with type TO_TYPE.
    METHOD just means `function that gets an extra "this" argument'.
 
index 380f72a..72968a5 100644 (file)
@@ -1312,6 +1312,8 @@ extern void smash_to_method_type (struct type *type, struct type *domain,
 extern void smash_to_memberptr_type (struct type *, struct type *,
                                     struct type *);
 
+extern void smash_to_methodptr_type (struct type *, struct type *);
+
 extern struct type *allocate_stub_method (struct type *);
 
 extern char *type_name_no_tag (const struct type *);
index cd8a7db..dd54819 100644 (file)
@@ -1,3 +1,9 @@
+2010-01-22  Jan Kratochvil  <jan.kratochvil@redhat.com>
+
+       PR symtab/11199:
+       * gdb.dwarf2/member-ptr-forwardref.exp,
+       gdb.dwarf2/member-ptr-forwardref.S: New.
+
 2010-01-20  Jan Kratochvil  <jan.kratochvil@redhat.com>
 
        * gdb.threads/watchthreads-reorder.c (gdbstop_mutex): Remove.
diff --git a/gdb/testsuite/gdb.dwarf2/member-ptr-forwardref.S b/gdb/testsuite/gdb.dwarf2/member-ptr-forwardref.S
new file mode 100644 (file)
index 0000000..2a82e58
--- /dev/null
@@ -0,0 +1,327 @@
+/* This testcase is part of GDB, the GNU debugger.
+
+   Copyright 2010 Free Software Foundation, Inc.
+
+   This program is free software; you can redistribute it and/or modify
+   it under the terms of the GNU General Public License as published by
+   the Free Software Foundation; either version 3 of the License, or
+   (at your option) any later version.
+
+   This program is distributed in the hope that it will be useful,
+   but WITHOUT ANY WARRANTY; without even the implied warranty of
+   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+   GNU General Public License for more details.
+
+   You should have received a copy of the GNU General Public License
+   along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
+
+/* The goal of this test is to provide anonymous DW_TAG_structure_type
+   containing __pfn + __delta (read in by quirk_gcc_member_function_pointer)
+   before DW_TAG_structure_type of "class C" to exploit the forward reference
+   through "__pfn" and back from DW_TAG_member "fp" of "class C".  As the
+   compiler may place the DIEs in arbitrary order they are rather prepared as
+   a .S file.
+
+   class C;
+   typedef int (C::*fp_t) ();
+   fp_t fp;
+   class C
+     {
+       int (C::*fp) ();
+     } c;  */
+
+       .file   "member-ptr-forwardref.cc"
+       .section        .debug_abbrev,"",@progbits
+.Ldebug_abbrev0:
+       .section        .debug_info,"",@progbits
+.Ldebug_info0:
+       .section        .debug_line,"",@progbits
+.Ldebug_line0:
+       .text
+.Ltext0:
+.globl fp
+       .bss
+       .align 4
+       .type   fp, @object
+       .size   fp, 8
+fp:
+       .zero   8
+.globl c
+       .align 4
+       .type   c, @object
+       .size   c, 8
+c:
+       .zero   8
+       .text
+.Letext0:
+       .file 1 "gdb.dwarf2/member-ptr-forwardref.cc"
+       .section        .debug_info
+       .long   0xa9    # Length of Compilation Unit Info
+       .value  0x3     # DWARF version number
+       .long   .Ldebug_abbrev0 # Offset Into Abbrev. Section
+       .byte   0x4     # Pointer Size (in bytes)
+       .uleb128 0x1    # (DIE (0xb) DW_TAG_compile_unit)
+       .long   .LASF2  # DW_AT_producer: "GNU C++ 4.4.2 20091222 (Red Hat 4.4.2-20)"
+       .byte   0x4     # DW_AT_language
+       .long   .LASF3  # DW_AT_name: "gdb.dwarf2/member-ptr-forwardref.cc"
+       .long   .LASF4  # DW_AT_comp_dir: "gdb/testsuite"
+       .long   .Ltext0 # DW_AT_low_pc
+       .long   .Letext0        # DW_AT_high_pc
+       .long   .Ldebug_line0   # DW_AT_stmt_list
+       .uleb128 0x2    # (DIE (0x25) DW_TAG_typedef)
+       .long   .LASF5  # DW_AT_name: "fp_t"
+       .byte   0x1     # DW_AT_decl_file (gdb.dwarf2/member-ptr-forwardref.cc)
+       .byte   0x13    # DW_AT_decl_line
+       .long   0x30    # DW_AT_type
+       .uleb128 0x3    # (DIE (0x30) DW_TAG_structure_type)
+       .byte   0x8     # DW_AT_byte_size
+       .byte   0x1     # DW_AT_decl_file (gdb.dwarf2/member-ptr-forwardref.cc)
+       .byte   0x13    # DW_AT_decl_line
+       .long   0x51    # DW_AT_sibling
+       .uleb128 0x4    # (DIE (0x38) DW_TAG_member)
+       .long   .LASF0  # DW_AT_name: "__pfn"
+       .byte   0x1     # DW_AT_decl_file (gdb.dwarf2/member-ptr-forwardref.cc)
+       .byte   0x13    # DW_AT_decl_line
+       .long   0x85    # DW_AT_type
+       .sleb128 0      # DW_AT_data_member_location
+       .uleb128 0x4    # (DIE (0x44) DW_TAG_member)
+       .long   .LASF1  # DW_AT_name: "__delta"
+       .byte   0x1     # DW_AT_decl_file (gdb.dwarf2/member-ptr-forwardref.cc)
+       .byte   0x13    # DW_AT_decl_line
+       .long   0x61    # DW_AT_type
+       .sleb128 4      # DW_AT_data_member_location
+       .byte   0x0     # end of children of DIE 0x30
+       .uleb128 0x5    # (DIE (0x51) DW_TAG_subroutine_type)
+       .long   0x61    # DW_AT_type
+       .long   0x61    # DW_AT_sibling
+       .uleb128 0x6    # (DIE (0x5a) DW_TAG_formal_parameter)
+       .long   0x68    # DW_AT_type
+       .byte   0x1     # DW_AT_artificial
+       .byte   0x0     # end of children of DIE 0x51
+       .uleb128 0x7    # (DIE (0x61) DW_TAG_base_type)
+       .byte   0x4     # DW_AT_byte_size
+       .byte   0x5     # DW_AT_encoding
+       .ascii "int\0"  # DW_AT_name
+       .uleb128 0x8    # (DIE (0x68) DW_TAG_pointer_type)
+       .byte   0x4     # DW_AT_byte_size
+       .long   0x6e    # DW_AT_type
+       .uleb128 0x9    # (DIE (0x6e) DW_TAG_structure_type)
+       .ascii "C\0"    # DW_AT_name
+       .byte   0x8     # DW_AT_byte_size
+       .byte   0x1     # DW_AT_decl_file (gdb.dwarf2/member-ptr-forwardref.cc)
+       .byte   0x16    # DW_AT_decl_line
+       .long   0x85    # DW_AT_sibling
+       .uleb128 0xa    # (DIE (0x78) DW_TAG_member)
+       .ascii "fp\0"   # DW_AT_name
+       .byte   0x1     # DW_AT_decl_file (gdb.dwarf2/member-ptr-forwardref.cc)
+       .byte   0x17    # DW_AT_decl_line
+       .long   0x30    # DW_AT_type
+       .sleb128 0      # DW_AT_data_member_location
+       .byte   0x3     # DW_AT_accessibility
+       .byte   0x0     # end of children of DIE 0x6e
+       .uleb128 0x8    # (DIE (0x85) DW_TAG_pointer_type)
+       .byte   0x4     # DW_AT_byte_size
+       .long   0x51    # DW_AT_type
+       .uleb128 0xb    # (DIE (0x8b) DW_TAG_variable)
+       .ascii "fp\0"   # DW_AT_name
+       .byte   0x1     # DW_AT_decl_file (gdb.dwarf2/member-ptr-forwardref.cc)
+       .byte   0x14    # DW_AT_decl_line
+       .long   0x25    # DW_AT_type
+       .byte   0x1     # DW_AT_external
+       .byte   0x5     # DW_AT_location
+       .byte   0x3     # DW_OP_addr
+       .long   fp
+       .uleb128 0xb    # (DIE (0x9c) DW_TAG_variable)
+       .ascii "c\0"    # DW_AT_name
+       .byte   0x1     # DW_AT_decl_file (gdb.dwarf2/member-ptr-forwardref.cc)
+       .byte   0x18    # DW_AT_decl_line
+       .long   0x6e    # DW_AT_type
+       .byte   0x1     # DW_AT_external
+       .byte   0x5     # DW_AT_location
+       .byte   0x3     # DW_OP_addr
+       .long   c
+       .byte   0x0     # end of children of DIE 0xb
+       .section        .debug_abbrev
+       .uleb128 0x1    # (abbrev code)
+       .uleb128 0x11   # (TAG: DW_TAG_compile_unit)
+       .byte   0x1     # DW_children_yes
+       .uleb128 0x25   # (DW_AT_producer)
+       .uleb128 0xe    # (DW_FORM_strp)
+       .uleb128 0x13   # (DW_AT_language)
+       .uleb128 0xb    # (DW_FORM_data1)
+       .uleb128 0x3    # (DW_AT_name)
+       .uleb128 0xe    # (DW_FORM_strp)
+       .uleb128 0x1b   # (DW_AT_comp_dir)
+       .uleb128 0xe    # (DW_FORM_strp)
+       .uleb128 0x11   # (DW_AT_low_pc)
+       .uleb128 0x1    # (DW_FORM_addr)
+       .uleb128 0x12   # (DW_AT_high_pc)
+       .uleb128 0x1    # (DW_FORM_addr)
+       .uleb128 0x10   # (DW_AT_stmt_list)
+       .uleb128 0x6    # (DW_FORM_data4)
+       .byte   0x0
+       .byte   0x0
+       .uleb128 0x2    # (abbrev code)
+       .uleb128 0x16   # (TAG: DW_TAG_typedef)
+       .byte   0x0     # DW_children_no
+       .uleb128 0x3    # (DW_AT_name)
+       .uleb128 0xe    # (DW_FORM_strp)
+       .uleb128 0x3a   # (DW_AT_decl_file)
+       .uleb128 0xb    # (DW_FORM_data1)
+       .uleb128 0x3b   # (DW_AT_decl_line)
+       .uleb128 0xb    # (DW_FORM_data1)
+       .uleb128 0x49   # (DW_AT_type)
+       .uleb128 0x13   # (DW_FORM_ref4)
+       .byte   0x0
+       .byte   0x0
+       .uleb128 0x3    # (abbrev code)
+       .uleb128 0x13   # (TAG: DW_TAG_structure_type)
+       .byte   0x1     # DW_children_yes
+       .uleb128 0xb    # (DW_AT_byte_size)
+       .uleb128 0xb    # (DW_FORM_data1)
+       .uleb128 0x3a   # (DW_AT_decl_file)
+       .uleb128 0xb    # (DW_FORM_data1)
+       .uleb128 0x3b   # (DW_AT_decl_line)
+       .uleb128 0xb    # (DW_FORM_data1)
+       .uleb128 0x1    # (DW_AT_sibling)
+       .uleb128 0x13   # (DW_FORM_ref4)
+       .byte   0x0
+       .byte   0x0
+       .uleb128 0x4    # (abbrev code)
+       .uleb128 0xd    # (TAG: DW_TAG_member)
+       .byte   0x0     # DW_children_no
+       .uleb128 0x3    # (DW_AT_name)
+       .uleb128 0xe    # (DW_FORM_strp)
+       .uleb128 0x3a   # (DW_AT_decl_file)
+       .uleb128 0xb    # (DW_FORM_data1)
+       .uleb128 0x3b   # (DW_AT_decl_line)
+       .uleb128 0xb    # (DW_FORM_data1)
+       .uleb128 0x49   # (DW_AT_type)
+       .uleb128 0x13   # (DW_FORM_ref4)
+       .uleb128 0x38   # (DW_AT_data_member_location)
+       .uleb128 0xd    # (DW_FORM_sdata)
+       .byte   0x0
+       .byte   0x0
+       .uleb128 0x5    # (abbrev code)
+       .uleb128 0x15   # (TAG: DW_TAG_subroutine_type)
+       .byte   0x1     # DW_children_yes
+       .uleb128 0x49   # (DW_AT_type)
+       .uleb128 0x13   # (DW_FORM_ref4)
+       .uleb128 0x1    # (DW_AT_sibling)
+       .uleb128 0x13   # (DW_FORM_ref4)
+       .byte   0x0
+       .byte   0x0
+       .uleb128 0x6    # (abbrev code)
+       .uleb128 0x5    # (TAG: DW_TAG_formal_parameter)
+       .byte   0x0     # DW_children_no
+       .uleb128 0x49   # (DW_AT_type)
+       .uleb128 0x13   # (DW_FORM_ref4)
+       .uleb128 0x34   # (DW_AT_artificial)
+       .uleb128 0xc    # (DW_FORM_flag)
+       .byte   0x0
+       .byte   0x0
+       .uleb128 0x7    # (abbrev code)
+       .uleb128 0x24   # (TAG: DW_TAG_base_type)
+       .byte   0x0     # DW_children_no
+       .uleb128 0xb    # (DW_AT_byte_size)
+       .uleb128 0xb    # (DW_FORM_data1)
+       .uleb128 0x3e   # (DW_AT_encoding)
+       .uleb128 0xb    # (DW_FORM_data1)
+       .uleb128 0x3    # (DW_AT_name)
+       .uleb128 0x8    # (DW_FORM_string)
+       .byte   0x0
+       .byte   0x0
+       .uleb128 0x8    # (abbrev code)
+       .uleb128 0xf    # (TAG: DW_TAG_pointer_type)
+       .byte   0x0     # DW_children_no
+       .uleb128 0xb    # (DW_AT_byte_size)
+       .uleb128 0xb    # (DW_FORM_data1)
+       .uleb128 0x49   # (DW_AT_type)
+       .uleb128 0x13   # (DW_FORM_ref4)
+       .byte   0x0
+       .byte   0x0
+       .uleb128 0x9    # (abbrev code)
+       .uleb128 0x13   # (TAG: DW_TAG_structure_type)
+       .byte   0x1     # DW_children_yes
+       .uleb128 0x3    # (DW_AT_name)
+       .uleb128 0x8    # (DW_FORM_string)
+       .uleb128 0xb    # (DW_AT_byte_size)
+       .uleb128 0xb    # (DW_FORM_data1)
+       .uleb128 0x3a   # (DW_AT_decl_file)
+       .uleb128 0xb    # (DW_FORM_data1)
+       .uleb128 0x3b   # (DW_AT_decl_line)
+       .uleb128 0xb    # (DW_FORM_data1)
+       .uleb128 0x1    # (DW_AT_sibling)
+       .uleb128 0x13   # (DW_FORM_ref4)
+       .byte   0x0
+       .byte   0x0
+       .uleb128 0xa    # (abbrev code)
+       .uleb128 0xd    # (TAG: DW_TAG_member)
+       .byte   0x0     # DW_children_no
+       .uleb128 0x3    # (DW_AT_name)
+       .uleb128 0x8    # (DW_FORM_string)
+       .uleb128 0x3a   # (DW_AT_decl_file)
+       .uleb128 0xb    # (DW_FORM_data1)
+       .uleb128 0x3b   # (DW_AT_decl_line)
+       .uleb128 0xb    # (DW_FORM_data1)
+       .uleb128 0x49   # (DW_AT_type)
+       .uleb128 0x13   # (DW_FORM_ref4)
+       .uleb128 0x38   # (DW_AT_data_member_location)
+       .uleb128 0xd    # (DW_FORM_sdata)
+       .uleb128 0x32   # (DW_AT_accessibility)
+       .uleb128 0xb    # (DW_FORM_data1)
+       .byte   0x0
+       .byte   0x0
+       .uleb128 0xb    # (abbrev code)
+       .uleb128 0x34   # (TAG: DW_TAG_variable)
+       .byte   0x0     # DW_children_no
+       .uleb128 0x3    # (DW_AT_name)
+       .uleb128 0x8    # (DW_FORM_string)
+       .uleb128 0x3a   # (DW_AT_decl_file)
+       .uleb128 0xb    # (DW_FORM_data1)
+       .uleb128 0x3b   # (DW_AT_decl_line)
+       .uleb128 0xb    # (DW_FORM_data1)
+       .uleb128 0x49   # (DW_AT_type)
+       .uleb128 0x13   # (DW_FORM_ref4)
+       .uleb128 0x3f   # (DW_AT_external)
+       .uleb128 0xc    # (DW_FORM_flag)
+       .uleb128 0x2    # (DW_AT_location)
+       .uleb128 0xa    # (DW_FORM_block1)
+       .byte   0x0
+       .byte   0x0
+       .byte   0x0
+       .section        .debug_pubnames,"",@progbits
+       .long   0x1b    # Length of Public Names Info
+       .value  0x2     # DWARF Version
+       .long   .Ldebug_info0   # Offset of Compilation Unit Info
+       .long   0xad    # Compilation Unit Length
+       .long   0x8b    # DIE offset
+       .ascii "fp\0"   # external name
+       .long   0x9c    # DIE offset
+       .ascii "c\0"    # external name
+       .long   0x0
+       .section        .debug_pubtypes,"",@progbits
+       .long   0x1d    # Length of Public Type Names Info
+       .value  0x2     # DWARF Version
+       .long   .Ldebug_info0   # Offset of Compilation Unit Info
+       .long   0xad    # Compilation Unit Length
+       .long   0x25    # DIE offset
+       .ascii "fp_t\0" # external name
+       .long   0x6e    # DIE offset
+       .ascii "C\0"    # external name
+       .long   0x0
+       .section        .debug_str,"MS",@progbits,1
+.LASF5:
+       .string "fp_t"
+.LASF2:
+       .string "GNU C++ 4.4.2 20091222 (Red Hat 4.4.2-20)"
+.LASF0:
+       .string "__pfn"
+.LASF4:
+       .string "gdb/testsuite"
+.LASF3:
+       .string "gdb.dwarf2/member-ptr-forwardref.cc"
+.LASF1:
+       .string "__delta"
+       .ident  "GCC: (GNU) 4.4.2 20091222 (Red Hat 4.4.2-20)"
+       .section        .note.GNU-stack,"",@progbits
diff --git a/gdb/testsuite/gdb.dwarf2/member-ptr-forwardref.exp b/gdb/testsuite/gdb.dwarf2/member-ptr-forwardref.exp
new file mode 100644 (file)
index 0000000..0a54dfe
--- /dev/null
@@ -0,0 +1,48 @@
+# Copyright 2010 Free Software Foundation, Inc.
+
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+# This test can only be run on targets which support DWARF-2 and use gas.
+# For now pick a sampling of likely targets.
+if {![istarget *-*-linux*]
+    && ![istarget *-*-gnu*]
+    && ![istarget *-*-elf*]
+    && ![istarget *-*-openbsd*]
+    && ![istarget arm-*-eabi*]
+    && ![istarget powerpc-*-eabi*]} {
+    return 0  
+}
+
+if { [skip_cplus_tests] } { continue }
+
+set testfile member-ptr-forwardref
+set executable ${testfile}
+set binfile ${objdir}/${subdir}/${executable}.x
+
+if { [gdb_compile "${srcdir}/${subdir}/${testfile}.S" ${binfile} object {debug}] != "" } {
+    untested ${testfile}.exp
+    return -1
+}
+
+gdb_exit
+gdb_start
+gdb_reinitialize_dir $srcdir/$subdir
+
+# Be sure to set cp-abi before ${binfile} gets loaded
+gdb_test "set cp-abi gnu-v3"
+gdb_test "show cp-abi" {The currently selected C\+\+ ABI is "gnu-v3".*}
+
+gdb_load ${binfile}
+
+gdb_test "ptype c" "type = class C {\[\r\n \t\]*int \\(C::\\*fp\\)\\(C \\*\\);\[\r\n \t\]*}"