[thirdparty/gcc.git] / gcc / config / vax / elf.h

/* Target definitions for GNU compiler for VAX using ELF
   Copyright (C) 2002-2019 Free Software Foundation, Inc.
   Contributed by Matt Thomas <matt@3am-software.com>

This file is part of GCC.

GCC is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 3, or (at your option)
any later version.

GCC is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with GCC; see the file COPYING3.  If not see
<http://www.gnu.org/licenses/>.  */

#undef TARGET_ELF
#define TARGET_ELF 1

#undef REGISTER_PREFIX
#undef REGISTER_NAMES
#define REGISTER_PREFIX "%"
#define REGISTER_NAMES \
  { "%r0", "%r1",  "%r2",  "%r3", "%r4", "%r5", "%r6", "%r7", \
    "%r8", "%r9", "%r10", "%r11", "%ap", "%fp", "%sp", "%pc", }

#undef SIZE_TYPE
#define SIZE_TYPE "long unsigned int"

#undef PTRDIFF_TYPE
#define PTRDIFF_TYPE "long int"

/* Profiling routine.  */
#undef VAX_FUNCTION_PROFILER_NAME
#define VAX_FUNCTION_PROFILER_NAME "__mcount"

/*  Let's be re-entrant.  */
#undef PCC_STATIC_STRUCT_RETURN

/* Before the prologue, the top of the frame is below the argument
   count pushed by the CALLS and before the start of the saved registers.  */
#define INCOMING_FRAME_SP_OFFSET 0

/* Offset from the frame pointer register value to the top of the stack.  */
#define FRAME_POINTER_CFA_OFFSET(FNDECL) 0

/* We use R2-R5 (call-clobbered) registers for exceptions.  */
#define EH_RETURN_DATA_REGNO(N) ((N) < 4 ? (N) + 2 : INVALID_REGNUM)

/* Place the top of the stack for the DWARF2 EH stackadj value.  */
#define EH_RETURN_STACKADJ_RTX						\
  gen_rtx_MEM (SImode,							\
	       plus_constant (Pmode,					\
			      gen_rtx_REG (Pmode, FRAME_POINTER_REGNUM),\
			      -4))

/* Simple store the return handler into the call frame.  */
#define EH_RETURN_HANDLER_RTX						\
  gen_rtx_MEM (Pmode,							\
	       plus_constant (Pmode,					\
			      gen_rtx_REG (Pmode, FRAME_POINTER_REGNUM),\
			      16))


/* The VAX wants no space between the case instruction and the jump table.  */
#undef  ASM_OUTPUT_BEFORE_CASE_LABEL
#define ASM_OUTPUT_BEFORE_CASE_LABEL(FILE, PREFIX, NUM, TABLE)

#undef SUBTARGET_OVERRIDE_OPTIONS
#define SUBTARGET_OVERRIDE_OPTIONS			\
  do							\
    {							\
      /* Turn off function CSE if we're doing PIC.  */	\
      if (flag_pic)					\
	flag_no_function_cse = 1;			\
    }							\
  while (0)

/* Don't allow *foo which foo is non-local */
#define NO_EXTERNAL_INDIRECT_ADDRESS

#undef VAX_CC1_AND_CC1PLUS_SPEC
#define VAX_CC1_AND_CC1PLUS_SPEC \
  "%{!fno-pic: \
     %{!fpic: \
       %{!fPIC:-fPIC}}}"

/* VAX ELF is always gas; override the generic VAX ASM_SPEC.  */

#undef ASM_SPEC
#define ASM_SPEC "%{!fno-pic: %{!mno-asm-pic:-k}}"

/*  We want PCREL dwarf output.  */
#define ASM_PREFERRED_EH_DATA_FORMAT(CODE,GLOBAL)	\
  ((GLOBAL ? DW_EH_PE_indirect : 0) | DW_EH_PE_pcrel | DW_EH_PE_sdata4)

/* Emit a PC-relative relocation.  */
#define ASM_OUTPUT_DWARF_PCREL(FILE, SIZE, LABEL)	\
  do {							\
    fputs (integer_asm_op (SIZE, FALSE), FILE);		\
    fprintf (FILE, "%%pcrel%d(", SIZE * 8);		\
    assemble_name (FILE, LABEL);			\
    fputc (')', FILE);					\
  } while (0)
Commit	Line	Data
83accbc0	1	/* Target definitions for GNU compiler for VAX using ELF
fbd26352	2	Copyright (C) 2002-2019 Free Software Foundation, Inc.
27aa29d7	3	Contributed by Matt Thomas <matt@3am-software.com>
83accbc0	4
67234554	5	This file is part of GCC.
83accbc0	6
67234554	7	GCC is free software; you can redistribute it and/or modify
83accbc0	8	it under the terms of the GNU General Public License as published by
038d1e19	9	the Free Software Foundation; either version 3, or (at your option)
83accbc0	10	any later version.
83accbc0	11
67234554	12	GCC is distributed in the hope that it will be useful,
83accbc0	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
038d1e19	18	along with GCC; see the file COPYING3. If not see
038d1e19	19	<http://www.gnu.org/licenses/>. */
83accbc0	20
f2f543a3	21	#undef TARGET_ELF
	22	#define TARGET_ELF 1
	23
83accbc0	24	#undef REGISTER_PREFIX
	25	#undef REGISTER_NAMES
	26	#define REGISTER_PREFIX "%"
	27	#define REGISTER_NAMES \
27aa29d7	28	{ "%r0", "%r1", "%r2", "%r3", "%r4", "%r5", "%r6", "%r7", \
	29	"%r8", "%r9", "%r10", "%r11", "%ap", "%fp", "%sp", "%pc", }
	30
83accbc0	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. */
649ecb2c	38	#undef VAX_FUNCTION_PROFILER_NAME
	39	#define VAX_FUNCTION_PROFILER_NAME "__mcount"
	40
83accbc0	41	/* Let's be re-entrant. */
	42	#undef PCC_STATIC_STRUCT_RETURN
	43
83accbc0	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
6090393c	48	/* Offset from the frame pointer register value to the top of the stack. */
	49	#define FRAME_POINTER_CFA_OFFSET(FNDECL) 0
	50
83accbc0	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, \
29c05e22	57	plus_constant (Pmode, \
29c05e22	58	gen_rtx_REG (Pmode, FRAME_POINTER_REGNUM),\
83accbc0	59	-4))
	60
	61	/* Simple store the return handler into the call frame. */
	62	#define EH_RETURN_HANDLER_RTX \
	63	gen_rtx_MEM (Pmode, \
29c05e22	64	plus_constant (Pmode, \
29c05e22	65	gen_rtx_REG (Pmode, FRAME_POINTER_REGNUM),\
83accbc0	66	16))
	67
	68
83accbc0	69	/* The VAX wants no space between the case instruction and the jump table. */
	70	#undef ASM_OUTPUT_BEFORE_CASE_LABEL
	71	#define ASM_OUTPUT_BEFORE_CASE_LABEL(FILE, PREFIX, NUM, TABLE)
	72
4c834714	73	#undef SUBTARGET_OVERRIDE_OPTIONS
4c834714	74	#define SUBTARGET_OVERRIDE_OPTIONS \
27aa29d7	75	do \
27aa29d7	76	{ \
27aa29d7	77	/* Turn off function CSE if we're doing PIC. */ \
	78	if (flag_pic) \
	79	flag_no_function_cse = 1; \
	80	} \
83accbc0	81	while (0)
83accbc0	82
6718899e	83	/* Don't allow foo which foo is non-local /
	84	#define NO_EXTERNAL_INDIRECT_ADDRESS
	85
	86	#undef VAX_CC1_AND_CC1PLUS_SPEC
	87	#define VAX_CC1_AND_CC1PLUS_SPEC \
	88	"%{!fno-pic: \
	89	%{!fpic: \
	90	%{!fPIC:-fPIC}}}"
	91
83accbc0	92	/* VAX ELF is always gas; override the generic VAX ASM_SPEC. */
	93
	94	#undef ASM_SPEC
6718899e	95	#define ASM_SPEC "%{!fno-pic: %{!mno-asm-pic:-k}}"
	96
	97	/* We want PCREL dwarf output. */
	98	#define ASM_PREFERRED_EH_DATA_FORMAT(CODE,GLOBAL) \
	99	((GLOBAL ? DW_EH_PE_indirect : 0) \| DW_EH_PE_pcrel \| DW_EH_PE_sdata4)
	100
	101	/* Emit a PC-relative relocation. */
	102	#define ASM_OUTPUT_DWARF_PCREL(FILE, SIZE, LABEL) \
	103	do { \
	104	fputs (integer_asm_op (SIZE, FALSE), FILE); \
	105	fprintf (FILE, "%%pcrel%d(", SIZE * 8); \
	106	assemble_name (FILE, LABEL); \
	107	fputc (')', FILE); \
	108	} while (0)