xref: /netbsd-src/external/gpl3/gdb.old/dist/gdb/testsuite/gdb.guile/scm-section-script.c (revision 6141197f687ae406c20b3e24d5c3c2fa941a279b)
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 }
56