]> git.ipfire.org Git - thirdparty/binutils-gdb.git/blame - gdb/testsuite/gdb.python/py-mi-var-info-path-expression.c
Update copyright year range in header of all files managed by GDB
[thirdparty/binutils-gdb.git] / gdb / testsuite / gdb.python / py-mi-var-info-path-expression.c
CommitLineData
5abe0f0c
JV
1/* This testcase is part of GDB, the GNU debugger.
2
1d506c26 3 Copyright (C) 2018-2024 Free Software Foundation, Inc.
5abe0f0c
JV
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
18enum cons_type
19{
20 type_atom = 0,
21 type_cons = 1
22};
23
24struct atom
25{
26 int ival;
27};
28
29struct cons
30{
31 enum cons_type type;
32 union
33 {
34 struct atom atom;
35 struct cons *slots[2];
36 };
37};
38
39#define nil ((struct cons*)0);
40
41int
42main ()
43{
44 struct cons c1, c2, c3, c4;
45
46 c1.type = type_cons;
47 c1.slots[0] = &c4;
48 c1.slots[1] = &c2;
49
50 c2.type = type_cons;
51 c2.slots[0] = nil;
52 c2.slots[1] = &c3;
53
54 c3.type = type_cons;
55 c3.slots[0] = nil;
56 c3.slots[1] = nil;
57
58 c4.type = type_atom;
59 c4.atom.ival = 13;
60
61 return 0; /* next line */
62}