gas/config/tc-hppa.h

   1 /* tc-hppa.h -- Header file for the PA
   2    Copyright 1989, 1993, 1994, 1995, 1997, 1998, 1999, 2000, 2001, 2002,
   3    2003, 2004, 2005, 2006 Free Software Foundation, Inc.
   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
   9    the Free Software Foundation; either version 1, or (at your option)
  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
  19    Software Foundation, 51 Franklin Street - Fifth Floor, Boston, MA
  20    02110-1301, USA.  */
  21
  22 /* HP PA-RISC support was contributed by the Center for Software Science
  23    at the University of Utah.  */
  24
  25 /* Please refrain from exposing the world to the internals of tc-hppa.c
  26    when this file is included.  This means only declaring exported functions,
  27    (please PARAMize them!) not exporting structures and data items which
  28    are used solely within tc-hppa.c, etc.
  29
  30    Also refrain from adding any more object file dependent code, there is
  31    already far too much object file format dependent code in this file.
  32    In theory this file should contain only exported functions, structures
  33    and data declarations common to all PA assemblers.  */
  34
  35 #ifndef _TC_HPPA_H
  36 #define _TC_HPPA_H
  37
  38 #ifndef TC_HPPA
  39 #define TC_HPPA 1
  40 #endif
  41
  42 #define TARGET_BYTES_BIG_ENDIAN 1
  43
  44 #define TARGET_ARCH bfd_arch_hppa
  45
  46 #define WORKING_DOT_WORD
  47
  48 #ifdef OBJ_ELF
  49 #if TARGET_ARCH_SIZE == 64
  50 #include "bfd/elf64-hppa.h"
  51 #if defined (TE_LINUX) || defined (TE_NetBSD)
  52 #define TARGET_FORMAT "elf64-hppa-linux"
  53 #else
  54 #define TARGET_FORMAT "elf64-hppa"
  55 #endif
  56 #else /* TARGET_ARCH_SIZE == 32 */
  57 #include "bfd/elf32-hppa.h"
  58 #if defined (TE_LINUX)
  59 #define TARGET_FORMAT "elf32-hppa-linux"
  60 #else
  61 #if defined (TE_NetBSD)
  62 #define TARGET_FORMAT "elf32-hppa-netbsd"
  63 #else
  64 #define TARGET_FORMAT "elf32-hppa"
  65 #endif
  66 #endif
  67 #endif
  68 #endif
  69
  70 #ifdef OBJ_SOM
  71 #include "bfd/som.h"
  72 #define TARGET_FORMAT "som"
  73 #endif
  74
  75 #if defined(TE_LINUX) || defined(TE_NetBSD)
  76 /* Define to compile in an extra assembler option, -c, which enables a
  77    warning (once per file) when a comment is encountered.
  78    The hppa comment char is a `;' which tends to occur in random C asm
  79    statements.  A semicolon is a line separator for most assemblers.
  80    It's hard to find these lurking semicolons.  Thus...  */
  81 #define WARN_COMMENTS 1
  82 #endif
  83
  84 /* FIXME.  Why oh why aren't these defined somewhere globally?  */
  85 #ifndef FALSE
  86 #define FALSE   (0)
  87 #define TRUE    (!FALSE)
  88 #endif
  89
  90 #define ASEC_NULL (asection *)0
  91
  92 /* pa_define_label gets used outside of tc-hppa.c via tc_frob_label.  */
  93 extern void pa_define_label (symbolS *);
  94 extern void parse_cons_expression_hppa (expressionS *);
  95 extern void cons_fix_new_hppa (fragS *, int, int, expressionS *);
  96 extern int hppa_force_relocation (struct fix *);
  97
  98 /* This gets called before writing the object file to make sure
  99    things like entry/exit and proc/procend pairs match.  */
 100 extern void pa_check_eof (void);
 101 #define tc_frob_file pa_check_eof
 102
 103 #define tc_frob_label(sym) pa_define_label (sym)
 104
 105 extern const char       hppa_symbol_chars[];
 106 #define tc_symbol_chars hppa_symbol_chars
 107
 108 #define RELOC_EXPANSION_POSSIBLE
 109 #define MAX_RELOC_EXPANSION 6
 110
 111 /* The PA needs to parse field selectors in .byte, etc.  */
 112
 113 #define TC_PARSE_CONS_EXPRESSION(EXP, NBYTES) \
 114   parse_cons_expression_hppa (EXP)
 115 #define TC_CONS_FIX_NEW cons_fix_new_hppa
 116
 117 /* On the PA, an exclamation point can appear in an instruction.  It is
 118    used in FP comparison instructions and as an end of line marker.
 119    When used in an instruction it will always follow a comma.  */
 120 #define TC_EOL_IN_INSN(PTR)     (*(PTR) == '!' && (PTR)[-1] == ',')
 121
 122 int hppa_fix_adjustable (struct fix *);
 123 #define tc_fix_adjustable hppa_fix_adjustable
 124
 125 #define EXTERN_FORCE_RELOC 1
 126
 127 /* Because of the strange PA calling conventions, it is sometimes
 128    necessary to emit a relocation for a call even though it would
 129    normally appear safe to handle it completely within GAS.  */
 130 #define TC_FORCE_RELOCATION(FIX) hppa_force_relocation (FIX)
 131
 132 /* Values passed to md_apply_fix don't include the symbol value.  */
 133 #define MD_APPLY_SYM_VALUE(FIX) 0
 134
 135 #ifdef OBJ_SOM
 136 /* If a symbol is imported, but never used, then the symbol should
 137    *not* end up in the symbol table.  Likewise for absolute symbols
 138    with local scope.  */
 139 #define tc_frob_symbol(sym,punt) \
 140     if ((S_GET_SEGMENT (sym) == &bfd_und_section && ! symbol_used_p (sym)) \
 141         || (S_GET_SEGMENT (sym) == &bfd_abs_section \
 142             && ! S_IS_EXTERNAL (sym))) \
 143       punt = 1
 144
 145 /* We need to be able to make relocations involving the difference of
 146    two symbols.  This includes the difference of two symbols when
 147    one of them is undefined (this comes up in PIC code generation).
 148
 149    We don't define DIFF_EXPR_OK because it does the wrong thing if
 150    the add symbol is undefined and the sub symbol is a symbol in
 151    the same section as the relocation.  We also need some way to
 152    specialize some code in adjust_reloc_syms.  */
 153 #define UNDEFINED_DIFFERENCE_OK
 154 #endif
 155
 156 #ifdef OBJ_ELF
 157 #define DIFF_EXPR_OK 1
 158
 159 /* Handle .type psuedo.  Given a type string of `millicode', set the
 160    internal elf symbol type to STT_PARISC_MILLI, and return
 161    BSF_FUNCTION for the BFD symbol type.  */
 162 #define md_elf_symbol_type(name, sym, elf)                              \
 163   ((strcmp ((name), "millicode") == 0                                   \
 164     || strcmp ((name), "STT_PARISC_MILLI") == 0)                        \
 165    ? (((elf)->internal_elf_sym.st_info = ELF_ST_INFO                    \
 166        (ELF_ST_BIND ((elf)->internal_elf_sym.st_info), STT_PARISC_MILLI)\
 167        ), BSF_FUNCTION)                                                 \
 168    : -1)
 169
 170 #define tc_frob_symbol(sym,punt) \
 171   { \
 172     if ((S_GET_SEGMENT (sym) == &bfd_und_section \
 173          && ! symbol_used_p (sym) \
 174          && ELF_ST_VISIBILITY (S_GET_OTHER (sym)) == STV_DEFAULT) \
 175         || (S_GET_SEGMENT (sym) == &bfd_abs_section \
 176             && ! S_IS_EXTERNAL (sym)) \
 177         || strcmp (S_GET_NAME (sym), "$global$") == 0 \
 178         || strcmp (S_GET_NAME (sym), "$PIC_pcrel$0") == 0 \
 179         || strcmp (S_GET_NAME (sym), "$tls_gdidx$") == 0 \
 180         || strcmp (S_GET_NAME (sym), "$tls_ldidx$") == 0 \
 181         || strcmp (S_GET_NAME (sym), "$tls_dtpoff$") == 0 \
 182         || strcmp (S_GET_NAME (sym), "$tls_ieoff$") == 0 \
 183         || strcmp (S_GET_NAME (sym), "$tls_leoff$") == 0) \
 184       punt = 1; \
 185   }
 186
 187 #define elf_tc_final_processing elf_hppa_final_processing
 188 void elf_hppa_final_processing (void);
 189
 190 #define DWARF2_LINE_MIN_INSN_LENGTH 4
 191 #endif /* OBJ_ELF */
 192
 193 #define md_operand(x)
 194
 195 /* Allow register expressions to be treated as absolute expressions.
 196    A silly fudge required for backwards compatibility.  */
 197 #define md_optimize_expr hppa_force_reg_syms_absolute
 198
 199 int hppa_force_reg_syms_absolute (expressionS *, operatorT, expressionS *);
 200
 201 #define TC_FIX_TYPE PTR
 202 #define TC_INIT_FIX_DATA(FIX) ((FIX)->tc_fix_data = NULL)
 203
 204 #ifdef OBJ_ELF
 205 #define TARGET_USE_CFIPOP 1
 206
 207 #define tc_cfi_frame_initial_instructions hppa_cfi_frame_initial_instructions
 208 extern void hppa_cfi_frame_initial_instructions (void);
 209
 210 #define tc_regname_to_dw2regnum hppa_regname_to_dw2regnum
 211 extern int hppa_regname_to_dw2regnum (char *regname);
 212
 213 #define DWARF2_LINE_MIN_INSN_LENGTH 4
 214 #define DWARF2_DEFAULT_RETURN_COLUMN 2
 215 #if TARGET_ARCH_SIZE == 64
 216 #define DWARF2_CIE_DATA_ALIGNMENT -8
 217 #else
 218 #define DWARF2_CIE_DATA_ALIGNMENT -4
 219 #endif
 220 #endif
 221
 222 #endif /* _TC_HPPA_H */