|
0
|
1 /* Subroutines for insn-output.c for NetWare.
|
|
|
2 Contributed by Jan Beulich (jbeulich@novell.com)
|
|
|
3 Copyright (C) 2004, 2005, 2007, 2008 Free Software Foundation, Inc.
|
|
|
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 "rtl.h"
|
|
|
26 #include "regs.h"
|
|
|
27 #include "hard-reg-set.h"
|
|
|
28 #include "output.h"
|
|
|
29 #include "tree.h"
|
|
|
30 #include "flags.h"
|
|
|
31 #include "tm_p.h"
|
|
|
32 #include "toplev.h"
|
|
|
33 #include "ggc.h"
|
|
|
34
|
|
|
35 /* Return string which is the function name, identified by ID, modified
|
|
|
36 with PREFIX and a suffix consisting of an atsign (@) followed by the
|
|
|
37 number of bytes of arguments. If ID is NULL use the DECL_NAME as base.
|
|
|
38 Return NULL if no change required. */
|
|
|
39
|
|
|
40 static tree
|
|
|
41 gen_stdcall_or_fastcall_decoration (tree decl, tree id, char prefix)
|
|
|
42 {
|
|
|
43 unsigned HOST_WIDE_INT total = 0;
|
|
|
44 const char *old_str = IDENTIFIER_POINTER (id != NULL_TREE ? id : DECL_NAME (decl));
|
|
|
45 char *new_str;
|
|
|
46 tree type = TREE_TYPE (decl);
|
|
|
47
|
|
|
48 if (prototype_p (type))
|
|
|
49 {
|
|
|
50 tree arg;
|
|
|
51 function_args_iterator args_iter;
|
|
|
52
|
|
|
53 /* This attribute is ignored for variadic functions. */
|
|
|
54 if (stdarg_p (type))
|
|
|
55 return NULL_TREE;
|
|
|
56
|
|
|
57 /* Quit if we hit an incomplete type. Error is reported
|
|
|
58 by convert_arguments in c-typeck.c or cp/typeck.c. */
|
|
|
59 FOREACH_FUNCTION_ARGS(type, arg, args_iter)
|
|
|
60 {
|
|
|
61 HOST_WIDE_INT parm_size;
|
|
|
62 unsigned HOST_WIDE_INT parm_boundary_bytes;
|
|
|
63
|
|
|
64 if (! COMPLETE_TYPE_P (arg))
|
|
|
65 break;
|
|
|
66
|
|
|
67 parm_size = int_size_in_bytes (arg);
|
|
|
68 if (parm_size < 0)
|
|
|
69 break;
|
|
|
70
|
|
|
71 parm_boundary_bytes = PARM_BOUNDARY / BITS_PER_UNIT;
|
|
|
72
|
|
|
73 /* Must round up to include padding. This is done the same
|
|
|
74 way as in store_one_arg. */
|
|
|
75 total += (parm_size + parm_boundary_bytes - 1)
|
|
|
76 / parm_boundary_bytes * parm_boundary_bytes;
|
|
|
77 }
|
|
|
78 }
|
|
|
79
|
|
|
80 new_str = XALLOCAVEC (char, 1 + strlen (old_str) + 1 + 10 + 1);
|
|
|
81 sprintf (new_str, "%c%s@" HOST_WIDE_INT_PRINT_UNSIGNED,
|
|
|
82 prefix, old_str, total);
|
|
|
83
|
|
|
84 return get_identifier (new_str);
|
|
|
85 }
|
|
|
86
|
|
|
87 /* Return string which is the function name, identified by ID, modified
|
|
|
88 with an _n@ prefix (where n represents the number of arguments passed in
|
|
|
89 registers). If ID is NULL use the DECL_NAME as base.
|
|
|
90 Return NULL if no change required. */
|
|
|
91
|
|
|
92 static tree
|
|
|
93 gen_regparm_prefix (tree decl, tree id, unsigned int nregs)
|
|
|
94 {
|
|
|
95 unsigned HOST_WIDE_INT total = 0;
|
|
|
96 const char *old_str = IDENTIFIER_POINTER (id != NULL_TREE ? id : DECL_NAME (decl));
|
|
|
97 char *new_str;
|
|
|
98 tree type = TREE_TYPE (decl);
|
|
|
99
|
|
|
100 if (prototype_p (type))
|
|
|
101 {
|
|
|
102 tree arg;
|
|
|
103 function_args_iterator args_iter;
|
|
|
104
|
|
|
105 /* This attribute is ignored for variadic functions. */
|
|
|
106 if (stdarg_p (type))
|
|
|
107 return NULL_TREE;
|
|
|
108
|
|
|
109 /* Quit if we hit an incomplete type. Error is reported
|
|
|
110 by convert_arguments in c-typeck.c or cp/typeck.c. */
|
|
|
111 FOREACH_FUNCTION_ARGS(type, arg, args_iter)
|
|
|
112 {
|
|
|
113 HOST_WIDE_INT parm_size;
|
|
|
114 unsigned HOST_WIDE_INT parm_boundary_bytes;
|
|
|
115
|
|
|
116 if (! COMPLETE_TYPE_P (arg))
|
|
|
117 break;
|
|
|
118
|
|
|
119 parm_size = int_size_in_bytes (arg);
|
|
|
120 if (parm_size < 0)
|
|
|
121 break;
|
|
|
122
|
|
|
123 parm_boundary_bytes = PARM_BOUNDARY / BITS_PER_UNIT;
|
|
|
124
|
|
|
125 /* Must round up to include padding. This is done the same
|
|
|
126 way as in store_one_arg. */
|
|
|
127 total += (parm_size + parm_boundary_bytes - 1)
|
|
|
128 / parm_boundary_bytes * parm_boundary_bytes;
|
|
|
129 }
|
|
|
130 }
|
|
|
131
|
|
|
132 if (nregs > total / UNITS_PER_WORD)
|
|
|
133 nregs = total / UNITS_PER_WORD;
|
|
|
134 gcc_assert (nregs <= 9);
|
|
|
135 new_str = XALLOCAVEC (char, 3 + strlen (old_str) + 1);
|
|
|
136 sprintf (new_str, "_%u@%s", nregs, old_str);
|
|
|
137
|
|
|
138 return get_identifier (new_str);
|
|
|
139 }
|
|
|
140
|
|
|
141 /* Maybe decorate and get a new identifier for the DECL of a stdcall or
|
|
|
142 fastcall function. The original identifier is supplied in ID. */
|
|
|
143
|
|
|
144 static tree
|
|
|
145 i386_nlm_maybe_mangle_decl_assembler_name (tree decl, tree id)
|
|
|
146 {
|
|
|
147 tree type_attributes = TYPE_ATTRIBUTES (TREE_TYPE (decl));
|
|
|
148 tree new_id;
|
|
|
149
|
|
|
150 if (lookup_attribute ("stdcall", type_attributes))
|
|
|
151 new_id = gen_stdcall_or_fastcall_decoration (decl, id, '_');
|
|
|
152 else if (lookup_attribute ("fastcall", type_attributes))
|
|
|
153 new_id = gen_stdcall_or_fastcall_decoration (decl, id, FASTCALL_PREFIX);
|
|
|
154 else if ((new_id = lookup_attribute ("regparm", type_attributes)))
|
|
|
155 new_id = gen_regparm_prefix (decl, id,
|
|
|
156 TREE_INT_CST_LOW (TREE_VALUE (TREE_VALUE (new_id))));
|
|
|
157 else
|
|
|
158 new_id = NULL_TREE;
|
|
|
159
|
|
|
160 return new_id;
|
|
|
161 }
|
|
|
162
|
|
|
163 /* This is used as a target hook to modify the DECL_ASSEMBLER_NAME
|
|
|
164 in the language-independent default hook
|
|
|
165 langhooks.c:lhd_set_decl_assembler_name ()
|
|
|
166 and in cp/mangle.c:mangle_decl (). */
|
|
|
167 tree
|
|
|
168 i386_nlm_mangle_decl_assembler_name (tree decl, tree id)
|
|
|
169 {
|
|
|
170 tree new_id = TREE_CODE (decl) == FUNCTION_DECL
|
|
|
171 ? i386_nlm_maybe_mangle_decl_assembler_name (decl, id)
|
|
|
172 : NULL_TREE;
|
|
|
173
|
|
|
174 return (new_id ? new_id : id);
|
|
|
175 }
|
|
|
176
|
|
|
177 void
|
|
|
178 i386_nlm_encode_section_info (tree decl, rtx rtl, int first)
|
|
|
179 {
|
|
|
180 default_encode_section_info (decl, rtl, first);
|
|
|
181
|
|
|
182 if (first
|
|
|
183 && TREE_CODE (decl) == FUNCTION_DECL
|
|
|
184 /* Do not change the identifier if a verbatim asmspec
|
|
|
185 or if stdcall suffix already added. */
|
|
|
186 && *IDENTIFIER_POINTER (DECL_ASSEMBLER_NAME (decl)) != '*'
|
|
|
187 && !strchr (IDENTIFIER_POINTER (DECL_ASSEMBLER_NAME (decl)), '@'))
|
|
|
188 {
|
|
|
189 /* FIXME: In Ada, and perhaps other language frontends,
|
|
|
190 imported stdcall names may not yet have been modified.
|
|
|
191 Check and do it know. */
|
|
|
192 rtx symbol = XEXP (rtl, 0);
|
|
|
193 tree new_id;
|
|
|
194 tree old_id = DECL_ASSEMBLER_NAME (decl);
|
|
|
195
|
|
|
196 gcc_assert (GET_CODE (symbol) == SYMBOL_REF);
|
|
|
197
|
|
|
198 if ((new_id = i386_nlm_maybe_mangle_decl_assembler_name (decl, old_id)))
|
|
|
199 {
|
|
|
200 /* These attributes must be present on first declaration,
|
|
|
201 change_decl_assembler_name will warn if they are added
|
|
|
202 later and the decl has been referenced, but duplicate_decls
|
|
|
203 should catch the mismatch first. */
|
|
|
204 change_decl_assembler_name (decl, new_id);
|
|
|
205 XSTR (symbol, 0) = IDENTIFIER_POINTER (DECL_ASSEMBLER_NAME (decl));
|
|
|
206 }
|
|
|
207 }
|
|
|
208 }
|
|
|
209
|
|
|
210 /* Strip the stdcall/fastcall/regparm pre-/suffix. */
|
|
|
211
|
|
|
212 const char *
|
|
|
213 i386_nlm_strip_name_encoding (const char *str)
|
|
|
214 {
|
|
|
215 const char *name = default_strip_name_encoding (str);
|
|
|
216
|
|
|
217 if (*str != '*' && (*name == '_' || *name == '@'))
|
|
|
218 {
|
|
|
219 const char *p = strchr (name + 1, '@');
|
|
|
220
|
|
|
221 if (p)
|
|
|
222 {
|
|
|
223 ++name;
|
|
|
224 if (ISDIGIT (p[1]))
|
|
|
225 name = ggc_alloc_string (name, p - name);
|
|
|
226 else
|
|
|
227 {
|
|
|
228 gcc_assert (ISDIGIT (*name));
|
|
|
229 name++;
|
|
|
230 gcc_assert (name == p);
|
|
|
231 }
|
|
|
232 }
|
|
|
233 }
|
|
|
234 return name;
|
|
|
235 }
|
|
|
236
|
|
|
237 /* Sometimes certain combinations of command options do not make
|
|
|
238 sense on a particular target machine. You can define a macro
|
|
|
239 `OVERRIDE_OPTIONS' to take account of this. This macro, if
|
|
|
240 defined, is executed once just after all the command options have
|
|
|
241 been parsed.
|
|
|
242
|
|
|
243 Don't use this macro to turn on various extra optimizations for
|
|
|
244 `-O'. That is what `OPTIMIZATION_OPTIONS' is for. */
|
|
|
245
|
|
|
246 void
|
|
|
247 netware_override_options (void)
|
|
|
248 {
|
|
|
249 override_options ();
|
|
|
250
|
|
|
251 if (flag_pic)
|
|
|
252 {
|
|
|
253 error ("-fPIC and -fpic are not supported for this target");
|
|
|
254 flag_pic = 0;
|
|
|
255 }
|
|
|
256 }
|
