gdb/testsuite/gdb.guile/scm-section-script.c

   1 /* This testcase is part of GDB, the GNU debugger.
   2
   3    Copyright 2010-2015 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 "symcat.h"
  19 #include "gdb/section-scripts.h"
  20
  21 /* Put the path to the pretty-printer script in .debug_gdb_scripts so
  22    gdb will automagically loaded it.  */
  23
  24 #define DEFINE_GDB_SCRIPT(script_name) \
  25   asm("\
  26 .pushsection \".debug_gdb_scripts\", \"MS\",@progbits,1\n\
  27 .byte " XSTRING (SECTION_SCRIPT_ID_SCHEME_FILE) "\n\
  28 .asciz \"" script_name "\"\n\
  29 .popsection \n\
  30 ");
  31
  32 DEFINE_GDB_SCRIPT (SCRIPT_FILE)
  33
  34 struct ss
  35 {
  36   int a;
  37   int b;
  38 };
  39
  40 void
  41 init_ss (struct ss *s, int a, int b)
  42 {
  43   s->a = a;
  44   s->b = b;
  45 }
  46
  47 int
  48 main ()
  49 {
  50   struct ss ss;
  51
  52   init_ss (&ss, 1, 2);
  53
  54   return 0;      /* break to inspect struct and union */
  55 }