mirror of
https://sourceware.org/git/binutils-gdb.git
synced 2024-12-21 04:42:53 +08:00
47d4871188
File list found with: $ grep "along with this program" * -A 1 -rn \ | grep "*/" \ | grep -v "along with this program" \ | sed 's,-[0-9]\+-.*,,g' Tested on x86_64 Fedora 17. gdb/ 2013-06-07 Pedro Alves <palves@redhat.com> * darwin-nat.c: Fix formating in copyright header. * darwin-nat.h: Likewise. * gnu-nat.c: Likewise. * machoread.c: Likewise. gdb/testsuite/ 2013-06-07 Pedro Alves <palves@redhat.com> * gdb.ada/info_types.c: Fix formating in copyright header. * gdb.base/break-on-linker-gcd-function.cc: Likewise. * gdb.base/float.c: Likewise. * gdb.base/inferior-died.c: Likewise. * gdb.base/interp.c: Likewise. * gdb.base/jit-main.c: Likewise. * gdb.base/jit-solib.c: Likewise. * gdb.base/long_long.c: Likewise. * gdb.base/longjmp.c: Likewise. * gdb.base/nextoverexit.c: Likewise. * gdb.base/pr11022.c: Likewise. * gdb.base/prelink-lib.c: Likewise. * gdb.base/prelink.c: Likewise. * gdb.base/prologue.c: Likewise. * gdb.base/restore.c: Likewise. * gdb.base/sigchld.c: Likewise. * gdb.base/solib-search-lib1.c: Likewise. * gdb.base/solib-search-lib2.c: Likewise. * gdb.base/solib-search.c: Likewise. * gdb.base/solib-search.h: Likewise. * gdb.base/whatis.c: Likewise. * gdb.cp/abstract-origin.cc: Likewise. * gdb.cp/anon-struct.cc: Likewise. * gdb.cp/baseenum.cc: Likewise. * gdb.cp/bs15503.cc: Likewise. * gdb.cp/call-c-1.c: Likewise. * gdb.cp/call-c.cc: Likewise. * gdb.cp/class2.cc: Likewise. * gdb.cp/classes.cc: Likewise. * gdb.cp/cttiadd.cc: Likewise. * gdb.cp/cttiadd1.cc: Likewise. * gdb.cp/cttiadd2.cc: Likewise. * gdb.cp/cttiadd3.cc: Likewise. * gdb.cp/derivation.cc: Likewise. * gdb.cp/derivation2.cc: Likewise. * gdb.cp/dispcxx.cc: Likewise. * gdb.cp/exception.cc: Likewise. * gdb.cp/gdb2384-base.cc: Likewise. * gdb.cp/gdb2384-base.h: Likewise. * gdb.cp/gdb2384.cc: Likewise. * gdb.cp/gdb2495.cc: Likewise. * gdb.cp/mb-inline.h: Likewise. * gdb.cp/mb-inline1.cc: Likewise. * gdb.cp/mb-inline2.cc: Likewise. * gdb.cp/member-name.cc: Likewise. * gdb.cp/member-ptr.cc: Likewise. * gdb.cp/misc.cc: Likewise. * gdb.cp/namespace1.cc: Likewise. * gdb.cp/nextoverthrow.cc: Likewise. * gdb.cp/pr-574.cc: Likewise. * gdb.cp/pr9631.cc: Likewise. * gdb.cp/printmethod.cc: Likewise. * gdb.cp/psmang1.cc: Likewise. * gdb.cp/psmang2.cc: Likewise. * gdb.cp/psymtab-parameter.cc: Likewise. * gdb.cp/ptype-flags.cc: Likewise. * gdb.cp/ref-params.cc: Likewise. * gdb.cp/ref-types.cc: Likewise. * gdb.cp/smartp.cc: Likewise. * gdb.cp/try_catch.cc: Likewise. * gdb.cp/userdef.cc: Likewise. * gdb.cp/using-crash.cc: Likewise. * gdb.cp/virtfunc.cc: Likewise. * gdb.cp/virtfunc2.cc: Likewise. * gdb.dwarf2/callframecfa.S: Likewise. * gdb.dwarf2/dw2-ranges.c: Likewise. * gdb.dwarf2/dw2-ranges2.c: Likewise. * gdb.dwarf2/dw2-ranges3.c: Likewise. * gdb.dwarf2/dw2-restore.S: Likewise. * gdb.dwarf2/pieces.S: Likewise. * gdb.dwarf2/valop.S: Likewise. * gdb.java/jnpe.java: Likewise. * gdb.mi/mi-stepn.c: Likewise. * gdb.mi/mi-var-cp.cc: Likewise. * gdb.mi/mi-var-rtti.cc: Likewise. * gdb.mi/ns-stale-regcache.c: Likewise. * gdb.mi/pr11022.c: Likewise. * gdb.mi/solib-lib.c: Likewise. * gdb.mi/solib-main.c: Likewise. * gdb.python/py-arch.c: Likewise. * gdb.python/py-block.c: Likewise. * gdb.python/py-breakpoint.c: Likewise. * gdb.python/py-events.c: Likewise. * gdb.python/py-evthreads.c: Likewise. * gdb.python/py-explore.c: Likewise. * gdb.python/py-explore.cc: Likewise. * gdb.python/py-finish-breakpoint.c: Likewise. * gdb.python/py-finish-breakpoint2.cc: Likewise. * gdb.python/py-symbol.c: Likewise. * gdb.threads/execl.c: Likewise. * gdb.threads/execl1.c: Likewise.
360 lines
11 KiB
C++
360 lines
11 KiB
C++
/* Copyright 2012-2013 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/>. */
|
|
|
|
struct Base {
|
|
Base() : A(1) {}
|
|
virtual ~Base() {} // Enforce type to have vtable
|
|
int A;
|
|
};
|
|
|
|
struct Derived : public Base {
|
|
Derived() : B(2), C(3) {}
|
|
int B;
|
|
int C;
|
|
};
|
|
|
|
|
|
void use_rtti_for_ptr_test ()
|
|
{
|
|
/*: BEGIN: use_rtti_for_ptr :*/
|
|
Derived d;
|
|
Base* ptr = &d;
|
|
const Base* constPtr = &d;
|
|
Base* const ptrConst = &d;
|
|
Base const* const constPtrConst = &d;
|
|
/*:
|
|
set testname use_rtti_for_ptr
|
|
set_print_object off $testname
|
|
check_new_derived_without_rtti ptr {Base \*} $testname
|
|
check_new_derived_without_rtti constPtr {const Base \*} $testname
|
|
check_new_derived_without_rtti ptrConst {Base \* const} $testname
|
|
check_new_derived_without_rtti constPtrConst {const Base \* const} \
|
|
$testname
|
|
|
|
set_print_object on $testname
|
|
check_new_derived_with_rtti ptr {Derived \*} $testname
|
|
check_new_derived_with_rtti constPtr {const Derived \*} $testname
|
|
check_new_derived_with_rtti ptrConst {Derived \* const} $testname
|
|
check_new_derived_with_rtti constPtrConst {const Derived \* const} \
|
|
$testname
|
|
:*/
|
|
return;
|
|
/*: END: use_rtti_for_ptr :*/
|
|
}
|
|
|
|
|
|
void use_rtti_for_ref_test ()
|
|
{
|
|
/*: BEGIN: use_rtti_for_ref :*/
|
|
Derived d;
|
|
Base& ref = d;
|
|
const Base& constRef = d;
|
|
/*:
|
|
set testname use_rtti_for_ref
|
|
set_print_object off $testname
|
|
check_new_derived_without_rtti ref {Base \&} $testname
|
|
check_new_derived_without_rtti constRef {const Base \&} $testname
|
|
|
|
set_print_object on $testname
|
|
check_new_derived_with_rtti ref {Derived \&} $testname
|
|
check_new_derived_with_rtti constRef {const Derived \&} $testname
|
|
:*/
|
|
return;
|
|
/*: END: use_rtti_for_ref :*/
|
|
}
|
|
|
|
|
|
void use_rtti_for_ptr_child_test ()
|
|
{
|
|
/*: BEGIN: use_rtti_for_ptr_child :*/
|
|
Derived d;
|
|
struct S {
|
|
Base* ptr;
|
|
const Base* constPtr;
|
|
Base* const ptrConst;
|
|
Base const* const constPtrConst;
|
|
S ( Base* v ) :
|
|
ptr ( v ),
|
|
constPtr ( v ),
|
|
ptrConst ( v ),
|
|
constPtrConst ( v ) {}
|
|
} s ( &d );
|
|
/*:
|
|
set testname use_rtti_for_ptr_child
|
|
|
|
set_print_object off $testname
|
|
mi_create_varobj VAR s "create varobj for s (without RTTI) in $testname"
|
|
mi_list_varobj_children VAR {
|
|
{ VAR.public public 4 }
|
|
} "list children of s (without RTTI) in $testname"
|
|
mi_list_varobj_children VAR.public {
|
|
{ VAR.public.ptr ptr 1 {Base \*} }
|
|
{ VAR.public.constPtr constPtr 1 {const Base \*} }
|
|
{ VAR.public.ptrConst ptrConst 1 {Base \* const} }
|
|
{ VAR.public.constPtrConst constPtrConst 1 {const Base \* const} }
|
|
} "list children of s.public (without RTTI) in $testname"
|
|
check_derived_without_rtti VAR.public.ptr s.ptr $testname
|
|
check_derived_without_rtti VAR.public.constPtr s.constPtr $testname
|
|
check_derived_without_rtti VAR.public.ptrConst s.ptrConst $testname
|
|
check_derived_without_rtti VAR.public.constPtrConst s.constPtrConst \
|
|
$testname
|
|
mi_delete_varobj VAR "delete varobj for s (without RTTI) in $testname"
|
|
|
|
set_print_object on $testname
|
|
mi_create_varobj VAR s "create varobj for s (with RTTI) in $testname"
|
|
mi_list_varobj_children VAR {
|
|
{ VAR.public public 4 }
|
|
} "list children of s (with RTTI) in $testname"
|
|
mi_list_varobj_children VAR.public {
|
|
{ VAR.public.ptr ptr 2 {Derived \*} }
|
|
{ VAR.public.constPtr constPtr 2 {const Derived \*} }
|
|
{ VAR.public.ptrConst ptrConst 2 {Derived \* const} }
|
|
{ VAR.public.constPtrConst constPtrConst 2 {const Derived \* const}}
|
|
} "list children of s.public (with RTTI) in $testname"
|
|
check_derived_with_rtti VAR.public.ptr s.ptr $testname
|
|
check_derived_with_rtti VAR.public.constPtr s.constPtr $testname
|
|
check_derived_with_rtti VAR.public.ptrConst s.ptrConst $testname
|
|
check_derived_with_rtti VAR.public.constPtrConst s.constPtrConst \
|
|
$testname
|
|
mi_delete_varobj VAR "delete varobj for s (with RTTI) in $testname"
|
|
:*/
|
|
return;
|
|
/*: END: use_rtti_for_ptr_child :*/
|
|
}
|
|
|
|
|
|
void use_rtti_for_ref_child_test ()
|
|
{
|
|
/*: BEGIN: use_rtti_for_ref_child :*/
|
|
Derived d;
|
|
struct S {
|
|
Base& ref;
|
|
const Base& constRef;
|
|
S ( Base& v ) :
|
|
ref ( v ),
|
|
constRef ( v ) {}
|
|
} s ( d );
|
|
/*:
|
|
set testname use_rtti_for_ref_child
|
|
|
|
set_print_object off $testname
|
|
mi_create_varobj VAR s "create varobj for s (without RTTI) in $testname"
|
|
mi_list_varobj_children VAR {
|
|
{ VAR.public public 2 }
|
|
} "list children of s (without RTTI) in $testname"
|
|
mi_list_varobj_children VAR.public {
|
|
{ VAR.public.ref ref 1 {Base \&} }
|
|
{ VAR.public.constRef constRef 1 {const Base \&} }
|
|
} "list children of s.public (without RTTI) in $testname"
|
|
check_derived_without_rtti VAR.public.ref s.ref $testname
|
|
check_derived_without_rtti VAR.public.constRef s.constRef $testname
|
|
mi_delete_varobj VAR "delete varobj for s (without RTTI) in $testname"
|
|
|
|
set_print_object on $testname
|
|
mi_create_varobj VAR s "create varobj for s (with RTTI) in $testname"
|
|
mi_list_varobj_children VAR {
|
|
{ VAR.public public 2 }
|
|
} "list children of s (with RTTI) in $testname"
|
|
mi_list_varobj_children VAR.public {
|
|
{ VAR.public.ref ref 2 {Derived \&} }
|
|
{ VAR.public.constRef constRef 2 {const Derived \&} }
|
|
} "list children of s.public (with RTTI) in $testname"
|
|
check_derived_with_rtti VAR.public.ref s.ref $testname
|
|
check_derived_with_rtti VAR.public.constRef s.constRef $testname
|
|
mi_delete_varobj VAR "delete varobj for s (with RTTI) in $testname"
|
|
:*/
|
|
return;
|
|
/*: END: use_rtti_for_ref_child :*/
|
|
}
|
|
|
|
|
|
struct First {
|
|
First() : F(-1) {}
|
|
int F;
|
|
};
|
|
|
|
|
|
struct MultipleDerived : public First, Base {
|
|
MultipleDerived() : B(2), C(3) {}
|
|
int B;
|
|
int C;
|
|
};
|
|
|
|
|
|
void use_rtti_with_multiple_inheritence_test ()
|
|
{
|
|
/*: BEGIN: use_rtti_with_multiple_inheritence :*/
|
|
MultipleDerived d;
|
|
Base* ptr = &d;
|
|
Base& ref = d;
|
|
/*:
|
|
set testname use_rtti_with_multiple_inheritence
|
|
set_print_object off $testname
|
|
check_new_derived_without_rtti ptr {Base \*} $testname
|
|
check_new_derived_without_rtti ref {Base \&} $testname
|
|
|
|
set_print_object on $testname
|
|
mi_create_varobj_checked VAR ptr {MultipleDerived \*} \
|
|
"create varobj for ptr (with RTTI) in $testname"
|
|
mi_list_varobj_children VAR {
|
|
{ VAR.First First 1 First }
|
|
{ VAR.Base Base 1 Base }
|
|
{ VAR.public public 2 }
|
|
} "list children of ptr (with RTTI) in $testname"
|
|
mi_list_varobj_children "VAR.First" {
|
|
{ VAR.First.public public 1 }
|
|
} "list children of ptr.First (with RTTI) in $testname"
|
|
mi_list_varobj_children "VAR.First.public" {
|
|
{ VAR.First.public.F F 0 int }
|
|
} "list children of ptr.Base.public (with RTTI) in $testname"
|
|
mi_list_varobj_children "VAR.Base" {
|
|
{ VAR.Base.public public 1 }
|
|
} "list children of ptr.Base (with RTTI) in $testname"
|
|
mi_list_varobj_children "VAR.Base.public" {
|
|
{ VAR.Base.public.A A 0 int }
|
|
} "list children of ptr.Base.public (with RTTI) in $testname"
|
|
mi_list_varobj_children "VAR.public" {
|
|
{ VAR.public.B B 0 int }
|
|
{ VAR.public.C C 0 int }
|
|
} "list children of ptr.public (with RTTI) in $testname"
|
|
|
|
mi_delete_varobj VAR \
|
|
"delete varobj for ptr (with RTTI) in $testname"
|
|
:*/
|
|
return;
|
|
/*: END: use_rtti_with_multiple_inheritence :*/
|
|
}
|
|
|
|
|
|
void type_update_when_use_rtti_test ()
|
|
{
|
|
/*: BEGIN: type_update_when_use_rtti :*/
|
|
Derived d;
|
|
/*:
|
|
set testname type_update_when_use_rtti
|
|
|
|
set_print_object on $testname
|
|
mi_create_varobj_checked PTR ptr {Base \*} \
|
|
"create varobj for ptr in $testname"
|
|
check_derived_children_without_rtti PTR ptr $testname
|
|
|
|
mi_create_varobj S s "create varobj for S in $testname"
|
|
mi_list_varobj_children S {
|
|
{ S.public public 1 }
|
|
} "list children of s in $testname"
|
|
mi_list_varobj_children S.public {
|
|
{ S.public.ptr ptr 1 {Base \*} }
|
|
} "list children of s.public in $testname"
|
|
check_derived_children_without_rtti S.public.ptr s.ptr $testname
|
|
:*/
|
|
|
|
Base* ptr = &d;
|
|
struct S {
|
|
Base* ptr;
|
|
S ( Base* v ) :
|
|
ptr ( v ) {}
|
|
} s ( &d );
|
|
/*:
|
|
mi_varobj_update_with_type_change PTR {Derived \*} 2 \
|
|
"update ptr to derived in $testname"
|
|
check_derived_with_rtti PTR ptr $testname
|
|
|
|
mi_varobj_update_with_child_type_change S S.public.ptr {Derived \*} 2 \
|
|
"update s.ptr to derived in $testname"
|
|
check_derived_with_rtti S.public.ptr s.ptr $testname
|
|
:*/
|
|
|
|
ptr = 0;
|
|
s.ptr = 0;
|
|
/*:
|
|
mi_varobj_update_with_type_change PTR {Base \*} 1 \
|
|
"update ptr back to base type in $testname"
|
|
mi_delete_varobj PTR "delete varobj for ptr in $testname"
|
|
|
|
mi_varobj_update_with_child_type_change S S.public.ptr {Base \*} 1 \
|
|
"update s.ptr back to base type in $testname"
|
|
mi_delete_varobj S "delete varobj for s in $testname"
|
|
:*/
|
|
return;
|
|
/*: END: type_update_when_use_rtti :*/
|
|
}
|
|
|
|
|
|
void skip_type_update_when_not_use_rtti_test ()
|
|
{
|
|
/*: BEGIN: skip_type_update_when_not_use_rtti :*/
|
|
Derived d;
|
|
/*:
|
|
set testname skip_type_update_when_not_use_rtti
|
|
|
|
set_print_object off $testname
|
|
mi_create_varobj_checked PTR ptr {Base \*} \
|
|
"create varobj for ptr in $testname"
|
|
check_derived_children_without_rtti PTR ptr $testname
|
|
|
|
mi_create_varobj S s "create varobj for S in $testname"
|
|
mi_list_varobj_children S {
|
|
{ S.public public 1 }
|
|
} "list children of s in $testname"
|
|
mi_list_varobj_children S.public {
|
|
{ S.public.ptr ptr 1 {Base \*} }
|
|
} "list children of s.public in $testname"
|
|
check_derived_children_without_rtti S.public.ptr s.ptr $testname
|
|
:*/
|
|
|
|
Base* ptr = &d;
|
|
struct S {
|
|
Base* ptr;
|
|
S ( Base* v ) :
|
|
ptr ( v ) {}
|
|
} s ( &d );
|
|
/*:
|
|
mi_varobj_update PTR {PTR PTR.public.A} \
|
|
"update ptr to derived type in $testname"
|
|
check_derived_without_rtti PTR ptr $testname
|
|
|
|
mi_varobj_update S {S.public.ptr S.public.ptr.public.A} \
|
|
"update s to derived type in $testname"
|
|
check_derived_without_rtti S.public.ptr s.ptr $testname
|
|
:*/
|
|
|
|
ptr = 0;
|
|
s.ptr = 0;
|
|
/*:
|
|
mi_varobj_update PTR {PTR PTR.public.A} \
|
|
"update ptr back to base type in $testname"
|
|
mi_delete_varobj PTR "delete varobj for ptr in $testname"
|
|
|
|
mi_varobj_update S {S.public.ptr S.public.ptr.public.A} \
|
|
"update s back to base type in $testname"
|
|
mi_delete_varobj S "delete varobj for s in $testname"
|
|
:*/
|
|
return;
|
|
/*: END: skip_type_update_when_not_use_rtti :*/
|
|
}
|
|
|
|
|
|
int main ()
|
|
{
|
|
use_rtti_for_ptr_test();
|
|
use_rtti_for_ref_test();
|
|
use_rtti_for_ptr_child_test();
|
|
use_rtti_for_ref_child_test();
|
|
use_rtti_with_multiple_inheritence_test();
|
|
type_update_when_use_rtti_test();
|
|
skip_type_update_when_not_use_rtti_test();
|
|
return 0;
|
|
}
|