1 /* Copyright 2010-2023 Free Software Foundation, Inc.
3 This program is free software; you can redistribute it and/or modify
4 it under the terms of the GNU General Public License as published by
5 the Free Software Foundation; either version 3 of the License, or
6 (at your option) any later version.
8 This program is distributed in the hope that it will be useful,
9 but WITHOUT ANY WARRANTY; without even the implied warranty of
10 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
11 GNU General Public License for more details.
13 You should have received a copy of the GNU General Public License
14 along with this program. If not, see <http://www.gnu.org/licenses/>. */
18 TYPE t = PROCEDURE (t);
22 But "v" has been removed afterwards. */
29 .4byte .Ldebug_info_end - 1f /* Length of Compilation Unit Info */
31 .2byte 0x3 /* DWARF version number */
32 .4byte .Ldebug_abbrev0 /* Offset Into Abbrev. Section */
33 .byte 0x4 /* Pointer Size (in bytes) */
35 .uleb128 0x1 /* (DIE (0xb) DW_TAG_compile_unit) */
36 .4byte .LASF0 /* DW_AT_producer */
37 .byte 0xa /* DW_AT_language = DW_LANG_Modula2 */
38 .4byte .LASF1 /* DW_AT_name: "2.mod" */
39 .4byte .LASF2 /* DW_AT_comp_dir: "" */
42 .uleb128 0x5 /* (DIE (0x210) DW_TAG_subroutine_type) */
44 .uleb128 0x6 /* (DIE (0x215) DW_TAG_formal_parameter) */
45 .4byte die21b-d /* DW_AT_type */
46 .byte 0x0 /* end of children of DIE 0x210 */
48 .uleb128 0x7 /* (DIE (0x21b) DW_TAG_pointer_type) */
49 .byte 0x4 /* DW_AT_byte_size */
50 .4byte die210-d /* DW_AT_type */
52 .uleb128 0x8 /* (DIE (0x221) DW_TAG_variable) */
53 .ascii "v\0" /* DW_AT_name */
54 .4byte die21b-d /* DW_AT_type */
55 .byte 2f-1f /* DW_AT_location */
56 1: .byte 0x3 /* DW_OP_addr */
60 .byte 0x0 /* end of children of DIE 0xb */
62 .section .debug_abbrev
65 .uleb128 0x1 /* (abbrev code) */
66 .uleb128 0x11 /* (TAG: DW_TAG_compile_unit) */
67 .byte 0x1 /* DW_children_yes */
68 .uleb128 0x25 /* (DW_AT_producer) */
69 .uleb128 0xe /* (DW_FORM_strp) */
70 .uleb128 0x13 /* (DW_AT_language) */
71 .uleb128 0xb /* (DW_FORM_data1) */
72 .uleb128 0x3 /* (DW_AT_name) */
73 .uleb128 0xe /* (DW_FORM_strp) */
74 .uleb128 0x1b /* (DW_AT_comp_dir) */
75 .uleb128 0xe /* (DW_FORM_strp) */
79 .uleb128 0x5 /* (abbrev code) */
80 .uleb128 0x15 /* (TAG: DW_TAG_subroutine_type) */
81 .byte 0x1 /* DW_children_yes */
85 .uleb128 0x6 /* (abbrev code) */
86 .uleb128 0x5 /* (TAG: DW_TAG_formal_parameter) */
87 .byte 0x0 /* DW_children_no */
88 .uleb128 0x49 /* (DW_AT_type) */
89 .uleb128 0x13 /* (DW_FORM_ref4) */
93 .uleb128 0x7 /* (abbrev code) */
94 .uleb128 0xf /* (TAG: DW_TAG_pointer_type) */
95 .byte 0x0 /* DW_children_no */
96 .uleb128 0xb /* (DW_AT_byte_size) */
97 .uleb128 0xb /* (DW_FORM_data1) */
98 .uleb128 0x49 /* (DW_AT_type) */
99 .uleb128 0x13 /* (DW_FORM_ref4) */
103 .uleb128 0x8 /* (abbrev code) */
104 .uleb128 0x34 /* (TAG: DW_TAG_variable) */
105 .byte 0x0 /* DW_children_no */
106 .uleb128 0x3 /* (DW_AT_name) */
107 .uleb128 0x8 /* (DW_FORM_string) */
108 .uleb128 0x49 /* (DW_AT_type) */
109 .uleb128 0x13 /* (DW_FORM_ref4) */
110 .uleb128 0x2 /* (DW_AT_location) */
111 .uleb128 0xa /* (DW_FORM_block1) */
121 .string "GNU Modula-2 0.78 (20100402) grafted onto GCC 4.1.2"
124 .section .note.GNU-stack,"",@progbits