-/* tc-hppa.h -- Header file for the PA */
+/* tc-hppa.h -- Header file for the PA
+ Copyright (C) 1989-2020 Free Software Foundation, Inc.
-/* Copyright (C) 1989 Free Software Foundation, Inc.
+ This file is part of GAS, the GNU Assembler.
-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 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 1, 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.
-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. */
-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, 675 Mass Ave, Cambridge, MA 02139, USA. */
+/* HP PA-RISC support was contributed by the Center for Software Science
+ at the University of Utah. */
+/* Please refrain from exposing the world to the internals of tc-hppa.c
+ when this file is included. This means only declaring exported functions,
+ (please PARAMize them!) not exporting structures and data items which
+ are used solely within tc-hppa.c, etc.
-/*
- HP PA-RISC support was contributed by the Center for Software Science
- at the University of Utah.
- */
+ Also refrain from adding any more object file dependent code, there is
+ already far too much object file format dependent code in this file.
+ In theory this file should contain only exported functions, structures
+ and data declarations common to all PA assemblers. */
#ifndef _TC_HPPA_H
#define _TC_HPPA_H
#define TC_HPPA 1
#endif
-#define TARGET_ARCH bfd_arch_hppa
-#define TARGET_FORMAT "elf32-hppa"
-
-#define ASEC_NULL (asection *)0
-
-/* We can do sym1 - sym2 as long as sym2 is $global$ */
-
-#define SEG_DIFF_ALLOWED
-
-typedef enum FPOF
- {
- SGL, DBL, ILLEGAL_FMT, QUAD
- } FP_Operand_Format;
-
-extern char *expr_end;
-
-extern void s_globl (), s_long (), s_short (), s_space (), cons ();
-extern void stringer ();
-extern unsigned int next_char_of_string ();
-
-extern void pa_big_cons ();
-extern void pa_cons ();
-extern void pa_data ();
-extern void pa_desc ();
-extern void pa_float_cons ();
-extern void pa_fill ();
-extern void pa_lcomm ();
-extern void pa_lsym ();
-extern void pa_stringer ();
-extern void pa_text ();
-extern void pa_version ();
-
-int pa_parse_number ();
-
-int pa_parse_fp_cmp_cond ();
-
-FP_Operand_Format pa_parse_fp_format ();
-
-#ifdef __STDC__
-int getExpression (char *str);
-#else
-int getExpression ();
-#endif
-
-int getAbsoluteExpression ();
-
-int evaluateAbsolute ();
-
-int pa_build_arg_reloc ();
-
-unsigned int pa_align_arg_reloc ();
-
-void pa_skip ();
-
-int pa_parse_nullif ();
-
-int pa_parse_nonneg_cmpsub_cmpltr ();
-
-int pa_parse_neg_cmpsub_cmpltr ();
-
-int pa_parse_nonneg_add_cmpltr ();
-
-int pa_parse_neg_add_cmpltr ();
-
-int pa_build_arg_reloc ();
-
-void s_seg (), s_proc (), s_data1 ();
-
-void pa_block (), pa_call (), pa_call_args (), pa_callinfo ();
-void pa_code (), pa_comm (), pa_copyright (), pa_end ();
-void pa_enter ();
-void pa_entry (), pa_equ (), pa_exit (), pa_export ();
-void pa_export_args (), pa_import (), pa_label (), pa_leave ();
-void pa_origin (), pa_proc (), pa_procend (), pa_space ();
-void pa_spnum (), pa_subspace (), pa_version ();
-
-extern const pseudo_typeS md_pseudo_table[];
-
-/*
- PA-89 floating point registers are arranged like this:
-
-
- +--------------+--------------+
- | 0 or 16L | 16 or 16R |
- +--------------+--------------+
- | 1 or 17L | 17 or 17R |
- +--------------+--------------+
- | | |
-
- . . .
- . . .
- . . .
-
- | | |
- +--------------+--------------+
- | 14 or 30L | 30 or 30R |
- +--------------+--------------+
- | 15 or 31L | 31 or 31R |
- +--------------+--------------+
-
-
- The following is a version of pa_parse_number that
- handles the L/R notation and returns the correct
- value to put into the instruction register field.
- The correct value to put into the instruction is
- encoded in the structure 'pa_89_fp_reg_struct'.
-
- */
-
-struct pa_89_fp_reg_struct
- {
- char number_part;
- char L_R_select;
- };
-
-int need_89_opcode ();
-int pa_89_parse_number ();
-
-
-/* pa-ctrl-func.h -- Control Structures and Functions for the PA */
-
-extern unsigned int assemble_3 ( /* unsigned int x; */ );
-
-extern void dis_assemble_3 ( /* unsigned int x, *r; */ );
+#define TARGET_BYTES_BIG_ENDIAN 1
-extern unsigned int assemble_12 ( /* unsigned int x,y; */ );
-
-extern void dis_assemble_12 ( /* unsigned int as12, *x,*y */ );
-
-extern unsigned long assemble_17 ( /* unsigned int x,y,z */ );
-
-extern void dis_assemble_17 ( /* unsigned int as17, *x,*y,*z */ );
-
-extern unsigned long assemble_21 ( /* unsigned int x; */ );
-
-extern void dis_assemble_21 ( /* unsigned int as21,*x; */ );
-
-extern void sign_unext ( /* unsigned int x,len; unsigned int *result */ );
-
-extern void low_sign_unext ( /* unsigned int x,len; unsigned int *result */ );
-
-struct call_desc
- {
- unsigned int arg_reloc;
- unsigned int arg_count;
- };
-
-typedef struct call_desc call_descS;
-
-extern call_descS last_call_desc;
+#define TARGET_ARCH bfd_arch_hppa
-/* GDB debug support */
+#define WORKING_DOT_WORD
-#if defined(OBJ_SOME)
-#define GDB_DEBUG_SPACE_NAME "$GDB_DEBUG$"
-#define GDB_STRINGS_SUBSPACE_NAME "$GDB_STRINGS$"
-#define GDB_SYMBOLS_SUBSPACE_NAME "$GDB_SYMBOLS$"
-#else
-#define GDB_DEBUG_SPACE_NAME ".stab"
-#define GDB_STRINGS_SUBSPACE_NAME ".stabstr"
-#define GDB_SYMBOLS_SUBSPACE_NAME ".stab"
-#endif
-/* pre-defined subsegments (subspaces) for the HP 9000 Series 800 */
-
-#define SUBSEG_CODE 0
-#define SUBSEG_DATA 0
-#define SUBSEG_LIT 1
-#define SUBSEG_BSS 2
-#define SUBSEG_UNWIND 3
-#define SUBSEG_GDB_STRINGS 0
-#define SUBSEG_GDB_SYMBOLS 1
-
-#define UNWIND_SECTION_NAME ".hppa_unwind"
-/* subspace dictionary chain entry structure */
-
-struct subspace_dictionary_chain
- {
-#if defined(OBJ_OSFROSE) | defined(OBJ_ELF)
-#ifdef OBJ_OSFROSE
- region_command_t *ssd_entry;/* XXX: not sure this is what we need here */
-#else
- Elf_Internal_Shdr *ssd_entry;
- unsigned long ssd_vm_addr;
-#endif
- char *ssd_name; /* used until time of writing object file */
- /* then we use ssd_entry->regc_region_name */
- unsigned char ssd_quadrant;
- unsigned char ssd_sort_key;
- unsigned char ssd_common;
- unsigned char ssd_dup_common;
- unsigned char ssd_loadable;
- unsigned char ssd_code_only;
+#ifdef OBJ_ELF
+#if TARGET_ARCH_SIZE == 64
+#include "bfd/elf64-hppa.h"
+#if defined (TE_LINUX) || defined (TE_NetBSD)
+#define TARGET_FORMAT "elf64-hppa-linux"
#else
- subspace_dictS *ssd_entry; /* this dictionary */
+#define TARGET_FORMAT "elf64-hppa"
#endif
- int ssd_defined; /* this subspace has been used */
- int ssd_space_number; /* space # this subspace is in */
- asection *ssd_seg; /* this subspace = this seg */
- int ssd_subseg; /* and subseg */
- int ssd_zero;
- int object_file_index; /* index of this entry within
- the subspace dictionary of
- the object file (not used until
- the object file is written */
- int ssd_last_align; /* the size of the last alignment
- request for this subspace */
- symbolS *ssd_start_sym; /* a symbol whose value is the
- start of this subspace */
- struct subspace_dictionary_chain *ssd_next; /* next subspace dict. entry */
- };
-
-typedef struct subspace_dictionary_chain subspace_dict_chainS;
-
-/* space dictionary chain entry structure */
-
-struct space_dictionary_chain
- {
-#ifdef OBJ_OSFROSE
- region_command_t *sd_entry; /* XXX: not sure this is what we need here */
- char *sd_name; /* used until time of writing object file */
- /* then we use sd_entry->regc_region_name */
- unsigned int sd_loadable;
- unsigned int sd_private;
- unsigned int sd_spnum;
- unsigned char sd_sort_key;
+#else /* TARGET_ARCH_SIZE == 32 */
+#include "bfd/elf32-hppa.h"
+#if defined (TE_LINUX)
+#define TARGET_FORMAT "elf32-hppa-linux"
#else
-#ifdef OBJ_ELF
- Elf_Internal_Shdr *sd_entry;
- char *sd_name; /* used until time of writing object file */
- /* then we use sd_entry->sh_name */
- unsigned int sd_loadable;
- unsigned int sd_private;
- unsigned int sd_spnum;
- unsigned char sd_sort_key;
+#if defined (TE_NetBSD)
+#define TARGET_FORMAT "elf32-hppa-netbsd"
#else
- space_dictS *sd_entry; /* this dictionary */
+#define TARGET_FORMAT "elf32-hppa"
#endif
#endif
- int sd_defined; /* this space has been used */
- asection *sd_seg; /* GAS segment to which this space corresponds */
- int sd_last_subseg; /* current subsegment number we are using */
- subspace_dict_chainS *sd_subspaces; /* all subspaces in this space */
- struct space_dictionary_chain *sd_next; /* the next space dict. entry */
- };
-
-typedef struct space_dictionary_chain space_dict_chainS;
-
-/*
- Macros to maintain spaces and subspaces
- */
-
-#ifdef OBJ_OSFROSE
-#define SPACE_DEFINED(space_chain) (space_chain)->sd_defined
-#define SPACE_PRIVATE(space_chain) (space_chain)->sd_private
-#define SPACE_LOADABLE(space_chain) (space_chain)->sd_loadable
-#define SPACE_SPNUM(space_chain) (space_chain)->sd_spnum
-#define SPACE_SORT(space_chain) (space_chain)->sd_sort_key
-#define SPACE_NAME(space_chain) (space_chain)->sd_name
-
-#define SUBSPACE_QUADRANT(ss_chain) (ss_chain)->ssd_quadrant
-#define SUBSPACE_ALIGN(ss_chain) (ss_chain)->ssd_entry->regc_addralign
-#define SUBSPACE_ACCESS(ss_chain) (ss_chain)->ssd_entry->regc_initprot
-#define SUBSPACE_SORT(ss_chain) (ss_chain)->ssd_sort_key
-#define SUBSPACE_COMMON(ss_chain) (ss_chain)->ssd_common
-#define SUBSPACE_ZERO(ss_chain) (ss_chain)->ssd_zero
-#define SUBSPACE_DUP_COMM(ss_chain) (ss_chain)->ssd_dup_common
-#define SUBSPACE_CODE_ONLY(ssch) ((ssch)->ssd_entry->regc_flags & REG_TEXT_T)
-#define SET_SUBSPACE_CODE_ONLY(ssch,val) (ssch)->ssd_entry->regc_flags |= ((val) ? REG_TEXT_T : 0)
-#define SUBSPACE_LOADABLE(ss_chain) (ss_chain)->ssd_loadable
-#define SUBSPACE_SUBSPACE_START(ss_chain) (ss_chain)->ssd_entry->regc_addr.vm_addr
-#define SUBSPACE_SUBSPACE_LENGTH(ss_chain) (ss_chain)->ssd_entry->regc_vm_size
-#define SUBSPACE_REGION_NAME(ss_chain) (ss_chain)->ssd_entry->regc_region_name
-#define SUBSPACE_NAME(ss_chain) (ss_chain)->ssd_name
#endif
-
-#ifdef OBJ_ELF
-#define RELOC_EXPANSION_POSSIBLE
-#define MAX_RELOC_EXPANSION 5
-
-#define SPACE_DEFINED(space_chain) (space_chain)->sd_defined
-#define SPACE_PRIVATE(space_chain) (space_chain)->sd_private
-#define SPACE_LOADABLE(space_chain) (space_chain)->sd_loadable
-#define SPACE_SPNUM(space_chain) (space_chain)->sd_spnum
-#define SPACE_SORT(space_chain) (space_chain)->sd_sort_key
-#define SPACE_NAME(space_chain) (space_chain)->sd_name
-
-#define SUBSPACE_QUADRANT(ss_chain) (ss_chain)->ssd_quadrant
-#define SUBSPACE_ALIGN(ss_chain) (ss_chain)->ssd_entry->sh_addralign
-#define SUBSPACE_ACCESS(ss_chain) (ss_chain)->ssd_entry->sh_flags
-#define SUBSPACE_SORT(ss_chain) (ss_chain)->ssd_sort_key
-#define SUBSPACE_COMMON(ss_chain) (ss_chain)->ssd_common
-#define SUBSPACE_ZERO(ss_chain) (ss_chain)->ssd_zero
-#define SUBSPACE_DUP_COMM(ss_chain) (ss_chain)->ssd_dup_common
-#define SUBSPACE_CODE_ONLY(ssch) \
- (((ssch)->ssd_entry->sh_flags & (SHF_ALLOC | SHF_EXECINSTR | SHF_WRITE)) \
- == (SHF_ALLOC | SHF_EXECINSTR))
-#define SET_SUBSPACE_CODE_ONLY(ssch,val) \
- (ssch)->ssd_entry->sh_flags &= ((val) ? ~SHF_WRITE : 0xffffffff)
-#define SUBSPACE_LOADABLE(ss_chain) (ss_chain)->ssd_loadable
-#define SUBSPACE_SUBSPACE_START(ss_chain) (ss_chain)->ssd_vm_addr
-#define SUBSPACE_SUBSPACE_LENGTH(ss_chain) (ss_chain)->ssd_entry->sh_size
-#define SUBSPACE_NAME(ss_chain) (ss_chain)->ssd_name
-
-#define STAB_FIXUP(frag,toptr,symP,stab_type) \
- if ( (stab_type == 's' || stab_type == 'n') \
- && symP->sy_value.X_seg == undefined_section) \
- { \
- int i = S_GET_TYPE(symP) & N_TYPE; \
- fix_new_hppa(frag, \
- toptr-frag->fr_literal, /* where */ \
- 4, /* size */ \
- symP->sy_value.X_add_symbol, /* addr of sym for this stab */ \
- (asymbol *)NULL, \
- 0, \
- i == N_UNDF || i == N_ABS, /* 1 if internal reloc */ \
- R_HPPA, /* type */ \
- e_fsel, /* fixup fld = F% */ \
- 32, \
- 0, /* arg_reloc */ \
- (char *)0 \
- ); \
- } \
- else if ( stab_type == 'd' ) \
- { \
- fix_new_hppa (frag, \
- toptr-frag->fr_literal, /* where */ \
- 4, /* size */ \
- symP, /* addr of sym for this stab */ \
- (asymbol *)NULL, \
- 0, \
- 0, \
- R_HPPA, /* type */ \
- e_fsel, /* fixup fld = F% */ \
- 32, \
- 0, /* arg_reloc */ \
- (char *)0 \
- ); \
- }
-
#endif
#ifdef OBJ_SOM
-#define SPACE_DEFINED(space_chain) (space_chain)->sd_entry->is_defined
-#define SPACE_PRIVATE(space_chain) (space_chain)->sd_entry->is_private
-#define SPACE_LOADABLE(space_chain) (space_chain)->sd_entry->is_loadable
-#define SPACE_SPNUM(space_chain) (space_chain)->sd_entry->space_number
-#define SPACE_SORT(space_chain) (space_chain)->sd_entry->sort_key
-#define SPACE_NAME(space_chain) (space_chain)->sd_entry->name
-
-#define SUBSPACE_QUADRANT(ss_chain) (ss_chain)->ssd_entry->quadrant
-#define SUBSPACE_ALIGN(ss_chain) (ss_chain)->ssd_entry->alignment
-#define SUBSPACE_ACCESS(ss_chain) (ss_chain)->ssd_entry->access_control_bits
-#define SUBSPACE_SORT(ss_chain) (ss_chain)->ssd_entry->sort_key
-#define SUBSPACE_COMMON(ss_chain) (ss_chain)->ssd_entry->is_common
-#define SUBSPACE_ZERO(ss_chain) (ss_chain)->ssd_zero
-#define SUBSPACE_DUP_COMM(ss_chain) (ss_chain)->ssd_entry->dup_common
-#define SUBSPACE_CODE_ONLY(ss_chain) (ss_chain)->ssd_entry->code_only
-#define SUBSPACE_LOADABLE(ss_chain) (ss_chain)->ssd_entry->is_loadable
-#define SUBSPACE_SUBSPACE_START(ss_chain) (ss_chain)->ssd_entry->subspace_start
-#define SUBSPACE_SUBSPACE_LENGTH(ss_chain) (ss_chain)->ssd_entry->subspace_length
-#define SUBSPACE_NAME(ss_chain) (ss_chain)->ssd_entry->name
+#include "bfd/som.h"
+#define TARGET_FORMAT "som"
#endif
-extern space_dict_chainS *space_dict_root;
-extern space_dict_chainS *space_dict_last;
-
-extern space_dict_chainS *current_space;
-extern subspace_dict_chainS *current_subspace;
+#if defined(TE_LINUX) || defined(TE_NetBSD)
+/* Define to compile in an extra assembler option, -c, which enables a
+ warning (once per file) when a comment is encountered.
+ The hppa comment char is a `;' which tends to occur in random C asm
+ statements. A semicolon is a line separator for most assemblers.
+ It's hard to find these lurking semicolons. Thus... */
+#define WARN_COMMENTS 1
+#endif
-extern space_dict_chainS *create_new_space ();
+/* FIXME. Why oh why aren't these defined somewhere globally? */
+#ifndef FALSE
+#define FALSE (0)
+#define TRUE (!FALSE)
+#endif
-extern subspace_dict_chainS *create_new_subspace ();
+#define ASEC_NULL (asection *)0
-extern subspace_dict_chainS *update_subspace ();
+/* pa_define_label gets used outside of tc-hppa.c via tc_frob_label. */
+extern void pa_define_label (symbolS *);
+extern int parse_cons_expression_hppa (expressionS *);
+extern void cons_fix_new_hppa (fragS *, int, int, expressionS *, int);
+extern int hppa_force_relocation (struct fix *);
-extern space_dict_chainS *is_defined_space ();
+/* This gets called before writing the object file to make sure
+ things like entry/exit and proc/procend pairs match. */
+extern void pa_check_eof (void);
+#define tc_frob_file pa_check_eof
-extern space_dict_chainS *pa_segment_to_space ();
+#define tc_frob_label(sym) pa_define_label (sym)
-extern subspace_dict_chainS *is_defined_subspace ();
+extern const char hppa_symbol_chars[];
+#define tc_symbol_chars hppa_symbol_chars
-extern subspace_dict_chainS *pa_subsegment_to_subspace ();
+#define RELOC_EXPANSION_POSSIBLE
+#define MAX_RELOC_EXPANSION 6
-extern space_dict_chainS *pa_find_space_by_number ();
+/* The PA needs to parse field selectors in .byte, etc. */
-extern unsigned int pa_subspace_start ();
+#define TC_PARSE_CONS_EXPRESSION(EXP, NBYTES) \
+ parse_cons_expression_hppa (EXP)
+#define TC_CONS_FIX_NEW cons_fix_new_hppa
+#define TC_PARSE_CONS_RETURN_TYPE int
+#define TC_PARSE_CONS_RETURN_NONE e_fsel
-extern int is_last_defined_subspace ();
+/* On the PA, an exclamation point can appear in an instruction. It is
+ used in FP comparison instructions and as an end of line marker.
+ When used in an instruction it will always follow a comma. */
+#define TC_EOL_IN_INSN(PTR) (*(PTR) == '!' && (PTR)[-1] == ',')
-/* symbol support */
+int hppa_fix_adjustable (struct fix *);
+#define tc_fix_adjustable hppa_fix_adjustable
-extern symbolS *pa_get_start_symbol ();
+#define EXTERN_FORCE_RELOC 1
-extern symbolS *pa_set_start_symbol ();
+/* Because of the strange PA calling conventions, it is sometimes
+ necessary to emit a relocation for a call even though it would
+ normally appear safe to handle it completely within GAS. */
+#define TC_FORCE_RELOCATION(FIX) hppa_force_relocation (FIX)
-/* default space and subspace dictionaries */
+/* Values passed to md_apply_fix don't include the symbol value. */
+#define MD_APPLY_SYM_VALUE(FIX) 0
-struct default_subspace_dict
- {
- char *name;
- char defined;
- char loadable, code_only, common, dup_common, zero, sort;
- int access, space_index, alignment, quadrant;
#ifdef OBJ_SOM
- segT segment;
-#else
- int def_space_index; /* this is an index in the default spaces array */
- char *alias; /* an alias for this section (or NULL if there isn't one) */
-#endif
- subsegT subsegment;
- };
-
-extern struct default_subspace_dict pa_def_subspaces[];
-
-struct default_space_dict
- {
- char *name;
- int spnum;
- char loadable;
- char defined;
- char private;
- char sort;
-#ifdef OBJ_SOM
- segT segment;
-#else
- asection *segment;
- char *alias; /* an alias for this section (or NULL if there isn't one) */
+/* If a symbol is imported, but never used, then the symbol should
+ *not* end up in the symbol table. Likewise for absolute symbols
+ with local scope. */
+#define tc_frob_symbol(sym,punt) \
+ if ((S_GET_SEGMENT (sym) == bfd_und_section_ptr && ! symbol_used_p (sym)) \
+ || (S_GET_SEGMENT (sym) == bfd_abs_section_ptr \
+ && ! S_IS_EXTERNAL (sym))) \
+ punt = 1
+
+/* We need to be able to make relocations involving the difference of
+ two symbols. This includes the difference of two symbols when
+ one of them is undefined (this comes up in PIC code generation).
+
+ We allow the difference of two symbols when the subtract symbol is
+ local to the relocation. This is implemented using R_HPPA_COMPLEX.
+
+ This has some limitations. Difference expressions only work between
+ symbols in the same segment/quadrant of a module since the HP dynamic
+ loader relocates the text and data segments independently. Thus, a
+ difference expression can't be used between text and data symbols,
+ or between symbols in different executable modules. */
+#define DIFF_EXPR_OK 1
+#define TC_FORCE_RELOCATION_SUB_LOCAL(FIX, SEG) 1
+#define UNDEFINED_DIFFERENCE_OK
#endif
- };
-extern struct default_space_dict pa_def_spaces[];
-
-/*
- Support for keeping track of the most recent label in each
- space.
- */
-
-typedef struct label_symbol_struct
- {
- symbolS *lss_label; /* the label symbol */
- space_dict_chainS *lss_space; /* the space to which it applies*/
- struct label_symbol_struct *lss_next; /* the next label symbol */
- } label_symbolS;
+#ifdef OBJ_ELF
-extern label_symbolS *label_symbols_rootP;
+/* Difference expressions for the 64-bit HP-UX target have the same
+ limitations as those for the 32-bit SOM target. */
+#define DIFF_EXPR_OK 1
+
+/* Handle .type pseudo. Given a type string of `millicode', set the
+ internal elf symbol type to STT_PARISC_MILLI, and return
+ BSF_FUNCTION for the BFD symbol type. */
+#define md_elf_symbol_type(name, sym, elf) \
+ ((strcmp ((name), "millicode") == 0 \
+ || strcmp ((name), "STT_PARISC_MILLI") == 0) \
+ ? (((elf)->internal_elf_sym.st_info = ELF_ST_INFO \
+ (ELF_ST_BIND ((elf)->internal_elf_sym.st_info), STT_PARISC_MILLI)\
+ ), BSF_FUNCTION) \
+ : -1)
+
+/* Handle type change from .type pseudo: Zap STT_PARISC_MILLI when
+ switching to a non-function type. */
+#define md_elf_symbol_type_change(sym, elf, type) \
+ ((type) != BSF_FUNCTION \
+ && (((elf)->internal_elf_sym.st_info = \
+ ELF_ST_INFO (ELF_ST_BIND ((elf)->internal_elf_sym.st_info), \
+ STT_NOTYPE)), 0))
+
+#define tc_frob_symbol(sym,punt) \
+ { \
+ if ((S_GET_SEGMENT (sym) == bfd_und_section_ptr \
+ && ! symbol_used_p (sym) \
+ && ELF_ST_VISIBILITY (S_GET_OTHER (sym)) == STV_DEFAULT) \
+ || strcmp (S_GET_NAME (sym), "$global$") == 0 \
+ || strcmp (S_GET_NAME (sym), "$segrel$") == 0 \
+ || strcmp (S_GET_NAME (sym), "$PIC_pcrel$0") == 0 \
+ || strcmp (S_GET_NAME (sym), "$tls_gdidx$") == 0 \
+ || strcmp (S_GET_NAME (sym), "$tls_ldidx$") == 0 \
+ || strcmp (S_GET_NAME (sym), "$tls_dtpoff$") == 0 \
+ || strcmp (S_GET_NAME (sym), "$tls_ieoff$") == 0 \
+ || strcmp (S_GET_NAME (sym), "$tls_leoff$") == 0) \
+ punt = 1; \
+ }
-label_symbolS *pa_get_label ();
-int pa_label_is_defined ();
-void pa_define_label ();
-void pa_undefine_label ();
-int pa_pseudo_op_moves_pc ();
+#define elf_tc_final_processing elf_hppa_final_processing
+void elf_hppa_final_processing (void);
+#endif /* OBJ_ELF */
-/* end of label symbol support. */
+#define md_operand(x)
-#define is_DP_relative(exp) ( (exp).X_subtract_symbol \
- && strcmp((exp).X_subtract_symbol->bsym->name, \
- "$global$") == 0 )
+/* Allow register expressions to be treated as absolute expressions.
+ A silly fudge required for backwards compatibility. */
+#define md_optimize_expr hppa_force_reg_syms_absolute
-#define is_PC_relative(exp) ( (exp).X_subtract_symbol \
- && strcmp((exp).X_subtract_symbol->bsym->name, \
- "$PIC_pcrel$0") == 0 )
+int hppa_force_reg_syms_absolute (expressionS *, operatorT, expressionS *);
-#define is_complex(exp) ((exp).X_seg && (exp).X_seg == diff_section)
+#define TC_FIX_TYPE void *
+#define TC_INIT_FIX_DATA(FIX) ((FIX)->tc_fix_data = NULL)
-#define tc_crawl_symbol_chain(headers) {;} /* Not used. */
+#ifdef OBJ_ELF
+#define TARGET_USE_CFIPOP 1
-#define tc_headers_hook(headers) {;} /* Not used. */
+#define tc_cfi_frame_initial_instructions hppa_cfi_frame_initial_instructions
+extern void hppa_cfi_frame_initial_instructions (void);
-#define elf_tc_symbol elf_hppa_tc_symbol
-#define elf_tc_make_sections elf_hppa_tc_make_sections
-extern void elf_hppa_final_processing ();
-#define elf_tc_final_processing elf_hppa_final_processing
+#define tc_regname_to_dw2regnum hppa_regname_to_dw2regnum
+extern int hppa_regname_to_dw2regnum (char *regname);
-/* We need to parse field selectors in .byte, etc. */
+#define DWARF2_LINE_MIN_INSN_LENGTH 4
+#define DWARF2_DEFAULT_RETURN_COLUMN 2
+#if TARGET_ARCH_SIZE == 64
+#define DWARF2_CIE_DATA_ALIGNMENT 8
+#define DWARF2_FDE_RELOC_SIZE 8
+#else
+#define DWARF2_CIE_DATA_ALIGNMENT 4
+#endif
-#define TC_PARSE_CONS_EXPRESSION(EXP, NBYTES) \
- parse_cons_expression_hppa (exp)
-#define TC_CONS_FIX_NEW cons_fix_new_hppa
+#if !defined (TE_LINUX) && !defined (TE_NetBSD)
+/* Due to the way dynamic linking to personality functions is handled
+ on HP-UX, we need to have a read-write .eh_frame section. */
+#define DWARF2_EH_FRAME_READ_ONLY 0
-extern void parse_cons_expression_hppa PARAMS ((expressionS *exp));
-extern void cons_fix_new_hppa PARAMS ((fragS *frag,
- int where,
- int size,
- expressionS *exp));
+/* Because differences between text and data symbols don't work, we
+ can't use difference expressions during CFI generation. */
+#define CFI_DIFF_EXPR_OK 0
+#endif
+#endif /* OBJ_ELF */
#endif /* _TC_HPPA_H */