Mercurial > hg > CbC > CbC_gcc
annotate gcc/config/alpha/vms.h @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +0900 |
parents | 1830386684a0 |
children |
rev | line source |
---|---|
0 | 1 /* Output variables, constants and external declarations, for GNU compiler. |
145 | 2 Copyright (C) 1996-2020 Free Software Foundation, Inc. |
0 | 3 |
4 This file is part of GCC. | |
5 | |
6 GCC is free software; you can redistribute it and/or modify | |
7 it under the terms of the GNU General Public License as published by | |
8 the Free Software Foundation; either version 3, or (at your option) | |
9 any later version. | |
10 | |
11 GCC is distributed in the hope that it will be useful, | |
12 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
14 GNU General Public License for more details. | |
15 | |
16 You should have received a copy of the GNU General Public License | |
17 along with GCC; see the file COPYING3. If not see | |
18 <http://www.gnu.org/licenses/>. */ | |
19 | |
55
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
20 /* Alpha/VMS object format is not really Elf, but this makes compiling |
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
21 crtstuff.c and dealing with shared library initialization much easier. */ |
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
22 #define OBJECT_FORMAT_ELF |
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
23 |
111 | 24 /* Do not use TM clone registry as it currently doesn't work. Alpha/VMS |
25 object is too far from ELF for supporting TM out of the box. */ | |
26 #define USE_TM_CLONE_REGISTRY 0 | |
27 | |
0 | 28 /* This enables certain macros in alpha.h, which will make an indirect |
29 reference to an external symbol an invalid address. This needs to be | |
30 defined before we include alpha.h, since it determines which macros | |
31 are used for GO_IF_*. */ | |
32 | |
33 #define NO_EXTERNAL_INDIRECT_ADDRESS | |
34 | |
111 | 35 #define SUBTARGET_OS_CPP_BUILTINS() \ |
0 | 36 do { \ |
111 | 37 builtin_define ("__ALPHA"); \ |
38 if (TARGET_FLOAT_VAX) \ | |
39 builtin_define ("__G_FLOAT"); \ | |
40 else \ | |
41 builtin_define ("__IEEE_FLOAT"); \ | |
0 | 42 } while (0) |
43 | |
44 #undef PCC_STATIC_STRUCT_RETURN | |
45 | |
46 #define MAX_OFILE_ALIGNMENT 524288 /* 8 x 2^16 by DEC Ada Test CD40VRA */ | |
47 | |
55
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
48 /* The maximum alignment 'malloc' honors. */ |
67
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
55
diff
changeset
|
49 #undef MALLOC_ABI_ALIGNMENT |
111 | 50 #define MALLOC_ABI_ALIGNMENT \ |
51 ((flag_vms_malloc64 && flag_vms_pointer_size != VMS_POINTER_SIZE_NONE \ | |
52 ? 16 : 8) * BITS_PER_UNIT) | |
55
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
53 |
0 | 54 #undef FIXED_REGISTERS |
55 #define FIXED_REGISTERS \ | |
56 {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, \ | |
57 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, \ | |
58 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, \ | |
59 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1 } | |
60 | |
61 #undef CALL_USED_REGISTERS | |
62 #define CALL_USED_REGISTERS \ | |
63 {1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, \ | |
64 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, \ | |
65 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, \ | |
66 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 } | |
67 | |
68 /* List the order in which to allocate registers. Each register must be | |
69 listed once, even those in FIXED_REGISTERS. | |
70 | |
71 We allocate in the following order: | |
72 $f1 (nonsaved floating-point register) | |
73 $f10-$f15 (likewise) | |
74 $f22-$f30 (likewise) | |
75 $f21-$f16 (likewise, but input args) | |
76 $f0 (nonsaved, but return value) | |
77 $f2-$f9 (saved floating-point registers) | |
78 $1 (nonsaved integer registers) | |
79 $22-$25 (likewise) | |
80 $28 (likewise) | |
81 $0 (likewise, but return value) | |
82 $21-$16 (likewise, but input args) | |
83 $27 (procedure value in OSF, nonsaved in NT) | |
84 $2-$8 (saved integer registers) | |
85 $9-$14 (saved integer registers) | |
86 $26 (return PC) | |
87 $15 (frame pointer) | |
88 $29 (global pointer) | |
89 $30, $31, $f31 (stack pointer and always zero/ap & fp) */ | |
90 | |
91 #undef REG_ALLOC_ORDER | |
92 #define REG_ALLOC_ORDER \ | |
93 {33, \ | |
94 42, 43, 44, 45, 46, 47, \ | |
95 54, 55, 56, 57, 58, 59, 60, 61, 62, \ | |
96 53, 52, 51, 50, 49, 48, \ | |
97 32, \ | |
98 34, 35, 36, 37, 38, 39, 40, 41, \ | |
99 1, \ | |
100 22, 23, 24, 25, \ | |
101 28, \ | |
102 0, \ | |
103 21, 20, 19, 18, 17, 16, \ | |
104 27, \ | |
105 2, 3, 4, 5, 6, 7, 8, \ | |
106 9, 10, 11, 12, 13, 14, \ | |
107 26, \ | |
108 15, \ | |
109 29, \ | |
110 30, 31, 63 } | |
111 | |
112 #undef HARD_FRAME_POINTER_REGNUM | |
113 #define HARD_FRAME_POINTER_REGNUM 29 | |
114 | |
115 /* Define registers used by the epilogue and return instruction. */ | |
116 #undef EPILOGUE_USES | |
117 #define EPILOGUE_USES(REGNO) ((REGNO) == 26 || (REGNO) == 29) | |
118 | |
119 #undef INITIAL_ELIMINATION_OFFSET | |
120 #define INITIAL_ELIMINATION_OFFSET(FROM, TO, OFFSET) \ | |
55
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
121 ((OFFSET) = alpha_vms_initial_elimination_offset(FROM, TO)) |
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
122 |
0 | 123 |
124 /* Define a data type for recording info about an argument list | |
125 during the scan of that argument list. This data type should | |
126 hold all necessary information about the function itself | |
127 and about the args processed so far, enough to enable macros | |
128 such as FUNCTION_ARG to determine where the next arg should go. | |
129 | |
130 On Alpha/VMS, this is a structure that contains the number of | |
131 arguments and, for each argument, the datatype of that argument. | |
132 | |
133 The number of arguments is a number of words of arguments scanned so far. | |
134 Thus 6 or more means all following args should go on the stack. */ | |
135 | |
136 enum avms_arg_type {I64, FF, FD, FG, FS, FT}; | |
137 typedef struct {int num_args; enum avms_arg_type atypes[6];} avms_arg_info; | |
138 | |
139 #undef CUMULATIVE_ARGS | |
140 #define CUMULATIVE_ARGS avms_arg_info | |
141 | |
142 /* Initialize a variable CUM of type CUMULATIVE_ARGS | |
143 for a call to a function whose data type is FNTYPE. | |
144 For a library call, FNTYPE is 0. */ | |
145 | |
146 #undef INIT_CUMULATIVE_ARGS | |
147 #define INIT_CUMULATIVE_ARGS(CUM, FNTYPE, LIBNAME, INDIRECT, N_NAMED_ARGS) \ | |
148 (CUM).num_args = 0; \ | |
149 (CUM).atypes[0] = (CUM).atypes[1] = (CUM).atypes[2] = I64; \ | |
150 (CUM).atypes[3] = (CUM).atypes[4] = (CUM).atypes[5] = I64; | |
151 | |
55
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
152 #define DEFAULT_PCC_STRUCT_RETURN 0 |
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
153 |
111 | 154 /* Even though pointers are 64bits, only 32bit ever remain significant in code |
155 addresses. */ | |
156 #define MASK_RETURN_ADDR \ | |
157 (flag_vms_pointer_size == VMS_POINTER_SIZE_NONE \ | |
158 ? constm1_rtx \ | |
159 : GEN_INT (0xffffffff)) | |
160 | |
55
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
161 #undef ASM_WEAKEN_LABEL |
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
162 #define ASM_WEAKEN_LABEL(FILE, NAME) \ |
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
163 do { fputs ("\t.weak\t", FILE); assemble_name (FILE, NAME); \ |
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
164 fputc ('\n', FILE); } while (0) |
0 | 165 |
166 #define READONLY_DATA_SECTION_ASM_OP "\t.rdata" | |
167 #define CTORS_SECTION_ASM_OP "\t.ctors" | |
168 #define DTORS_SECTION_ASM_OP "\t.dtors" | |
55
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
169 #define SDATA_SECTION_ASM_OP "\t.sdata" |
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
170 #define CRT_CALL_STATIC_FUNCTION(SECTION_OP, FUNC) \ |
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
171 asm (SECTION_OP "\n\t.long " #FUNC"\n"); |
0 | 172 |
173 #undef ASM_OUTPUT_ADDR_DIFF_ELT | |
174 | |
175 #undef ASM_OUTPUT_ADDR_VEC_ELT | |
176 #define ASM_OUTPUT_ADDR_VEC_ELT(FILE, VALUE) \ | |
177 fprintf (FILE, "\t.quad $L%d\n", (VALUE)) | |
178 | |
179 #undef CASE_VECTOR_MODE | |
180 #define CASE_VECTOR_MODE DImode | |
181 #undef CASE_VECTOR_PC_RELATIVE | |
182 | |
183 #undef ASM_OUTPUT_CASE_LABEL | |
184 #define ASM_OUTPUT_CASE_LABEL(FILE,PREFIX,NUM,TABLEINSN) \ | |
185 { ASM_OUTPUT_ALIGN (FILE, 3); (*targetm.asm_out.internal_label) (FILE, PREFIX, NUM); } | |
186 | |
187 /* This says how to output assembler code to declare an | |
188 uninitialized external linkage data object. */ | |
189 | |
190 #define COMMON_ASM_OP "\t.comm\t" | |
191 | |
55
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
192 #undef ASM_OUTPUT_ALIGNED_DECL_COMMON |
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
193 #define ASM_OUTPUT_ALIGNED_DECL_COMMON(FILE, DECL, NAME, SIZE, ALIGN) \ |
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
194 vms_output_aligned_decl_common (FILE, DECL, NAME, SIZE, ALIGN) |
0 | 195 |
196 /* Control how constructors and destructors are emitted. */ | |
197 #define TARGET_ASM_CONSTRUCTOR vms_asm_out_constructor | |
198 #define TARGET_ASM_DESTRUCTOR vms_asm_out_destructor | |
199 | |
200 #define DWARF2_DEBUGGING_INFO 1 | |
201 #define VMS_DEBUGGING_INFO 1 | |
202 | |
203 #define DWARF2_UNWIND_INFO 1 | |
204 | |
205 #undef EH_RETURN_HANDLER_RTX | |
206 #define EH_RETURN_HANDLER_RTX \ | |
111 | 207 gen_rtx_MEM (Pmode, plus_constant (Pmode, stack_pointer_rtx, 8)) |
0 | 208 |
209 #define LINK_EH_SPEC "vms-dwarf2eh.o%s " | |
55
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
210 #define LINK_GCC_C_SEQUENCE_SPEC "%G" |
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
211 |
0 | 212 /* This is how to output an assembler line |
213 that says to advance the location counter | |
214 to a multiple of 2**LOG bytes. */ | |
215 | |
216 #define ASM_OUTPUT_ALIGN(FILE,LOG) \ | |
217 fprintf (FILE, "\t.align %d\n", LOG); | |
218 | |
111 | 219 /* This is how to advance the location counter by SIZE bytes. */ |
220 | |
221 #define ASM_OUTPUT_SKIP(FILE,SIZE) \ | |
222 fprintf (FILE, "\t.space " HOST_WIDE_INT_PRINT_UNSIGNED"\n", (SIZE)) | |
223 | |
224 /* This says how to output an assembler line | |
225 to define a global common symbol. */ | |
226 | |
227 #define ASM_OUTPUT_LOCAL(FILE, NAME, SIZE,ROUNDED) \ | |
228 ( fputs ("\t.lcomm ", (FILE)), \ | |
229 assemble_name ((FILE), (NAME)), \ | |
230 fprintf ((FILE), "," HOST_WIDE_INT_PRINT_UNSIGNED"\n", (SIZE))) | |
231 | |
0 | 232 /* Switch into a generic section. */ |
233 #define TARGET_ASM_NAMED_SECTION vms_asm_named_section | |
234 | |
111 | 235 #define ASM_OUTPUT_DEF(FILE,LABEL1,LABEL2) \ |
236 do \ | |
237 { \ | |
238 fprintf ((FILE), "\t"); \ | |
239 assemble_name (FILE, LABEL1); \ | |
240 fprintf (FILE, " = "); \ | |
241 assemble_name (FILE, LABEL2); \ | |
242 fprintf (FILE, "\n"); \ | |
243 } \ | |
244 while (0) | |
0 | 245 |
246 #undef PREFERRED_DEBUGGING_TYPE | |
247 #define PREFERRED_DEBUGGING_TYPE VMS_AND_DWARF2_DEBUG | |
248 | |
249 #define ASM_PN_FORMAT "%s___%lu" | |
250 | |
251 /* ??? VMS uses different linkage. */ | |
252 #undef TARGET_ASM_OUTPUT_MI_THUNK | |
253 | |
254 #undef ASM_SPEC | |
255 #undef ASM_FINAL_SPEC | |
256 | |
257 /* The VMS convention is to always provide minimal debug info | |
111 | 258 for a traceback unless specifically overridden. |
259 | |
260 Because ASM_OUTPUT_ADDR_DIFF_ELT is not defined for alpha-vms, | |
261 jump tables cannot be output for PIC code, because you can't put | |
262 an absolute address in a readonly section. Putting the table in | |
263 a writable section is a security hole. Therefore, we unset the | |
264 flag_jump_tables flag, forcing switch statements to be expanded | |
265 using decision trees. There are probably other ways to address | |
266 this issue, but using a decision tree is clearly safe. */ | |
0 | 267 |
67
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
55
diff
changeset
|
268 #undef SUBTARGET_OVERRIDE_OPTIONS |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
55
diff
changeset
|
269 #define SUBTARGET_OVERRIDE_OPTIONS \ |
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
55
diff
changeset
|
270 do { \ |
55
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
271 if (write_symbols == NO_DEBUG \ |
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
272 && debug_info_level == DINFO_LEVEL_NONE) \ |
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
273 { \ |
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
274 write_symbols = VMS_DEBUG; \ |
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
275 debug_info_level = DINFO_LEVEL_TERSE; \ |
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
276 } \ |
111 | 277 if (flag_pic) \ |
278 flag_jump_tables = 0; \ | |
67
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
55
diff
changeset
|
279 } while (0) |
0 | 280 |
111 | 281 #undef LINK_SPEC |
282 #if HAVE_GNU_LD | |
283 /* GNU-ld built-in linker script already handles the dwarf2 debug sections. */ | |
284 #define LINK_SPEC "%{shared} %{v}" | |
285 #else | |
0 | 286 /* Link with vms-dwarf2.o if -g (except -g0). This causes the |
287 VMS link to pull all the dwarf2 debug sections together. */ | |
111 | 288 #define LINK_SPEC "%{g0} %{g*:-g vms-dwarf2.o%s} %{shared} %{v} %{map}" |
289 #endif | |
0 | 290 |
291 #undef STARTFILE_SPEC | |
111 | 292 #define STARTFILE_SPEC "%{!shared:crt0.o%s crtbegin.o%s} \ |
55
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
293 %{!static:%{shared:crtbeginS.o%s}}" |
0 | 294 |
111 | 295 #define ENDFILE_SPEC "%{!shared:crtend.o%s} %{!static:%{shared:crtendS.o%s}}" |
0 | 296 |
55
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
297 #define INIT_SECTION_ASM_OP "\t.section LIB$INITIALIZE,GBL,NOWRT" |
0 | 298 |
299 #define LONGLONG_STANDALONE 1 | |
55
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
300 |
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
301 #undef TARGET_VALID_POINTER_MODE |
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
302 #define TARGET_VALID_POINTER_MODE vms_valid_pointer_mode |
111 | 303 |
304 /* Default values for _CRTL_VER and _VMS_VER. */ | |
305 #define VMS_DEFAULT_CRTL_VER 70320000 | |
306 #define VMS_DEFAULT_VMS_VER 70320000 |