1 /* Definitions of target machine GNU compiler. 32bit VMS version.
2 Copyright (C) 2009-2013 Free Software Foundation, Inc.
3 Contributed by Douglas B Rupp (rupp@gnat.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 "tree.h"
25 #include "vms-protos.h"
26 #include "ggc.h"
27 #include "target.h"
28 #include "output.h"
29 #include "tm.h"
30 #include "dwarf2out.h"
31
32 /* Correlation of standard CRTL names with DECCRTL function names. */
33
34 /* Name is for a function that allocate memory. Use the 64bit version
35 if -mmalloc64. */
36 #define VMS_CRTL_MALLOC (1 << 0)
37
38 /* If long pointer are enabled, use _NAME64 instead. */
39 #define VMS_CRTL_64 (1 << 1)
40
41 /* Prepend s/f before the name. To be applied after the previous rule.
42 use 's' for S float, 'f' for IEEE 32. */
43 #define VMS_CRTL_FLOAT32 (1 << 2)
44
45 /* Prepend t/g/d before the name. To be applied after the previous rule.
46 use 'g' for VAX G float, 'd' for VAX D float, 't' for IEEE 64. */
47 #define VMS_CRTL_FLOAT64 (1 << 3)
48
49 /* Prepend d before the name, only if using VAX fp. */
50 #define VMS_CRTL_FLOAT64_VAXD (1 << 4)
51
52 /* Prepend x before the name for if 128 bit long doubles are enabled. This
53 concern mostly 'printf'-like functions. */
54 #define VMS_CRTL_FLOAT128 (1 << 5)
55
56 /* From xxx, create xxx, xxxf, xxxl using MATH$XXX_T, MATH$XXX_S
57 and MATH$XXX{_X} if DPML is used. */
58 #define VMS_CRTL_DPML (1 << 6)
59
60 /* Together with DPML, it means that all variant (ie xxx, xxxf and xxxl) are
61 overridden by decc. Without DPML, it means this is a variant (ie xxxf
62 or xxxl) of a function. */
63 #define VMS_CRTL_NODPML (1 << 7)
64
65 /* Prepend __bsd44_ before the name. To be applied after the P64
66 rule. */
67 #define VMS_CRTL_BSD44 (1 << 8)
68
69 /* Define only in 32 bits mode, as this has no 64 bit variants.
70 Concerns getopt/getarg. */
71 #define VMS_CRTL_32ONLY (1 << 9)
72
73 /* GLobal data prefix (ga_, gl_...) */
74 #define VMS_CRTL_G_MASK (7 << 10)
75 #define VMS_CRTL_G_NONE (0 << 10)
76 #define VMS_CRTL_GA (1 << 10)
77 #define VMS_CRTL_GL (2 << 10)
78
79 /* Append '_2'. Not compatible with 64. */
80 #define VMS_CRTL_FLOATV2 (1 << 13)
81
82 struct vms_crtl_name
83 {
84 /* The standard C name. */
85 const char *const name;
86
87 /* Flags to drive the translation. */
88 unsigned int flags;
89 };
90
91 /* Map for the translation. */
92
93 static const struct vms_crtl_name vms_crtl_names[] =
94 {
95 #include "vms-crtlmap.h"
96 };
97
98 /* Number of entires in the above array. */
99
100 #define NBR_CRTL_NAMES (sizeof (vms_crtl_names) / sizeof (*vms_crtl_names))
101
102 /* List of aliased identifiers. They must be persistent across gc. */
103
104 static GTY(()) vec<tree, va_gc> *aliases_id;
105
106 /* Add a CRTL translation. This simply use the transparent alias
107 mechanism, which is platform independent and works with the
108 #pragma extern_prefix (which set the assembler name). */
109
110 static void
vms_add_crtl_xlat(const char * name,size_t nlen,const char * id_str,size_t id_len)111 vms_add_crtl_xlat (const char *name, size_t nlen,
112 const char *id_str, size_t id_len)
113 {
114 tree targ;
115
116 /* printf ("vms crtl: %.*s -> %.*s\n", nlen, name, id_len, id_str); */
117
118 targ = get_identifier_with_length (name, nlen);
119 gcc_assert (!IDENTIFIER_TRANSPARENT_ALIAS (targ));
120 IDENTIFIER_TRANSPARENT_ALIAS (targ) = 1;
121 TREE_CHAIN (targ) = get_identifier_with_length (id_str, id_len);
122
123 vec_safe_push (aliases_id, targ);
124 }
125
126 /* Do VMS specific stuff on builtins: disable the ones that are not
127 standard, mangle names. */
128
129 void
vms_patch_builtins(void)130 vms_patch_builtins (void)
131 {
132 /* enum built_in_function bi; */
133 unsigned int i;
134
135 /* Fwrite on VMS is non-standard. */
136 if (builtin_decl_implicit_p (BUILT_IN_FWRITE))
137 set_builtin_decl_implicit_p (BUILT_IN_FWRITE, false);
138
139 if (builtin_decl_implicit_p (BUILT_IN_FWRITE_UNLOCKED))
140 set_builtin_decl_implicit_p (BUILT_IN_FWRITE_UNLOCKED, false);
141
142 /* Define aliases for names. */
143 for (i = 0; i < NBR_CRTL_NAMES; i++)
144 {
145 const struct vms_crtl_name *n = &vms_crtl_names[i];
146 char res[VMS_CRTL_MAXLEN + 3 + 9 + 1 + 1];
147 int rlen;
148 int nlen = strlen (n->name);
149
150 /* Discard 32ONLY if using 64 bit pointers. */
151 if ((n->flags & VMS_CRTL_32ONLY)
152 && flag_vms_pointer_size == VMS_POINTER_SIZE_64)
153 continue;
154
155 /* Handle DPML unless overridden by decc. */
156 if ((n->flags & VMS_CRTL_DPML)
157 && !(n->flags & VMS_CRTL_NODPML))
158 {
159 const char *p;
160 char alt[VMS_CRTL_MAXLEN + 3];
161
162 memcpy (res, "MATH$", 5);
163 rlen = 5;
164 for (p = n->name; *p; p++)
165 res[rlen++] = TOUPPER (*p);
166 res[rlen++] = '_';
167 res[rlen++] = 'T';
168
169 /* Double version. */
170 if (!(n->flags & VMS_CRTL_FLOAT64))
171 vms_add_crtl_xlat (n->name, nlen, res, rlen);
172
173 /* Float version. */
174 res[rlen - 1] = 'S';
175 memcpy (alt, n->name, nlen);
176 alt[nlen] = 'f';
177 vms_add_crtl_xlat (alt, nlen + 1, res, rlen);
178
179 /* Long double version. */
180 res[rlen - 1] = (LONG_DOUBLE_TYPE_SIZE == 128 ? 'X' : 'T');
181 alt[nlen] = 'l';
182 vms_add_crtl_xlat (alt, nlen + 1, res, rlen);
183
184 if (!(n->flags & (VMS_CRTL_FLOAT32 | VMS_CRTL_FLOAT64)))
185 continue;
186 }
187
188 if (n->flags & VMS_CRTL_FLOAT64_VAXD)
189 continue;
190
191 /* Add the dec-c prefix. */
192 memcpy (res, "decc$", 5);
193 rlen = 5;
194
195 if (n->flags & VMS_CRTL_BSD44)
196 {
197 memcpy (res + rlen, "__bsd44_", 8);
198 rlen += 8;
199 }
200
201 if ((n->flags & VMS_CRTL_G_MASK) != VMS_CRTL_G_NONE)
202 {
203 res[rlen++] = 'g';
204 switch (n->flags & VMS_CRTL_G_MASK)
205 {
206 case VMS_CRTL_GA:
207 res[rlen++] = 'a';
208 break;
209 case VMS_CRTL_GL:
210 res[rlen++] = 'l';
211 break;
212 default:
213 gcc_unreachable ();
214 }
215 res[rlen++] = '_';
216 }
217
218 if (n->flags & VMS_CRTL_FLOAT32)
219 res[rlen++] = 'f';
220
221 if (n->flags & VMS_CRTL_FLOAT64)
222 res[rlen++] = 't';
223
224 if ((n->flags & VMS_CRTL_FLOAT128) && LONG_DOUBLE_TYPE_SIZE == 128)
225 res[rlen++] = 'x';
226
227 memcpy (res + rlen, n->name, nlen);
228
229 if ((n->flags & VMS_CRTL_64) == 0)
230 {
231 rlen += nlen;
232
233 if (n->flags & VMS_CRTL_FLOATV2)
234 {
235 res[rlen++] = '_';
236 res[rlen++] = '2';
237 }
238 vms_add_crtl_xlat (n->name, nlen, res, rlen);
239 }
240 else
241 {
242 char alt[VMS_CRTL_MAXLEN + 3];
243 bool use_64;
244
245 /* Add three translations:
246 _X32 -> X
247 _X64 -> _X64
248 X -> X if short, _X64 if long. */
249 alt[0] = '_';
250 memcpy (alt + 1, n->name, nlen);
251 alt[1 + nlen + 0] = '3';
252 alt[1 + nlen + 1] = '2';
253 alt[1 + nlen + 2] = 0;
254 vms_add_crtl_xlat (alt, nlen + 3, res, rlen + nlen);
255
256 use_64 = (((n->flags & VMS_CRTL_64)
257 && flag_vms_pointer_size == VMS_POINTER_SIZE_64)
258 || ((n->flags & VMS_CRTL_MALLOC)
259 && flag_vms_malloc64
260 && flag_vms_pointer_size != VMS_POINTER_SIZE_NONE));
261 if (!use_64)
262 vms_add_crtl_xlat (n->name, nlen, res, rlen + nlen);
263
264 res[rlen++] = '_';
265 memcpy (res + rlen, n->name, nlen);
266 res[rlen + nlen + 0] = '6';
267 res[rlen + nlen + 1] = '4';
268
269 if (use_64)
270 vms_add_crtl_xlat (n->name, nlen, res, rlen + nlen + 2);
271
272 alt[1 + nlen + 0] = '6';
273 alt[1 + nlen + 1] = '4';
274 vms_add_crtl_xlat (alt, nlen + 3, res, rlen + nlen + 2);
275 }
276 }
277 }
278
279 /* Always default to .text section. */
280
281 section *
vms_function_section(tree decl ATTRIBUTE_UNUSED,enum node_frequency freq ATTRIBUTE_UNUSED,bool startup ATTRIBUTE_UNUSED,bool exit ATTRIBUTE_UNUSED)282 vms_function_section (tree decl ATTRIBUTE_UNUSED,
283 enum node_frequency freq ATTRIBUTE_UNUSED,
284 bool startup ATTRIBUTE_UNUSED,
285 bool exit ATTRIBUTE_UNUSED)
286 {
287 return NULL;
288 }
289
290 /* Additionnal VMS specific code for start_function. */
291
292 /* Must be kept in sync with libgcc/config/vms/vms-ucrt0.c */
293 #define VMS_MAIN_FLAGS_SYMBOL "__gcc_main_flags"
294 #define MAIN_FLAG_64BIT (1 << 0)
295 #define MAIN_FLAG_POSIX (1 << 1)
296
297 void
vms_start_function(const char * fnname)298 vms_start_function (const char *fnname)
299 {
300 #if VMS_DEBUGGING_INFO
301 if (vms_debug_main
302 && debug_info_level > DINFO_LEVEL_NONE
303 && strncmp (vms_debug_main, fnname, strlen (vms_debug_main)) == 0)
304 {
305 targetm.asm_out.globalize_label (asm_out_file, VMS_DEBUG_MAIN_POINTER);
306 ASM_OUTPUT_DEF (asm_out_file, VMS_DEBUG_MAIN_POINTER, fnname);
307 dwarf2out_vms_debug_main_pointer ();
308 vms_debug_main = 0;
309 }
310 #endif
311
312 /* Registers flags used for function main. This is necessary for
313 crt0 code. */
314 if (strcmp (fnname, "main") == 0)
315 {
316 unsigned int flags = 0;
317
318 if (flag_vms_pointer_size == VMS_POINTER_SIZE_64)
319 flags |= MAIN_FLAG_64BIT;
320 if (!flag_vms_return_codes)
321 flags |= MAIN_FLAG_POSIX;
322
323 targetm.asm_out.globalize_label (asm_out_file, VMS_MAIN_FLAGS_SYMBOL);
324 assemble_name (asm_out_file, VMS_MAIN_FLAGS_SYMBOL);
325 fprintf (asm_out_file, " = %u\n", flags);
326 }
327 }
328
329 #include "gt-vms.h"
330