1/* This testcase is part of GDB, the GNU debugger.
2
3   Copyright 2011-2021 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#if PTRBITS == 64
19# define PTRBYTE .8byte
20#elif PTRBITS == 32
21# define PTRBYTE .4byte
22#else
23# error "Unsupported pointer size"
24#endif
25
26	.section .debug_info
27.Lcu1_begin:
28	/* CU header */
29	.4byte	.Lcu1_end - .Lcu1_start		/* Length of Compilation Unit */
30.Lcu1_start:
31	.2byte	2				/* DWARF Version */
32	.4byte	.Labbrev1_begin			/* Offset into abbrev section */
33	.byte	PTRBITS / 8			/* Pointer size */
34
35	/* CU die */
36	.uleb128 1				/* Abbrev: DW_TAG_compile_unit */
37	.ascii	"file1.txt\0"			/* DW_AT_name */
38	.ascii	"GNU C 3.3.3\0"			/* DW_AT_producer */
39	.byte	8				/* DW_AT_language (DW_LANG_Fortran90) */
40	PTRBYTE		cu_text_start		/* DW_AT_low_pc */
41	PTRBYTE		cu_text_end		/* DW_AT_high_pc */
42
43	.uleb128	3			/* Abbrev: DW_TAG_subprogram */
44	.byte		1			/* DW_AT_external */
45	.ascii		"FUNC_lang\0"		/* DW_AT_name */
46	PTRBYTE		FUNC_lang_start		/* DW_AT_low_pc */
47	PTRBYTE		FUNC_lang_end		/* DW_AT_high_pc */
48	.byte		1			/* DW_AT_prototyped */
49	.4byte		.Ltype - .Lcu1_begin	/* DW_AT_type */
50
51.Ltype:
52	.uleb128 	0x5			/* Abbrev: DW_TAG_base_type */
53	.byte		0x4			/* DW_AT_byte_size */
54	.byte		0x5			/* DW_AT_encoding */
55	.ascii 		"foo\0"			/* DW_AT_name */
56
57	.byte		0			/* End of children of CU */
58.Lcu1_end:
59
60	/* The .debug_names-based index support depends on
61	   .debug_aranges generated by GCC.  (.gdb_index includes a
62	   gdb-generated map instead.)	*/
63	.section	.debug_aranges,"",@progbits
64	.4byte	.Laranges_end - .Laranges_start	// Length of Address Ranges Info
65.Laranges_start:
66	.2byte	0x2	// DWARF Version
67	.4byte	.Lcu1_begin // .Ldebug_info0 - Offset of Compilation Unit Info
68	.byte	PTRBITS / 8	// Size of Address
69	.byte	0	// Size of Segment Descriptor
70	.2byte	0	// Pad to 16 byte boundary
71	.2byte	0
72	PTRBYTE	cu_text_start	// Address
73	PTRBYTE	0x1000 // cu_text_end - cu_text_start	// Length
74	PTRBYTE	0
75	PTRBYTE	0
76.Laranges_end:
77
78/* Abbrev table */
79	.section .debug_abbrev
80.Labbrev1_begin:
81	.uleb128	1			/* Abbrev code */
82	.uleb128	0x11			/* DW_TAG_compile_unit */
83	.byte		1			/* has_children */
84	.uleb128	0x3			/* DW_AT_name */
85	.uleb128	0x8			/* DW_FORM_string */
86	.uleb128	0x25			/* DW_AT_producer */
87	.uleb128	0x8			/* DW_FORM_string */
88	.uleb128	0x13			/* DW_AT_language */
89	.uleb128	0xb			/* DW_FORM_data1 */
90	.uleb128	0x11			/* DW_AT_low_pc */
91	.uleb128	0x1			/* DW_FORM_addr */
92	.uleb128	0x12			/* DW_AT_high_pc */
93	.uleb128	0x1			/* DW_FORM_addr */
94	.byte		0x0			/* Terminator */
95	.byte		0x0			/* Terminator */
96
97	.uleb128	3			/* Abbrev code */
98	.uleb128	0x2e			/* DW_TAG_subprogram */
99	.byte		0			/* has_children */
100	.uleb128	0x3f			/* DW_AT_external */
101	.uleb128	0xc			/* DW_FORM_flag */
102	.uleb128	0x3			/* DW_AT_name */
103	.uleb128	0x8			/* DW_FORM_string */
104	.uleb128	0x11			/* DW_AT_low_pc */
105	.uleb128	0x1			/* DW_FORM_addr */
106	.uleb128	0x12			/* DW_AT_high_pc */
107	.uleb128	0x1			/* DW_FORM_addr */
108	.uleb128	0x27			/* DW_AT_prototyped */
109	.uleb128	0xc			/* DW_FORM_flag */
110	.uleb128	0x49			/* DW_AT_type */
111	.uleb128	0x13			/* DW_FORM_ref4 */
112	.byte		0x0			/* Terminator */
113	.byte		0x0			/* Terminator */
114
115	.uleb128	0x5			/* Abbrev code */
116	.uleb128	0x24			/* DW_TAG_base_type */
117	.byte		0x0			/* DW_children_no */
118	.uleb128	0xb			/* DW_AT_byte_size */
119	.uleb128	0xb			/* DW_FORM_data1 */
120	.uleb128	0x3e			/* DW_AT_encoding */
121	.uleb128	0xb			/* DW_FORM_data1 */
122	.uleb128	0x3			/* DW_AT_name */
123	.uleb128	0x8			/* DW_FORM_string */
124	.byte		0x0			/* Terminator */
125	.byte		0x0			/* Terminator */
126
127	.byte		0x0			/* Terminator */
128	.byte		0x0			/* Terminator */
129