[deliverable/binutils-gdb.git] / gas / config / tc-s390.h

/* tc-s390.h -- Header file for tc-s390.c.
   Copyright 2000, 2001 Free Software Foundation, Inc.
   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
   02111-1307, USA. */

#define TC_S390

#ifdef ANSI_PROTOTYPES
struct fix;
#endif

#ifndef BFD_ASSEMBLER
 #error S390 support requires BFD_ASSEMBLER
#endif

/* This expression evaluates to false if the relocation is for a local object
   for which we still want to do the relocation at runtime.  True if we
   are willing to perform this relocation while building the .o file.
   This is only used for pcrel relocations, so GOTOFF does not need to be
   checked here.  I am not sure if some of the others are ever used with
   pcrel, but it is easier to be safe than sorry. */

#define TC_RELOC_RTSYM_LOC_FIXUP(FIX)        \
  ((FIX)->fx_r_type != BFD_RELOC_390_GOTENT  \
   && ((FIX)->fx_addsy == NULL               \
       || (! S_IS_EXTERNAL ((FIX)->fx_addsy)      \
           && ! S_IS_WEAK ((FIX)->fx_addsy)  \
           && S_IS_DEFINED ((FIX)->fx_addsy)      \
           && ! S_IS_COMMON ((FIX)->fx_addsy))))

#define tc_fix_adjustable(X)  tc_s390_fix_adjustable(X)
extern int tc_s390_fix_adjustable PARAMS ((struct fix *));

/* 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()
extern const char * s390_target_format PARAMS ((void));

/* Set the endianness we are using. */
#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
   one of them is undefined (this comes up in PIC code generation). 
 */
#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

/* We set the fx_done field appropriately in md_apply_fix.  */
#define TC_HANDLES_FX_DONE

#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)						\
if (fragP->fr_type == rs_align_code) 					\
  s390_align_code (fragP, (fragP->fr_next->fr_address			\
			   - fragP->fr_address				\
			   - fragP->fr_fix));

/* call md_apply_fix3 with segment instead of md_apply_fix */
#define MD_APPLY_FIX3

/* call md_pcrel_from_section, not md_pcrel_from */
#define MD_PCREL_FROM_SECTION(FIXP, SEC) md_pcrel_from_section(FIXP, SEC)
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 ()

# define TC_FORCE_RELOCATION(fixp) s390_force_relocation (fixp)
extern int s390_force_relocation PARAMS ((struct fix *));
Commit	Line	Data
a85d7ed0	1	/* tc-s390.h -- Header file for tc-s390.c.
f7e42eb4	2	Copyright 2000, 2001 Free Software Foundation, Inc.
a85d7ed0 NC	3	Written by Martin Schwidefsky (schwidefsky@de.ibm.com).
	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 2, 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, 59 Temple Place - Suite 330, Boston, MA
	20	02111-1307, USA. */
	21
	22	#define TC_S390
	23
	24	#ifdef ANSI_PROTOTYPES
	25	struct fix;
	26	#endif
	27
	28	#ifndef BFD_ASSEMBLER
	29	#error S390 support requires BFD_ASSEMBLER
	30	#endif
	31
	32	/* This expression evaluates to false if the relocation is for a local object
	33	for which we still want to do the relocation at runtime. True if we
	34	are willing to perform this relocation while building the .o file.
	35	This is only used for pcrel relocations, so GOTOFF does not need to be
	36	checked here. I am not sure if some of the others are ever used with
	37	pcrel, but it is easier to be safe than sorry. */
	38
07855bec NC	39	#define TC_RELOC_RTSYM_LOC_FIXUP(FIX) \
	40	((FIX)->fx_r_type != BFD_RELOC_390_GOTENT \
	41	&& ((FIX)->fx_addsy == NULL \
	42	\|\| (! S_IS_EXTERNAL ((FIX)->fx_addsy) \
	43	&& ! S_IS_WEAK ((FIX)->fx_addsy) \
	44	&& S_IS_DEFINED ((FIX)->fx_addsy) \
	45	&& ! S_IS_COMMON ((FIX)->fx_addsy))))
a85d7ed0 NC	46
	47	#define tc_fix_adjustable(X) tc_s390_fix_adjustable(X)
	48	extern int tc_s390_fix_adjustable PARAMS ((struct fix *));
	49
	50	/* The target BFD architecture. */
	51	#define TARGET_ARCH bfd_arch_s390
	52	extern enum bfd_architecture s390_arch PARAMS ((void));
	53
	54	/* The target BFD format. */
	55	#define TARGET_FORMAT s390_target_format()
07855bec	56	extern const char * s390_target_format PARAMS ((void));
a85d7ed0 NC	57
	58	/* Set the endianness we are using. */
	59	#define TARGET_BYTES_BIG_ENDIAN 1
	60
	61	/* Whether or not the target is big endian */
	62	extern int target_big_endian;
	63
	64	/* Permit temporary numeric labels. */
	65	#define LOCAL_LABELS_FB 1
	66
	67	/* $ is used to refer to the current location. */
	68	/* #define DOLLAR_DOT */
	69
	70	/* We need to be able to make relocations involving the difference of
	71	two symbols. This includes the difference of two symbols when
	72	one of them is undefined (this comes up in PIC code generation).
	73	*/
	74	#define UNDEFINED_DIFFERENCE_OK
	75
	76	/* foo-. gets turned into PC relative relocs */
	77	#define DIFF_EXPR_OK
	78
	79	/* We don't need to handle .word strangely. */
	80	#define WORKING_DOT_WORD
	81
	82	/* We set the fx_done field appropriately in md_apply_fix. */
	83	#define TC_HANDLES_FX_DONE
	84
	85	#define md_number_to_chars number_to_chars_bigendian
	86
	87	#define md_do_align(n, fill, len, max, around) \
	88	if ((n) && !need_pass_2 && (fill == 0) && \
	89	(bfd_get_section_flags (stdoutput, now_seg) & SEC_CODE) != 0) { \
	90	char *p; \
	91	p = frag_var (rs_align_code, 15, 1, (relax_substateT) max, \
	92	(symbolS ) 0, (offsetT) (n), (char ) 0); \
	93	*p = 0x07; \
	94	goto around; \
	95	}
	96
	97	extern void s390_align_code PARAMS ((fragS *, int));
	98
	99	#define HANDLE_ALIGN(fragP) \
	100	if (fragP->fr_type == rs_align_code) \
	101	s390_align_code (fragP, (fragP->fr_next->fr_address \
	102	- fragP->fr_address \
	103	- fragP->fr_fix));
	104
	105	/* call md_apply_fix3 with segment instead of md_apply_fix */
	106	#define MD_APPLY_FIX3
	107
	108	/* call md_pcrel_from_section, not md_pcrel_from */
	109	#define MD_PCREL_FROM_SECTION(FIXP, SEC) md_pcrel_from_section(FIXP, SEC)
	110	extern long md_pcrel_from_section PARAMS ((struct fix *, segT));
	111
	112	#define md_operand(x)
	113
	114	extern void s390_md_end PARAMS ((void));
	115	#define md_end() s390_md_end ()
07855bec NC	116
	117	# define TC_FORCE_RELOCATION(fixp) s390_force_relocation (fixp)
	118	extern int s390_force_relocation PARAMS ((struct fix *));