Commit | Line | Data |
---|---|---|
252b5132 RH |
1 | /* This file is tc-alpha.h |
2 | Copyright (C) 1994, 95, 96, 97, 98, 1999 Free Software Foundation, Inc. | |
3 | Written by Ken Raeburn <raeburn@cygnus.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_ALPHA | |
23 | ||
24 | #define TARGET_BYTES_BIG_ENDIAN 0 | |
25 | ||
26 | #define WORKING_DOT_WORD | |
27 | ||
28 | #define TARGET_ARCH bfd_arch_alpha | |
29 | ||
30 | #define TARGET_FORMAT (OUTPUT_FLAVOR == bfd_target_ecoff_flavour \ | |
31 | ? "ecoff-littlealpha" \ | |
32 | : OUTPUT_FLAVOR == bfd_target_elf_flavour \ | |
33 | ? "elf64-alpha" \ | |
34 | : OUTPUT_FLAVOR == bfd_target_evax_flavour \ | |
35 | ? "vms-alpha" \ | |
36 | : "unknown-format") | |
37 | ||
38 | #define NEED_LITERAL_POOL | |
39 | #define TC_HANDLES_FX_DONE | |
40 | #define REPEAT_CONS_EXPRESSIONS | |
41 | ||
42 | extern int alpha_force_relocation PARAMS ((struct fix *)); | |
43 | extern int alpha_fix_adjustable PARAMS ((struct fix *)); | |
44 | ||
45 | extern unsigned long alpha_gprmask, alpha_fprmask; | |
46 | extern valueT alpha_gp_value; | |
47 | ||
48 | #define TC_FORCE_RELOCATION(FIXP) alpha_force_relocation (FIXP) | |
49 | #define tc_fix_adjustable(FIXP) alpha_fix_adjustable (FIXP) | |
50 | #define RELOC_REQUIRES_SYMBOL | |
51 | ||
52 | /* This expression evaluates to false if the relocation is for a local | |
53 | object for which we still want to do the relocation at runtime. | |
54 | True if we are willing to perform this relocation while building | |
55 | the .o file. This is only used for pcrel relocations. */ | |
56 | ||
57 | #define TC_RELOC_RTSYM_LOC_FIXUP(FIX) \ | |
58 | ((FIX)->fx_addsy == NULL \ | |
59 | || (! S_IS_EXTERNAL ((FIX)->fx_addsy) \ | |
60 | && ! S_IS_WEAK ((FIX)->fx_addsy) \ | |
61 | && S_IS_DEFINED ((FIX)->fx_addsy) \ | |
62 | && ! S_IS_COMMON ((FIX)->fx_addsy))) | |
63 | ||
64 | #define md_convert_frag(b,s,f) as_fatal ("alpha convert_frag\n") | |
65 | #define md_estimate_size_before_relax(f,s) \ | |
66 | (as_fatal("estimate_size_before_relax called"),1) | |
67 | #define md_operand(x) | |
68 | ||
69 | #ifdef OBJ_EVAX | |
70 | ||
71 | /* This field keeps the symbols position in the link section. */ | |
72 | #define OBJ_SYMFIELD_TYPE valueT | |
73 | ||
74 | #define TC_CONS_FIX_NEW(FRAG,OFF,LEN,EXP) \ | |
75 | fix_new_exp (FRAG, OFF, (int)LEN, EXP, 0, \ | |
76 | LEN == 2 ? BFD_RELOC_16 \ | |
77 | : LEN == 4 ? BFD_RELOC_32 \ | |
78 | : LEN == 8 ? BFD_RELOC_64 \ | |
79 | : BFD_RELOC_ALPHA_LINKAGE); | |
80 | #endif | |
81 | ||
82 | #define md_number_to_chars number_to_chars_littleendian | |
83 | ||
84 | extern int tc_get_register PARAMS ((int frame)); | |
85 | extern void alpha_frob_ecoff_data PARAMS ((void)); | |
86 | ||
87 | #define tc_frob_label(sym) alpha_define_label (sym) | |
49309057 | 88 | extern void alpha_define_label PARAMS ((symbolS *)); |
252b5132 RH |
89 | |
90 | #define md_cons_align(nbytes) alpha_cons_align (nbytes) | |
91 | extern void alpha_cons_align PARAMS ((int)); | |
92 | ||
0a9ef439 RH |
93 | #define HANDLE_ALIGN(fragp) alpha_handle_align (fragp) |
94 | extern void alpha_handle_align PARAMS ((struct frag *)); | |
95 | ||
96 | #define MAX_MEM_FOR_RS_ALIGN_CODE (3 + 4 + 8) | |
97 | ||
252b5132 RH |
98 | #ifdef OBJ_ECOFF |
99 | #define tc_frob_file_before_adjust() alpha_frob_file_before_adjust () | |
100 | extern void alpha_frob_file_before_adjust PARAMS ((void)); | |
101 | #endif | |
102 | ||
103 | #define DIFF_EXPR_OK /* foo-. gets turned into PC relative relocs */ | |
104 | ||
105 | #ifdef OBJ_ELF | |
106 | #define ELF_TC_SPECIAL_SECTIONS \ | |
107 | { ".sdata", SHT_PROGBITS, SHF_ALLOC + SHF_WRITE + SHF_ALPHA_GPREL }, \ | |
108 | { ".sbss", SHT_NOBITS, SHF_ALLOC + SHF_WRITE + SHF_ALPHA_GPREL }, | |
109 | #endif | |
43b4c25e MM |
110 | |
111 | /* Whether to add support for explict !relocation_op!sequence_number. At the | |
112 | moment, only do this for ELF, though ECOFF could use it as well. */ | |
113 | ||
114 | #ifdef OBJ_ELF | |
115 | #define RELOC_OP_P | |
116 | #endif | |
117 | ||
118 | #ifdef RELOC_OP_P | |
119 | /* Before the relocations are written, reorder them, so that user supplied | |
120 | !lituse relocations follow the appropriate !literal relocations. Also | |
121 | convert the gas-internal relocations to the appropriate linker relocations. | |
122 | */ | |
123 | #define tc_adjust_symtab() alpha_adjust_symtab () | |
124 | extern void alpha_adjust_symtab PARAMS ((void)); | |
125 | ||
126 | /* New fields for supporting explicit relocations (such as !literal to mark | |
127 | where a pointer is loaded from the global table, and !lituse_base to track | |
128 | all of the normal uses of that pointer). */ | |
129 | ||
130 | #define TC_FIX_TYPE struct alpha_fix_tag | |
131 | ||
132 | struct alpha_fix_tag | |
133 | { | |
134 | struct fix *next_lituse; /* next !lituse */ | |
135 | struct alpha_literal_tag *info; /* other members with same sequence */ | |
136 | }; | |
137 | ||
138 | /* Initialize the TC_FIX_TYPE field. */ | |
139 | #define TC_INIT_FIX_DATA(fixP) \ | |
140 | do { \ | |
141 | fixP->tc_fix_data.next_lituse = (struct fix *)0; \ | |
142 | fixP->tc_fix_data.info = (struct alpha_literal_tag *)0; \ | |
143 | } while (0) | |
144 | ||
145 | /* Work with DEBUG5 to print fields in tc_fix_type. */ | |
146 | #define TC_FIX_DATA_PRINT(stream,fixP) \ | |
147 | do { \ | |
148 | if (fixP->tc_fix_data.info) \ | |
149 | fprintf (stderr, "\tinfo = 0x%lx, next_lituse = 0x%lx\n", \ | |
150 | (long)fixP->tc_fix_data.info, \ | |
151 | (long)fixP->tc_fix_data.next_lituse); \ | |
152 | } while (0) | |
153 | #endif | |
4dc7ead9 RH |
154 | |
155 | #define DWARF2_LINE_MIN_INSN_LENGTH 4 |