blob: ca8b34a42d36bcd6a14ac0f4f06457ef47b9bc0c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
|
/* Subclasses of logical_location with knowledge of "tree".
Copyright (C) 2022-2024 Free Software Foundation, Inc.
Contributed by David Malcolm <dmalcolm@redhat.com>.
This file is part of GCC.
GCC is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 3, or (at your option) any later
version.
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
for more details.
You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING3. If not see
<http://www.gnu.org/licenses/>. */
#include "config.h"
#include "system.h"
#include "coretypes.h"
#include "tree.h"
#include "pretty-print.h"
#include "tree-logical-location.h"
#include "langhooks.h"
#include "intl.h"
/* class compiler_logical_location : public logical_location. */
/* Get a string for DECL suitable for use by the SARIF logicalLocation
"name" property (SARIF v2.1.0 section 3.33.4). */
const char *
compiler_logical_location::get_short_name_for_tree (tree decl)
{
gcc_assert (decl);
return identifier_to_locale (lang_hooks.decl_printable_name (decl, 0));
}
/* Get a string for DECL suitable for use by the SARIF logicalLocation
"fullyQualifiedName" property (SARIF v2.1.0 section 3.33.5). */
const char *
compiler_logical_location::get_name_with_scope_for_tree (tree decl)
{
gcc_assert (decl);
return identifier_to_locale (lang_hooks.decl_printable_name (decl, 1));
}
/* Get a string for DECL suitable for use by the SARIF logicalLocation
"decoratedName" property (SARIF v2.1.0 section 3.33.6). */
const char *
compiler_logical_location::get_internal_name_for_tree (tree decl)
{
gcc_assert (decl);
if (HAS_DECL_ASSEMBLER_NAME_P (decl))
if (tree id = DECL_ASSEMBLER_NAME (decl))
return IDENTIFIER_POINTER (id);
return NULL;
}
/* Get what kind of SARIF logicalLocation DECL is (if any). */
enum logical_location_kind
compiler_logical_location::get_kind_for_tree (tree decl)
{
if (!decl)
return LOGICAL_LOCATION_KIND_UNKNOWN;
switch (TREE_CODE (decl))
{
default:
return LOGICAL_LOCATION_KIND_UNKNOWN;
case FUNCTION_DECL:
return LOGICAL_LOCATION_KIND_FUNCTION;
case PARM_DECL:
return LOGICAL_LOCATION_KIND_PARAMETER;
case VAR_DECL:
return LOGICAL_LOCATION_KIND_VARIABLE;
}
}
label_text
compiler_logical_location::get_name_for_tree_for_path_output (tree decl)
{
gcc_assert (decl);
const char *n = DECL_NAME (decl)
? identifier_to_locale (lang_hooks.decl_printable_name (decl, 2))
: _("<anonymous>");
return label_text::borrow (n);
}
/* class tree_logical_location : public compiler_logical_location. */
/* Implementation of the logical_location vfuncs, using m_decl. */
const char *
tree_logical_location::get_short_name () const
{
gcc_assert (m_decl);
return get_short_name_for_tree (m_decl);
}
const char *
tree_logical_location::get_name_with_scope () const
{
gcc_assert (m_decl);
return get_name_with_scope_for_tree (m_decl);
}
const char *
tree_logical_location::get_internal_name () const
{
gcc_assert (m_decl);
return get_internal_name_for_tree (m_decl);
}
enum logical_location_kind
tree_logical_location::get_kind () const
{
gcc_assert (m_decl);
return get_kind_for_tree (m_decl);
}
label_text
tree_logical_location::get_name_for_path_output () const
{
gcc_assert (m_decl);
return get_name_for_tree_for_path_output (m_decl);
}
/* class current_fndecl_logical_location : public compiler_logical_location. */
/* Implementation of the logical_location vfuncs, using
current_function_decl. */
const char *
current_fndecl_logical_location::get_short_name () const
{
gcc_assert (current_function_decl);
return get_short_name_for_tree (current_function_decl);
}
const char *
current_fndecl_logical_location::get_name_with_scope () const
{
gcc_assert (current_function_decl);
return get_name_with_scope_for_tree (current_function_decl);
}
const char *
current_fndecl_logical_location::get_internal_name () const
{
gcc_assert (current_function_decl);
return get_internal_name_for_tree (current_function_decl);
}
enum logical_location_kind
current_fndecl_logical_location::get_kind () const
{
gcc_assert (current_function_decl);
return get_kind_for_tree (current_function_decl);
}
label_text
current_fndecl_logical_location::get_name_for_path_output () const
{
gcc_assert (current_function_decl);
return get_name_for_tree_for_path_output (current_function_decl);
}
|
