2001-02-10 01:58:38 +01:00
|
|
|
/* tc-s390.h -- Header file for tc-s390.c.
|
2002-05-04 19:38:00 +02:00
|
|
|
Copyright 2000, 2001, 2002 Free Software Foundation, Inc.
|
2001-02-10 01:58:38 +01:00
|
|
|
Written by Martin Schwidefsky (schwidefsky@de.ibm.com).
|
|
|
|
|
|
|
|
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 2, 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, 59 Temple Place - Suite 330, Boston, MA
|
2002-05-04 19:38:00 +02:00
|
|
|
02111-1307, USA. */
|
2001-02-10 01:58:38 +01:00
|
|
|
|
|
|
|
#define TC_S390
|
|
|
|
|
|
|
|
#ifdef ANSI_PROTOTYPES
|
|
|
|
struct fix;
|
|
|
|
#endif
|
|
|
|
|
|
|
|
#ifndef BFD_ASSEMBLER
|
|
|
|
#error S390 support requires BFD_ASSEMBLER
|
|
|
|
#endif
|
|
|
|
|
2002-09-05 02:01:18 +02:00
|
|
|
#define TC_FORCE_RELOCATION(FIX) tc_s390_force_relocation(FIX)
|
2001-11-05 09:47:46 +01:00
|
|
|
extern int tc_s390_force_relocation PARAMS ((struct fix *));
|
2001-06-06 14:06:56 +02:00
|
|
|
|
2003-02-13 00:21:08 +01:00
|
|
|
/* Don't resolve foo@PLT-bar to offset@PLT. */
|
|
|
|
#define TC_FORCE_RELOCATION_SUB_SAME(FIX, SEG) \
|
|
|
|
(! SEG_NORMAL (SEG) || TC_FORCE_RELOCATION (FIX))
|
|
|
|
|
2001-02-10 01:58:38 +01:00
|
|
|
#define tc_fix_adjustable(X) tc_s390_fix_adjustable(X)
|
|
|
|
extern int tc_s390_fix_adjustable PARAMS ((struct fix *));
|
|
|
|
|
2002-09-05 02:01:18 +02:00
|
|
|
/* Values passed to md_apply_fix3 don't include symbol values. */
|
|
|
|
#define MD_APPLY_SYM_VALUE(FIX) 0
|
2001-11-05 09:47:46 +01:00
|
|
|
|
2001-02-10 01:58:38 +01:00
|
|
|
/* The target BFD architecture. */
|
|
|
|
#define TARGET_ARCH bfd_arch_s390
|
|
|
|
extern enum bfd_architecture s390_arch PARAMS ((void));
|
|
|
|
|
|
|
|
/* The target BFD format. */
|
|
|
|
#define TARGET_FORMAT s390_target_format()
|
2002-05-04 19:38:00 +02:00
|
|
|
extern const char *s390_target_format PARAMS ((void));
|
2001-02-10 01:58:38 +01:00
|
|
|
|
2002-05-04 19:38:00 +02:00
|
|
|
/* Set the endianness we are using. */
|
2001-02-10 01:58:38 +01:00
|
|
|
#define TARGET_BYTES_BIG_ENDIAN 1
|
|
|
|
|
|
|
|
/* Whether or not the target is big endian */
|
|
|
|
extern int target_big_endian;
|
|
|
|
|
|
|
|
/* Permit temporary numeric labels. */
|
|
|
|
#define LOCAL_LABELS_FB 1
|
|
|
|
|
|
|
|
/* $ is used to refer to the current location. */
|
|
|
|
/* #define DOLLAR_DOT */
|
|
|
|
|
|
|
|
/* We need to be able to make relocations involving the difference of
|
|
|
|
two symbols. This includes the difference of two symbols when
|
2001-07-23 12:21:22 +02:00
|
|
|
one of them is undefined (this comes up in PIC code generation).
|
2001-02-10 01:58:38 +01:00
|
|
|
*/
|
|
|
|
#define UNDEFINED_DIFFERENCE_OK
|
|
|
|
|
|
|
|
/* foo-. gets turned into PC relative relocs */
|
|
|
|
#define DIFF_EXPR_OK
|
|
|
|
|
|
|
|
/* We don't need to handle .word strangely. */
|
|
|
|
#define WORKING_DOT_WORD
|
|
|
|
|
|
|
|
#define md_number_to_chars number_to_chars_bigendian
|
|
|
|
|
|
|
|
#define md_do_align(n, fill, len, max, around) \
|
|
|
|
if ((n) && !need_pass_2 && (fill == 0) && \
|
|
|
|
(bfd_get_section_flags (stdoutput, now_seg) & SEC_CODE) != 0) { \
|
|
|
|
char *p; \
|
|
|
|
p = frag_var (rs_align_code, 15, 1, (relax_substateT) max, \
|
|
|
|
(symbolS *) 0, (offsetT) (n), (char *) 0); \
|
|
|
|
*p = 0x07; \
|
|
|
|
goto around; \
|
|
|
|
}
|
|
|
|
|
|
|
|
extern void s390_align_code PARAMS ((fragS *, int));
|
|
|
|
|
|
|
|
#define HANDLE_ALIGN(fragP) \
|
2001-07-23 12:21:22 +02:00
|
|
|
if (fragP->fr_type == rs_align_code) \
|
2001-02-10 01:58:38 +01:00
|
|
|
s390_align_code (fragP, (fragP->fr_next->fr_address \
|
|
|
|
- fragP->fr_address \
|
|
|
|
- fragP->fr_fix));
|
|
|
|
|
|
|
|
/* call md_pcrel_from_section, not md_pcrel_from */
|
2002-09-05 02:01:18 +02:00
|
|
|
#define MD_PCREL_FROM_SECTION(FIX, SEC) md_pcrel_from_section(FIX, SEC)
|
2001-02-10 01:58:38 +01:00
|
|
|
extern long md_pcrel_from_section PARAMS ((struct fix *, segT));
|
|
|
|
|
|
|
|
#define md_operand(x)
|
|
|
|
|
|
|
|
extern void s390_md_end PARAMS ((void));
|
|
|
|
#define md_end() s390_md_end ()
|
* config/tc-ppc.h (DWARF2_LINE_MIN_INSN_LENGTH): Define always.
(TARGET_USE_CFIPOP, tc_cfi_frame_initial_instructions,
tc_regname_to_dw2regnum, DWARF2_DEFAULT_RETURN_COLUMN,
DWARF2_CIE_DATA_ALIGNMENT): Define.
(ppc_cfi_frame_initial_instructions, tc_ppc_regname_to_dw2regnum): New
prototypes.
(ppc_cie_data_alignment): Declare.
* config/tc-ppc.c: Include dw2gencfi.h.
(ppc_cie_data_alignment): Define.
(md_begin): Initialize ppc_cie_data_alignment.
(ppc_cfi_frame_initial_instructions, tc_ppc_regname_to_dw2regnum): New
functions.
* config/tc-s390.h (DWARF2_LINE_MIN_INSN_LENGTH): Define always.
(TARGET_USE_CFIPOP, tc_cfi_frame_initial_instructions,
tc_regname_to_dw2regnum, DWARF2_DEFAULT_RETURN_COLUMN,
DWARF2_CIE_DATA_ALIGNMENT): Define.
(s390_cfi_frame_initial_instructions, tc_s390_regname_to_dw2regnum):
New prototypes.
(s390_cie_data_alignment): Declare.
* config/tc-s390.c: Include dw2gencfi.h.
(s390_cie_data_alignment): Define.
(md_begin): Initialize s390_cie_data_alignment.
(s390_cfi_frame_initial_instructions, tc_s390_regname_to_dw2regnum):
New functions.
* gas/cfi/cfi-ppc-1.s: New test.
* gas/cfi/cfi-ppc-1.d: New test.
* gas/cfi/cfi-s390-1.s: New test.
* gas/cfi/cfi-s390-1.s: New test.
* gas/cfi/cfi-s390x-1.s: New test.
* gas/cfi/cfi-s390x-1.s: New test.
* gas/cfi/cfi.exp: Run them.
2003-07-10 18:46:38 +02:00
|
|
|
|
|
|
|
#define TARGET_USE_CFIPOP 1
|
|
|
|
|
|
|
|
#define tc_cfi_frame_initial_instructions s390_cfi_frame_initial_instructions
|
|
|
|
extern void s390_cfi_frame_initial_instructions PARAMS ((void));
|
|
|
|
|
|
|
|
#define tc_regname_to_dw2regnum tc_s390_regname_to_dw2regnum
|
|
|
|
extern int tc_s390_regname_to_dw2regnum PARAMS ((const char *regname));
|
|
|
|
|
|
|
|
extern int s390_cie_data_alignment;
|
|
|
|
|
|
|
|
#define DWARF2_LINE_MIN_INSN_LENGTH 1
|
|
|
|
#define DWARF2_DEFAULT_RETURN_COLUMN 14
|
|
|
|
#define DWARF2_CIE_DATA_ALIGNMENT s390_cie_data_alignment
|