Fix omp target issue with Fortran optional arguments
[official-gcc.git] / libiberty / dwarfnames.c
blobc97741e4e35a92140fe86aaff7300a057389db83
1 /* Names of various DWARF tags.
2 Copyright (C) 2012-2019 Free Software Foundation, Inc.
4 This file is part of GNU CC.
6 GNU CC is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 2, or (at your option)
9 any later version.
11 In addition to the permissions in the GNU General Public License, the
12 Free Software Foundation gives you unlimited permission to link the
13 compiled version of this file into combinations with other programs,
14 and to distribute those combinations without any restriction coming
15 from the use of this file. (The General Public License restrictions
16 do apply in other respects; for example, they cover modification of
17 the file, and distribution when not linked into a combined
18 executable.)
20 GNU CC is distributed in the hope that it will be useful,
21 but WITHOUT ANY WARRANTY; without even the implied warranty of
22 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
23 GNU General Public License for more details.
25 You should have received a copy of the GNU General Public License
26 along with GNU CC; see the file COPYING. If not, write to
27 the Free Software Foundation, 51 Franklin Street - Fifth Floor,
28 Boston, MA 02110-1301, USA. */
30 #include "dwarf2.h"
32 #define DW_FIRST_TAG(name, value) \
33 const char *get_DW_TAG_name (unsigned int tag) \
34 { switch (tag) { \
35 DW_TAG (name, value)
36 #define DW_END_TAG } return 0; }
37 #define DW_FIRST_FORM(name, value) \
38 const char *get_DW_FORM_name (unsigned int form) \
39 { switch (form) { \
40 DW_FORM (name, value)
41 #define DW_END_FORM } return 0; }
42 #define DW_FIRST_AT(name, value) \
43 const char *get_DW_AT_name (unsigned int attr) { \
44 switch (attr) { \
45 DW_AT (name, value)
46 #define DW_END_AT } return 0; }
47 #define DW_FIRST_OP(name, value) \
48 const char *get_DW_OP_name (unsigned int op) { \
49 switch (op) { \
50 DW_OP (name, value)
51 #define DW_END_OP } return 0; }
52 #define DW_FIRST_ATE(name, value) \
53 const char *get_DW_ATE_name (unsigned int enc) { \
54 switch (enc) { \
55 DW_ATE (name, value)
56 #define DW_END_ATE } return 0; }
57 #define DW_FIRST_CFA(name, value) \
58 const char *get_DW_CFA_name (unsigned int opc) { \
59 switch (opc) { \
60 DW_CFA (name, value)
61 #define DW_END_CFA } return 0; }
62 #define DW_FIRST_IDX(name, value) \
63 const char *get_DW_IDX_name (unsigned int idx) { \
64 switch (idx) { \
65 DW_IDX (name, value)
66 #define DW_END_IDX } return 0; }
68 #define DW_TAG(name, value) case name: return # name ;
69 #define DW_TAG_DUP(name, value)
70 #define DW_FORM(name, value) case name: return # name ;
71 #define DW_AT(name, value) case name: return # name ;
72 #define DW_AT_DUP(name, value)
73 #define DW_OP(name, value) case name: return # name ;
74 #define DW_OP_DUP(name, value)
75 #define DW_ATE(name, value) case name: return # name ;
76 #define DW_ATE_DUP(name, value)
77 #define DW_CFA(name, value) case name: return # name ;
78 #define DW_CFA_DUP(name, value)
79 #define DW_IDX(name, value) case name: return # name ;
80 #define DW_IDX_DUP(name, value)
82 #include "dwarf2.def"
84 #undef DW_FIRST_TAG
85 #undef DW_END_TAG
86 #undef DW_FIRST_FORM
87 #undef DW_END_FORM
88 #undef DW_FIRST_AT
89 #undef DW_END_AT
90 #undef DW_FIRST_OP
91 #undef DW_END_OP
92 #undef DW_FIRST_ATE
93 #undef DW_END_ATE
94 #undef DW_FIRST_CFA
95 #undef DW_END_CFA
96 #undef DW_FIRST_IDX
97 #undef DW_END_IDX
99 #undef DW_TAG
100 #undef DW_TAG_DUP
101 #undef DW_FORM
102 #undef DW_AT
103 #undef DW_AT_DUP
104 #undef DW_OP
105 #undef DW_OP_DUP
106 #undef DW_ATE
107 #undef DW_ATE_DUP
108 #undef DW_CFA
109 #undef DW_CFA_DUP
110 #undef DW_IDX
111 #undef DW_IDX_DUP