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 | 46 | |
d6767af8 AM |
47 | #define TC_FORCE_RELOCATION(FIXP) \ |
48 | ((FIXP)->fx_r_type == BFD_RELOC_VTABLE_INHERIT \ | |
49 | || (FIXP)->fx_r_type == BFD_RELOC_VTABLE_ENTRY) | |
50 | ||
a85d7ed0 NC |
51 | #define tc_fix_adjustable(X) tc_s390_fix_adjustable(X) |
52 | extern int tc_s390_fix_adjustable PARAMS ((struct fix *)); | |
53 | ||
54 | /* The target BFD architecture. */ | |
55 | #define TARGET_ARCH bfd_arch_s390 | |
56 | extern enum bfd_architecture s390_arch PARAMS ((void)); | |
57 | ||
58 | /* The target BFD format. */ | |
59 | #define TARGET_FORMAT s390_target_format() | |
07855bec | 60 | extern const char * s390_target_format PARAMS ((void)); |
a85d7ed0 NC |
61 | |
62 | /* Set the endianness we are using. */ | |
63 | #define TARGET_BYTES_BIG_ENDIAN 1 | |
64 | ||
65 | /* Whether or not the target is big endian */ | |
66 | extern int target_big_endian; | |
67 | ||
68 | /* Permit temporary numeric labels. */ | |
69 | #define LOCAL_LABELS_FB 1 | |
70 | ||
71 | /* $ is used to refer to the current location. */ | |
72 | /* #define DOLLAR_DOT */ | |
73 | ||
74 | /* We need to be able to make relocations involving the difference of | |
75 | two symbols. This includes the difference of two symbols when | |
c745b67a | 76 | one of them is undefined (this comes up in PIC code generation). |
a85d7ed0 NC |
77 | */ |
78 | #define UNDEFINED_DIFFERENCE_OK | |
79 | ||
80 | /* foo-. gets turned into PC relative relocs */ | |
81 | #define DIFF_EXPR_OK | |
82 | ||
83 | /* We don't need to handle .word strangely. */ | |
84 | #define WORKING_DOT_WORD | |
85 | ||
86 | /* We set the fx_done field appropriately in md_apply_fix. */ | |
87 | #define TC_HANDLES_FX_DONE | |
88 | ||
89 | #define md_number_to_chars number_to_chars_bigendian | |
90 | ||
91 | #define md_do_align(n, fill, len, max, around) \ | |
92 | if ((n) && !need_pass_2 && (fill == 0) && \ | |
93 | (bfd_get_section_flags (stdoutput, now_seg) & SEC_CODE) != 0) { \ | |
94 | char *p; \ | |
95 | p = frag_var (rs_align_code, 15, 1, (relax_substateT) max, \ | |
96 | (symbolS *) 0, (offsetT) (n), (char *) 0); \ | |
97 | *p = 0x07; \ | |
98 | goto around; \ | |
99 | } | |
100 | ||
101 | extern void s390_align_code PARAMS ((fragS *, int)); | |
102 | ||
103 | #define HANDLE_ALIGN(fragP) \ | |
c745b67a | 104 | if (fragP->fr_type == rs_align_code) \ |
a85d7ed0 NC |
105 | s390_align_code (fragP, (fragP->fr_next->fr_address \ |
106 | - fragP->fr_address \ | |
107 | - fragP->fr_fix)); | |
108 | ||
109 | /* call md_apply_fix3 with segment instead of md_apply_fix */ | |
110 | #define MD_APPLY_FIX3 | |
111 | ||
112 | /* call md_pcrel_from_section, not md_pcrel_from */ | |
113 | #define MD_PCREL_FROM_SECTION(FIXP, SEC) md_pcrel_from_section(FIXP, SEC) | |
114 | extern long md_pcrel_from_section PARAMS ((struct fix *, segT)); | |
115 | ||
116 | #define md_operand(x) | |
117 | ||
118 | extern void s390_md_end PARAMS ((void)); | |
119 | #define md_end() s390_md_end () |