Mercurial > hg > CbC > CbC_gcc

comparison gcc/config/v850/v850-c.c @ 0:a06113de4d67

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
first commit
author kent <kent@cr.ie.u-ryukyu.ac.jp>
date Fri, 17 Jul 2009 14:47:48 +0900
parents
children 77e2b8dfacca
comparison
equal deleted inserted replaced
-1:000000000000 0:a06113de4d67
1 /* v850 specific, C compiler specific functions.
2 Copyright (C) 2000, 2007 Free Software Foundation, Inc.
3 Contributed by Jeff Law (law@cygnus.com).
4
5 This file is part of GCC.
6
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)
10 any later version.
11
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.
16
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/>. */
20
21 #include "config.h"
22 #include "system.h"
23 #include "coretypes.h"
24 #include "tm.h"
25 #include "cpplib.h"
26 #include "tree.h"
27 #include "c-pragma.h"
28 #include "toplev.h"
29 #include "ggc.h"
30 #include "tm_p.h"
31
32 #ifndef streq
33 #define streq(a,b) (strcmp (a, b) == 0)
34 #endif
35
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);
39
40 /* Push a data area onto the stack. */
41
42 static int
43 push_data_area (v850_data_area data_area)
44 {
45 data_area_stack_element * elem;
46
47 elem = (data_area_stack_element *) xmalloc (sizeof (* elem));
48
49 if (elem == NULL)
50 return 0;
51
52 elem->prev = data_area_stack;
53 elem->data_area = data_area;
54
55 data_area_stack = elem;
56
57 return 1;
58 }
59
60 /* Remove a data area from the stack. */
61
62 static int
63 pop_data_area (v850_data_area data_area)
64 {
65 if (data_area_stack == NULL)
66 warning (OPT_Wpragmas, "#pragma GHS endXXXX found without "
67 "previous startXXX");
68 else if (data_area != data_area_stack->data_area)
69 warning (OPT_Wpragmas, "#pragma GHS endXXX does not match "
70 "previous startXXX");
71 else
72 {
73 data_area_stack_element * elem;
74
75 elem = data_area_stack;
76 data_area_stack = data_area_stack->prev;
77
78 free (elem);
79
80 return 1;
81 }
82
83 return 0;
84 }
85
86 /* Set the machine specific 'interrupt' attribute on the current function. */
87
88 static void
89 mark_current_function_as_interrupt (void)
90 {
91 tree name;
92
93 if (current_function_decl == NULL_TREE)
94 {
95 warning (0, "cannot set interrupt attribute: no current function");
96 return;
97 }
98
99 name = get_identifier ("interrupt");
100
101 if (name == NULL_TREE || TREE_CODE (name) != IDENTIFIER_NODE)
102 {
103 warning (0, "cannot set interrupt attribute: no such identifier");
104 return;
105 }
106
107 decl_attributes (&current_function_decl,
108 tree_cons (name, NULL_TREE, NULL_TREE), 0);
109 }
110
111
112 /* Support for GHS pragmata. */
113
114 void
115 ghs_pragma_section (cpp_reader * pfile ATTRIBUTE_UNUSED)
116 {
117 int repeat;
118
119 /* #pragma ghs section [name = alias [, name = alias [, ...]]] */
120 do
121 {
122 tree x;
123 enum cpp_ttype type;
124 const char *sect, *alias;
125 enum GHS_section_kind kind;
126
127 type = pragma_lex (&x);
128
129 if (type == CPP_EOF && !repeat)
130 goto reset;
131 else if (type == CPP_NAME)
132 sect = IDENTIFIER_POINTER (x);
133 else
134 goto bad;
135 repeat = 0;
136
137 if (pragma_lex (&x) != CPP_EQ)
138 goto bad;
139 if (pragma_lex (&x) != CPP_NAME)
140 goto bad;
141
142 alias = IDENTIFIER_POINTER (x);
143
144 type = pragma_lex (&x);
145 if (type == CPP_COMMA)
146 repeat = 1;
147 else if (type != CPP_EOF)
148 warning (OPT_Wpragmas, "junk at end of #pragma ghs section");
149
150 if (streq (sect, "data")) kind = GHS_SECTION_KIND_DATA;
151 else if (streq (sect, "text")) kind = GHS_SECTION_KIND_TEXT;
152 else if (streq (sect, "rodata")) kind = GHS_SECTION_KIND_RODATA;
153 else if (streq (sect, "const")) kind = GHS_SECTION_KIND_RODATA;
154 else if (streq (sect, "rosdata")) kind = GHS_SECTION_KIND_ROSDATA;
155 else if (streq (sect, "rozdata")) kind = GHS_SECTION_KIND_ROZDATA;
156 else if (streq (sect, "sdata")) kind = GHS_SECTION_KIND_SDATA;
157 else if (streq (sect, "tdata")) kind = GHS_SECTION_KIND_TDATA;
158 else if (streq (sect, "zdata")) kind = GHS_SECTION_KIND_ZDATA;
159 /* According to GHS beta documentation, the following should not be
160 allowed! */
161 else if (streq (sect, "bss")) kind = GHS_SECTION_KIND_BSS;
162 else if (streq (sect, "zbss")) kind = GHS_SECTION_KIND_ZDATA;
163 else
164 {
165 warning (0, "unrecognized section name \"%s\"", sect);
166 return;
167 }
168
169 if (streq (alias, "default"))
170 GHS_current_section_names [kind] = NULL;
171 else
172 GHS_current_section_names [kind] =
173 build_string (strlen (alias) + 1, alias);
174 }
175 while (repeat);
176
177 return;
178
179 bad:
180 warning (OPT_Wpragmas, "malformed #pragma ghs section");
181 return;
182
183 reset:
184 /* #pragma ghs section \n: Reset all section names back to their defaults. */
185 {
186 int i;
187
188 for (i = COUNT_OF_GHS_SECTION_KINDS; i--;)
189 GHS_current_section_names [i] = NULL;
190 }
191 }
192
193 void
194 ghs_pragma_interrupt (cpp_reader * pfile ATTRIBUTE_UNUSED)
195 {
196 tree x;
197
198 if (pragma_lex (&x) != CPP_EOF)
199 warning (OPT_Wpragmas, "junk at end of #pragma ghs interrupt");
200
201 mark_current_function_as_interrupt ();
202 }
203
204 void
205 ghs_pragma_starttda (cpp_reader * pfile ATTRIBUTE_UNUSED)
206 {
207 tree x;
208
209 if (pragma_lex (&x) != CPP_EOF)
210 warning (OPT_Wpragmas, "junk at end of #pragma ghs starttda");
211
212 push_data_area (DATA_AREA_TDA);
213 }
214
215 void
216 ghs_pragma_startsda (cpp_reader * pfile ATTRIBUTE_UNUSED)
217 {
218 tree x;
219
220 if (pragma_lex (&x) != CPP_EOF)
221 warning (OPT_Wpragmas, "junk at end of #pragma ghs startsda");
222
223 push_data_area (DATA_AREA_SDA);
224 }
225
226 void
227 ghs_pragma_startzda (cpp_reader * pfile ATTRIBUTE_UNUSED)
228 {
229 tree x;
230
231 if (pragma_lex (&x) != CPP_EOF)
232 warning (OPT_Wpragmas, "junk at end of #pragma ghs startzda");
233
234 push_data_area (DATA_AREA_ZDA);
235 }
236
237 void
238 ghs_pragma_endtda (cpp_reader * pfile ATTRIBUTE_UNUSED)
239 {
240 tree x;
241
242 if (pragma_lex (&x) != CPP_EOF)
243 warning (OPT_Wpragmas, "junk at end of #pragma ghs endtda");
244
245 pop_data_area (DATA_AREA_TDA);
246 }
247
248 void
249 ghs_pragma_endsda (cpp_reader * pfile ATTRIBUTE_UNUSED)
250 {
251 tree x;
252
253 if (pragma_lex (&x) != CPP_EOF)
254 warning (OPT_Wpragmas, "junk at end of #pragma ghs endsda");
255
256 pop_data_area (DATA_AREA_SDA);
257 }
258
259 void
260 ghs_pragma_endzda (cpp_reader * pfile ATTRIBUTE_UNUSED)
261 {
262 tree x;
263
264 if (pragma_lex (&x) != CPP_EOF)
265 warning (OPT_Wpragmas, "junk at end of #pragma ghs endzda");
266
267 pop_data_area (DATA_AREA_ZDA);
268 }