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

/* Target definitions for GNU compiler for VAX using ELF
   Copyright (C) 2002-2025 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", \
    "%psl" }

#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}}}"

/* Don't let the LTO compiler switch the PIC options off.  */
#define VAX_CC1_SPEC \
  VAX_CC1_AND_CC1PLUS_SPEC \
  " %{flinker-output=exec" \
  ":%{no-pie:-flinker-output=exec;:-flinker-output=pie};" \
  ":%{flinker-output=*}}" \
  "%<flinker-output*"
#define VAX_CC1PLUS_SPEC \
  VAX_CC1_AND_CC1PLUS_SPEC

/* 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
	1	/* Target definitions for GNU compiler for VAX using ELF
	2	Copyright (C) 2002-2025 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	"%psl" }
	31
	32	#undef SIZE_TYPE
	33	#define SIZE_TYPE "long unsigned int"
	34
	35	#undef PTRDIFF_TYPE
	36	#define PTRDIFF_TYPE "long int"
	37
	38	/* Profiling routine. */
	39	#undef VAX_FUNCTION_PROFILER_NAME
	40	#define VAX_FUNCTION_PROFILER_NAME "__mcount"
	41
	42	/* Let's be re-entrant. */
	43	#undef PCC_STATIC_STRUCT_RETURN
	44
	45	/* Before the prologue, the top of the frame is below the argument
	46	count pushed by the CALLS and before the start of the saved registers. */
	47	#define INCOMING_FRAME_SP_OFFSET 0
	48
	49	/* Offset from the frame pointer register value to the top of the stack. */
	50	#define FRAME_POINTER_CFA_OFFSET(FNDECL) 0
	51
	52	/* We use R2-R5 (call-clobbered) registers for exceptions. */
	53	#define EH_RETURN_DATA_REGNO(N) ((N) < 4 ? (N) + 2 : INVALID_REGNUM)
	54
	55	/* Place the top of the stack for the DWARF2 EH stackadj value. */
	56	#define EH_RETURN_STACKADJ_RTX \
	57	gen_rtx_MEM (SImode, \
	58	plus_constant (Pmode, \
	59	gen_rtx_REG (Pmode, FRAME_POINTER_REGNUM),\
	60	-4))
	61
	62	/* Simple store the return handler into the call frame. */
	63	#define EH_RETURN_HANDLER_RTX \
	64	gen_rtx_MEM (Pmode, \
	65	plus_constant (Pmode, \
	66	gen_rtx_REG (Pmode, FRAME_POINTER_REGNUM),\
	67	16))
	68
	69
	70	/* The VAX wants no space between the case instruction and the jump table. */
	71	#undef ASM_OUTPUT_BEFORE_CASE_LABEL
	72	#define ASM_OUTPUT_BEFORE_CASE_LABEL(FILE, PREFIX, NUM, TABLE)
	73
	74	#undef SUBTARGET_OVERRIDE_OPTIONS
	75	#define SUBTARGET_OVERRIDE_OPTIONS \
	76	do \
	77	{ \
	78	/* Turn off function CSE if we're doing PIC. */ \
	79	if (flag_pic) \
	80	flag_no_function_cse = 1; \
	81	} \
	82	while (0)
	83
	84	/* Don't allow foo which foo is non-local /
	85	#define NO_EXTERNAL_INDIRECT_ADDRESS
	86
	87	#undef VAX_CC1_AND_CC1PLUS_SPEC
	88	#define VAX_CC1_AND_CC1PLUS_SPEC \
	89	"%{!fno-pic: \
	90	%{!fpic: \
	91	%{!fPIC:-fPIC}}}"
	92
	93	/* Don't let the LTO compiler switch the PIC options off. */
	94	#define VAX_CC1_SPEC \
	95	VAX_CC1_AND_CC1PLUS_SPEC \
	96	" %{flinker-output=exec" \
	97	":%{no-pie:-flinker-output=exec;:-flinker-output=pie};" \
	98	":%{flinker-output=*}}" \
	99	"%<flinker-output*"
	100	#define VAX_CC1PLUS_SPEC \
	101	VAX_CC1_AND_CC1PLUS_SPEC
	102
	103	/* VAX ELF is always gas; override the generic VAX ASM_SPEC. */
	104
	105	#undef ASM_SPEC
	106	#define ASM_SPEC "%{!fno-pic: %{!mno-asm-pic:-k}}"
	107
	108	/* We want PCREL dwarf output. */
	109	#define ASM_PREFERRED_EH_DATA_FORMAT(CODE,GLOBAL) \
	110	((GLOBAL ? DW_EH_PE_indirect : 0) \| DW_EH_PE_pcrel \| DW_EH_PE_sdata4)
	111
	112	/* Emit a PC-relative relocation. */
	113	#define ASM_OUTPUT_DWARF_PCREL(FILE, SIZE, LABEL) \
	114	do { \
	115	fputs (integer_asm_op (SIZE, FALSE), FILE); \
	116	fprintf (FILE, "%%pcrel%d(", SIZE * 8); \
	117	assemble_name (FILE, LABEL); \
	118	fputc (')', FILE); \
	119	} while (0)