1/* Target definitions for GNU compiler for VAX using ELF
2 Copyright (C) 2002-2020 Free Software Foundation, Inc.
3 Contributed by Matt Thomas <matt@3am-software.com>
4
5This file is part of GCC.
6
7GCC is free software; you can redistribute it and/or modify
8it under the terms of the GNU General Public License as published by
9the Free Software Foundation; either version 3, or (at your option)
10any later version.
11
12GCC is distributed in the hope that it will be useful,
13but WITHOUT ANY WARRANTY; without even the implied warranty of
14MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15GNU General Public License for more details.
16
17You should have received a copy of the GNU General Public License
18along with GCC; see the file COPYING3. If not see
19<http://www.gnu.org/licenses/>. */
20
21#undef TARGET_ELF
22#define TARGET_ELF 1
23
24#undef REGISTER_PREFIX
25#undef REGISTER_NAMES
26#define REGISTER_PREFIX "%"
27#define REGISTER_NAMES \
28 { "%r0", "%r1", "%r2", "%r3", "%r4", "%r5", "%r6", "%r7", \
29 "%r8", "%r9", "%r10", "%r11", "%ap", "%fp", "%sp", "%pc", }
30
31#undef SIZE_TYPE
32#define SIZE_TYPE "long unsigned int"
33
34#undef PTRDIFF_TYPE
35#define PTRDIFF_TYPE "long int"
36
37/* Profiling routine. */
38#undef VAX_FUNCTION_PROFILER_NAME
39#define VAX_FUNCTION_PROFILER_NAME "__mcount"
40
41/* Let's be re-entrant. */
42#undef PCC_STATIC_STRUCT_RETURN
43
44/* Before the prologue, the top of the frame is below the argument
45 count pushed by the CALLS and before the start of the saved registers. */
46#define INCOMING_FRAME_SP_OFFSET 0
47
48/* Offset from the frame pointer register value to the DWARF Canonical Frame
49 Address. */
50#undef FRAME_POINTER_CFA_OFFSET
51#define FRAME_POINTER_CFA_OFFSET(FNDECL) 0
52
53/* We use R2-R5 (call-clobbered) registers for exceptions. */
54#define EH_RETURN_DATA_REGNO(N) ((N) < 4 ? (N) + 2 : INVALID_REGNUM)
55
56/* Place the top of the stack for the DWARF2 EH stackadj value. */
57#define EH_RETURN_STACKADJ_RTX \
58 gen_rtx_MEM (SImode, \
59 plus_constant (Pmode, \
60 gen_rtx_REG (Pmode, FRAME_POINTER_REGNUM),\
61 -1 * UNITS_PER_WORD))
62
63/* Simple store the return handler into the call frame. */
64#define EH_RETURN_HANDLER_RTX \
65 gen_rtx_MEM (Pmode, \
66 plus_constant (Pmode, \
67 gen_rtx_REG (Pmode, FRAME_POINTER_REGNUM),\
68 RETURN_ADDRESS_OFFSET))
69
70
71/* The VAX wants no space between the case instruction and the jump table. */
72#undef ASM_OUTPUT_BEFORE_CASE_LABEL
73#define ASM_OUTPUT_BEFORE_CASE_LABEL(FILE, PREFIX, NUM, TABLE)
74
75#undef SUBTARGET_OVERRIDE_OPTIONS
76#define SUBTARGET_OVERRIDE_OPTIONS \
77 do \
78 { \
79 /* Turn off function CSE if we're doing PIC. */ \
80 if (flag_pic) \
81 flag_no_function_cse = 1; \
82 } \
83 while (0)
84
85/* Don't allow *foo which foo is non-local */
86#define NO_EXTERNAL_INDIRECT_ADDRESS
87
88#undef VAX_CC1_AND_CC1PLUS_SPEC
89#define VAX_CC1_AND_CC1PLUS_SPEC \
90 "%{!fno-pic: \
91 %{!fpic: \
92 %{!fPIC:-fPIC}}}"
93
94/* VAX ELF is always gas; override the generic VAX ASM_SPEC. */
95
96#undef ASM_SPEC
97#define ASM_SPEC "%{!fno-pic: %{!mno-asm-pic:-k}}"
98
99/* We want PCREL dwarf output. */
100#define ASM_PREFERRED_EH_DATA_FORMAT(CODE,GLOBAL) \
101 ((GLOBAL ? DW_EH_PE_indirect : 0) | DW_EH_PE_pcrel | DW_EH_PE_sdata4)
102
103/* Emit a PC-relative relocation. */
104#define ASM_OUTPUT_DWARF_PCREL(FILE, SIZE, LABEL) \
105 do { \
106 fputs (integer_asm_op (SIZE, FALSE), FILE); \
107 fprintf (FILE, "%%pcrel%d(", SIZE * 8); \
108 assemble_name (FILE, LABEL); \
| 1/* Target definitions for GNU compiler for VAX using ELF
2 Copyright (C) 2002-2020 Free Software Foundation, Inc.
3 Contributed by Matt Thomas <matt@3am-software.com>
4
5This file is part of GCC.
6
7GCC is free software; you can redistribute it and/or modify
8it under the terms of the GNU General Public License as published by
9the Free Software Foundation; either version 3, or (at your option)
10any later version.
11
12GCC is distributed in the hope that it will be useful,
13but WITHOUT ANY WARRANTY; without even the implied warranty of
14MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15GNU General Public License for more details.
16
17You should have received a copy of the GNU General Public License
18along with GCC; see the file COPYING3. If not see
19<http://www.gnu.org/licenses/>. */
20
21#undef TARGET_ELF
22#define TARGET_ELF 1
23
24#undef REGISTER_PREFIX
25#undef REGISTER_NAMES
26#define REGISTER_PREFIX "%"
27#define REGISTER_NAMES \
28 { "%r0", "%r1", "%r2", "%r3", "%r4", "%r5", "%r6", "%r7", \
29 "%r8", "%r9", "%r10", "%r11", "%ap", "%fp", "%sp", "%pc", }
30
31#undef SIZE_TYPE
32#define SIZE_TYPE "long unsigned int"
33
34#undef PTRDIFF_TYPE
35#define PTRDIFF_TYPE "long int"
36
37/* Profiling routine. */
38#undef VAX_FUNCTION_PROFILER_NAME
39#define VAX_FUNCTION_PROFILER_NAME "__mcount"
40
41/* Let's be re-entrant. */
42#undef PCC_STATIC_STRUCT_RETURN
43
44/* Before the prologue, the top of the frame is below the argument
45 count pushed by the CALLS and before the start of the saved registers. */
46#define INCOMING_FRAME_SP_OFFSET 0
47
48/* Offset from the frame pointer register value to the DWARF Canonical Frame
49 Address. */
50#undef FRAME_POINTER_CFA_OFFSET
51#define FRAME_POINTER_CFA_OFFSET(FNDECL) 0
52
53/* We use R2-R5 (call-clobbered) registers for exceptions. */
54#define EH_RETURN_DATA_REGNO(N) ((N) < 4 ? (N) + 2 : INVALID_REGNUM)
55
56/* Place the top of the stack for the DWARF2 EH stackadj value. */
57#define EH_RETURN_STACKADJ_RTX \
58 gen_rtx_MEM (SImode, \
59 plus_constant (Pmode, \
60 gen_rtx_REG (Pmode, FRAME_POINTER_REGNUM),\
61 -1 * UNITS_PER_WORD))
62
63/* Simple store the return handler into the call frame. */
64#define EH_RETURN_HANDLER_RTX \
65 gen_rtx_MEM (Pmode, \
66 plus_constant (Pmode, \
67 gen_rtx_REG (Pmode, FRAME_POINTER_REGNUM),\
68 RETURN_ADDRESS_OFFSET))
69
70
71/* The VAX wants no space between the case instruction and the jump table. */
72#undef ASM_OUTPUT_BEFORE_CASE_LABEL
73#define ASM_OUTPUT_BEFORE_CASE_LABEL(FILE, PREFIX, NUM, TABLE)
74
75#undef SUBTARGET_OVERRIDE_OPTIONS
76#define SUBTARGET_OVERRIDE_OPTIONS \
77 do \
78 { \
79 /* Turn off function CSE if we're doing PIC. */ \
80 if (flag_pic) \
81 flag_no_function_cse = 1; \
82 } \
83 while (0)
84
85/* Don't allow *foo which foo is non-local */
86#define NO_EXTERNAL_INDIRECT_ADDRESS
87
88#undef VAX_CC1_AND_CC1PLUS_SPEC
89#define VAX_CC1_AND_CC1PLUS_SPEC \
90 "%{!fno-pic: \
91 %{!fpic: \
92 %{!fPIC:-fPIC}}}"
93
94/* VAX ELF is always gas; override the generic VAX ASM_SPEC. */
95
96#undef ASM_SPEC
97#define ASM_SPEC "%{!fno-pic: %{!mno-asm-pic:-k}}"
98
99/* We want PCREL dwarf output. */
100#define ASM_PREFERRED_EH_DATA_FORMAT(CODE,GLOBAL) \
101 ((GLOBAL ? DW_EH_PE_indirect : 0) | DW_EH_PE_pcrel | DW_EH_PE_sdata4)
102
103/* Emit a PC-relative relocation. */
104#define ASM_OUTPUT_DWARF_PCREL(FILE, SIZE, LABEL) \
105 do { \
106 fputs (integer_asm_op (SIZE, FALSE), FILE); \
107 fprintf (FILE, "%%pcrel%d(", SIZE * 8); \
108 assemble_name (FILE, LABEL); \
|