1 /* v850 specific, C compiler specific functions.
2 Copyright (C) 2000-2024 Free Software Foundation, Inc.
3 Contributed by Jeff Law (law@cygnus.com).
5 This file is part of GCC.
7 GCC is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 3, or (at your option)
12 GCC is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with GCC; see the file COPYING3. If not see
19 <http://www.gnu.org/licenses/>. */
21 #define IN_TARGET_CODE 1
25 #include "coretypes.h"
28 #include "stringpool.h"
29 #include "diagnostic-core.h"
31 #include "c-family/c-pragma.h"
34 #define streq(a,b) (strcmp (a, b) == 0)
37 static int pop_data_area (v850_data_area
);
38 static int push_data_area (v850_data_area
);
39 static void mark_current_function_as_interrupt (void);
41 /* Push a data area onto the stack. */
44 push_data_area (v850_data_area data_area
)
46 data_area_stack_element
* elem
;
48 elem
= (data_area_stack_element
*) xmalloc (sizeof (* elem
));
53 elem
->prev
= data_area_stack
;
54 elem
->data_area
= data_area
;
56 data_area_stack
= elem
;
61 /* Remove a data area from the stack. */
64 pop_data_area (v850_data_area data_area
)
66 if (data_area_stack
== NULL
)
67 warning (OPT_Wpragmas
, "%<#pragma%> GHS endXXX found without "
69 else if (data_area
!= data_area_stack
->data_area
)
70 warning (OPT_Wpragmas
, "%<#pragma%> GHS endXXX does not match "
74 data_area_stack_element
* elem
;
76 elem
= data_area_stack
;
77 data_area_stack
= data_area_stack
->prev
;
87 /* Set the machine specific 'interrupt' attribute on the current function. */
90 mark_current_function_as_interrupt (void)
94 if (current_function_decl
== NULL_TREE
)
96 warning (0, "cannot set interrupt attribute: no current function");
100 name
= get_identifier ("interrupt");
102 if (name
== NULL_TREE
|| TREE_CODE (name
) != IDENTIFIER_NODE
)
104 warning (0, "cannot set interrupt attribute: no such identifier");
108 decl_attributes (¤t_function_decl
,
109 tree_cons (name
, NULL_TREE
, NULL_TREE
), 0);
113 /* Support for GHS pragmata. */
116 ghs_pragma_section (cpp_reader
* pfile ATTRIBUTE_UNUSED
)
120 /* #pragma ghs section [name = alias [, name = alias [, ...]]] */
126 const char *sect
, *alias
;
127 enum GHS_section_kind kind
;
129 type
= pragma_lex (&x
);
131 if (type
== CPP_EOF
&& !repeat
)
133 else if (type
== CPP_NAME
)
136 sect
= IDENTIFIER_POINTER (sect_ident
);
142 if (pragma_lex (&x
) != CPP_EQ
)
144 if (pragma_lex (&x
) != CPP_NAME
)
147 alias
= IDENTIFIER_POINTER (x
);
149 type
= pragma_lex (&x
);
150 if (type
== CPP_COMMA
)
152 else if (type
!= CPP_EOF
)
153 warning (OPT_Wpragmas
, "junk at end of %<#pragma%> ghs section");
155 if (streq (sect
, "data")) kind
= GHS_SECTION_KIND_DATA
;
156 else if (streq (sect
, "text")) kind
= GHS_SECTION_KIND_TEXT
;
157 else if (streq (sect
, "rodata")) kind
= GHS_SECTION_KIND_RODATA
;
158 else if (streq (sect
, "const")) kind
= GHS_SECTION_KIND_RODATA
;
159 else if (streq (sect
, "rosdata")) kind
= GHS_SECTION_KIND_ROSDATA
;
160 else if (streq (sect
, "rozdata")) kind
= GHS_SECTION_KIND_ROZDATA
;
161 else if (streq (sect
, "sdata")) kind
= GHS_SECTION_KIND_SDATA
;
162 else if (streq (sect
, "tdata")) kind
= GHS_SECTION_KIND_TDATA
;
163 else if (streq (sect
, "zdata")) kind
= GHS_SECTION_KIND_ZDATA
;
164 /* According to GHS beta documentation, the following should not be
166 else if (streq (sect
, "bss")) kind
= GHS_SECTION_KIND_BSS
;
167 else if (streq (sect
, "zbss")) kind
= GHS_SECTION_KIND_ZDATA
;
170 warning (0, "unrecognized section name %qE", sect_ident
);
174 if (streq (alias
, "default"))
175 GHS_current_section_names
[kind
] = NULL
;
177 GHS_current_section_names
[kind
] = alias
;
184 warning (OPT_Wpragmas
, "malformed %<#pragma%> ghs section");
188 /* #pragma ghs section \n: Reset all section names back to their defaults. */
192 for (i
= COUNT_OF_GHS_SECTION_KINDS
; i
--;)
193 GHS_current_section_names
[i
] = NULL
;
198 ghs_pragma_interrupt (cpp_reader
* pfile ATTRIBUTE_UNUSED
)
202 if (pragma_lex (&x
) != CPP_EOF
)
203 warning (OPT_Wpragmas
, "junk at end of %<#pragma%> ghs interrupt");
205 mark_current_function_as_interrupt ();
209 ghs_pragma_starttda (cpp_reader
* pfile ATTRIBUTE_UNUSED
)
213 if (pragma_lex (&x
) != CPP_EOF
)
214 warning (OPT_Wpragmas
, "junk at end of %<#pragma%> ghs starttda");
216 push_data_area (DATA_AREA_TDA
);
220 ghs_pragma_startsda (cpp_reader
* pfile ATTRIBUTE_UNUSED
)
224 if (pragma_lex (&x
) != CPP_EOF
)
225 warning (OPT_Wpragmas
, "junk at end of %<#pragma%> ghs startsda");
227 push_data_area (DATA_AREA_SDA
);
231 ghs_pragma_startzda (cpp_reader
* pfile ATTRIBUTE_UNUSED
)
235 if (pragma_lex (&x
) != CPP_EOF
)
236 warning (OPT_Wpragmas
, "junk at end of %<#pragma%> ghs startzda");
238 push_data_area (DATA_AREA_ZDA
);
242 ghs_pragma_endtda (cpp_reader
* pfile ATTRIBUTE_UNUSED
)
246 if (pragma_lex (&x
) != CPP_EOF
)
247 warning (OPT_Wpragmas
, "junk at end of %<#pragma%> ghs endtda");
249 pop_data_area (DATA_AREA_TDA
);
253 ghs_pragma_endsda (cpp_reader
* pfile ATTRIBUTE_UNUSED
)
257 if (pragma_lex (&x
) != CPP_EOF
)
258 warning (OPT_Wpragmas
, "junk at end of %<#pragma%> ghs endsda");
260 pop_data_area (DATA_AREA_SDA
);
264 ghs_pragma_endzda (cpp_reader
* pfile ATTRIBUTE_UNUSED
)
268 if (pragma_lex (&x
) != CPP_EOF
)
269 warning (OPT_Wpragmas
, "junk at end of %<#pragma%> ghs endzda");
271 pop_data_area (DATA_AREA_ZDA
);