gdb/testsuite/gdb.guile/scm-value.c

   1 /* This testcase is part of GDB, the GNU debugger.
   2
   3    Copyright 2008-2023 Free Software Foundation, Inc.
   4
   5    This program is free software; you can redistribute it and/or modify
   6    it under the terms of the GNU General Public License as published by
   7    the Free Software Foundation; either version 3 of the License, or
   8    (at your option) any later version.
   9
  10    This program is distributed in the hope that it will be useful,
  11    but WITHOUT ANY WARRANTY; without even the implied warranty of
  12    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13    GNU General Public License for more details.
  14
  15    You should have received a copy of the GNU General Public License
  16    along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
  17
  18 #include <stdio.h>
  19
  20 struct s
  21 {
  22   int a;
  23   int b;
  24 };
  25
  26 union u
  27 {
  28   int a;
  29   float b;
  30 };
  31
  32 enum e
  33   {
  34     ONE = 1,
  35     TWO = 2
  36   };
  37
  38 typedef struct s *PTR;
  39
  40 enum e evalue = TWO;
  41
  42 #ifdef __cplusplus
  43
  44 struct Base {
  45   virtual int x() { return 5; }
  46 };
  47
  48 struct Derived : public Base {
  49 };
  50
  51 Base *base = new Derived ();
  52 Derived derived;
  53 Base &base_ref = derived;
  54
  55 void ptr_ref(int*& rptr_int)
  56 {
  57   return; /* break to inspect pointer by reference. */
  58 }
  59 #endif
  60
  61 void func1 ()
  62 {
  63   printf ("void function called\n");
  64 }
  65
  66 int func2 (int arg1, int arg2)
  67 {
  68   return arg1 + arg2;
  69 }
  70
  71 char **save_argv;
  72
  73 int
  74 main (int argc, char *argv[])
  75 {
  76   char *cp = argv[0]; /* Prevent gcc from optimizing argv[] out.  */
  77   struct s s;
  78   union u u;
  79   PTR x = &s;
  80   char st[17] = "divide et impera";
  81   char nullst[17] = "divide\0et\0impera";
  82   void (*fp1) (void)  = &func1;
  83   int  (*fp2) (int, int) = &func2;
  84   const char *embed = "embedded x\201\202\203\204";
  85   int a[3] = {1,2,3};
  86   int *p = a;
  87   int i = 2;
  88   int *ptr_i = &i;
  89   s.a = 3;
  90   s.b = 5;
  91   u.a = 7;
  92   (*fp1) ();
  93   (*fp2) (10,20);
  94
  95 #ifdef __cplusplus
  96   ptr_ref(ptr_i);
  97 #endif
  98
  99   save_argv = argv;      /* break to inspect struct and union */
 100   return 0;
 101 }