Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

223 lines (168 sloc) 3.648 kB
/* This testcase is part of GDB, the GNU debugger.
Copyright 1998, 1999, 2004, 2006, 2007, 2008, 2009, 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/>.
*/
extern "C" {
#include <stdio.h>
}
class A {
public:
A();
int foo (int x);
int bar (int y);
virtual int baz (int z);
char c;
int j;
int jj;
static int s;
};
class B {
public:
static int s;
};
int A::s = 10;
int B::s = 20;
A::A()
{
c = 'x';
j = 5;
}
int A::foo (int dummy)
{
j += 3;
return j + dummy;
}
int A::bar (int dummy)
{
int r;
j += 13;
r = this->foo(15);
return r + j + 2 * dummy;
}
int A::baz (int dummy)
{
int r;
j += 15;
r = this->foo(15);
return r + j + 12 * dummy;
}
int fum (int dummy)
{
return 2 + 13 * dummy;
}
typedef int (A::*PMF)(int);
typedef int A::*PMI;
/* This class is in front of the other base classes of Diamond, so
that we can detect if the offset for Left or the first Base is
added twice - otherwise it would be 2 * 0 == 0. */
class Padding
{
public:
int spacer;
virtual int vspacer();
};
int Padding::vspacer()
{
return this->spacer;
}
class Base
{
public:
int x;
int get_x();
virtual int vget_base ();
};
int Base::get_x ()
{
return this->x;
}
int Base::vget_base ()
{
return this->x + 1000;
}
class Left : public Base {
public:
virtual int vget ();
};
int Left::vget ()
{
return this->x + 100;
}
class Right : public Base {
public:
virtual int vget ();
};
int Right::vget ()
{
return this->x + 200;
}
class Diamond : public Padding, public Left, public Right
{
public:
virtual int vget_base ();
};
int Diamond::vget_base ()
{
return this->Left::x + 2000;
}
int main ()
{
A a;
A * a_p;
PMF pmf;
PMF * pmf_p;
PMI pmi;
Diamond diamond;
int (Diamond::*left_pmf) ();
int (Diamond::*right_pmf) ();
int (Diamond::*left_vpmf) ();
int (Diamond::*left_base_vpmf) ();
int (Diamond::*right_vpmf) ();
int (Base::*base_vpmf) ();
int Diamond::*diamond_pmi;
PMI null_pmi;
PMF null_pmf;
a.j = 121;
a.jj = 1331;
int k;
a_p = &a;
pmi = &A::j;
pmf = &A::bar;
pmf_p = &pmf;
diamond.Left::x = 77;
diamond.Right::x = 88;
/* Some valid pointer to members from a base class. */
left_pmf = (int (Diamond::*) ()) (int (Left::*) ()) (&Base::get_x);
right_pmf = (int (Diamond::*) ()) (int (Right::*) ()) (&Base::get_x);
left_vpmf = &Left::vget;
left_base_vpmf = (int (Diamond::*) ()) (int (Left::*) ()) (&Base::vget_base);
right_vpmf = &Right::vget;
/* An unspecified, value preserving pointer to member cast. */
base_vpmf = (int (Base::*) ()) (int (Left::*) ()) &Diamond::vget_base;
/* A pointer to data member from a base class. */
diamond_pmi = (int Diamond::*) (int Left::*) &Base::x;
null_pmi = NULL;
null_pmf = NULL;
pmi = NULL; /* Breakpoint 1 here. */
k = (a.*pmf)(3);
pmi = &A::jj;
pmf = &A::foo;
pmf_p = &pmf;
k = (a.*pmf)(4);
k = (a.**pmf_p)(5);
k = a.*pmi;
k = a.bar(2);
k += fum (4);
B b;
k += b.s;
}
Jump to Line
Something went wrong with that request. Please try again.