binutils-gdb/gdb/testsuite/gdb.mi/mi-var-rtti.cc

361 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;
}