1 /* v850 specific, C compiler specific functions.
2 Copyright (C) 2000-2013 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/>. */
23 #include "coretypes.h"
27 #include "c-family/c-pragma.h"
28 #include "diagnostic-core.h"
33 #define streq(a,b) (strcmp (a, b) == 0)
36 static int pop_data_area (v850_data_area
);
37 static int push_data_area (v850_data_area
);
38 static void mark_current_function_as_interrupt (void);
40 /* Push a data area onto the stack. */
43 push_data_area (v850_data_area data_area
)
45 data_area_stack_element
* elem
;
47 elem
= (data_area_stack_element
*) xmalloc (sizeof (* elem
));
52 elem
->prev
= data_area_stack
;
53 elem
->data_area
= data_area
;
55 data_area_stack
= elem
;
60 /* Remove a data area from the stack. */
63 pop_data_area (v850_data_area data_area
)
65 if (data_area_stack
== NULL
)
66 warning (OPT_Wpragmas
, "#pragma GHS endXXXX found without "
68 else if (data_area
!= data_area_stack
->data_area
)
69 warning (OPT_Wpragmas
, "#pragma GHS endXXX does not match "
73 data_area_stack_element
* elem
;
75 elem
= data_area_stack
;
76 data_area_stack
= data_area_stack
->prev
;
86 /* Set the machine specific 'interrupt' attribute on the current function. */
89 mark_current_function_as_interrupt (void)
93 if (current_function_decl
== NULL_TREE
)
95 warning (0, "cannot set interrupt attribute: no current function");
99 name
= get_identifier ("interrupt");
101 if (name
== NULL_TREE
|| TREE_CODE (name
) != IDENTIFIER_NODE
)
103 warning (0, "cannot set interrupt attribute: no such identifier");
107 decl_attributes (¤t_function_decl
,
108 tree_cons (name
, NULL_TREE
, NULL_TREE
), 0);
112 /* Support for GHS pragmata. */
115 ghs_pragma_section (cpp_reader
* pfile ATTRIBUTE_UNUSED
)
119 /* #pragma ghs section [name = alias [, name = alias [, ...]]] */
125 const char *sect
, *alias
;
126 enum GHS_section_kind kind
;
128 type
= pragma_lex (&x
);
130 if (type
== CPP_EOF
&& !repeat
)
132 else if (type
== CPP_NAME
)
135 sect
= IDENTIFIER_POINTER (sect_ident
);
141 if (pragma_lex (&x
) != CPP_EQ
)
143 if (pragma_lex (&x
) != CPP_NAME
)
146 alias
= IDENTIFIER_POINTER (x
);
148 type
= pragma_lex (&x
);
149 if (type
== CPP_COMMA
)
151 else if (type
!= CPP_EOF
)
152 warning (OPT_Wpragmas
, "junk at end of #pragma ghs section");
154 if (streq (sect
, "data")) kind
= GHS_SECTION_KIND_DATA
;
155 else if (streq (sect
, "text")) kind
= GHS_SECTION_KIND_TEXT
;
156 else if (streq (sect
, "rodata")) kind
= GHS_SECTION_KIND_RODATA
;
157 else if (streq (sect
, "const")) kind
= GHS_SECTION_KIND_RODATA
;
158 else if (streq (sect
, "rosdata")) kind
= GHS_SECTION_KIND_ROSDATA
;
159 else if (streq (sect
, "rozdata")) kind
= GHS_SECTION_KIND_ROZDATA
;
160 else if (streq (sect
, "sdata")) kind
= GHS_SECTION_KIND_SDATA
;
161 else if (streq (sect
, "tdata")) kind
= GHS_SECTION_KIND_TDATA
;
162 else if (streq (sect
, "zdata")) kind
= GHS_SECTION_KIND_ZDATA
;
163 /* According to GHS beta documentation, the following should not be
165 else if (streq (sect
, "bss")) kind
= GHS_SECTION_KIND_BSS
;
166 else if (streq (sect
, "zbss")) kind
= GHS_SECTION_KIND_ZDATA
;
169 warning (0, "unrecognized section name %qE", sect_ident
);
173 if (streq (alias
, "default"))
174 GHS_current_section_names
[kind
] = NULL
;
176 GHS_current_section_names
[kind
] =
177 build_string (strlen (alias
) + 1, 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
);