darkkirb/old-cross-binutils
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

gdb

Browse source 
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.
This commit is contained in:
Tom Tromey 2010-01-22 17:06:49 +00:00
parent 911e63d0e7
commit 0b92b5bb46
7 changed files with 432 additions and 47 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
gdb/ChangeLog
View 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:

64
gdb/dwarf2read.c
View 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;
}

21
gdb/gdbtypes.c
View 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'.

2
gdb/gdbtypes.h
View 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 *);

6
gdb/testsuite/ChangeLog
View 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.

327
gdb/testsuite/gdb.dwarf2/member-ptr-forwardref.S Normal file
View file

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

48
gdb/testsuite/gdb.dwarf2/member-ptr-forwardref.exp Normal file
View file

@ -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\]*}"