[thirdparty/binutils-gdb.git] / gas / config / tc-ppc.h

/* tc-ppc.h -- Header file for tc-ppc.c.
   Copyright (C) 1994-2024 Free Software Foundation, Inc.
   Written by Ian Lance Taylor, Cygnus Support.

   This file is part of GAS, the GNU Assembler.

   GAS 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.

   GAS 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 GAS; see the file COPYING.  If not, write to the Free
   Software Foundation, 51 Franklin Street - Fifth Floor, Boston, MA
   02110-1301, USA.  */

#define TC_PPC

#include "opcode/ppc.h"

struct fix;

/* Set the endianness we are using.  Default to big endian.  */
#ifndef TARGET_BYTES_BIG_ENDIAN
#define TARGET_BYTES_BIG_ENDIAN 1
#endif

/* If OBJ_COFF is defined we are assembling XCOFF for AIX or PowerMac.  */
#ifdef OBJ_COFF
#define OBJ_XCOFF
#endif

/* The target BFD architecture.  */
#define TARGET_ARCH (ppc_arch ())
#define TARGET_MACH (ppc_mach ())
extern enum bfd_architecture ppc_arch (void);
extern unsigned long ppc_mach (void);

/* Whether or not the target is big endian */
extern int target_big_endian;

/* The target BFD format.  */
#define TARGET_FORMAT (ppc_target_format ())
extern const char *ppc_target_format (void);

/* Permit temporary numeric labels.  */
#define LOCAL_LABELS_FB 1

/* $ is used to refer to the current location.  */
#define DOLLAR_DOT

/* Strings do not use backslash escapes under COFF.  */
#ifdef OBJ_COFF
#define TC_STRING_ESCAPES 0
#endif

#ifdef OBJ_ELF
#define DIFF_EXPR_OK		/* foo-. gets turned into PC relative relocs */
#endif

#if TARGET_BYTES_BIG_ENDIAN
#define PPC_BIG_ENDIAN 1
#else
#define PPC_BIG_ENDIAN 0
#endif

/* We don't need to handle .word strangely.  */
#define WORKING_DOT_WORD

#define MAX_MEM_FOR_RS_ALIGN_CODE 4
#define HANDLE_ALIGN(FRAGP)						\
  if ((FRAGP)->fr_type == rs_align_code)				\
    ppc_handle_align (FRAGP);

extern unsigned int ppc_nop_select (void);
#define NOP_OPCODE ppc_nop_select ()

extern void ppc_handle_align (struct frag *);
extern void ppc_frag_check (struct frag *);

#ifdef OBJ_ELF
#define SUB_SEGMENT_ALIGN(SEG, FRCHAIN) 0
#endif

#define md_frag_check(FRAGP) ppc_frag_check (FRAGP)

/* Arrange to store the value of ppc_cpu at the site of a fixup
   for later use in md_apply_fix.  */
struct _ppc_fix_extra
{
  ppc_cpu_t ppc_cpu;
};

extern ppc_cpu_t ppc_cpu;

#define TC_FIX_TYPE struct _ppc_fix_extra
#define TC_INIT_FIX_DATA(FIXP) \
  do { (FIXP)->tc_fix_data.ppc_cpu = ppc_cpu; } while (0)
\f
#ifdef OBJ_XCOFF

/* Declarations needed when generating XCOFF code.  XCOFF is an
   extension of COFF, used only on the RS/6000.  Rather than create an
   obj-xcoff, we just use obj-coff, and handle the extensions here in
   tc-ppc.  */

/* We need to keep some information for symbols.  */
struct ppc_tc_sy
{
  /* We keep a few linked lists of symbols.  */
  symbolS *next;
  /* The real name, if the symbol was renamed.  */
  char *real_name;
  /* Non-zero if the symbol should be output.  The RS/6000 assembler
     only outputs symbols that are external or are mentioned in a
     .globl or .lglobl statement.  */
  unsigned char output;
  /* The symbol class.  */
  short symbol_class;
  /* For a csect or common symbol, the alignment to use.  */
  unsigned char align;
  /* For a csect symbol, the subsegment we are using.  This is zero
     for symbols that are not csects.  */
  subsegT subseg;
  /* For a csect symbol, the last symbol which has been defined in
     this csect, or NULL if none have been defined so far.
     For a .bs symbol, the referenced csect symbol.
     For a C_STSYM symbol, the containing block (.bs symbol).
     For a label, the enclosing csect.  */
  symbolS *within;
  union
  {
    /* For a function symbol, a symbol whose value is the size.  The
       field is NULL if there is no size.  */
    symbolS *size;
    /* For a dwarf symbol, the corresponding dwarf subsection.  */
    struct dw_subsection *dw;
  } u;
};

#define TC_SYMFIELD_TYPE struct ppc_tc_sy

/* We need an additional auxent for function symbols.  */
#define OBJ_COFF_MAX_AUXENTRIES 4

/* Square and curly brackets are permitted in symbol names.  */
#define LEX_BR 3

/* Canonicalize the symbol name.  */
#define tc_canonicalize_symbol_name(name) ppc_canonicalize_symbol_name (name)
extern char *ppc_canonicalize_symbol_name (char *);

/* Get the symbol class from the name.  */
#define tc_symbol_new_hook(sym) ppc_symbol_new_hook (sym)
extern void ppc_symbol_new_hook (symbolS *);

/* TOC relocs requires special handling.  */
#define tc_fix_adjustable(FIX) ppc_fix_adjustable (FIX)
extern int ppc_fix_adjustable (struct fix *);

/* We need to set the section VMA.  */
#define tc_frob_section(sec) ppc_frob_section (sec)
extern void ppc_frob_section (asection *);

/* Finish up the symbol.  */
#define tc_frob_symbol(sym, punt) punt = ppc_frob_symbol (sym)
extern int ppc_frob_symbol (symbolS *);

/* Finish up the entire symtab.  */
#define tc_adjust_symtab() ppc_adjust_symtab ()
extern void ppc_adjust_symtab (void);

/* We also need to copy, in particular, the class of the symbol,
   over what obj-coff would otherwise have copied.  */
#define OBJ_COPY_SYMBOL_ATTRIBUTES(dest,src)			\
do {								\
  if (SF_GET_GET_SEGMENT (dest))				\
    S_SET_SEGMENT (dest, S_GET_SEGMENT (src));			\
  symbol_get_tc (dest)->u = symbol_get_tc (src)->u;		\
  symbol_get_tc (dest)->align = symbol_get_tc (src)->align;	\
  symbol_get_tc (dest)->symbol_class = symbol_get_tc (src)->symbol_class;	\
  symbol_get_tc (dest)->within = symbol_get_tc (src)->within;	\
} while (0)

extern void ppc_xcoff_md_finish (void);
#define md_finish ppc_xcoff_md_finish

#define TC_PARSE_CONS_EXPRESSION(EXP, NBYTES)	\
  ppc_xcoff_parse_cons (EXP, NBYTES)
extern bfd_reloc_code_real_type ppc_xcoff_parse_cons (expressionS *,
						    unsigned int);
/* XCOFF format allows only few predefined sections. Gather all
   information in a common structure.  */
struct ppc_xcoff_section {
  /* Main segment of the section.  */
  segT segment;

  /* Next subsegment to allocate within the segment.  */
  subsegT next_subsegment;

  /* Linked list of csects in the section.  */
  symbolS *csects;
};

#endif /* OBJ_XCOFF */

#define tc_new_dot_label(sym) ppc_new_dot_label (sym)
extern void ppc_new_dot_label (symbolS *);

extern const char       ppc_symbol_chars[];
#define tc_symbol_chars ppc_symbol_chars

#ifdef OBJ_ELF

/* Support for SHT_ORDERED */
extern int ppc_section_type (char *, size_t);
extern int ppc_section_flags (flagword, bfd_vma, int);

#define md_elf_section_type(STR, LEN)		ppc_section_type (STR, LEN)
#define md_elf_section_flags(FLAGS, ATTR, TYPE)	ppc_section_flags (FLAGS, ATTR, TYPE)

#define tc_comment_chars ppc_comment_chars
extern const char *ppc_comment_chars;

#define md_elf_section_letter		ppc_elf_section_letter
extern bfd_vma ppc_elf_section_letter (int, const char **);

/* Keep relocations relative to the GOT, or non-PC relative.  */
#define tc_fix_adjustable(FIX) ppc_fix_adjustable (FIX)
extern int ppc_fix_adjustable (struct fix *);

/* Values passed to md_apply_fix don't include symbol values.  */
#define MD_APPLY_SYM_VALUE(FIX) 0

#define TC_PARSE_CONS_EXPRESSION(EXP, NBYTES) \
  ppc_elf_parse_cons (EXP, NBYTES)
extern bfd_reloc_code_real_type ppc_elf_parse_cons (expressionS *,
						    unsigned int);
#define TC_CONS_FIX_CHECK(EXP, NBYTES, FIX) \
  ppc_elf_cons_fix_check (EXP, NBYTES, FIX)
extern void ppc_elf_cons_fix_check (expressionS *, unsigned int, struct fix *);

#define tc_frob_file_before_adjust ppc_frob_file_before_adjust
extern void ppc_frob_file_before_adjust (void);

#define tc_adjust_symtab() ppc_elf_adjust_symtab ()
extern void ppc_elf_adjust_symtab (void);

extern void ppc_elf_md_finish (void);
#define md_finish ppc_elf_md_finish

#endif /* OBJ_ELF */

extern void ppc_md_end (void);
#define md_end ppc_md_end

#if defined (OBJ_ELF) || defined (OBJ_XCOFF)
#define TC_FORCE_RELOCATION(FIX) ppc_force_relocation (FIX)
extern int ppc_force_relocation (struct fix *);
#endif

#ifdef OBJ_ELF
/* Don't allow the generic code to convert fixups involving the
   subtraction of a label in the current section to pc-relative if we
   don't have the necessary pc-relative relocation.  */
#define TC_FORCE_RELOCATION_SUB_LOCAL(FIX, SEG) \
  (!((FIX)->fx_r_type == BFD_RELOC_64				\
     || (FIX)->fx_r_type == BFD_RELOC_32			\
     || (FIX)->fx_r_type == BFD_RELOC_16			\
     || (FIX)->fx_r_type == BFD_RELOC_LO16			\
     || (FIX)->fx_r_type == BFD_RELOC_HI16			\
     || (FIX)->fx_r_type == BFD_RELOC_HI16_S			\
     || (FIX)->fx_r_type == BFD_RELOC_PPC64_ADDR16_HIGH		\
     || (FIX)->fx_r_type == BFD_RELOC_PPC64_ADDR16_HIGHA	\
     || (FIX)->fx_r_type == BFD_RELOC_PPC64_HIGHER		\
     || (FIX)->fx_r_type == BFD_RELOC_PPC64_HIGHER_S		\
     || (FIX)->fx_r_type == BFD_RELOC_PPC64_HIGHEST		\
     || (FIX)->fx_r_type == BFD_RELOC_PPC64_HIGHEST_S		\
     || (FIX)->fx_r_type == BFD_RELOC_PPC64_ADDR16_HIGHER34	\
     || (FIX)->fx_r_type == BFD_RELOC_PPC64_ADDR16_HIGHERA34	\
     || (FIX)->fx_r_type == BFD_RELOC_PPC64_ADDR16_HIGHEST34	\
     || (FIX)->fx_r_type == BFD_RELOC_PPC64_ADDR16_HIGHESTA34	\
     || (FIX)->fx_r_type == BFD_RELOC_PPC_16DX_HA		\
     || (FIX)->fx_r_type == BFD_RELOC_PPC64_D34			\
     || (FIX)->fx_r_type == BFD_RELOC_PPC64_D28))

#endif /* OBJ_ELF */

#define RELOC_EXPANSION_POSSIBLE
#define MAX_RELOC_EXPANSION 2

#if defined (OBJ_XCOFF)
/* Force a relocation when the fix is negative. */
#define TC_FORCE_RELOCATION_SUB_SAME(FIX, SEG)				\
  (GENERIC_FORCE_RELOCATION_SUB_SAME(FIX, SEG)				\
   || (((SEG)->flags & SEC_DEBUGGING) == 0				\
	&& (FIX)->fx_addsy && (FIX)->fx_subsy				\
	&& (S_GET_VALUE (fixP->fx_addsy) < S_GET_VALUE (fixP->fx_subsy))))

/* XCOFF allows undefined differences which will be encoded with
   R_NEG relocations.  */
#define UNDEFINED_DIFFERENCE_OK

#define TC_VALIDATE_FIX_SUB(FIX, SEG) \
  (md_register_arithmetic || (SEG) != reg_section)

#endif /* OBJ_XCOFF */

/* Various frobbings of labels and their addresses.  */
#define md_start_line_hook() ppc_start_line_hook ()
extern void ppc_start_line_hook (void);

/* Set the symbol class of a label based on the csect.  */
#define tc_frob_label(sym) ppc_frob_label (sym)
extern void ppc_frob_label (symbolS *);

/* call md_pcrel_from_section, not md_pcrel_from */
#define MD_PCREL_FROM_SECTION(FIX, SEC) md_pcrel_from_section(FIX, SEC)

#define md_parse_name(name, exp, mode, c) \
  (ppc_parse_name (name, exp, mode), true)
extern void ppc_parse_name (const char *, struct expressionS *, enum expr_mode);

#define md_optimize_expr(left, op, right) ppc_optimize_expr (left, op, right)
extern int ppc_optimize_expr (expressionS *, operatorT, expressionS *);

#define md_cleanup() ppc_cleanup ()
extern void ppc_cleanup (void);

#if (defined TE_AIX5 || defined TE_AIX					\
     || defined TE_FreeBSD || defined TE_NetBSD || defined TE_LYNX)
/* ppc uses different register numbers between .eh_frame and .debug_frame.
   This macro translates the .eh_frame register numbers to .debug_frame
   register numbers.  */
#define md_reg_eh_frame_to_debug_frame(regno)				\
  ((regno) == 70 ? 64	/* cr2 */					\
   : (regno) == 65 ? 108 /* lr */					\
   : (regno) == 66 ? 109 /* ctr */					\
   : (regno) >= 68 && (regno) <= 75 ? (regno) + 86 - 68 /* crN */	\
   : (regno) == 76 ? 101 /* xer */					\
   : (regno) >= 77 && (regno) <= 108 ? (regno) + 1124 - 77 /* vrN */	\
   : (regno) == 109 ? 356 /* vrsave */					\
   : (regno) == 110 ? 67 /* vscr */					\
   : (regno) == 111 ? 99 /* spe_acc */					\
   : (regno) == 112 ? 612 /* spefscr */					\
   : (regno))
#endif

#define TARGET_USE_CFIPOP 1

#define tc_cfi_frame_initial_instructions ppc_cfi_frame_initial_instructions
extern void ppc_cfi_frame_initial_instructions (void);

#define tc_regname_to_dw2regnum tc_ppc_regname_to_dw2regnum
extern int tc_ppc_regname_to_dw2regnum (char *);

extern int ppc_cie_data_alignment;

extern int ppc_dwarf2_line_min_insn_length;

#define DWARF2_LINE_MIN_INSN_LENGTH     ppc_dwarf2_line_min_insn_length
#define DWARF2_DEFAULT_RETURN_COLUMN    0x41
#define DWARF2_CIE_DATA_ALIGNMENT       ppc_cie_data_alignment
#define EH_FRAME_ALIGNMENT		2
Commit	Line	Data
252b5132	1	/* tc-ppc.h -- Header file for tc-ppc.c.
fd67aa11	2	Copyright (C) 1994-2024 Free Software Foundation, Inc.
252b5132 RH	3	Written by Ian Lance Taylor, Cygnus Support.
	4
	5	This file is part of GAS, the GNU Assembler.
	6
	7	GAS is free software; you can redistribute it and/or modify
	8	it under the terms of the GNU General Public License as published by
ec2655a6	9	the Free Software Foundation; either version 3, or (at your option)
252b5132 RH	10	any later version.
	11
	12	GAS 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 GAS; see the file COPYING. If not, write to the Free
4b4da160 NC	19	Software Foundation, 51 Franklin Street - Fifth Floor, Boston, MA
4b4da160 NC	20	02110-1301, USA. */
252b5132 RH	21
	22	#define TC_PPC
	23
fa452fa6 PB	24	#include "opcode/ppc.h"
fa452fa6 PB	25
252b5132	26	struct fix;
252b5132 RH	27
	28	/* Set the endianness we are using. Default to big endian. */
	29	#ifndef TARGET_BYTES_BIG_ENDIAN
	30	#define TARGET_BYTES_BIG_ENDIAN 1
	31	#endif
	32
fe49679d	33	/* If OBJ_COFF is defined we are assembling XCOFF for AIX or PowerMac. */
252b5132	34	#ifdef OBJ_COFF
252b5132 RH	35	#define OBJ_XCOFF
252b5132 RH	36	#endif
252b5132 RH	37
	38	/* The target BFD architecture. */
	39	#define TARGET_ARCH (ppc_arch ())
7f6d05e8	40	#define TARGET_MACH (ppc_mach ())
98027b10 AM	41	extern enum bfd_architecture ppc_arch (void);
98027b10 AM	42	extern unsigned long ppc_mach (void);
252b5132 RH	43
	44	/* Whether or not the target is big endian */
	45	extern int target_big_endian;
	46
	47	/* The target BFD format. */
7f6d05e8	48	#define TARGET_FORMAT (ppc_target_format ())
e0471c16	49	extern const char *ppc_target_format (void);
252b5132 RH	50
	51	/* Permit temporary numeric labels. */
	52	#define LOCAL_LABELS_FB 1
	53
	54	/* $ is used to refer to the current location. */
	55	#define DOLLAR_DOT
	56
	57	/* Strings do not use backslash escapes under COFF. */
	58	#ifdef OBJ_COFF
16d87673	59	#define TC_STRING_ESCAPES 0
252b5132 RH	60	#endif
	61
	62	#ifdef OBJ_ELF
	63	#define DIFF_EXPR_OK /* foo-. gets turned into PC relative relocs */
	64	#endif
	65
	66	#if TARGET_BYTES_BIG_ENDIAN
	67	#define PPC_BIG_ENDIAN 1
	68	#else
	69	#define PPC_BIG_ENDIAN 0
	70	#endif
	71
	72	/* We don't need to handle .word strangely. */
	73	#define WORKING_DOT_WORD
	74
0baf16f2 AM	75	#define MAX_MEM_FOR_RS_ALIGN_CODE 4
0baf16f2 AM	76	#define HANDLE_ALIGN(FRAGP) \
3aeeedbb AM	77	if ((FRAGP)->fr_type == rs_align_code) \
	78	ppc_handle_align (FRAGP);
	79
22f72c48 AM	80	extern unsigned int ppc_nop_select (void);
	81	#define NOP_OPCODE ppc_nop_select ()
	82
3aeeedbb	83	extern void ppc_handle_align (struct frag *);
b9c361e0	84	extern void ppc_frag_check (struct frag *);
3aeeedbb	85
f29cf775	86	#ifdef OBJ_ELF
3aeeedbb	87	#define SUB_SEGMENT_ALIGN(SEG, FRCHAIN) 0
f29cf775	88	#endif
0baf16f2	89
b9c361e0	90	#define md_frag_check(FRAGP) ppc_frag_check (FRAGP)
783de163 AM	91
	92	/* Arrange to store the value of ppc_cpu at the site of a fixup
	93	for later use in md_apply_fix. */
	94	struct _ppc_fix_extra
	95	{
fa452fa6	96	ppc_cpu_t ppc_cpu;
783de163 AM	97	};
783de163 AM	98
fa452fa6	99	extern ppc_cpu_t ppc_cpu;
783de163 AM	100
	101	#define TC_FIX_TYPE struct _ppc_fix_extra
	102	#define TC_INIT_FIX_DATA(FIXP) \
	103	do { (FIXP)->tc_fix_data.ppc_cpu = ppc_cpu; } while (0)
252b5132	104	\f
252b5132 RH	105	#ifdef OBJ_XCOFF
	106
	107	/* Declarations needed when generating XCOFF code. XCOFF is an
	108	extension of COFF, used only on the RS/6000. Rather than create an
	109	obj-xcoff, we just use obj-coff, and handle the extensions here in
	110	tc-ppc. */
	111
	112	/* We need to keep some information for symbols. */
	113	struct ppc_tc_sy
	114	{
	115	/* We keep a few linked lists of symbols. */
49309057	116	symbolS *next;
85645aed TG	117	/* The real name, if the symbol was renamed. */
85645aed TG	118	char *real_name;
252b5132 RH	119	/* Non-zero if the symbol should be output. The RS/6000 assembler
	120	only outputs symbols that are external or are mentioned in a
	121	.globl or .lglobl statement. */
85645aed	122	unsigned char output;
252b5132	123	/* The symbol class. */
85645aed TG	124	short symbol_class;
	125	/* For a csect or common symbol, the alignment to use. */
	126	unsigned char align;
252b5132 RH	127	/* For a csect symbol, the subsegment we are using. This is zero
	128	for symbols that are not csects. */
	129	subsegT subseg;
252b5132	130	/* For a csect symbol, the last symbol which has been defined in
2fb4b302 TG	131	this csect, or NULL if none have been defined so far.
2fb4b302 TG	132	For a .bs symbol, the referenced csect symbol.
cd026728	133	For a C_STSYM symbol, the containing block (.bs symbol).
2fb4b302	134	For a label, the enclosing csect. */
49309057	135	symbolS *within;
85645aed TG	136	union
	137	{
	138	/* For a function symbol, a symbol whose value is the size. The
	139	field is NULL if there is no size. */
	140	symbolS *size;
	141	/* For a dwarf symbol, the corresponding dwarf subsection. */
	142	struct dw_subsection *dw;
	143	} u;
252b5132 RH	144	};
	145
	146	#define TC_SYMFIELD_TYPE struct ppc_tc_sy
	147
	148	/* We need an additional auxent for function symbols. */
e86fc4a5	149	#define OBJ_COFF_MAX_AUXENTRIES 4
252b5132 RH	150
	151	/* Square and curly brackets are permitted in symbol names. */
	152	#define LEX_BR 3
	153
	154	/* Canonicalize the symbol name. */
	155	#define tc_canonicalize_symbol_name(name) ppc_canonicalize_symbol_name (name)
98027b10	156	extern char ppc_canonicalize_symbol_name (char );
252b5132 RH	157
	158	/* Get the symbol class from the name. */
	159	#define tc_symbol_new_hook(sym) ppc_symbol_new_hook (sym)
98027b10	160	extern void ppc_symbol_new_hook (symbolS *);
252b5132	161
252b5132	162	/* TOC relocs requires special handling. */
a161fe53	163	#define tc_fix_adjustable(FIX) ppc_fix_adjustable (FIX)
98027b10	164	extern int ppc_fix_adjustable (struct fix *);
252b5132	165
252b5132 RH	166	/* We need to set the section VMA. */
252b5132 RH	167	#define tc_frob_section(sec) ppc_frob_section (sec)
98027b10	168	extern void ppc_frob_section (asection *);
252b5132 RH	169
	170	/* Finish up the symbol. */
	171	#define tc_frob_symbol(sym, punt) punt = ppc_frob_symbol (sym)
98027b10	172	extern int ppc_frob_symbol (symbolS *);
252b5132 RH	173
	174	/* Finish up the entire symtab. */
	175	#define tc_adjust_symtab() ppc_adjust_symtab ()
98027b10	176	extern void ppc_adjust_symtab (void);
252b5132	177
2c1c4c62 GK	178	/* We also need to copy, in particular, the class of the symbol,
	179	over what obj-coff would otherwise have copied. */
	180	#define OBJ_COPY_SYMBOL_ATTRIBUTES(dest,src) \
	181	do { \
	182	if (SF_GET_GET_SEGMENT (dest)) \
	183	S_SET_SEGMENT (dest, S_GET_SEGMENT (src)); \
85645aed	184	symbol_get_tc (dest)->u = symbol_get_tc (src)->u; \
2c1c4c62	185	symbol_get_tc (dest)->align = symbol_get_tc (src)->align; \
96d56e9f	186	symbol_get_tc (dest)->symbol_class = symbol_get_tc (src)->symbol_class; \
2c1c4c62 GK	187	symbol_get_tc (dest)->within = symbol_get_tc (src)->within; \
	188	} while (0)
	189
ed2917de AM	190	extern void ppc_xcoff_md_finish (void);
ed2917de AM	191	#define md_finish ppc_xcoff_md_finish
85645aed	192
1b2cb8e2 CC	193	#define TC_PARSE_CONS_EXPRESSION(EXP, NBYTES) \
	194	ppc_xcoff_parse_cons (EXP, NBYTES)
	195	extern bfd_reloc_code_real_type ppc_xcoff_parse_cons (expressionS *,
	196	unsigned int);
	197	/* XCOFF format allows only few predefined sections. Gather all
	198	information in a common structure. */
	199	struct ppc_xcoff_section {
	200	/* Main segment of the section. */
	201	segT segment;
	202
	203	/* Next subsegment to allocate within the segment. */
	204	subsegT next_subsegment;
	205
	206	/* Linked list of csects in the section. */
	207	symbolS *csects;
	208	};
	209
dd7efa79 PB	210	#endif /* OBJ_XCOFF */
dd7efa79 PB	211
2fb4b302 TG	212	#define tc_new_dot_label(sym) ppc_new_dot_label (sym)
	213	extern void ppc_new_dot_label (symbolS *);
	214
5ce8663f NC	215	extern const char ppc_symbol_chars[];
	216	#define tc_symbol_chars ppc_symbol_chars
	217
252b5132 RH	218	#ifdef OBJ_ELF
252b5132 RH	219
18ae9cc1	220	/* Support for SHT_ORDERED */
98027b10	221	extern int ppc_section_type (char *, size_t);
01e1a5bc	222	extern int ppc_section_flags (flagword, bfd_vma, int);
252b5132	223
9de8d8f1	224	#define md_elf_section_type(STR, LEN) ppc_section_type (STR, LEN)
252b5132 RH	225	#define md_elf_section_flags(FLAGS, ATTR, TYPE) ppc_section_flags (FLAGS, ATTR, TYPE)
252b5132 RH	226
252b5132 RH	227	#define tc_comment_chars ppc_comment_chars
	228	extern const char *ppc_comment_chars;
	229
83eef883 AFB	230	#define md_elf_section_letter ppc_elf_section_letter
	231	extern bfd_vma ppc_elf_section_letter (int, const char **);
	232
81d4177b	233	/* Keep relocations relative to the GOT, or non-PC relative. */
a161fe53	234	#define tc_fix_adjustable(FIX) ppc_fix_adjustable (FIX)
98027b10	235	extern int ppc_fix_adjustable (struct fix *);
252b5132	236
55cf6793	237	/* Values passed to md_apply_fix don't include symbol values. */
a161fe53	238	#define MD_APPLY_SYM_VALUE(FIX) 0
252b5132	239
62ebcb5c AM	240	#define TC_PARSE_CONS_EXPRESSION(EXP, NBYTES) \
	241	ppc_elf_parse_cons (EXP, NBYTES)
	242	extern bfd_reloc_code_real_type ppc_elf_parse_cons (expressionS *,
	243	unsigned int);
bf7279d5 AM	244	#define TC_CONS_FIX_CHECK(EXP, NBYTES, FIX) \
	245	ppc_elf_cons_fix_check (EXP, NBYTES, FIX)
	246	extern void ppc_elf_cons_fix_check (expressionS , unsigned int, struct fix );
	247
7e8d4ab4	248	#define tc_frob_file_before_adjust ppc_frob_file_before_adjust
98027b10	249	extern void ppc_frob_file_before_adjust (void);
0baf16f2	250
a38a07e0 AM	251	#define tc_adjust_symtab() ppc_elf_adjust_symtab ()
	252	extern void ppc_elf_adjust_symtab (void);
	253
ed2917de AM	254	extern void ppc_elf_md_finish (void);
ed2917de AM	255	#define md_finish ppc_elf_md_finish
ee67d69a	256
252b5132 RH	257	#endif /* OBJ_ELF */
252b5132 RH	258
a887be69 AM	259	extern void ppc_md_end (void);
	260	#define md_end ppc_md_end
	261
5f5c1f75	262	#if defined (OBJ_ELF) \|\| defined (OBJ_XCOFF)
a161fe53	263	#define TC_FORCE_RELOCATION(FIX) ppc_force_relocation (FIX)
98027b10	264	extern int ppc_force_relocation (struct fix *);
5f5c1f75	265	#endif
a161fe53	266
7ba71655 AM	267	#ifdef OBJ_ELF
	268	/* Don't allow the generic code to convert fixups involving the
	269	subtraction of a label in the current section to pc-relative if we
	270	don't have the necessary pc-relative relocation. */
4a969973 AM	271	#define TC_FORCE_RELOCATION_SUB_LOCAL(FIX, SEG) \
	272	(!((FIX)->fx_r_type == BFD_RELOC_64 \
	273	\|\| (FIX)->fx_r_type == BFD_RELOC_32 \
	274	\|\| (FIX)->fx_r_type == BFD_RELOC_16 \
	275	\|\| (FIX)->fx_r_type == BFD_RELOC_LO16 \
	276	\|\| (FIX)->fx_r_type == BFD_RELOC_HI16 \
	277	\|\| (FIX)->fx_r_type == BFD_RELOC_HI16_S \
	278	\|\| (FIX)->fx_r_type == BFD_RELOC_PPC64_ADDR16_HIGH \
	279	\|\| (FIX)->fx_r_type == BFD_RELOC_PPC64_ADDR16_HIGHA \
	280	\|\| (FIX)->fx_r_type == BFD_RELOC_PPC64_HIGHER \
	281	\|\| (FIX)->fx_r_type == BFD_RELOC_PPC64_HIGHER_S \
	282	\|\| (FIX)->fx_r_type == BFD_RELOC_PPC64_HIGHEST \
	283	\|\| (FIX)->fx_r_type == BFD_RELOC_PPC64_HIGHEST_S \
5663e321 AM	284	\|\| (FIX)->fx_r_type == BFD_RELOC_PPC64_ADDR16_HIGHER34 \
	285	\|\| (FIX)->fx_r_type == BFD_RELOC_PPC64_ADDR16_HIGHERA34 \
	286	\|\| (FIX)->fx_r_type == BFD_RELOC_PPC64_ADDR16_HIGHEST34 \
	287	\|\| (FIX)->fx_r_type == BFD_RELOC_PPC64_ADDR16_HIGHESTA34 \
	288	\|\| (FIX)->fx_r_type == BFD_RELOC_PPC_16DX_HA \
	289	\|\| (FIX)->fx_r_type == BFD_RELOC_PPC64_D34 \
	290	\|\| (FIX)->fx_r_type == BFD_RELOC_PPC64_D28))
7ba71655	291
c5df7e44 CC	292	#endif /* OBJ_ELF */
	293
	294	#define RELOC_EXPANSION_POSSIBLE
	295	#define MAX_RELOC_EXPANSION 2
	296
	297	#if defined (OBJ_XCOFF)
	298	/* Force a relocation when the fix is negative. */
	299	#define TC_FORCE_RELOCATION_SUB_SAME(FIX, SEG) \
	300	(GENERIC_FORCE_RELOCATION_SUB_SAME(FIX, SEG) \
	301	\|\| (((SEG)->flags & SEC_DEBUGGING) == 0 \
	302	&& (FIX)->fx_addsy && (FIX)->fx_subsy \
	303	&& (S_GET_VALUE (fixP->fx_addsy) < S_GET_VALUE (fixP->fx_subsy))))
	304
	305	/* XCOFF allows undefined differences which will be encoded with
	306	R_NEG relocations. */
	307	#define UNDEFINED_DIFFERENCE_OK
9cce9fab AM	308
	309	#define TC_VALIDATE_FIX_SUB(FIX, SEG) \
	310	(md_register_arithmetic \|\| (SEG) != reg_section)
	311
c5df7e44 CC	312	#endif /* OBJ_XCOFF */
c5df7e44 CC	313
dd7efa79 PB	314	/* Various frobbings of labels and their addresses. */
	315	#define md_start_line_hook() ppc_start_line_hook ()
	316	extern void ppc_start_line_hook (void);
	317
	318	/* Set the symbol class of a label based on the csect. */
	319	#define tc_frob_label(sym) ppc_frob_label (sym)
	320	extern void ppc_frob_label (symbolS *);
	321
252b5132	322	/* call md_pcrel_from_section, not md_pcrel_from */
a161fe53	323	#define MD_PCREL_FROM_SECTION(FIX, SEC) md_pcrel_from_section(FIX, SEC)
252b5132	324
5f6c9229 AM	325	#define md_parse_name(name, exp, mode, c) \
	326	(ppc_parse_name (name, exp, mode), true)
	327	extern void ppc_parse_name (const char , struct expressionS , enum expr_mode);
252b5132	328
7e0de605 AM	329	#define md_optimize_expr(left, op, right) ppc_optimize_expr (left, op, right)
	330	extern int ppc_optimize_expr (expressionS , operatorT, expressionS );
	331
6a0c61b7	332	#define md_cleanup() ppc_cleanup ()
98027b10	333	extern void ppc_cleanup (void);
75e21f08	334
c322dea4 AM	335	#if (defined TE_AIX5 \|\| defined TE_AIX \
c322dea4 AM	336	\|\| defined TE_FreeBSD \|\| defined TE_NetBSD \|\| defined TE_LYNX)
38462edf JJ	337	/* ppc uses different register numbers between .eh_frame and .debug_frame.
	338	This macro translates the .eh_frame register numbers to .debug_frame
	339	register numbers. */
c322dea4 AM	340	#define md_reg_eh_frame_to_debug_frame(regno) \
	341	((regno) == 70 ? 64 /* cr2 */ \
	342	: (regno) == 65 ? 108 /* lr */ \
	343	: (regno) == 66 ? 109 /* ctr */ \
	344	: (regno) >= 68 && (regno) <= 75 ? (regno) + 86 - 68 /* crN */ \
	345	: (regno) == 76 ? 101 /* xer */ \
	346	: (regno) >= 77 && (regno) <= 108 ? (regno) + 1124 - 77 /* vrN */ \
	347	: (regno) == 109 ? 356 /* vrsave */ \
	348	: (regno) == 110 ? 67 /* vscr */ \
	349	: (regno) == 111 ? 99 /* spe_acc */ \
	350	: (regno) == 112 ? 612 /* spefscr */ \
	351	: (regno))
	352	#endif
38462edf	353
75e21f08 JJ	354	#define TARGET_USE_CFIPOP 1
	355
	356	#define tc_cfi_frame_initial_instructions ppc_cfi_frame_initial_instructions
98027b10	357	extern void ppc_cfi_frame_initial_instructions (void);
75e21f08 JJ	358
75e21f08 JJ	359	#define tc_regname_to_dw2regnum tc_ppc_regname_to_dw2regnum
98027b10	360	extern int tc_ppc_regname_to_dw2regnum (char *);
75e21f08 JJ	361
	362	extern int ppc_cie_data_alignment;
	363
8fbf7334 JL	364	extern int ppc_dwarf2_line_min_insn_length;
	365
	366	#define DWARF2_LINE_MIN_INSN_LENGTH ppc_dwarf2_line_min_insn_length
75e21f08 JJ	367	#define DWARF2_DEFAULT_RETURN_COLUMN 0x41
75e21f08 JJ	368	#define DWARF2_CIE_DATA_ALIGNMENT ppc_cie_data_alignment
ba52cbb9	369	#define EH_FRAME_ALIGNMENT 2