Home | History | Annotate | Line # | Download | only in gdb.cp
chained-calls.cc revision 1.6
      1  1.1  christos /* This testcase is part of GDB, the GNU debugger.
      2  1.1  christos 
      3  1.6  christos    Copyright 2014-2019 Free Software Foundation, Inc.
      4  1.1  christos 
      5  1.1  christos    This program is free software; you can redistribute it and/or modify
      6  1.1  christos    it under the terms of the GNU General Public License as published by
      7  1.1  christos    the Free Software Foundation; either version 3 of the License, or
      8  1.1  christos    (at your option) any later version.
      9  1.1  christos 
     10  1.1  christos    This program is distributed in the hope that it will be useful,
     11  1.1  christos    but WITHOUT ANY WARRANTY; without even the implied warranty of
     12  1.1  christos    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
     13  1.1  christos    GNU General Public License for more details.
     14  1.1  christos 
     15  1.1  christos    You should have received a copy of the GNU General Public License
     16  1.1  christos    along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
     17  1.1  christos 
     18  1.1  christos class S
     19  1.1  christos {
     20  1.1  christos public:
     21  1.1  christos   S () { }
     22  1.1  christos   S (S &obj);
     23  1.1  christos 
     24  1.1  christos   S operator+ (const S &s);
     25  1.1  christos 
     26  1.1  christos   int a;
     27  1.1  christos };
     28  1.1  christos 
     29  1.1  christos S::S (S &obj)
     30  1.1  christos {
     31  1.1  christos   a = obj.a;
     32  1.1  christos }
     33  1.1  christos 
     34  1.1  christos S
     35  1.1  christos S::operator+ (const S &s)
     36  1.1  christos {
     37  1.1  christos   S res;
     38  1.1  christos 
     39  1.1  christos   res.a = a + s.a;
     40  1.1  christos 
     41  1.1  christos   return res;
     42  1.1  christos }
     43  1.1  christos 
     44  1.1  christos S
     45  1.1  christos f (int i)
     46  1.1  christos {
     47  1.1  christos   S s;
     48  1.1  christos 
     49  1.1  christos   s.a = i;
     50  1.1  christos 
     51  1.1  christos   return s;
     52  1.1  christos }
     53  1.1  christos 
     54  1.1  christos int
     55  1.1  christos g (const S &s)
     56  1.1  christos {
     57  1.1  christos   return s.a;
     58  1.1  christos }
     59  1.1  christos 
     60  1.1  christos class A
     61  1.1  christos {
     62  1.1  christos public:
     63  1.1  christos   A operator+ (const A &);
     64  1.1  christos   int a;
     65  1.1  christos };
     66  1.1  christos 
     67  1.1  christos A
     68  1.1  christos A::operator+ (const A &obj)
     69  1.1  christos {
     70  1.1  christos   A n;
     71  1.1  christos 
     72  1.1  christos   n.a = a + obj.a;
     73  1.1  christos 
     74  1.1  christos   return n;
     75  1.1  christos }
     76  1.1  christos 
     77  1.1  christos A
     78  1.1  christos p ()
     79  1.1  christos {
     80  1.1  christos   A a;
     81  1.1  christos   a.a = 12345678;
     82  1.1  christos   return a;
     83  1.1  christos }
     84  1.1  christos 
     85  1.1  christos A
     86  1.1  christos r ()
     87  1.1  christos {
     88  1.1  christos   A a;
     89  1.1  christos   a.a = 10000000;
     90  1.1  christos   return a;
     91  1.1  christos }
     92  1.1  christos 
     93  1.1  christos A
     94  1.1  christos q (const A &a)
     95  1.1  christos {
     96  1.1  christos   return a;
     97  1.1  christos }
     98  1.1  christos 
     99  1.1  christos class B
    100  1.1  christos {
    101  1.1  christos public:
    102  1.1  christos   int b[1024];
    103  1.1  christos };
    104  1.1  christos 
    105  1.1  christos B
    106  1.1  christos makeb ()
    107  1.1  christos {
    108  1.1  christos   B b;
    109  1.1  christos   int i;
    110  1.1  christos 
    111  1.1  christos   for (i = 0; i < 1024; i++)
    112  1.1  christos     b.b[i] = i;
    113  1.1  christos 
    114  1.1  christos   return b;
    115  1.1  christos }
    116  1.1  christos 
    117  1.1  christos int
    118  1.1  christos getb (const B &b, int i)
    119  1.1  christos {
    120  1.1  christos   return b.b[i];
    121  1.1  christos }
    122  1.1  christos 
    123  1.1  christos class C
    124  1.1  christos {
    125  1.1  christos public:
    126  1.1  christos   C ();
    127  1.1  christos   ~C ();
    128  1.1  christos 
    129  1.1  christos   A operator* ();
    130  1.1  christos 
    131  1.1  christos   A *a_ptr;
    132  1.1  christos };
    133  1.1  christos 
    134  1.1  christos C::C ()
    135  1.1  christos {
    136  1.1  christos   a_ptr = new A;
    137  1.1  christos   a_ptr->a = 5678;
    138  1.1  christos }
    139  1.1  christos 
    140  1.1  christos C::~C ()
    141  1.1  christos {
    142  1.1  christos   delete a_ptr;
    143  1.1  christos }
    144  1.1  christos 
    145  1.1  christos A
    146  1.1  christos C::operator* ()
    147  1.1  christos {
    148  1.1  christos   return *a_ptr;
    149  1.1  christos }
    150  1.1  christos 
    151  1.1  christos #define TYPE_INDEX 1
    152  1.1  christos 
    153  1.1  christos enum type
    154  1.1  christos {
    155  1.1  christos   INT,
    156  1.1  christos   CHAR
    157  1.1  christos };
    158  1.1  christos 
    159  1.1  christos union U
    160  1.1  christos {
    161  1.1  christos public:
    162  1.1  christos   U (type t);
    163  1.1  christos   type get_type ();
    164  1.1  christos 
    165  1.1  christos   int a;
    166  1.1  christos   char c;
    167  1.1  christos   type tp[2];
    168  1.1  christos };
    169  1.1  christos 
    170  1.1  christos U::U (type t)
    171  1.1  christos {
    172  1.1  christos   tp[TYPE_INDEX] = t;
    173  1.1  christos }
    174  1.1  christos 
    175  1.1  christos U
    176  1.1  christos make_int ()
    177  1.1  christos {
    178  1.1  christos   return U (INT);
    179  1.1  christos }
    180  1.1  christos 
    181  1.1  christos U
    182  1.1  christos make_char ()
    183  1.1  christos {
    184  1.1  christos   return U (CHAR);
    185  1.1  christos }
    186  1.1  christos 
    187  1.1  christos type
    188  1.1  christos U::get_type ()
    189  1.1  christos {
    190  1.1  christos   return tp[TYPE_INDEX];
    191  1.1  christos }
    192  1.1  christos 
    193  1.1  christos int
    194  1.1  christos main ()
    195  1.1  christos {
    196  1.1  christos   int i = g(f(0));
    197  1.1  christos   A a = q(p() + r());
    198  1.1  christos 
    199  1.1  christos   B b = makeb ();
    200  1.1  christos   C c;
    201  1.1  christos 
    202  1.1  christos   return i + getb(b, 0);  /* Break here  */
    203  1.1  christos }
    204