/* tc-hppa.h -- Header file for the PA
|
/* tc-hppa.h -- Header file for the PA
|
Copyright 1989, 1993, 1994, 1995, 1997, 1998, 1999, 2000, 2001, 2002,
|
Copyright 1989, 1993, 1994, 1995, 1997, 1998, 1999, 2000, 2001, 2002,
|
2003, 2004, 2005, 2006, 2007 Free Software Foundation, Inc.
|
2003, 2004, 2005, 2006, 2007 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
|
GAS is free software; you can redistribute it and/or modify
|
it under the terms of the GNU General Public License as published by
|
it under the terms of the GNU General Public License as published by
|
the Free Software Foundation; either version 3, or (at your option)
|
the Free Software Foundation; either version 3, or (at your option)
|
any later version.
|
any later version.
|
|
|
GAS is distributed in the hope that it will be useful,
|
GAS is distributed in the hope that it will be useful,
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
GNU General Public License for more details.
|
GNU General Public License for more details.
|
|
|
You should have received a copy of the GNU General Public License
|
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
|
along with GAS; see the file COPYING. If not, write to the Free
|
Software Foundation, 51 Franklin Street - Fifth Floor, Boston, MA
|
Software Foundation, 51 Franklin Street - Fifth Floor, Boston, MA
|
02110-1301, USA. */
|
02110-1301, USA. */
|
|
|
/* HP PA-RISC support was contributed by the Center for Software Science
|
/* HP PA-RISC support was contributed by the Center for Software Science
|
at the University of Utah. */
|
at the University of Utah. */
|
|
|
/* Please refrain from exposing the world to the internals of tc-hppa.c
|
/* Please refrain from exposing the world to the internals of tc-hppa.c
|
when this file is included. This means only declaring exported functions,
|
when this file is included. This means only declaring exported functions,
|
(please PARAMize them!) not exporting structures and data items which
|
(please PARAMize them!) not exporting structures and data items which
|
are used solely within tc-hppa.c, etc.
|
are used solely within tc-hppa.c, etc.
|
|
|
Also refrain from adding any more object file dependent code, there is
|
Also refrain from adding any more object file dependent code, there is
|
already far too much object file format dependent code in this file.
|
already far too much object file format dependent code in this file.
|
In theory this file should contain only exported functions, structures
|
In theory this file should contain only exported functions, structures
|
and data declarations common to all PA assemblers. */
|
and data declarations common to all PA assemblers. */
|
|
|
#ifndef _TC_HPPA_H
|
#ifndef _TC_HPPA_H
|
#define _TC_HPPA_H
|
#define _TC_HPPA_H
|
|
|
#ifndef TC_HPPA
|
#ifndef TC_HPPA
|
#define TC_HPPA 1
|
#define TC_HPPA 1
|
#endif
|
#endif
|
|
|
#define TARGET_BYTES_BIG_ENDIAN 1
|
#define TARGET_BYTES_BIG_ENDIAN 1
|
|
|
#define TARGET_ARCH bfd_arch_hppa
|
#define TARGET_ARCH bfd_arch_hppa
|
|
|
#define WORKING_DOT_WORD
|
#define WORKING_DOT_WORD
|
|
|
#ifdef OBJ_ELF
|
#ifdef OBJ_ELF
|
#if TARGET_ARCH_SIZE == 64
|
#if TARGET_ARCH_SIZE == 64
|
#include "bfd/elf64-hppa.h"
|
#include "bfd/elf64-hppa.h"
|
#if defined (TE_LINUX) || defined (TE_NetBSD)
|
#if defined (TE_LINUX) || defined (TE_NetBSD)
|
#define TARGET_FORMAT "elf64-hppa-linux"
|
#define TARGET_FORMAT "elf64-hppa-linux"
|
#else
|
#else
|
#define TARGET_FORMAT "elf64-hppa"
|
#define TARGET_FORMAT "elf64-hppa"
|
#endif
|
#endif
|
#else /* TARGET_ARCH_SIZE == 32 */
|
#else /* TARGET_ARCH_SIZE == 32 */
|
#include "bfd/elf32-hppa.h"
|
#include "bfd/elf32-hppa.h"
|
#if defined (TE_LINUX)
|
#if defined (TE_LINUX)
|
#define TARGET_FORMAT "elf32-hppa-linux"
|
#define TARGET_FORMAT "elf32-hppa-linux"
|
#else
|
#else
|
#if defined (TE_NetBSD)
|
#if defined (TE_NetBSD)
|
#define TARGET_FORMAT "elf32-hppa-netbsd"
|
#define TARGET_FORMAT "elf32-hppa-netbsd"
|
#else
|
#else
|
#define TARGET_FORMAT "elf32-hppa"
|
#define TARGET_FORMAT "elf32-hppa"
|
#endif
|
#endif
|
#endif
|
#endif
|
#endif
|
#endif
|
#endif
|
#endif
|
|
|
#ifdef OBJ_SOM
|
#ifdef OBJ_SOM
|
#include "bfd/som.h"
|
#include "bfd/som.h"
|
#define TARGET_FORMAT "som"
|
#define TARGET_FORMAT "som"
|
#endif
|
#endif
|
|
|
#if defined(TE_LINUX) || defined(TE_NetBSD)
|
#if defined(TE_LINUX) || defined(TE_NetBSD)
|
/* Define to compile in an extra assembler option, -c, which enables a
|
/* Define to compile in an extra assembler option, -c, which enables a
|
warning (once per file) when a comment is encountered.
|
warning (once per file) when a comment is encountered.
|
The hppa comment char is a `;' which tends to occur in random C asm
|
The hppa comment char is a `;' which tends to occur in random C asm
|
statements. A semicolon is a line separator for most assemblers.
|
statements. A semicolon is a line separator for most assemblers.
|
It's hard to find these lurking semicolons. Thus... */
|
It's hard to find these lurking semicolons. Thus... */
|
#define WARN_COMMENTS 1
|
#define WARN_COMMENTS 1
|
#endif
|
#endif
|
|
|
/* FIXME. Why oh why aren't these defined somewhere globally? */
|
/* FIXME. Why oh why aren't these defined somewhere globally? */
|
#ifndef FALSE
|
#ifndef FALSE
|
#define FALSE (0)
|
#define FALSE (0)
|
#define TRUE (!FALSE)
|
#define TRUE (!FALSE)
|
#endif
|
#endif
|
|
|
#define ASEC_NULL (asection *)0
|
#define ASEC_NULL (asection *)0
|
|
|
/* pa_define_label gets used outside of tc-hppa.c via tc_frob_label. */
|
/* pa_define_label gets used outside of tc-hppa.c via tc_frob_label. */
|
extern void pa_define_label (symbolS *);
|
extern void pa_define_label (symbolS *);
|
extern void parse_cons_expression_hppa (expressionS *);
|
extern void parse_cons_expression_hppa (expressionS *);
|
extern void cons_fix_new_hppa (fragS *, int, int, expressionS *);
|
extern void cons_fix_new_hppa (fragS *, int, int, expressionS *);
|
extern int hppa_force_relocation (struct fix *);
|
extern int hppa_force_relocation (struct fix *);
|
|
|
/* This gets called before writing the object file to make sure
|
/* This gets called before writing the object file to make sure
|
things like entry/exit and proc/procend pairs match. */
|
things like entry/exit and proc/procend pairs match. */
|
extern void pa_check_eof (void);
|
extern void pa_check_eof (void);
|
#define tc_frob_file pa_check_eof
|
#define tc_frob_file pa_check_eof
|
|
|
#define tc_frob_label(sym) pa_define_label (sym)
|
#define tc_frob_label(sym) pa_define_label (sym)
|
|
|
extern const char hppa_symbol_chars[];
|
extern const char hppa_symbol_chars[];
|
#define tc_symbol_chars hppa_symbol_chars
|
#define tc_symbol_chars hppa_symbol_chars
|
|
|
#define RELOC_EXPANSION_POSSIBLE
|
#define RELOC_EXPANSION_POSSIBLE
|
#define MAX_RELOC_EXPANSION 6
|
#define MAX_RELOC_EXPANSION 6
|
|
|
/* The PA needs to parse field selectors in .byte, etc. */
|
/* The PA needs to parse field selectors in .byte, etc. */
|
|
|
#define TC_PARSE_CONS_EXPRESSION(EXP, NBYTES) \
|
#define TC_PARSE_CONS_EXPRESSION(EXP, NBYTES) \
|
parse_cons_expression_hppa (EXP)
|
parse_cons_expression_hppa (EXP)
|
#define TC_CONS_FIX_NEW cons_fix_new_hppa
|
#define TC_CONS_FIX_NEW cons_fix_new_hppa
|
|
|
/* On the PA, an exclamation point can appear in an instruction. It is
|
/* 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.
|
used in FP comparison instructions and as an end of line marker.
|
When used in an instruction it will always follow a comma. */
|
When used in an instruction it will always follow a comma. */
|
#define TC_EOL_IN_INSN(PTR) (*(PTR) == '!' && (PTR)[-1] == ',')
|
#define TC_EOL_IN_INSN(PTR) (*(PTR) == '!' && (PTR)[-1] == ',')
|
|
|
int hppa_fix_adjustable (struct fix *);
|
int hppa_fix_adjustable (struct fix *);
|
#define tc_fix_adjustable hppa_fix_adjustable
|
#define tc_fix_adjustable hppa_fix_adjustable
|
|
|
#define EXTERN_FORCE_RELOC 1
|
#define EXTERN_FORCE_RELOC 1
|
|
|
/* Because of the strange PA calling conventions, it is sometimes
|
/* Because of the strange PA calling conventions, it is sometimes
|
necessary to emit a relocation for a call even though it would
|
necessary to emit a relocation for a call even though it would
|
normally appear safe to handle it completely within GAS. */
|
normally appear safe to handle it completely within GAS. */
|
#define TC_FORCE_RELOCATION(FIX) hppa_force_relocation (FIX)
|
#define TC_FORCE_RELOCATION(FIX) hppa_force_relocation (FIX)
|
|
|
/* Values passed to md_apply_fix don't include the symbol value. */
|
/* Values passed to md_apply_fix don't include the symbol value. */
|
#define MD_APPLY_SYM_VALUE(FIX) 0
|
#define MD_APPLY_SYM_VALUE(FIX) 0
|
|
|
#ifdef OBJ_SOM
|
#ifdef OBJ_SOM
|
/* If a symbol is imported, but never used, then the symbol should
|
/* If a symbol is imported, but never used, then the symbol should
|
*not* end up in the symbol table. Likewise for absolute symbols
|
*not* end up in the symbol table. Likewise for absolute symbols
|
with local scope. */
|
with local scope. */
|
#define tc_frob_symbol(sym,punt) \
|
#define tc_frob_symbol(sym,punt) \
|
if ((S_GET_SEGMENT (sym) == &bfd_und_section && ! symbol_used_p (sym)) \
|
if ((S_GET_SEGMENT (sym) == &bfd_und_section && ! symbol_used_p (sym)) \
|
|| (S_GET_SEGMENT (sym) == &bfd_abs_section \
|
|| (S_GET_SEGMENT (sym) == &bfd_abs_section \
|
&& ! S_IS_EXTERNAL (sym))) \
|
&& ! S_IS_EXTERNAL (sym))) \
|
punt = 1
|
punt = 1
|
|
|
/* We need to be able to make relocations involving the difference of
|
/* We need to be able to make relocations involving the difference of
|
two symbols. This includes the difference of two symbols when
|
two symbols. This includes the difference of two symbols when
|
one of them is undefined (this comes up in PIC code generation).
|
one of them is undefined (this comes up in PIC code generation).
|
|
|
We don't define DIFF_EXPR_OK because it does the wrong thing if
|
We don't define DIFF_EXPR_OK because it does the wrong thing if
|
the add symbol is undefined and the sub symbol is a symbol in
|
the add symbol is undefined and the sub symbol is a symbol in
|
the same section as the relocation. We also need some way to
|
the same section as the relocation. We also need some way to
|
specialize some code in adjust_reloc_syms. */
|
specialize some code in adjust_reloc_syms. */
|
#define UNDEFINED_DIFFERENCE_OK
|
#define UNDEFINED_DIFFERENCE_OK
|
#endif
|
#endif
|
|
|
#ifdef OBJ_ELF
|
#ifdef OBJ_ELF
|
#define DIFF_EXPR_OK 1
|
#define DIFF_EXPR_OK 1
|
|
|
/* Handle .type psuedo. Given a type string of `millicode', set the
|
/* Handle .type psuedo. Given a type string of `millicode', set the
|
internal elf symbol type to STT_PARISC_MILLI, and return
|
internal elf symbol type to STT_PARISC_MILLI, and return
|
BSF_FUNCTION for the BFD symbol type. */
|
BSF_FUNCTION for the BFD symbol type. */
|
#define md_elf_symbol_type(name, sym, elf) \
|
#define md_elf_symbol_type(name, sym, elf) \
|
((strcmp ((name), "millicode") == 0 \
|
((strcmp ((name), "millicode") == 0 \
|
|| strcmp ((name), "STT_PARISC_MILLI") == 0) \
|
|| strcmp ((name), "STT_PARISC_MILLI") == 0) \
|
? (((elf)->internal_elf_sym.st_info = ELF_ST_INFO \
|
? (((elf)->internal_elf_sym.st_info = ELF_ST_INFO \
|
(ELF_ST_BIND ((elf)->internal_elf_sym.st_info), STT_PARISC_MILLI)\
|
(ELF_ST_BIND ((elf)->internal_elf_sym.st_info), STT_PARISC_MILLI)\
|
), BSF_FUNCTION) \
|
), BSF_FUNCTION) \
|
: -1)
|
: -1)
|
|
|
#define tc_frob_symbol(sym,punt) \
|
#define tc_frob_symbol(sym,punt) \
|
{ \
|
{ \
|
if ((S_GET_SEGMENT (sym) == &bfd_und_section \
|
if ((S_GET_SEGMENT (sym) == &bfd_und_section \
|
&& ! symbol_used_p (sym) \
|
&& ! symbol_used_p (sym) \
|
&& ELF_ST_VISIBILITY (S_GET_OTHER (sym)) == STV_DEFAULT) \
|
&& ELF_ST_VISIBILITY (S_GET_OTHER (sym)) == STV_DEFAULT) \
|
|| (S_GET_SEGMENT (sym) == &bfd_abs_section \
|
|| (S_GET_SEGMENT (sym) == &bfd_abs_section \
|
&& ! S_IS_EXTERNAL (sym)) \
|
&& ! S_IS_EXTERNAL (sym)) \
|
|| strcmp (S_GET_NAME (sym), "$global$") == 0 \
|
|| strcmp (S_GET_NAME (sym), "$global$") == 0 \
|
|| strcmp (S_GET_NAME (sym), "$PIC_pcrel$0") == 0 \
|
|| strcmp (S_GET_NAME (sym), "$PIC_pcrel$0") == 0 \
|
|| strcmp (S_GET_NAME (sym), "$tls_gdidx$") == 0 \
|
|| strcmp (S_GET_NAME (sym), "$tls_gdidx$") == 0 \
|
|| strcmp (S_GET_NAME (sym), "$tls_ldidx$") == 0 \
|
|| strcmp (S_GET_NAME (sym), "$tls_ldidx$") == 0 \
|
|| strcmp (S_GET_NAME (sym), "$tls_dtpoff$") == 0 \
|
|| strcmp (S_GET_NAME (sym), "$tls_dtpoff$") == 0 \
|
|| strcmp (S_GET_NAME (sym), "$tls_ieoff$") == 0 \
|
|| strcmp (S_GET_NAME (sym), "$tls_ieoff$") == 0 \
|
|| strcmp (S_GET_NAME (sym), "$tls_leoff$") == 0) \
|
|| strcmp (S_GET_NAME (sym), "$tls_leoff$") == 0) \
|
punt = 1; \
|
punt = 1; \
|
}
|
}
|
|
|
#define elf_tc_final_processing elf_hppa_final_processing
|
#define elf_tc_final_processing elf_hppa_final_processing
|
void elf_hppa_final_processing (void);
|
void elf_hppa_final_processing (void);
|
|
|
#define DWARF2_LINE_MIN_INSN_LENGTH 4
|
#define DWARF2_LINE_MIN_INSN_LENGTH 4
|
#endif /* OBJ_ELF */
|
#endif /* OBJ_ELF */
|
|
|
#define md_operand(x)
|
#define md_operand(x)
|
|
|
/* Allow register expressions to be treated as absolute expressions.
|
/* Allow register expressions to be treated as absolute expressions.
|
A silly fudge required for backwards compatibility. */
|
A silly fudge required for backwards compatibility. */
|
#define md_optimize_expr hppa_force_reg_syms_absolute
|
#define md_optimize_expr hppa_force_reg_syms_absolute
|
|
|
int hppa_force_reg_syms_absolute (expressionS *, operatorT, expressionS *);
|
int hppa_force_reg_syms_absolute (expressionS *, operatorT, expressionS *);
|
|
|
#define TC_FIX_TYPE PTR
|
#define TC_FIX_TYPE PTR
|
#define TC_INIT_FIX_DATA(FIX) ((FIX)->tc_fix_data = NULL)
|
#define TC_INIT_FIX_DATA(FIX) ((FIX)->tc_fix_data = NULL)
|
|
|
#ifdef OBJ_ELF
|
#ifdef OBJ_ELF
|
#define TARGET_USE_CFIPOP 1
|
#define TARGET_USE_CFIPOP 1
|
|
|
#define tc_cfi_frame_initial_instructions hppa_cfi_frame_initial_instructions
|
#define tc_cfi_frame_initial_instructions hppa_cfi_frame_initial_instructions
|
extern void hppa_cfi_frame_initial_instructions (void);
|
extern void hppa_cfi_frame_initial_instructions (void);
|
|
|
#define tc_regname_to_dw2regnum hppa_regname_to_dw2regnum
|
#define tc_regname_to_dw2regnum hppa_regname_to_dw2regnum
|
extern int hppa_regname_to_dw2regnum (char *regname);
|
extern int hppa_regname_to_dw2regnum (char *regname);
|
|
|
#define DWARF2_LINE_MIN_INSN_LENGTH 4
|
#define DWARF2_LINE_MIN_INSN_LENGTH 4
|
#define DWARF2_DEFAULT_RETURN_COLUMN 2
|
#define DWARF2_DEFAULT_RETURN_COLUMN 2
|
#if TARGET_ARCH_SIZE == 64
|
#if TARGET_ARCH_SIZE == 64
|
#define DWARF2_CIE_DATA_ALIGNMENT (-8)
|
#define DWARF2_CIE_DATA_ALIGNMENT (-8)
|
#else
|
#else
|
#define DWARF2_CIE_DATA_ALIGNMENT (-4)
|
#define DWARF2_CIE_DATA_ALIGNMENT (-4)
|
#endif
|
#endif
|
#endif
|
#endif
|
|
|
#endif /* _TC_HPPA_H */
|
#endif /* _TC_HPPA_H */
|
|
|
