1 /* Target definitions for GNU compiler for VAX using ELF
2    Copyright (C) 2002-2014 Free Software Foundation, Inc.
3    Contributed by Matt Thomas <matt@3am-software.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 #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 top of the stack.  */
49 #define FRAME_POINTER_CFA_OFFSET(FNDECL) 0
50 
51 /* We use R2-R5 (call-clobbered) registers for exceptions.  */
52 #define EH_RETURN_DATA_REGNO(N) ((N) < 4 ? (N) + 2 : INVALID_REGNUM)
53 
54 /* Place the top of the stack for the DWARF2 EH stackadj value.  */
55 #define EH_RETURN_STACKADJ_RTX						\
56   gen_rtx_MEM (SImode,							\
57 	       plus_constant (Pmode,					\
58 			      gen_rtx_REG (Pmode, FRAME_POINTER_REGNUM),\
59 			      -4))
60 
61 /* Simple store the return handler into the call frame.  */
62 #define EH_RETURN_HANDLER_RTX						\
63   gen_rtx_MEM (Pmode,							\
64 	       plus_constant (Pmode,					\
65 			      gen_rtx_REG (Pmode, FRAME_POINTER_REGNUM),\
66 			      16))
67 
68 
69 /* Reserve the top of the stack for exception handler stackadj value.  */
70 #undef STARTING_FRAME_OFFSET
71 #define STARTING_FRAME_OFFSET -4
72 
73 /* The VAX wants no space between the case instruction and the jump table.  */
74 #undef  ASM_OUTPUT_BEFORE_CASE_LABEL
75 #define ASM_OUTPUT_BEFORE_CASE_LABEL(FILE, PREFIX, NUM, TABLE)
76 
77 #undef SUBTARGET_OVERRIDE_OPTIONS
78 #define SUBTARGET_OVERRIDE_OPTIONS			\
79   do							\
80     {							\
81       /* Turn off function CSE if we're doing PIC.  */	\
82       if (flag_pic)					\
83 	flag_no_function_cse = 1;			\
84     }							\
85   while (0)
86 
87 /* Don't allow *foo which foo is non-local */
88 #define NO_EXTERNAL_INDIRECT_ADDRESS
89 
90 #undef VAX_CC1_AND_CC1PLUS_SPEC
91 #define VAX_CC1_AND_CC1PLUS_SPEC \
92   "%{!fno-pic: \
93      %{!fpic: \
94        %{!fPIC:-fPIC}}}"
95 
96 /* VAX ELF is always gas; override the generic VAX ASM_SPEC.  */
97 
98 #undef ASM_SPEC
99 #define ASM_SPEC "%{!fno-pic: %{!mno-asm-pic:-k}}"
100 
101 /*  We want PCREL dwarf output.  */
102 #define ASM_PREFERRED_EH_DATA_FORMAT(CODE,GLOBAL)	\
103   ((GLOBAL ? DW_EH_PE_indirect : 0) | DW_EH_PE_pcrel | DW_EH_PE_sdata4)
104 
105 /* Emit a PC-relative relocation.  */
106 #define ASM_OUTPUT_DWARF_PCREL(FILE, SIZE, LABEL)	\
107   do {							\
108     fputs (integer_asm_op (SIZE, FALSE), FILE);		\
109     fprintf (FILE, "%%pcrel%d(", SIZE * 8);		\
110     assemble_name (FILE, LABEL);			\
111     fputc (')', FILE);					\
112   } while (0)
113