1 /* v850 specific, C compiler specific functions.
2 Copyright (C) 2000, 2001, 2002, 2003, 2005, 2007, 2009
3 Free Software Foundation, Inc.
4 Contributed by Jeff Law (law@cygnus.com).
6 This file is part of GCC.
8 GCC is free software; you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation; either version 3, or (at your option)
13 GCC is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
18 You should have received a copy of the GNU General Public License
19 along with GCC; see the file COPYING3. If not see
20 <http://www.gnu.org/licenses/>. */
24 #include "coretypes.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 endXXXX 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] =
178 build_string (strlen (alias) + 1, alias);
185 warning (OPT_Wpragmas, "malformed #pragma ghs section");
189 /* #pragma ghs section \n: Reset all section names back to their defaults. */
193 for (i = COUNT_OF_GHS_SECTION_KINDS; i--;)
194 GHS_current_section_names [i] = NULL;
199 ghs_pragma_interrupt (cpp_reader * pfile ATTRIBUTE_UNUSED)
203 if (pragma_lex (&x) != CPP_EOF)
204 warning (OPT_Wpragmas, "junk at end of #pragma ghs interrupt");
206 mark_current_function_as_interrupt ();
210 ghs_pragma_starttda (cpp_reader * pfile ATTRIBUTE_UNUSED)
214 if (pragma_lex (&x) != CPP_EOF)
215 warning (OPT_Wpragmas, "junk at end of #pragma ghs starttda");
217 push_data_area (DATA_AREA_TDA);
221 ghs_pragma_startsda (cpp_reader * pfile ATTRIBUTE_UNUSED)
225 if (pragma_lex (&x) != CPP_EOF)
226 warning (OPT_Wpragmas, "junk at end of #pragma ghs startsda");
228 push_data_area (DATA_AREA_SDA);
232 ghs_pragma_startzda (cpp_reader * pfile ATTRIBUTE_UNUSED)
236 if (pragma_lex (&x) != CPP_EOF)
237 warning (OPT_Wpragmas, "junk at end of #pragma ghs startzda");
239 push_data_area (DATA_AREA_ZDA);
243 ghs_pragma_endtda (cpp_reader * pfile ATTRIBUTE_UNUSED)
247 if (pragma_lex (&x) != CPP_EOF)
248 warning (OPT_Wpragmas, "junk at end of #pragma ghs endtda");
250 pop_data_area (DATA_AREA_TDA);
254 ghs_pragma_endsda (cpp_reader * pfile ATTRIBUTE_UNUSED)
258 if (pragma_lex (&x) != CPP_EOF)
259 warning (OPT_Wpragmas, "junk at end of #pragma ghs endsda");
261 pop_data_area (DATA_AREA_SDA);
265 ghs_pragma_endzda (cpp_reader * pfile ATTRIBUTE_UNUSED)
269 if (pragma_lex (&x) != CPP_EOF)
270 warning (OPT_Wpragmas, "junk at end of #pragma ghs endzda");
272 pop_data_area (DATA_AREA_ZDA);