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