Home | History | Annotate | Line # | Download | only in gdb.cp
chained-calls.cc revision 1.7.2.1
      1      1.1  christos /* This testcase is part of GDB, the GNU debugger.
      2      1.1  christos 
      3  1.7.2.1  perseant    Copyright 2014-2023 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