gas/config/tc-hppa.h

   1 /* tc-hppa.h -- Header file for the PA
   2    Copyright (C) 1989-2021 Free Software Foundation, Inc.
   3
   4    This file is part of GAS, the GNU Assembler.
   5
   6    GAS is free software; you can redistribute it and/or modify
   7    it under the terms of the GNU General Public License as published by
   8    the Free Software Foundation; either version 3, or (at your option)
   9    any later version.
  10
  11    GAS is distributed in the hope that it will be useful,
  12    but WITHOUT ANY WARRANTY; without even the implied warranty of
  13    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14    GNU General Public License for more details.
  15
  16    You should have received a copy of the GNU General Public License
  17    along with GAS; see the file COPYING.  If not, write to the Free
  18    Software Foundation, 51 Franklin Street - Fifth Floor, Boston, MA
  19    02110-1301, USA.  */
  20
  21 /* HP PA-RISC support was contributed by the Center for Software Science
  22    at the University of Utah.  */
  23
  24 /* Please refrain from exposing the world to the internals of tc-hppa.c
  25    when this file is included.  This means only declaring exported functions,
  26    (please PARAMize them!) not exporting structures and data items which
  27    are used solely within tc-hppa.c, etc.
  28
  29    Also refrain from adding any more object file dependent code, there is
  30    already far too much object file format dependent code in this file.
  31    In theory this file should contain only exported functions, structures
  32    and data declarations common to all PA assemblers.  */
  33
  34 #ifndef _TC_HPPA_H
  35 #define _TC_HPPA_H
  36
  37 #ifndef TC_HPPA
  38 #define TC_HPPA 1
  39 #endif
  40
  41 #define TARGET_BYTES_BIG_ENDIAN 1
  42
  43 #define TARGET_ARCH bfd_arch_hppa
  44
  45 #define WORKING_DOT_WORD
  46
  47 #ifdef OBJ_ELF
  48 #if TARGET_ARCH_SIZE == 64
  49 #include "bfd/elf64-hppa.h"
  50 #if defined (TE_LINUX) || defined (TE_NetBSD)
  51 #define TARGET_FORMAT "elf64-hppa-linux"
  52 #else
  53 #define TARGET_FORMAT "elf64-hppa"
  54 #endif
  55 #else /* TARGET_ARCH_SIZE == 32 */
  56 #include "bfd/elf32-hppa.h"
  57 #if defined (TE_LINUX)
  58 #define TARGET_FORMAT "elf32-hppa-linux"
  59 #else
  60 #if defined (TE_NetBSD)
  61 #define TARGET_FORMAT "elf32-hppa-netbsd"
  62 #else
  63 #define TARGET_FORMAT "elf32-hppa"
  64 #endif
  65 #endif
  66 #endif
  67 #endif
  68
  69 #ifdef OBJ_SOM
  70 #include "bfd/som.h"
  71 #define TARGET_FORMAT "som"
  72 #endif
  73
  74 #if defined(TE_LINUX) || defined(TE_NetBSD)
  75 /* Define to compile in an extra assembler option, -c, which enables a
  76    warning (once per file) when a comment is encountered.
  77    The hppa comment char is a `;' which tends to occur in random C asm
  78    statements.  A semicolon is a line separator for most assemblers.
  79    It's hard to find these lurking semicolons.  Thus...  */
  80 #define WARN_COMMENTS 1
  81 #endif
  82
  83 /* FIXME.  Why oh why aren't these defined somewhere globally?  */
  84 #ifndef FALSE
  85 #define FALSE   (0)
  86 #define TRUE    (!FALSE)
  87 #endif
  88
  89 #define ASEC_NULL (asection *)0
  90
  91 /* pa_define_label gets used outside of tc-hppa.c via tc_frob_label.  */
  92 extern void pa_define_label (symbolS *);
  93 extern int parse_cons_expression_hppa (expressionS *);
  94 extern void cons_fix_new_hppa (fragS *, int, int, expressionS *, int);
  95 extern int hppa_force_relocation (struct fix *);
  96
  97 /* This gets called before writing the object file to make sure
  98    things like entry/exit and proc/procend pairs match.  */
  99 extern void pa_check_eof (void);
 100 #define tc_frob_file pa_check_eof
 101
 102 #define tc_frob_label(sym) pa_define_label (sym)
 103
 104 extern const char       hppa_symbol_chars[];
 105 #define tc_symbol_chars hppa_symbol_chars
 106
 107 #define RELOC_EXPANSION_POSSIBLE
 108 #define MAX_RELOC_EXPANSION 6
 109
 110 /* The PA needs to parse field selectors in .byte, etc.  */
 111
 112 #define TC_PARSE_CONS_EXPRESSION(EXP, NBYTES) \
 113   parse_cons_expression_hppa (EXP)
 114 #define TC_CONS_FIX_NEW cons_fix_new_hppa
 115 #define TC_PARSE_CONS_RETURN_TYPE int
 116 #define TC_PARSE_CONS_RETURN_NONE e_fsel
 117
 118 /* On the PA, an exclamation point can appear in an instruction.  It is
 119    used in FP comparison instructions and as an end of line marker.
 120    When used in an instruction it will always follow a comma.  */
 121 #define TC_EOL_IN_INSN(PTR)     (*(PTR) == '!' && (PTR)[-1] == ',')
 122
 123 int hppa_fix_adjustable (struct fix *);
 124 #define tc_fix_adjustable hppa_fix_adjustable
 125
 126 #define EXTERN_FORCE_RELOC 1
 127
 128 /* Because of the strange PA calling conventions, it is sometimes
 129    necessary to emit a relocation for a call even though it would
 130    normally appear safe to handle it completely within GAS.  */
 131 #define TC_FORCE_RELOCATION(FIX) hppa_force_relocation (FIX)
 132
 133 /* Values passed to md_apply_fix don't include the symbol value.  */
 134 #define MD_APPLY_SYM_VALUE(FIX) 0
 135
 136 #ifdef OBJ_SOM
 137 /* If a symbol is imported, but never used, then the symbol should
 138    *not* end up in the symbol table.  Likewise for absolute symbols
 139    with local scope.  */
 140 #define tc_frob_symbol(sym,punt) \
 141     if ((S_GET_SEGMENT (sym) == bfd_und_section_ptr && ! symbol_used_p (sym)) \
 142         || (S_GET_SEGMENT (sym) == bfd_abs_section_ptr \
 143             && ! S_IS_EXTERNAL (sym))) \
 144       punt = 1
 145
 146 /* We need to be able to make relocations involving the difference of
 147    two symbols.  This includes the difference of two symbols when
 148    one of them is undefined (this comes up in PIC code generation).
 149
 150    We allow the difference of two symbols when the subtract symbol is
 151    local to the relocation.  This is implemented using R_HPPA_COMPLEX.
 152
 153    This has some limitations.  Difference expressions only work between
 154    symbols in the same segment/quadrant of a module since the HP dynamic
 155    loader relocates the text and data segments independently.  Thus, a
 156    difference expression can't be used between text and data symbols,
 157    or between symbols in different executable modules.  */
 158 #define DIFF_EXPR_OK 1
 159 #define TC_FORCE_RELOCATION_SUB_LOCAL(FIX, SEG) 1
 160 #define UNDEFINED_DIFFERENCE_OK
 161 #endif
 162
 163 #ifdef OBJ_ELF
 164
 165 /* Difference expressions for the 64-bit HP-UX target have the same
 166    limitations as those for the 32-bit SOM target.  */
 167 #define DIFF_EXPR_OK 1
 168
 169 /* Handle .type pseudo.  Given a type string of `millicode', set the
 170    internal elf symbol type to STT_PARISC_MILLI, and return
 171    BSF_FUNCTION for the BFD symbol type.  */
 172 #define md_elf_symbol_type(name, sym, elf)                              \
 173   ((strcmp ((name), "millicode") == 0                                   \
 174     || strcmp ((name), "STT_PARISC_MILLI") == 0)                        \
 175    ? (((elf)->internal_elf_sym.st_info = ELF_ST_INFO                    \
 176        (ELF_ST_BIND ((elf)->internal_elf_sym.st_info), STT_PARISC_MILLI)\
 177        ), BSF_FUNCTION)                                                 \
 178    : -1)
 179
 180 /* Handle type change from .type pseudo: Zap STT_PARISC_MILLI when
 181    switching to a non-function type.  */
 182 #define md_elf_symbol_type_change(sym, elf, type)                       \
 183   ((type) != BSF_FUNCTION                                               \
 184    && (((elf)->internal_elf_sym.st_info =                               \
 185         ELF_ST_INFO (ELF_ST_BIND ((elf)->internal_elf_sym.st_info),     \
 186                      STT_NOTYPE)), 0))
 187
 188 #define tc_frob_symbol(sym,punt) \
 189   { \
 190     if ((S_GET_SEGMENT (sym) == bfd_und_section_ptr \
 191          && ! symbol_used_p (sym) \
 192          && ELF_ST_VISIBILITY (S_GET_OTHER (sym)) == STV_DEFAULT) \
 193         || strcmp (S_GET_NAME (sym), "$global$") == 0 \
 194         || strcmp (S_GET_NAME (sym), "$segrel$") == 0 \
 195         || strcmp (S_GET_NAME (sym), "$PIC_pcrel$0") == 0 \
 196         || strcmp (S_GET_NAME (sym), "$tls_gdidx$") == 0 \
 197         || strcmp (S_GET_NAME (sym), "$tls_ldidx$") == 0 \
 198         || strcmp (S_GET_NAME (sym), "$tls_dtpoff$") == 0 \
 199         || strcmp (S_GET_NAME (sym), "$tls_ieoff$") == 0 \
 200         || strcmp (S_GET_NAME (sym), "$tls_leoff$") == 0) \
 201       punt = 1; \
 202   }
 203
 204 #define elf_tc_final_processing elf_hppa_final_processing
 205 void elf_hppa_final_processing (void);
 206 #endif /* OBJ_ELF */
 207
 208 #define md_operand(x)
 209
 210 /* Allow register expressions to be treated as absolute expressions.
 211    A silly fudge required for backwards compatibility.  */
 212 #define md_optimize_expr hppa_force_reg_syms_absolute
 213
 214 int hppa_force_reg_syms_absolute (expressionS *, operatorT, expressionS *);
 215
 216 #define TC_FIX_TYPE void *
 217 #define TC_INIT_FIX_DATA(FIX) ((FIX)->tc_fix_data = NULL)
 218
 219 #ifdef OBJ_ELF
 220 #define TARGET_USE_CFIPOP 1
 221
 222 #define tc_cfi_frame_initial_instructions hppa_cfi_frame_initial_instructions
 223 extern void hppa_cfi_frame_initial_instructions (void);
 224
 225 #define tc_regname_to_dw2regnum hppa_regname_to_dw2regnum
 226 extern int hppa_regname_to_dw2regnum (char *regname);
 227
 228 #define DWARF2_LINE_MIN_INSN_LENGTH 4
 229 #define DWARF2_DEFAULT_RETURN_COLUMN 2
 230 #if TARGET_ARCH_SIZE == 64
 231 #define DWARF2_CIE_DATA_ALIGNMENT 8
 232 #define DWARF2_FDE_RELOC_SIZE 8
 233 #else
 234 #define DWARF2_CIE_DATA_ALIGNMENT 4
 235 #endif
 236
 237 #if !defined (TE_LINUX) && !defined (TE_NetBSD)
 238 /* Due to the way dynamic linking to personality functions is handled
 239    on HP-UX, we need to have a read-write .eh_frame section.  */
 240 #define DWARF2_EH_FRAME_READ_ONLY 0
 241
 242 /* Because differences between text and data symbols don't work, we
 243    can't use difference expressions during CFI generation.  */
 244 #define CFI_DIFF_EXPR_OK 0
 245 #endif
 246
 247 #endif /* OBJ_ELF */
 248 #endif /* _TC_HPPA_H */