1 |
104 |
markom |
/* vms.c -- BFD back-end for VAX (openVMS/VAX) and
|
2 |
|
|
EVAX (openVMS/Alpha) files.
|
3 |
|
|
Copyright 1996, 1997, 1998, 1999 Free Software Foundation, Inc.
|
4 |
|
|
|
5 |
|
|
Written by Klaus K"ampf (kkaempf@rmi.de)
|
6 |
|
|
|
7 |
|
|
This program 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 of the License, or
|
10 |
|
|
(at your option) any later version.
|
11 |
|
|
|
12 |
|
|
This program 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 this program; if not, write to the Free Software
|
19 |
|
|
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
|
20 |
|
|
|
21 |
|
|
#include "bfd.h"
|
22 |
|
|
#include "sysdep.h"
|
23 |
|
|
#include "bfdlink.h"
|
24 |
|
|
#include "libbfd.h"
|
25 |
|
|
|
26 |
|
|
#include "vms.h"
|
27 |
|
|
|
28 |
|
|
static boolean vms_initialize PARAMS ((bfd *));
|
29 |
|
|
static unsigned int priv_section_count;
|
30 |
|
|
static boolean fill_section_ptr PARAMS ((struct bfd_hash_entry *, PTR));
|
31 |
|
|
static boolean vms_fixup_sections PARAMS ((bfd *));
|
32 |
|
|
static boolean copy_symbols PARAMS ((struct bfd_hash_entry *, PTR));
|
33 |
|
|
static bfd_reloc_status_type reloc_nil
|
34 |
|
|
PARAMS ((bfd *, arelent *, asymbol *, PTR, asection *, bfd *, char **));
|
35 |
|
|
static const struct bfd_target *vms_object_p PARAMS ((bfd *abfd));
|
36 |
|
|
static const struct bfd_target *vms_archive_p PARAMS ((bfd *abfd));
|
37 |
|
|
static boolean vms_mkobject PARAMS ((bfd *abfd));
|
38 |
|
|
static boolean vms_write_object_contents PARAMS ((bfd *abfd));
|
39 |
|
|
static boolean vms_close_and_cleanup PARAMS ((bfd *abfd));
|
40 |
|
|
static boolean vms_bfd_free_cached_info PARAMS ((bfd *abfd));
|
41 |
|
|
static boolean vms_new_section_hook PARAMS ((bfd *abfd, asection *section));
|
42 |
|
|
static boolean vms_get_section_contents
|
43 |
|
|
PARAMS ((bfd *abfd, asection *section, PTR x1, file_ptr x2,
|
44 |
|
|
bfd_size_type x3));
|
45 |
|
|
static boolean vms_get_section_contents_in_window
|
46 |
|
|
PARAMS ((bfd *abfd, asection *section, bfd_window *w, file_ptr offset,
|
47 |
|
|
bfd_size_type count));
|
48 |
|
|
static boolean vms_bfd_copy_private_bfd_data PARAMS ((bfd *src, bfd *dest));
|
49 |
|
|
static boolean vms_bfd_copy_private_section_data
|
50 |
|
|
PARAMS ((bfd *srcbfd, asection *srcsec, bfd *dstbfd, asection *dstsec));
|
51 |
|
|
static boolean vms_bfd_copy_private_symbol_data
|
52 |
|
|
PARAMS ((bfd *ibfd, asymbol *isym, bfd *obfd, asymbol *osym));
|
53 |
|
|
static boolean vms_bfd_print_private_bfd_data
|
54 |
|
|
PARAMS ((bfd *abfd, void *file));
|
55 |
|
|
static char *vms_core_file_failing_command PARAMS ((bfd *abfd));
|
56 |
|
|
static int vms_core_file_failing_signal PARAMS ((bfd *abfd));
|
57 |
|
|
static boolean vms_core_file_matches_executable_p
|
58 |
|
|
PARAMS ((bfd *abfd, bfd *bbfd));
|
59 |
|
|
static boolean vms_slurp_armap PARAMS ((bfd *abfd));
|
60 |
|
|
static boolean vms_slurp_extended_name_table PARAMS ((bfd *abfd));
|
61 |
|
|
static boolean vms_construct_extended_name_table
|
62 |
|
|
PARAMS ((bfd *abfd, char **tabloc, bfd_size_type *tablen,
|
63 |
|
|
const char **name));
|
64 |
|
|
static void vms_truncate_arname
|
65 |
|
|
PARAMS ((bfd *abfd, CONST char *pathname, char *arhdr));
|
66 |
|
|
static boolean vms_write_armap
|
67 |
|
|
PARAMS ((bfd *arch, unsigned int elength, struct orl *map,
|
68 |
|
|
unsigned int orl_count, int stridx));
|
69 |
|
|
static PTR vms_read_ar_hdr PARAMS ((bfd *abfd));
|
70 |
|
|
static bfd *vms_get_elt_at_index PARAMS ((bfd *abfd, symindex index));
|
71 |
|
|
static bfd *vms_openr_next_archived_file PARAMS ((bfd *arch, bfd *prev));
|
72 |
|
|
static boolean vms_update_armap_timestamp PARAMS ((bfd *abfd));
|
73 |
|
|
static int vms_generic_stat_arch_elt PARAMS ((bfd *abfd, struct stat *stat));
|
74 |
|
|
static long vms_get_symtab_upper_bound PARAMS ((bfd *abfd));
|
75 |
|
|
static long vms_get_symtab PARAMS ((bfd *abfd, asymbol **symbols));
|
76 |
|
|
static void vms_print_symbol
|
77 |
|
|
PARAMS ((bfd *abfd, PTR file, asymbol *symbol, bfd_print_symbol_type how));
|
78 |
|
|
static void vms_get_symbol_info
|
79 |
|
|
PARAMS ((bfd *abfd, asymbol *symbol, symbol_info *ret));
|
80 |
|
|
static boolean vms_bfd_is_local_label_name PARAMS ((bfd *abfd, const char *));
|
81 |
|
|
static alent *vms_get_lineno PARAMS ((bfd *abfd, asymbol *symbol));
|
82 |
|
|
static boolean vms_find_nearest_line
|
83 |
|
|
PARAMS ((bfd *abfd, asection *section, asymbol **symbols, bfd_vma offset,
|
84 |
|
|
const char **file, const char **func, unsigned int *line));
|
85 |
|
|
static asymbol *vms_bfd_make_debug_symbol
|
86 |
|
|
PARAMS ((bfd *abfd, void *ptr, unsigned long size));
|
87 |
|
|
static long vms_read_minisymbols
|
88 |
|
|
PARAMS ((bfd *abfd, boolean dynamic, PTR *minisymsp, unsigned int *sizep));
|
89 |
|
|
static asymbol *vms_minisymbol_to_symbol
|
90 |
|
|
PARAMS ((bfd *abfd, boolean dynamic, const PTR minisym, asymbol *sym));
|
91 |
|
|
static long vms_get_reloc_upper_bound PARAMS ((bfd *abfd, asection *sect));
|
92 |
|
|
static long vms_canonicalize_reloc
|
93 |
|
|
PARAMS ((bfd *abfd, asection *srcsec, arelent **location,
|
94 |
|
|
asymbol **symbols));
|
95 |
|
|
static const struct reloc_howto_struct *vms_bfd_reloc_type_lookup
|
96 |
|
|
PARAMS ((bfd *abfd, bfd_reloc_code_real_type code));
|
97 |
|
|
static boolean vms_set_arch_mach
|
98 |
|
|
PARAMS ((bfd *abfd, enum bfd_architecture arch, unsigned long mach));
|
99 |
|
|
static boolean vms_set_section_contents
|
100 |
|
|
PARAMS ((bfd *abfd, asection *section, PTR location, file_ptr offset,
|
101 |
|
|
bfd_size_type count));
|
102 |
|
|
static int vms_sizeof_headers PARAMS ((bfd *abfd, boolean reloc));
|
103 |
|
|
static bfd_byte *vms_bfd_get_relocated_section_contents
|
104 |
|
|
PARAMS ((bfd *abfd, struct bfd_link_info *link_info,
|
105 |
|
|
struct bfd_link_order *link_order, bfd_byte *data,
|
106 |
|
|
boolean relocateable, asymbol **symbols));
|
107 |
|
|
static boolean vms_bfd_relax_section
|
108 |
|
|
PARAMS ((bfd *abfd, asection *section, struct bfd_link_info *link_info,
|
109 |
|
|
boolean *again));
|
110 |
|
|
static boolean vms_bfd_gc_sections
|
111 |
|
|
PARAMS ((bfd *abfd, struct bfd_link_info *link_info));
|
112 |
|
|
static struct bfd_link_hash_table *vms_bfd_link_hash_table_create
|
113 |
|
|
PARAMS ((bfd *abfd));
|
114 |
|
|
static boolean vms_bfd_link_add_symbols
|
115 |
|
|
PARAMS ((bfd *abfd, struct bfd_link_info *link_info));
|
116 |
|
|
static boolean vms_bfd_final_link
|
117 |
|
|
PARAMS ((bfd *abfd, struct bfd_link_info *link_info));
|
118 |
|
|
static boolean vms_bfd_link_split_section
|
119 |
|
|
PARAMS ((bfd *abfd, asection *section));
|
120 |
|
|
static long vms_get_dynamic_symtab_upper_bound PARAMS ((bfd *abfd));
|
121 |
|
|
static long vms_canonicalize_dynamic_symtab
|
122 |
|
|
PARAMS ((bfd *abfd, asymbol **symbols));
|
123 |
|
|
static long vms_get_dynamic_reloc_upper_bound PARAMS ((bfd *abfd));
|
124 |
|
|
static long vms_canonicalize_dynamic_reloc
|
125 |
|
|
PARAMS ((bfd *abfd, arelent **arel, asymbol **symbols));
|
126 |
|
|
static boolean vms_bfd_merge_private_bfd_data PARAMS ((bfd *ibfd, bfd *obfd));
|
127 |
|
|
static boolean vms_bfd_set_private_flags PARAMS ((bfd *abfd, flagword flags));
|
128 |
|
|
|
129 |
|
|
#define vms_make_empty_symbol _bfd_vms_make_empty_symbol
|
130 |
|
|
|
131 |
|
|
/*===========================================================================*/
|
132 |
|
|
|
133 |
|
|
const bfd_target vms_alpha_vec =
|
134 |
|
|
{
|
135 |
|
|
"vms-alpha", /* name */
|
136 |
|
|
bfd_target_evax_flavour,
|
137 |
|
|
BFD_ENDIAN_LITTLE, /* data byte order is little */
|
138 |
|
|
BFD_ENDIAN_LITTLE, /* header byte order is little */
|
139 |
|
|
|
140 |
|
|
(HAS_RELOC | HAS_SYMS
|
141 |
|
|
| WP_TEXT | D_PAGED), /* object flags */
|
142 |
|
|
(SEC_ALLOC | SEC_LOAD | SEC_RELOC
|
143 |
|
|
| SEC_READONLY | SEC_CODE | SEC_DATA
|
144 |
|
|
| SEC_HAS_CONTENTS | SEC_IN_MEMORY), /* sect flags */
|
145 |
|
|
0, /* symbol_leading_char */
|
146 |
|
|
' ', /* ar_pad_char */
|
147 |
|
|
15, /* ar_max_namelen */
|
148 |
|
|
bfd_getl64, bfd_getl_signed_64, bfd_putl64,
|
149 |
|
|
bfd_getl32, bfd_getl_signed_32, bfd_putl32,
|
150 |
|
|
bfd_getl16, bfd_getl_signed_16, bfd_putl16,
|
151 |
|
|
bfd_getl64, bfd_getl_signed_64, bfd_putl64,
|
152 |
|
|
bfd_getl32, bfd_getl_signed_32, bfd_putl32,
|
153 |
|
|
bfd_getl16, bfd_getl_signed_16, bfd_putl16,
|
154 |
|
|
|
155 |
|
|
{_bfd_dummy_target, vms_object_p, /* bfd_check_format */
|
156 |
|
|
vms_archive_p, _bfd_dummy_target},
|
157 |
|
|
{bfd_false, vms_mkobject, /* bfd_set_format */
|
158 |
|
|
_bfd_generic_mkarchive, bfd_false},
|
159 |
|
|
{bfd_false, vms_write_object_contents, /* bfd_write_contents */
|
160 |
|
|
_bfd_write_archive_contents, bfd_false},
|
161 |
|
|
|
162 |
|
|
BFD_JUMP_TABLE_GENERIC (vms),
|
163 |
|
|
BFD_JUMP_TABLE_COPY (vms),
|
164 |
|
|
BFD_JUMP_TABLE_CORE (vms),
|
165 |
|
|
BFD_JUMP_TABLE_ARCHIVE (vms),
|
166 |
|
|
BFD_JUMP_TABLE_SYMBOLS (vms),
|
167 |
|
|
BFD_JUMP_TABLE_RELOCS (vms),
|
168 |
|
|
BFD_JUMP_TABLE_WRITE (vms),
|
169 |
|
|
BFD_JUMP_TABLE_LINK (vms),
|
170 |
|
|
BFD_JUMP_TABLE_DYNAMIC (vms),
|
171 |
|
|
|
172 |
|
|
NULL,
|
173 |
|
|
|
174 |
|
|
(PTR) 0
|
175 |
|
|
};
|
176 |
|
|
|
177 |
|
|
const bfd_target vms_vax_vec =
|
178 |
|
|
{
|
179 |
|
|
"vms-vax", /* name */
|
180 |
|
|
bfd_target_ovax_flavour,
|
181 |
|
|
BFD_ENDIAN_LITTLE, /* data byte order is little */
|
182 |
|
|
BFD_ENDIAN_LITTLE, /* header byte order is little */
|
183 |
|
|
|
184 |
|
|
(HAS_RELOC | HAS_SYMS /* object flags */
|
185 |
|
|
| WP_TEXT | D_PAGED
|
186 |
|
|
| HAS_LINENO | HAS_DEBUG | HAS_LOCALS),
|
187 |
|
|
|
188 |
|
|
(SEC_ALLOC | SEC_LOAD | SEC_RELOC
|
189 |
|
|
| SEC_READONLY | SEC_CODE | SEC_DATA
|
190 |
|
|
| SEC_HAS_CONTENTS | SEC_IN_MEMORY), /* sect flags */
|
191 |
|
|
0, /* symbol_leading_char */
|
192 |
|
|
' ', /* ar_pad_char */
|
193 |
|
|
15, /* ar_max_namelen */
|
194 |
|
|
bfd_getl64, bfd_getl_signed_64, bfd_putl64,
|
195 |
|
|
bfd_getl32, bfd_getl_signed_32, bfd_putl32,
|
196 |
|
|
bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* data */
|
197 |
|
|
bfd_getl64, bfd_getl_signed_64, bfd_putl64,
|
198 |
|
|
bfd_getl32, bfd_getl_signed_32, bfd_putl32,
|
199 |
|
|
bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* hdrs */
|
200 |
|
|
|
201 |
|
|
{_bfd_dummy_target, vms_object_p, /* bfd_check_format */
|
202 |
|
|
vms_archive_p, _bfd_dummy_target},
|
203 |
|
|
{bfd_false, vms_mkobject, /* bfd_set_format */
|
204 |
|
|
_bfd_generic_mkarchive, bfd_false},
|
205 |
|
|
{bfd_false, vms_write_object_contents, /* bfd_write_contents */
|
206 |
|
|
_bfd_write_archive_contents, bfd_false},
|
207 |
|
|
|
208 |
|
|
BFD_JUMP_TABLE_GENERIC (vms),
|
209 |
|
|
BFD_JUMP_TABLE_COPY (vms),
|
210 |
|
|
BFD_JUMP_TABLE_CORE (vms),
|
211 |
|
|
BFD_JUMP_TABLE_ARCHIVE (vms),
|
212 |
|
|
BFD_JUMP_TABLE_SYMBOLS (vms),
|
213 |
|
|
BFD_JUMP_TABLE_RELOCS (vms),
|
214 |
|
|
BFD_JUMP_TABLE_WRITE (vms),
|
215 |
|
|
BFD_JUMP_TABLE_LINK (vms),
|
216 |
|
|
BFD_JUMP_TABLE_DYNAMIC (vms),
|
217 |
|
|
|
218 |
|
|
NULL,
|
219 |
|
|
|
220 |
|
|
(PTR) 0
|
221 |
|
|
};
|
222 |
|
|
|
223 |
|
|
/*===========================================================================*/
|
224 |
|
|
|
225 |
|
|
/* Initialize private data */
|
226 |
|
|
|
227 |
|
|
static boolean
|
228 |
|
|
vms_initialize (abfd)
|
229 |
|
|
bfd *abfd;
|
230 |
|
|
{
|
231 |
|
|
int i;
|
232 |
|
|
|
233 |
|
|
if (abfd->tdata.any != 0)
|
234 |
|
|
return true;
|
235 |
|
|
|
236 |
|
|
bfd_set_start_address (abfd, (bfd_vma)-1);
|
237 |
|
|
|
238 |
|
|
abfd->tdata.any = ((struct vms_private_data_struct*)
|
239 |
|
|
bfd_malloc (sizeof (struct vms_private_data_struct)));
|
240 |
|
|
if (abfd->tdata.any == 0)
|
241 |
|
|
return false;
|
242 |
|
|
|
243 |
|
|
#ifdef __ALPHA
|
244 |
|
|
PRIV(is_vax) = 0;
|
245 |
|
|
#else
|
246 |
|
|
PRIV(is_vax) = 1;
|
247 |
|
|
#endif
|
248 |
|
|
PRIV(vms_buf) = 0;
|
249 |
|
|
PRIV(buf_size) = 0;
|
250 |
|
|
PRIV(rec_length) = 0;
|
251 |
|
|
PRIV(file_format) = FF_UNKNOWN;
|
252 |
|
|
PRIV(fixup_done) = false;
|
253 |
|
|
PRIV(sections) = NULL;
|
254 |
|
|
|
255 |
|
|
PRIV(stack) = ((struct stack_struct *)
|
256 |
|
|
bfd_malloc (sizeof (struct stack_struct) * STACKSIZE));
|
257 |
|
|
if (PRIV(stack) == 0)
|
258 |
|
|
{
|
259 |
|
|
vms_init_no_mem1:
|
260 |
|
|
free (abfd->tdata.any);
|
261 |
|
|
abfd->tdata.any = 0;
|
262 |
|
|
return false;
|
263 |
|
|
}
|
264 |
|
|
PRIV(stackptr) = 0;
|
265 |
|
|
|
266 |
|
|
PRIV(vms_symbol_table) = ((struct bfd_hash_table *)
|
267 |
|
|
bfd_malloc (sizeof (struct bfd_hash_table)));
|
268 |
|
|
if (PRIV(vms_symbol_table) == 0)
|
269 |
|
|
{
|
270 |
|
|
vms_init_no_mem2:
|
271 |
|
|
free (PRIV(stack));
|
272 |
|
|
PRIV(stack) = 0;
|
273 |
|
|
goto vms_init_no_mem1;
|
274 |
|
|
}
|
275 |
|
|
|
276 |
|
|
if (!bfd_hash_table_init (PRIV(vms_symbol_table), _bfd_vms_hash_newfunc))
|
277 |
|
|
return false;
|
278 |
|
|
|
279 |
|
|
PRIV(location_stack) = ((struct location_struct *)
|
280 |
|
|
bfd_malloc (sizeof (struct location_struct)
|
281 |
|
|
* LOCATION_SAVE_SIZE));
|
282 |
|
|
if (PRIV(location_stack) == 0)
|
283 |
|
|
{
|
284 |
|
|
vms_init_no_mem3:
|
285 |
|
|
free (PRIV(vms_symbol_table));
|
286 |
|
|
PRIV(vms_symbol_table) = 0;
|
287 |
|
|
goto vms_init_no_mem2;
|
288 |
|
|
}
|
289 |
|
|
|
290 |
|
|
for (i = 0; i < VMS_SECTION_COUNT; i++)
|
291 |
|
|
PRIV(vms_section_table)[i] = NULL;
|
292 |
|
|
|
293 |
|
|
PRIV(output_buf) = (unsigned char *) malloc (MAX_OUTREC_SIZE);
|
294 |
|
|
if (PRIV(output_buf) == 0)
|
295 |
|
|
{
|
296 |
|
|
free (PRIV(location_stack));
|
297 |
|
|
PRIV(location_stack) = 0;
|
298 |
|
|
goto vms_init_no_mem3;
|
299 |
|
|
}
|
300 |
|
|
PRIV(push_level) = 0;
|
301 |
|
|
PRIV(pushed_size) = 0;
|
302 |
|
|
PRIV(length_pos) = 2;
|
303 |
|
|
PRIV(output_size) = 0;
|
304 |
|
|
PRIV(output_alignment) = 1;
|
305 |
|
|
|
306 |
|
|
return true;
|
307 |
|
|
}
|
308 |
|
|
|
309 |
|
|
|
310 |
|
|
/* Fill symbol->section with section ptr
|
311 |
|
|
symbol->section is filled with the section index for defined symbols
|
312 |
|
|
during reading the GSD/EGSD section. But we need the pointer to the
|
313 |
|
|
bfd section later.
|
314 |
|
|
|
315 |
|
|
It has the correct value for referenced (undefined section) symbols
|
316 |
|
|
|
317 |
|
|
called from bfd_hash_traverse in vms_fixup_sections */
|
318 |
|
|
|
319 |
|
|
static boolean
|
320 |
|
|
fill_section_ptr (entry, sections)
|
321 |
|
|
struct bfd_hash_entry *entry;
|
322 |
|
|
PTR sections;
|
323 |
|
|
{
|
324 |
|
|
asection *sec;
|
325 |
|
|
asymbol *sym;
|
326 |
|
|
|
327 |
|
|
sym = ((vms_symbol_entry *)entry)->symbol;
|
328 |
|
|
sec = sym->section;
|
329 |
|
|
|
330 |
|
|
#if VMS_DEBUG
|
331 |
|
|
vms_debug (6, "fill_section_ptr: sym %p, sec %p\n", sym, sec);
|
332 |
|
|
#endif
|
333 |
|
|
|
334 |
|
|
/* fill forward references (these contain section number, not section ptr). */
|
335 |
|
|
|
336 |
|
|
if ((unsigned int) sec < priv_section_count)
|
337 |
|
|
{
|
338 |
|
|
sec = ((vms_symbol_entry *)entry)->symbol->section =
|
339 |
|
|
((asection **)sections)[(int)sec];
|
340 |
|
|
}
|
341 |
|
|
|
342 |
|
|
if (strcmp (sym->name, sec->name) == 0)
|
343 |
|
|
sym->flags |= BSF_SECTION_SYM;
|
344 |
|
|
|
345 |
|
|
return true;
|
346 |
|
|
}
|
347 |
|
|
|
348 |
|
|
|
349 |
|
|
/* Fixup sections
|
350 |
|
|
set up all pointers and arrays, counters and sizes are fixed now
|
351 |
|
|
|
352 |
|
|
we build a private sections vector for easy access since sections
|
353 |
|
|
are always referenced by an index number.
|
354 |
|
|
|
355 |
|
|
alloc PRIV(sections) according to abfd->section_count
|
356 |
|
|
copy abfd->sections to PRIV(sections) */
|
357 |
|
|
|
358 |
|
|
static boolean
|
359 |
|
|
vms_fixup_sections (abfd)
|
360 |
|
|
bfd *abfd;
|
361 |
|
|
{
|
362 |
|
|
if (PRIV(fixup_done))
|
363 |
|
|
return true;
|
364 |
|
|
|
365 |
|
|
/*
|
366 |
|
|
* traverse symbol table and fill in all section pointers
|
367 |
|
|
*/
|
368 |
|
|
|
369 |
|
|
/* can't provide section count as argument to fill_section_ptr(). */
|
370 |
|
|
priv_section_count = PRIV(section_count);
|
371 |
|
|
bfd_hash_traverse (PRIV(vms_symbol_table), fill_section_ptr,
|
372 |
|
|
(PTR)(PRIV(sections)));
|
373 |
|
|
|
374 |
|
|
PRIV(fixup_done) = true;
|
375 |
|
|
|
376 |
|
|
return true;
|
377 |
|
|
}
|
378 |
|
|
|
379 |
|
|
/*===========================================================================*/
|
380 |
|
|
|
381 |
|
|
/* Check the format for a file being read.
|
382 |
|
|
Return a (bfd_target *) if it's an object file or zero if not. */
|
383 |
|
|
|
384 |
|
|
static const struct bfd_target *
|
385 |
|
|
vms_object_p (abfd)
|
386 |
|
|
bfd *abfd;
|
387 |
|
|
{
|
388 |
|
|
int err = 0;
|
389 |
|
|
int prev_type;
|
390 |
|
|
const struct bfd_target *target_vector = 0;
|
391 |
|
|
const bfd_arch_info_type *arch = 0;
|
392 |
|
|
|
393 |
|
|
#if VMS_DEBUG
|
394 |
|
|
vms_debug (1, "vms_object_p(%p)\n", abfd);
|
395 |
|
|
#endif
|
396 |
|
|
|
397 |
|
|
if (!vms_initialize (abfd))
|
398 |
|
|
{
|
399 |
|
|
fprintf (stderr, "vms_initialize () failed !!\n");
|
400 |
|
|
return 0;
|
401 |
|
|
}
|
402 |
|
|
|
403 |
|
|
if (bfd_seek (abfd, 0L, SEEK_SET))
|
404 |
|
|
{
|
405 |
|
|
bfd_set_error (bfd_error_file_truncated);
|
406 |
|
|
return 0;
|
407 |
|
|
}
|
408 |
|
|
|
409 |
|
|
prev_type = -1;
|
410 |
|
|
|
411 |
|
|
do
|
412 |
|
|
{
|
413 |
|
|
#if VMS_DEBUG
|
414 |
|
|
vms_debug (7, "reading at %08lx\n", bfd_tell(abfd));
|
415 |
|
|
#endif
|
416 |
|
|
if (_bfd_vms_next_record (abfd) < 0)
|
417 |
|
|
{
|
418 |
|
|
#if VMS_DEBUG
|
419 |
|
|
vms_debug (2, "next_record failed\n");
|
420 |
|
|
#endif
|
421 |
|
|
bfd_set_error (bfd_error_wrong_format);
|
422 |
|
|
return 0;
|
423 |
|
|
}
|
424 |
|
|
|
425 |
|
|
if ((prev_type == EOBJ_S_C_EGSD)
|
426 |
|
|
&& (PRIV(rec_type) != EOBJ_S_C_EGSD))
|
427 |
|
|
{
|
428 |
|
|
if (vms_fixup_sections (abfd) == false)
|
429 |
|
|
{
|
430 |
|
|
#if VMS_DEBUG
|
431 |
|
|
vms_debug (2, "vms_fixup_sections failed\n");
|
432 |
|
|
#endif
|
433 |
|
|
bfd_set_error (bfd_error_wrong_format);
|
434 |
|
|
return 0;
|
435 |
|
|
}
|
436 |
|
|
}
|
437 |
|
|
|
438 |
|
|
prev_type = PRIV(rec_type);
|
439 |
|
|
|
440 |
|
|
if (target_vector == 0)
|
441 |
|
|
{
|
442 |
|
|
if (prev_type <= OBJ_S_C_MAXRECTYP)
|
443 |
|
|
target_vector = &vms_vax_vec;
|
444 |
|
|
else
|
445 |
|
|
target_vector = &vms_alpha_vec;
|
446 |
|
|
}
|
447 |
|
|
|
448 |
|
|
switch (prev_type)
|
449 |
|
|
{
|
450 |
|
|
case OBJ_S_C_HDR:
|
451 |
|
|
case EOBJ_S_C_EMH:
|
452 |
|
|
err = _bfd_vms_slurp_hdr (abfd, prev_type);
|
453 |
|
|
break;
|
454 |
|
|
case OBJ_S_C_EOM:
|
455 |
|
|
case OBJ_S_C_EOMW:
|
456 |
|
|
case EOBJ_S_C_EEOM:
|
457 |
|
|
err = _bfd_vms_slurp_eom (abfd, prev_type);
|
458 |
|
|
break;
|
459 |
|
|
case OBJ_S_C_GSD:
|
460 |
|
|
case EOBJ_S_C_EGSD:
|
461 |
|
|
err = _bfd_vms_slurp_gsd (abfd, prev_type);
|
462 |
|
|
break;
|
463 |
|
|
case OBJ_S_C_TIR:
|
464 |
|
|
case EOBJ_S_C_ETIR:
|
465 |
|
|
err = _bfd_vms_slurp_tir (abfd, prev_type);
|
466 |
|
|
break;
|
467 |
|
|
case OBJ_S_C_DBG:
|
468 |
|
|
case EOBJ_S_C_EDBG:
|
469 |
|
|
err = _bfd_vms_slurp_dbg (abfd, prev_type);
|
470 |
|
|
break;
|
471 |
|
|
case OBJ_S_C_TBT:
|
472 |
|
|
case EOBJ_S_C_ETBT:
|
473 |
|
|
err = _bfd_vms_slurp_tbt (abfd, prev_type);
|
474 |
|
|
break;
|
475 |
|
|
case OBJ_S_C_LNK:
|
476 |
|
|
err = _bfd_vms_slurp_lnk (abfd, prev_type);
|
477 |
|
|
break;
|
478 |
|
|
default:
|
479 |
|
|
err = -1;
|
480 |
|
|
}
|
481 |
|
|
if (err != 0)
|
482 |
|
|
{
|
483 |
|
|
#if VMS_DEBUG
|
484 |
|
|
vms_debug (2, "slurp type %d failed with %d\n", prev_type, err);
|
485 |
|
|
#endif
|
486 |
|
|
bfd_set_error (bfd_error_wrong_format);
|
487 |
|
|
return 0;
|
488 |
|
|
}
|
489 |
|
|
}
|
490 |
|
|
while ((prev_type != EOBJ_S_C_EEOM) && (prev_type != OBJ_S_C_EOM) && (prev_type != OBJ_S_C_EOMW));
|
491 |
|
|
|
492 |
|
|
if (target_vector == &vms_vax_vec)
|
493 |
|
|
{
|
494 |
|
|
if (vms_fixup_sections (abfd) == false)
|
495 |
|
|
{
|
496 |
|
|
#if VMS_DEBUG
|
497 |
|
|
vms_debug (2, "vms_fixup_sections failed\n");
|
498 |
|
|
#endif
|
499 |
|
|
bfd_set_error (bfd_error_wrong_format);
|
500 |
|
|
return 0;
|
501 |
|
|
}
|
502 |
|
|
|
503 |
|
|
/* set arch_info to vax */
|
504 |
|
|
|
505 |
|
|
arch = bfd_scan_arch ("vax");
|
506 |
|
|
PRIV (is_vax) = 1;
|
507 |
|
|
#if VMS_DEBUG
|
508 |
|
|
vms_debug (2, "arch is vax\n");
|
509 |
|
|
#endif
|
510 |
|
|
}
|
511 |
|
|
else if (target_vector == &vms_alpha_vec)
|
512 |
|
|
{
|
513 |
|
|
/* set arch_info to alpha */
|
514 |
|
|
|
515 |
|
|
arch = bfd_scan_arch ("alpha");
|
516 |
|
|
PRIV (is_vax) = 0;
|
517 |
|
|
#if VMS_DEBUG
|
518 |
|
|
vms_debug (2, "arch is alpha\n");
|
519 |
|
|
#endif
|
520 |
|
|
}
|
521 |
|
|
|
522 |
|
|
if (arch == 0)
|
523 |
|
|
{
|
524 |
|
|
#if VMS_DEBUG
|
525 |
|
|
vms_debug (2, "arch not found\n");
|
526 |
|
|
#endif
|
527 |
|
|
bfd_set_error (bfd_error_wrong_format);
|
528 |
|
|
return 0;
|
529 |
|
|
}
|
530 |
|
|
abfd->arch_info = arch;
|
531 |
|
|
|
532 |
|
|
return target_vector;
|
533 |
|
|
}
|
534 |
|
|
|
535 |
|
|
|
536 |
|
|
/* Check the format for a file being read.
|
537 |
|
|
Return a (bfd_target *) if it's an archive file or zero. */
|
538 |
|
|
|
539 |
|
|
static const struct bfd_target *
|
540 |
|
|
vms_archive_p (abfd)
|
541 |
|
|
bfd *abfd ATTRIBUTE_UNUSED;
|
542 |
|
|
{
|
543 |
|
|
#if VMS_DEBUG
|
544 |
|
|
vms_debug (1, "vms_archive_p(%p)\n", abfd);
|
545 |
|
|
#endif
|
546 |
|
|
|
547 |
|
|
return 0;
|
548 |
|
|
}
|
549 |
|
|
|
550 |
|
|
|
551 |
|
|
/* Set the format of a file being written. */
|
552 |
|
|
|
553 |
|
|
static boolean
|
554 |
|
|
vms_mkobject (abfd)
|
555 |
|
|
bfd *abfd;
|
556 |
|
|
{
|
557 |
|
|
#if VMS_DEBUG
|
558 |
|
|
vms_debug (1, "vms_mkobject(%p)\n", abfd);
|
559 |
|
|
#endif
|
560 |
|
|
|
561 |
|
|
if (!vms_initialize (abfd))
|
562 |
|
|
{
|
563 |
|
|
fprintf (stderr, "vms_initialize () failed !!\n");
|
564 |
|
|
return 0;
|
565 |
|
|
}
|
566 |
|
|
|
567 |
|
|
{
|
568 |
|
|
#ifdef __VAX
|
569 |
|
|
const bfd_arch_info_type *arch = bfd_scan_arch ("vax");
|
570 |
|
|
#else
|
571 |
|
|
const bfd_arch_info_type *arch = bfd_scan_arch ("alpha");
|
572 |
|
|
#endif
|
573 |
|
|
if (arch == 0)
|
574 |
|
|
{
|
575 |
|
|
bfd_set_error(bfd_error_wrong_format);
|
576 |
|
|
return 0;
|
577 |
|
|
}
|
578 |
|
|
abfd->arch_info = arch;
|
579 |
|
|
}
|
580 |
|
|
|
581 |
|
|
return true;
|
582 |
|
|
}
|
583 |
|
|
|
584 |
|
|
|
585 |
|
|
/* Write cached information into a file being written, at bfd_close. */
|
586 |
|
|
|
587 |
|
|
static boolean
|
588 |
|
|
vms_write_object_contents (abfd)
|
589 |
|
|
bfd *abfd;
|
590 |
|
|
{
|
591 |
|
|
#if VMS_DEBUG
|
592 |
|
|
vms_debug (1, "vms_write_object_contents(%p)\n", abfd);
|
593 |
|
|
#endif
|
594 |
|
|
|
595 |
|
|
if (abfd->section_count > 0) /* we have sections */
|
596 |
|
|
{
|
597 |
|
|
if (PRIV(is_vax))
|
598 |
|
|
{
|
599 |
|
|
if (_bfd_vms_write_hdr (abfd, OBJ_S_C_HDR) != 0)
|
600 |
|
|
return false;
|
601 |
|
|
if (_bfd_vms_write_gsd (abfd, OBJ_S_C_GSD) != 0)
|
602 |
|
|
return false;
|
603 |
|
|
if (_bfd_vms_write_tir (abfd, OBJ_S_C_TIR) != 0)
|
604 |
|
|
return false;
|
605 |
|
|
if (_bfd_vms_write_tbt (abfd, OBJ_S_C_TBT) != 0)
|
606 |
|
|
return false;
|
607 |
|
|
if (_bfd_vms_write_dbg (abfd, OBJ_S_C_DBG) != 0)
|
608 |
|
|
return false;
|
609 |
|
|
if (abfd->section_count > 255)
|
610 |
|
|
{
|
611 |
|
|
if (_bfd_vms_write_eom (abfd, OBJ_S_C_EOMW) != 0)
|
612 |
|
|
return false;
|
613 |
|
|
}
|
614 |
|
|
else
|
615 |
|
|
{
|
616 |
|
|
if (_bfd_vms_write_eom (abfd, OBJ_S_C_EOM) != 0)
|
617 |
|
|
return false;
|
618 |
|
|
}
|
619 |
|
|
}
|
620 |
|
|
else
|
621 |
|
|
{
|
622 |
|
|
if (_bfd_vms_write_hdr (abfd, EOBJ_S_C_EMH) != 0)
|
623 |
|
|
return false;
|
624 |
|
|
if (_bfd_vms_write_gsd (abfd, EOBJ_S_C_EGSD) != 0)
|
625 |
|
|
return false;
|
626 |
|
|
if (_bfd_vms_write_tir (abfd, EOBJ_S_C_ETIR) != 0)
|
627 |
|
|
return false;
|
628 |
|
|
if (_bfd_vms_write_tbt (abfd, EOBJ_S_C_ETBT) != 0)
|
629 |
|
|
return false;
|
630 |
|
|
if (_bfd_vms_write_dbg (abfd, EOBJ_S_C_EDBG) != 0)
|
631 |
|
|
return false;
|
632 |
|
|
if (_bfd_vms_write_eom (abfd, EOBJ_S_C_EEOM) != 0)
|
633 |
|
|
return false;
|
634 |
|
|
}
|
635 |
|
|
}
|
636 |
|
|
return true;
|
637 |
|
|
}
|
638 |
|
|
|
639 |
|
|
/*-- 4.1, generic -----------------------------------------------------------*/
|
640 |
|
|
|
641 |
|
|
/* Called when the BFD is being closed to do any necessary cleanup. */
|
642 |
|
|
|
643 |
|
|
static boolean
|
644 |
|
|
vms_close_and_cleanup (abfd)
|
645 |
|
|
bfd *abfd;
|
646 |
|
|
{
|
647 |
|
|
asection *sec;
|
648 |
|
|
vms_section *es, *es1;
|
649 |
|
|
int i;
|
650 |
|
|
|
651 |
|
|
#if VMS_DEBUG
|
652 |
|
|
vms_debug (1, "vms_close_and_cleanup(%p)\n", abfd);
|
653 |
|
|
#endif
|
654 |
|
|
if (abfd == 0)
|
655 |
|
|
return true;
|
656 |
|
|
|
657 |
|
|
if (PRIV(vms_buf) != NULL)
|
658 |
|
|
{
|
659 |
|
|
free (PRIV(vms_buf));
|
660 |
|
|
PRIV(vms_buf) = NULL;
|
661 |
|
|
}
|
662 |
|
|
PRIV(buf_size) = 0;
|
663 |
|
|
|
664 |
|
|
if (PRIV(output_buf) != 0)
|
665 |
|
|
{
|
666 |
|
|
free (PRIV(output_buf));
|
667 |
|
|
PRIV(output_buf) = 0;
|
668 |
|
|
}
|
669 |
|
|
|
670 |
|
|
sec = abfd->sections;
|
671 |
|
|
while (sec != NULL)
|
672 |
|
|
{
|
673 |
|
|
if (sec->contents)
|
674 |
|
|
free (sec->contents);
|
675 |
|
|
sec = sec->next;
|
676 |
|
|
}
|
677 |
|
|
|
678 |
|
|
if (PRIV(sections) != NULL)
|
679 |
|
|
{
|
680 |
|
|
free (PRIV(sections));
|
681 |
|
|
PRIV(sections) = NULL;
|
682 |
|
|
}
|
683 |
|
|
|
684 |
|
|
if (PRIV(vms_symbol_table))
|
685 |
|
|
{
|
686 |
|
|
bfd_hash_table_free (PRIV(vms_symbol_table));
|
687 |
|
|
PRIV(vms_symbol_table) = 0;
|
688 |
|
|
}
|
689 |
|
|
|
690 |
|
|
if (PRIV(stack))
|
691 |
|
|
{
|
692 |
|
|
free (PRIV(stack));
|
693 |
|
|
PRIV(stack) = 0;
|
694 |
|
|
}
|
695 |
|
|
|
696 |
|
|
if (PRIV(location_stack))
|
697 |
|
|
{
|
698 |
|
|
free (PRIV(location_stack));
|
699 |
|
|
PRIV(location_stack) = 0;
|
700 |
|
|
}
|
701 |
|
|
|
702 |
|
|
for (i = 0; i < VMS_SECTION_COUNT; i++)
|
703 |
|
|
{
|
704 |
|
|
es = PRIV(vms_section_table)[i];
|
705 |
|
|
while (es != NULL)
|
706 |
|
|
{
|
707 |
|
|
es1 = es->next;
|
708 |
|
|
free (es);
|
709 |
|
|
es = es1;
|
710 |
|
|
}
|
711 |
|
|
PRIV(vms_section_table)[i] = NULL;
|
712 |
|
|
}
|
713 |
|
|
|
714 |
|
|
free (abfd->tdata.any);
|
715 |
|
|
abfd->tdata.any = NULL;
|
716 |
|
|
|
717 |
|
|
return true;
|
718 |
|
|
}
|
719 |
|
|
|
720 |
|
|
|
721 |
|
|
/* Ask the BFD to free all cached information. */
|
722 |
|
|
static boolean
|
723 |
|
|
vms_bfd_free_cached_info (abfd)
|
724 |
|
|
bfd *abfd ATTRIBUTE_UNUSED;
|
725 |
|
|
{
|
726 |
|
|
#if VMS_DEBUG
|
727 |
|
|
vms_debug (1, "vms_bfd_free_cached_info(%p)\n", abfd);
|
728 |
|
|
#endif
|
729 |
|
|
return true;
|
730 |
|
|
}
|
731 |
|
|
|
732 |
|
|
|
733 |
|
|
/* Called when a new section is created. */
|
734 |
|
|
|
735 |
|
|
static boolean
|
736 |
|
|
vms_new_section_hook (abfd, section)
|
737 |
|
|
bfd *abfd;
|
738 |
|
|
asection *section;
|
739 |
|
|
{
|
740 |
|
|
#if VMS_DEBUG
|
741 |
|
|
vms_debug (1, "vms_new_section_hook (%p, [%d]%s), count %d\n", abfd, section->index, section->name, abfd->section_count);
|
742 |
|
|
#endif
|
743 |
|
|
bfd_set_section_alignment(abfd, section, 4);
|
744 |
|
|
|
745 |
|
|
if (abfd->section_count > PRIV(section_count))
|
746 |
|
|
{
|
747 |
|
|
PRIV(sections) = ((asection **)
|
748 |
|
|
bfd_realloc (PRIV(sections), abfd->section_count * sizeof (asection *)));
|
749 |
|
|
if (PRIV(sections) == 0)
|
750 |
|
|
return false;
|
751 |
|
|
PRIV(section_count) = abfd->section_count;
|
752 |
|
|
}
|
753 |
|
|
#if VMS_DEBUG
|
754 |
|
|
vms_debug (6, "section_count: %d\n", PRIV(section_count));
|
755 |
|
|
#endif
|
756 |
|
|
PRIV(sections)[section->index] = section;
|
757 |
|
|
#if VMS_DEBUG
|
758 |
|
|
vms_debug (7, "%d: %s\n", section->index, section->name);
|
759 |
|
|
#endif
|
760 |
|
|
|
761 |
|
|
return true;
|
762 |
|
|
}
|
763 |
|
|
|
764 |
|
|
|
765 |
|
|
/* Read the contents of a section.
|
766 |
|
|
buf points to a buffer of buf_size bytes to be filled with
|
767 |
|
|
section data (starting at offset into section) */
|
768 |
|
|
|
769 |
|
|
static boolean
|
770 |
|
|
vms_get_section_contents (abfd, section, buf, offset, buf_size)
|
771 |
|
|
bfd *abfd ATTRIBUTE_UNUSED;
|
772 |
|
|
asection *section ATTRIBUTE_UNUSED;
|
773 |
|
|
PTR buf ATTRIBUTE_UNUSED;
|
774 |
|
|
file_ptr offset ATTRIBUTE_UNUSED;
|
775 |
|
|
bfd_size_type buf_size ATTRIBUTE_UNUSED;
|
776 |
|
|
{
|
777 |
|
|
#if VMS_DEBUG
|
778 |
|
|
vms_debug (1, "vms_get_section_contents(%p, %s, %p, off %ld, size %d)\n",
|
779 |
|
|
abfd, section->name, buf, offset, (int)buf_size);
|
780 |
|
|
#endif
|
781 |
|
|
|
782 |
|
|
/* shouldn't be called, since all sections are IN_MEMORY */
|
783 |
|
|
|
784 |
|
|
return false;
|
785 |
|
|
}
|
786 |
|
|
|
787 |
|
|
/* Read the contents of a section.
|
788 |
|
|
buf points to a buffer of buf_size bytes to be filled with
|
789 |
|
|
section data (starting at offset into section) */
|
790 |
|
|
|
791 |
|
|
static boolean
|
792 |
|
|
vms_get_section_contents_in_window (abfd, section, w, offset, count)
|
793 |
|
|
bfd *abfd ATTRIBUTE_UNUSED;
|
794 |
|
|
asection *section ATTRIBUTE_UNUSED;
|
795 |
|
|
bfd_window *w ATTRIBUTE_UNUSED;
|
796 |
|
|
file_ptr offset ATTRIBUTE_UNUSED;
|
797 |
|
|
bfd_size_type count ATTRIBUTE_UNUSED;
|
798 |
|
|
{
|
799 |
|
|
#if VMS_DEBUG
|
800 |
|
|
vms_debug (1, "vms_get_section_contents_in_window(%p, %s, %p, off %ld, count %d)\n",
|
801 |
|
|
abfd, section->name, w, offset, (int)count);
|
802 |
|
|
#endif
|
803 |
|
|
|
804 |
|
|
/* shouldn't be called, since all sections are IN_MEMORY */
|
805 |
|
|
|
806 |
|
|
return false;
|
807 |
|
|
}
|
808 |
|
|
|
809 |
|
|
/*-- Part 4.2, copy private data --------------------------------------------*/
|
810 |
|
|
|
811 |
|
|
/* Called to copy BFD general private data from one object file
|
812 |
|
|
to another. */
|
813 |
|
|
|
814 |
|
|
static boolean
|
815 |
|
|
vms_bfd_copy_private_bfd_data (src, dest)
|
816 |
|
|
bfd *src ATTRIBUTE_UNUSED;
|
817 |
|
|
bfd *dest ATTRIBUTE_UNUSED;
|
818 |
|
|
{
|
819 |
|
|
#if VMS_DEBUG
|
820 |
|
|
vms_debug (1, "vms_bfd_copy_private_bfd_data(%p, %p)\n", src, dest);
|
821 |
|
|
#endif
|
822 |
|
|
return true;
|
823 |
|
|
}
|
824 |
|
|
|
825 |
|
|
|
826 |
|
|
/* Merge private BFD information from the BFD @var{ibfd} to the
|
827 |
|
|
the output file BFD @var{obfd} when linking. Return <<true>>
|
828 |
|
|
on success, <<false>> on error. Possible error returns are:
|
829 |
|
|
|
830 |
|
|
o <<bfd_error_no_memory>> -
|
831 |
|
|
Not enough memory exists to create private data for @var{obfd}. */
|
832 |
|
|
|
833 |
|
|
static boolean
|
834 |
|
|
vms_bfd_merge_private_bfd_data (ibfd, obfd)
|
835 |
|
|
bfd *ibfd ATTRIBUTE_UNUSED;
|
836 |
|
|
bfd *obfd ATTRIBUTE_UNUSED;
|
837 |
|
|
{
|
838 |
|
|
#if VMS_DEBUG
|
839 |
|
|
vms_debug (1,"vms_bfd_merge_private_bfd_data(%p, %p)\n", ibfd, obfd);
|
840 |
|
|
#endif
|
841 |
|
|
return true;
|
842 |
|
|
}
|
843 |
|
|
|
844 |
|
|
|
845 |
|
|
/* Set private BFD flag information in the BFD @var{abfd}.
|
846 |
|
|
Return <<true>> on success, <<false>> on error. Possible error
|
847 |
|
|
returns are:
|
848 |
|
|
|
849 |
|
|
o <<bfd_error_no_memory>> -
|
850 |
|
|
Not enough memory exists to create private data for @var{obfd}. */
|
851 |
|
|
|
852 |
|
|
static boolean
|
853 |
|
|
vms_bfd_set_private_flags (abfd, flags)
|
854 |
|
|
bfd *abfd ATTRIBUTE_UNUSED;
|
855 |
|
|
flagword flags ATTRIBUTE_UNUSED;
|
856 |
|
|
{
|
857 |
|
|
#if VMS_DEBUG
|
858 |
|
|
vms_debug (1,"vms_bfd_set_private_flags(%p, %lx)\n", abfd, (long)flags);
|
859 |
|
|
#endif
|
860 |
|
|
return true;
|
861 |
|
|
}
|
862 |
|
|
|
863 |
|
|
|
864 |
|
|
/* Called to copy BFD private section data from one object file
|
865 |
|
|
to another. */
|
866 |
|
|
|
867 |
|
|
static boolean
|
868 |
|
|
vms_bfd_copy_private_section_data (srcbfd, srcsec, dstbfd, dstsec)
|
869 |
|
|
bfd *srcbfd ATTRIBUTE_UNUSED;
|
870 |
|
|
asection *srcsec ATTRIBUTE_UNUSED;
|
871 |
|
|
bfd *dstbfd ATTRIBUTE_UNUSED;
|
872 |
|
|
asection *dstsec ATTRIBUTE_UNUSED;
|
873 |
|
|
{
|
874 |
|
|
#if VMS_DEBUG
|
875 |
|
|
vms_debug (1, "vms_bfd_copy_private_section_data(%p, %s, %p, %s)\n",
|
876 |
|
|
srcbfd, srcsec->name, dstbfd, dstsec->name);
|
877 |
|
|
#endif
|
878 |
|
|
return true;
|
879 |
|
|
}
|
880 |
|
|
|
881 |
|
|
/* Called to copy BFD private symbol data from one object file
|
882 |
|
|
to another. */
|
883 |
|
|
|
884 |
|
|
static boolean
|
885 |
|
|
vms_bfd_copy_private_symbol_data (ibfd, isym, obfd, osym)
|
886 |
|
|
bfd *ibfd ATTRIBUTE_UNUSED;
|
887 |
|
|
asymbol *isym ATTRIBUTE_UNUSED;
|
888 |
|
|
bfd *obfd ATTRIBUTE_UNUSED;
|
889 |
|
|
asymbol *osym ATTRIBUTE_UNUSED;
|
890 |
|
|
{
|
891 |
|
|
#if VMS_DEBUG
|
892 |
|
|
vms_debug (1, "vms_bfd_copy_private_symbol_data(%p, %s, %p, %s)\n",
|
893 |
|
|
ibfd, isym->name, obfd, osym->name);
|
894 |
|
|
#endif
|
895 |
|
|
return true;
|
896 |
|
|
}
|
897 |
|
|
|
898 |
|
|
/*-- Part 4.3, core file ----------------------------------------------------*/
|
899 |
|
|
|
900 |
|
|
/* Return a read-only string explaining which program was running
|
901 |
|
|
when it failed and produced the core file abfd. */
|
902 |
|
|
|
903 |
|
|
static char *
|
904 |
|
|
vms_core_file_failing_command (abfd)
|
905 |
|
|
bfd *abfd ATTRIBUTE_UNUSED;
|
906 |
|
|
{
|
907 |
|
|
#if VMS_DEBUG
|
908 |
|
|
vms_debug (1, "vms_core_file_failing_command(%p)\n", abfd);
|
909 |
|
|
#endif
|
910 |
|
|
return 0;
|
911 |
|
|
}
|
912 |
|
|
|
913 |
|
|
|
914 |
|
|
/* Returns the signal number which caused the core dump which
|
915 |
|
|
generated the file the BFD abfd is attached to. */
|
916 |
|
|
|
917 |
|
|
static int
|
918 |
|
|
vms_core_file_failing_signal (abfd)
|
919 |
|
|
bfd *abfd ATTRIBUTE_UNUSED;
|
920 |
|
|
{
|
921 |
|
|
#if VMS_DEBUG
|
922 |
|
|
vms_debug (1, "vms_core_file_failing_signal(%p)\n", abfd);
|
923 |
|
|
#endif
|
924 |
|
|
return 0;
|
925 |
|
|
}
|
926 |
|
|
|
927 |
|
|
|
928 |
|
|
/* Return true if the core file attached to core_bfd was generated
|
929 |
|
|
by a run of the executable file attached to exec_bfd, false otherwise. */
|
930 |
|
|
|
931 |
|
|
static boolean
|
932 |
|
|
vms_core_file_matches_executable_p (abfd, bbfd)
|
933 |
|
|
bfd *abfd ATTRIBUTE_UNUSED;
|
934 |
|
|
bfd *bbfd ATTRIBUTE_UNUSED;
|
935 |
|
|
{
|
936 |
|
|
#if VMS_DEBUG
|
937 |
|
|
vms_debug (1, "vms_core_file_matches_executable_p(%p, %p)\n", abfd, bbfd);
|
938 |
|
|
#endif
|
939 |
|
|
return false;
|
940 |
|
|
}
|
941 |
|
|
|
942 |
|
|
/*-- Part 4.4, archive ------------------------------------------------------*/
|
943 |
|
|
|
944 |
|
|
/* ??? do something with an archive map.
|
945 |
|
|
Return false on error, true otherwise. */
|
946 |
|
|
|
947 |
|
|
static boolean
|
948 |
|
|
vms_slurp_armap (abfd)
|
949 |
|
|
bfd *abfd ATTRIBUTE_UNUSED;
|
950 |
|
|
{
|
951 |
|
|
#if VMS_DEBUG
|
952 |
|
|
vms_debug (1, "vms_slurp_armap(%p)\n", abfd);
|
953 |
|
|
#endif
|
954 |
|
|
return false;
|
955 |
|
|
}
|
956 |
|
|
|
957 |
|
|
|
958 |
|
|
/* ??? do something with an extended name table.
|
959 |
|
|
Return false on error, true otherwise. */
|
960 |
|
|
|
961 |
|
|
static boolean
|
962 |
|
|
vms_slurp_extended_name_table (abfd)
|
963 |
|
|
bfd *abfd ATTRIBUTE_UNUSED;
|
964 |
|
|
{
|
965 |
|
|
#if VMS_DEBUG
|
966 |
|
|
vms_debug (1, "vms_slurp_extended_name_table(%p)\n", abfd);
|
967 |
|
|
#endif
|
968 |
|
|
return false;
|
969 |
|
|
}
|
970 |
|
|
|
971 |
|
|
|
972 |
|
|
/* ??? do something with an extended name table.
|
973 |
|
|
Return false on error, true otherwise. */
|
974 |
|
|
|
975 |
|
|
static boolean
|
976 |
|
|
vms_construct_extended_name_table (abfd, tabloc, tablen, name)
|
977 |
|
|
bfd *abfd ATTRIBUTE_UNUSED;
|
978 |
|
|
char **tabloc ATTRIBUTE_UNUSED;
|
979 |
|
|
bfd_size_type *tablen ATTRIBUTE_UNUSED;
|
980 |
|
|
const char **name ATTRIBUTE_UNUSED;
|
981 |
|
|
{
|
982 |
|
|
#if VMS_DEBUG
|
983 |
|
|
vms_debug (1, "vms_construct_extended_name_table(%p)\n", abfd);
|
984 |
|
|
#endif
|
985 |
|
|
return false;
|
986 |
|
|
}
|
987 |
|
|
|
988 |
|
|
|
989 |
|
|
/* Truncate the name of an archive to match system-dependent restrictions */
|
990 |
|
|
|
991 |
|
|
static void
|
992 |
|
|
vms_truncate_arname (abfd, pathname, arhdr)
|
993 |
|
|
bfd *abfd ATTRIBUTE_UNUSED;
|
994 |
|
|
CONST char *pathname ATTRIBUTE_UNUSED;
|
995 |
|
|
char *arhdr ATTRIBUTE_UNUSED;
|
996 |
|
|
{
|
997 |
|
|
#if VMS_DEBUG
|
998 |
|
|
vms_debug (1, "vms_truncate_arname(%p, %s, %s)\n", abfd, pathname, arhdr);
|
999 |
|
|
#endif
|
1000 |
|
|
return;
|
1001 |
|
|
}
|
1002 |
|
|
|
1003 |
|
|
|
1004 |
|
|
/* ??? write archive map */
|
1005 |
|
|
|
1006 |
|
|
static boolean
|
1007 |
|
|
vms_write_armap (arch, elength, map, orl_count, stridx)
|
1008 |
|
|
bfd *arch ATTRIBUTE_UNUSED;
|
1009 |
|
|
unsigned int elength ATTRIBUTE_UNUSED;
|
1010 |
|
|
struct orl *map ATTRIBUTE_UNUSED;
|
1011 |
|
|
unsigned int orl_count ATTRIBUTE_UNUSED;
|
1012 |
|
|
int stridx ATTRIBUTE_UNUSED;
|
1013 |
|
|
{
|
1014 |
|
|
#if VMS_DEBUG
|
1015 |
|
|
vms_debug (1, "vms_write_armap(%p, %d, %p, %d %d)\n",
|
1016 |
|
|
arch, elength, map, orl_count, stridx);
|
1017 |
|
|
#endif
|
1018 |
|
|
return true;
|
1019 |
|
|
}
|
1020 |
|
|
|
1021 |
|
|
/* Read archive header ??? */
|
1022 |
|
|
|
1023 |
|
|
static PTR
|
1024 |
|
|
vms_read_ar_hdr (abfd)
|
1025 |
|
|
bfd * abfd ATTRIBUTE_UNUSED;
|
1026 |
|
|
{
|
1027 |
|
|
#if VMS_DEBUG
|
1028 |
|
|
vms_debug (1, "vms_read_ar_hdr(%p)\n", abfd);
|
1029 |
|
|
#endif
|
1030 |
|
|
return (PTR)0;
|
1031 |
|
|
}
|
1032 |
|
|
|
1033 |
|
|
|
1034 |
|
|
/* Provided a BFD, @var{archive}, containing an archive and NULL, open
|
1035 |
|
|
an input BFD on the first contained element and returns that.
|
1036 |
|
|
Subsequent calls should pass the archive and the previous return value
|
1037 |
|
|
to return a created BFD to the next contained element.
|
1038 |
|
|
NULL is returned when there are no more. */
|
1039 |
|
|
|
1040 |
|
|
static bfd *
|
1041 |
|
|
vms_openr_next_archived_file (arch, prev)
|
1042 |
|
|
bfd *arch ATTRIBUTE_UNUSED;
|
1043 |
|
|
bfd *prev ATTRIBUTE_UNUSED;
|
1044 |
|
|
{
|
1045 |
|
|
#if VMS_DEBUG
|
1046 |
|
|
vms_debug (1, "vms_openr_next_archived_file(%p, %p)\n", arch, prev);
|
1047 |
|
|
#endif
|
1048 |
|
|
return false;
|
1049 |
|
|
}
|
1050 |
|
|
|
1051 |
|
|
|
1052 |
|
|
/* Return the BFD which is referenced by the symbol in ABFD indexed by
|
1053 |
|
|
INDEX. INDEX should have been returned by bfd_get_next_mapent. */
|
1054 |
|
|
|
1055 |
|
|
static bfd *
|
1056 |
|
|
vms_get_elt_at_index (abfd, index)
|
1057 |
|
|
bfd *abfd;
|
1058 |
|
|
symindex index;
|
1059 |
|
|
{
|
1060 |
|
|
#if VMS_DEBUG
|
1061 |
|
|
vms_debug (1, "vms_get_elt_at_index(%p, %p)\n", abfd, index);
|
1062 |
|
|
#endif
|
1063 |
|
|
return _bfd_generic_get_elt_at_index(abfd, index);
|
1064 |
|
|
}
|
1065 |
|
|
|
1066 |
|
|
|
1067 |
|
|
/* ???
|
1068 |
|
|
-> bfd_generic_stat_arch_elt */
|
1069 |
|
|
|
1070 |
|
|
static int
|
1071 |
|
|
vms_generic_stat_arch_elt (abfd, stat)
|
1072 |
|
|
bfd *abfd;
|
1073 |
|
|
struct stat *stat;
|
1074 |
|
|
{
|
1075 |
|
|
#if VMS_DEBUG
|
1076 |
|
|
vms_debug (1, "vms_generic_stat_arch_elt(%p, %p)\n", abfd, stat);
|
1077 |
|
|
#endif
|
1078 |
|
|
return bfd_generic_stat_arch_elt(abfd, stat);
|
1079 |
|
|
}
|
1080 |
|
|
|
1081 |
|
|
|
1082 |
|
|
/* This is a new function in bfd 2.5 */
|
1083 |
|
|
|
1084 |
|
|
static boolean
|
1085 |
|
|
vms_update_armap_timestamp (abfd)
|
1086 |
|
|
bfd *abfd ATTRIBUTE_UNUSED;
|
1087 |
|
|
{
|
1088 |
|
|
#if VMS_DEBUG
|
1089 |
|
|
vms_debug (1, "vms_update_armap_timestamp(%p)\n", abfd);
|
1090 |
|
|
#endif
|
1091 |
|
|
return true;
|
1092 |
|
|
}
|
1093 |
|
|
|
1094 |
|
|
/*-- Part 4.5, symbols --------------------------------------------------------*/
|
1095 |
|
|
|
1096 |
|
|
/* Return the number of bytes required to store a vector of pointers
|
1097 |
|
|
to asymbols for all the symbols in the BFD abfd, including a
|
1098 |
|
|
terminal NULL pointer. If there are no symbols in the BFD,
|
1099 |
|
|
then return 0. If an error occurs, return -1. */
|
1100 |
|
|
|
1101 |
|
|
static long
|
1102 |
|
|
vms_get_symtab_upper_bound (abfd)
|
1103 |
|
|
bfd *abfd;
|
1104 |
|
|
{
|
1105 |
|
|
#if VMS_DEBUG
|
1106 |
|
|
vms_debug (1, "vms_get_symtab_upper_bound(%p), %d symbols\n", abfd, PRIV(gsd_sym_count));
|
1107 |
|
|
#endif
|
1108 |
|
|
return (PRIV(gsd_sym_count)+1) * sizeof(asymbol *);
|
1109 |
|
|
}
|
1110 |
|
|
|
1111 |
|
|
|
1112 |
|
|
/* Copy symbols from hash table to symbol vector
|
1113 |
|
|
|
1114 |
|
|
called from bfd_hash_traverse in vms_get_symtab
|
1115 |
|
|
init counter to 0 if entry == 0 */
|
1116 |
|
|
|
1117 |
|
|
static boolean
|
1118 |
|
|
copy_symbols (entry, arg)
|
1119 |
|
|
struct bfd_hash_entry *entry;
|
1120 |
|
|
PTR arg;
|
1121 |
|
|
{
|
1122 |
|
|
bfd *abfd = (bfd *) arg;
|
1123 |
|
|
|
1124 |
|
|
if (entry == NULL) /* init counter */
|
1125 |
|
|
PRIV(symnum) = 0;
|
1126 |
|
|
else /* fill vector, inc counter */
|
1127 |
|
|
PRIV(symcache)[PRIV(symnum)++] = ((vms_symbol_entry *)entry)->symbol;
|
1128 |
|
|
|
1129 |
|
|
return true;
|
1130 |
|
|
}
|
1131 |
|
|
|
1132 |
|
|
|
1133 |
|
|
/* Read the symbols from the BFD abfd, and fills in the vector
|
1134 |
|
|
location with pointers to the symbols and a trailing NULL.
|
1135 |
|
|
|
1136 |
|
|
return # of symbols read */
|
1137 |
|
|
|
1138 |
|
|
static long
|
1139 |
|
|
vms_get_symtab (abfd, symbols)
|
1140 |
|
|
bfd *abfd;
|
1141 |
|
|
asymbol **symbols;
|
1142 |
|
|
{
|
1143 |
|
|
#if VMS_DEBUG
|
1144 |
|
|
vms_debug (1, "vms_get_symtab(%p, <ret>)\n", abfd);
|
1145 |
|
|
#endif
|
1146 |
|
|
|
1147 |
|
|
/* init counter */
|
1148 |
|
|
(void)copy_symbols((struct bfd_hash_entry *)0, abfd);
|
1149 |
|
|
|
1150 |
|
|
/* traverse table and fill symbols vector */
|
1151 |
|
|
|
1152 |
|
|
PRIV(symcache) = symbols;
|
1153 |
|
|
bfd_hash_traverse(PRIV(vms_symbol_table), copy_symbols, (PTR)abfd);
|
1154 |
|
|
|
1155 |
|
|
symbols[PRIV(gsd_sym_count)] = NULL;
|
1156 |
|
|
|
1157 |
|
|
return PRIV(gsd_sym_count);
|
1158 |
|
|
}
|
1159 |
|
|
|
1160 |
|
|
|
1161 |
|
|
/* Create a new asymbol structure for the BFD abfd and return a pointer
|
1162 |
|
|
to it.
|
1163 |
|
|
This routine is necessary because each back end has private information
|
1164 |
|
|
surrounding the asymbol. Building your own asymbol and pointing to it
|
1165 |
|
|
will not create the private information, and will cause problems later on. */
|
1166 |
|
|
|
1167 |
|
|
asymbol *
|
1168 |
|
|
_bfd_vms_make_empty_symbol (abfd)
|
1169 |
|
|
bfd *abfd;
|
1170 |
|
|
{
|
1171 |
|
|
asymbol *symbol = (asymbol *)bfd_zalloc(abfd, sizeof(asymbol));
|
1172 |
|
|
|
1173 |
|
|
#if VMS_DEBUG
|
1174 |
|
|
vms_debug (1, "_bfd_vms_make_empty_symbol(%p)\n", abfd);
|
1175 |
|
|
#endif
|
1176 |
|
|
|
1177 |
|
|
if (symbol == 0)
|
1178 |
|
|
{
|
1179 |
|
|
bfd_set_error (bfd_error_no_memory);
|
1180 |
|
|
return 0;
|
1181 |
|
|
}
|
1182 |
|
|
symbol->the_bfd = abfd;
|
1183 |
|
|
|
1184 |
|
|
return symbol;
|
1185 |
|
|
}
|
1186 |
|
|
|
1187 |
|
|
|
1188 |
|
|
/* Print symbol to file according to how. how is one of
|
1189 |
|
|
bfd_print_symbol_name just print the name
|
1190 |
|
|
bfd_print_symbol_more print more (???)
|
1191 |
|
|
bfd_print_symbol_all print all we know, which is not much right now :-) */
|
1192 |
|
|
|
1193 |
|
|
static void
|
1194 |
|
|
vms_print_symbol (abfd, file, symbol, how)
|
1195 |
|
|
bfd *abfd ATTRIBUTE_UNUSED;
|
1196 |
|
|
PTR file;
|
1197 |
|
|
asymbol *symbol;
|
1198 |
|
|
bfd_print_symbol_type how;
|
1199 |
|
|
{
|
1200 |
|
|
#if VMS_DEBUG
|
1201 |
|
|
vms_debug (1, "vms_print_symbol(%p, %p, %p, %d)\n", abfd, file, symbol, how);
|
1202 |
|
|
#endif
|
1203 |
|
|
|
1204 |
|
|
switch (how)
|
1205 |
|
|
{
|
1206 |
|
|
case bfd_print_symbol_name:
|
1207 |
|
|
case bfd_print_symbol_more:
|
1208 |
|
|
fprintf((FILE *)file," %s", symbol->name);
|
1209 |
|
|
break;
|
1210 |
|
|
|
1211 |
|
|
break;
|
1212 |
|
|
|
1213 |
|
|
case bfd_print_symbol_all:
|
1214 |
|
|
{
|
1215 |
|
|
CONST char *section_name = symbol->section->name;
|
1216 |
|
|
|
1217 |
|
|
bfd_print_symbol_vandf((PTR)file,symbol);
|
1218 |
|
|
|
1219 |
|
|
fprintf((FILE *)file," %-8s %s", section_name, symbol->name);
|
1220 |
|
|
}
|
1221 |
|
|
break;
|
1222 |
|
|
}
|
1223 |
|
|
return;
|
1224 |
|
|
}
|
1225 |
|
|
|
1226 |
|
|
|
1227 |
|
|
/* Return information about symbol in ret.
|
1228 |
|
|
|
1229 |
|
|
fill type, value and name
|
1230 |
|
|
type:
|
1231 |
|
|
A absolute
|
1232 |
|
|
B bss segment symbol
|
1233 |
|
|
C common symbol
|
1234 |
|
|
D data segment symbol
|
1235 |
|
|
f filename
|
1236 |
|
|
t a static function symbol
|
1237 |
|
|
T text segment symbol
|
1238 |
|
|
U undefined
|
1239 |
|
|
- debug */
|
1240 |
|
|
|
1241 |
|
|
static void
|
1242 |
|
|
vms_get_symbol_info (abfd, symbol, ret)
|
1243 |
|
|
bfd *abfd ATTRIBUTE_UNUSED;
|
1244 |
|
|
asymbol *symbol;
|
1245 |
|
|
symbol_info *ret;
|
1246 |
|
|
{
|
1247 |
|
|
asection *sec;
|
1248 |
|
|
|
1249 |
|
|
#if VMS_DEBUG
|
1250 |
|
|
vms_debug (1, "vms_get_symbol_info(%p, %p, %p)\n", abfd, symbol, ret);
|
1251 |
|
|
#endif
|
1252 |
|
|
|
1253 |
|
|
sec = symbol->section;
|
1254 |
|
|
|
1255 |
|
|
if (ret == 0)
|
1256 |
|
|
return;
|
1257 |
|
|
|
1258 |
|
|
if (bfd_is_com_section (sec))
|
1259 |
|
|
ret->type = 'C';
|
1260 |
|
|
else if (bfd_is_abs_section (sec))
|
1261 |
|
|
ret->type = 'A';
|
1262 |
|
|
else if (bfd_is_und_section (sec))
|
1263 |
|
|
ret->type = 'U';
|
1264 |
|
|
else if (bfd_is_ind_section (sec))
|
1265 |
|
|
ret->type = 'I';
|
1266 |
|
|
else if (bfd_get_section_flags (abfd, sec) & SEC_CODE)
|
1267 |
|
|
ret->type = 'T';
|
1268 |
|
|
else if (bfd_get_section_flags (abfd, sec) & SEC_DATA)
|
1269 |
|
|
ret->type = 'D';
|
1270 |
|
|
else if (bfd_get_section_flags (abfd, sec) & SEC_ALLOC)
|
1271 |
|
|
ret->type = 'B';
|
1272 |
|
|
else
|
1273 |
|
|
ret->type = '-';
|
1274 |
|
|
|
1275 |
|
|
if (ret->type != 'U')
|
1276 |
|
|
ret->value = symbol->value + symbol->section->vma;
|
1277 |
|
|
else
|
1278 |
|
|
ret->value = 0;
|
1279 |
|
|
ret->name = symbol->name;
|
1280 |
|
|
|
1281 |
|
|
return;
|
1282 |
|
|
}
|
1283 |
|
|
|
1284 |
|
|
|
1285 |
|
|
/* Return true if the given symbol sym in the BFD abfd is
|
1286 |
|
|
a compiler generated local label, else return false. */
|
1287 |
|
|
|
1288 |
|
|
static boolean
|
1289 |
|
|
vms_bfd_is_local_label_name (abfd, name)
|
1290 |
|
|
bfd *abfd ATTRIBUTE_UNUSED;
|
1291 |
|
|
const char *name;
|
1292 |
|
|
{
|
1293 |
|
|
#if VMS_DEBUG
|
1294 |
|
|
vms_debug (1, "vms_bfd_is_local_label_name(%p, %s)\n", abfd, name);
|
1295 |
|
|
#endif
|
1296 |
|
|
return name[0] == '$';
|
1297 |
|
|
}
|
1298 |
|
|
|
1299 |
|
|
|
1300 |
|
|
/* Get source line number for symbol */
|
1301 |
|
|
|
1302 |
|
|
static alent *
|
1303 |
|
|
vms_get_lineno (abfd, symbol)
|
1304 |
|
|
bfd *abfd ATTRIBUTE_UNUSED;
|
1305 |
|
|
asymbol *symbol ATTRIBUTE_UNUSED;
|
1306 |
|
|
{
|
1307 |
|
|
#if VMS_DEBUG
|
1308 |
|
|
vms_debug (1, "vms_get_lineno(%p, %p)\n", abfd, symbol);
|
1309 |
|
|
#endif
|
1310 |
|
|
return 0;
|
1311 |
|
|
}
|
1312 |
|
|
|
1313 |
|
|
|
1314 |
|
|
/* Provided a BFD, a section and an offset into the section, calculate and
|
1315 |
|
|
return the name of the source file and the line nearest to the wanted
|
1316 |
|
|
location. */
|
1317 |
|
|
|
1318 |
|
|
static boolean
|
1319 |
|
|
vms_find_nearest_line (abfd, section, symbols, offset, file, func, line)
|
1320 |
|
|
bfd *abfd ATTRIBUTE_UNUSED;
|
1321 |
|
|
asection *section ATTRIBUTE_UNUSED;
|
1322 |
|
|
asymbol **symbols ATTRIBUTE_UNUSED;
|
1323 |
|
|
bfd_vma offset ATTRIBUTE_UNUSED;
|
1324 |
|
|
CONST char **file ATTRIBUTE_UNUSED;
|
1325 |
|
|
CONST char **func ATTRIBUTE_UNUSED;
|
1326 |
|
|
unsigned int *line ATTRIBUTE_UNUSED;
|
1327 |
|
|
{
|
1328 |
|
|
#if VMS_DEBUG
|
1329 |
|
|
vms_debug (1, "vms_find_nearest_line(%p, %s, %p, %ld, <ret>, <ret>, <ret>)\n",
|
1330 |
|
|
abfd, section->name, symbols, (long int)offset);
|
1331 |
|
|
#endif
|
1332 |
|
|
return false;
|
1333 |
|
|
}
|
1334 |
|
|
|
1335 |
|
|
|
1336 |
|
|
/* Back-door to allow format-aware applications to create debug symbols
|
1337 |
|
|
while using BFD for everything else. Currently used by the assembler
|
1338 |
|
|
when creating COFF files. */
|
1339 |
|
|
|
1340 |
|
|
static asymbol *
|
1341 |
|
|
vms_bfd_make_debug_symbol (abfd, ptr, size)
|
1342 |
|
|
bfd *abfd ATTRIBUTE_UNUSED;
|
1343 |
|
|
void *ptr ATTRIBUTE_UNUSED;
|
1344 |
|
|
unsigned long size ATTRIBUTE_UNUSED;
|
1345 |
|
|
{
|
1346 |
|
|
#if VMS_DEBUG
|
1347 |
|
|
vms_debug (1, "vms_bfd_make_debug_symbol(%p, %p, %ld)\n", abfd, ptr, size);
|
1348 |
|
|
#endif
|
1349 |
|
|
return 0;
|
1350 |
|
|
}
|
1351 |
|
|
|
1352 |
|
|
|
1353 |
|
|
/* Read minisymbols. For minisymbols, we use the unmodified a.out
|
1354 |
|
|
symbols. The minisymbol_to_symbol function translates these into
|
1355 |
|
|
BFD asymbol structures. */
|
1356 |
|
|
|
1357 |
|
|
static long
|
1358 |
|
|
vms_read_minisymbols (abfd, dynamic, minisymsp, sizep)
|
1359 |
|
|
bfd *abfd;
|
1360 |
|
|
boolean dynamic;
|
1361 |
|
|
PTR *minisymsp;
|
1362 |
|
|
unsigned int *sizep;
|
1363 |
|
|
{
|
1364 |
|
|
#if VMS_DEBUG
|
1365 |
|
|
vms_debug (1, "vms_read_minisymbols(%p, %d, %p, %d)\n", abfd, dynamic, minisymsp, *sizep);
|
1366 |
|
|
#endif
|
1367 |
|
|
return _bfd_generic_read_minisymbols (abfd, dynamic, minisymsp, sizep);
|
1368 |
|
|
}
|
1369 |
|
|
|
1370 |
|
|
/* Convert a minisymbol to a BFD asymbol. A minisymbol is just an
|
1371 |
|
|
unmodified a.out symbol. The SYM argument is a structure returned
|
1372 |
|
|
by bfd_make_empty_symbol, which we fill in here. */
|
1373 |
|
|
|
1374 |
|
|
static asymbol *
|
1375 |
|
|
vms_minisymbol_to_symbol (abfd, dynamic, minisym, sym)
|
1376 |
|
|
bfd *abfd;
|
1377 |
|
|
boolean dynamic;
|
1378 |
|
|
const PTR minisym;
|
1379 |
|
|
asymbol *sym;
|
1380 |
|
|
{
|
1381 |
|
|
#if VMS_DEBUG
|
1382 |
|
|
vms_debug (1, "vms_minisymbol_to_symbol(%p, %d, %p, %p)\n", abfd, dynamic, minisym, sym);
|
1383 |
|
|
#endif
|
1384 |
|
|
return _bfd_generic_minisymbol_to_symbol (abfd, dynamic, minisym, sym);
|
1385 |
|
|
}
|
1386 |
|
|
|
1387 |
|
|
/*-- Part 4.6, relocations --------------------------------------------------*/
|
1388 |
|
|
|
1389 |
|
|
/* Return the number of bytes required to store the relocation information
|
1390 |
|
|
associated with section sect attached to bfd abfd.
|
1391 |
|
|
If an error occurs, return -1. */
|
1392 |
|
|
|
1393 |
|
|
static long
|
1394 |
|
|
vms_get_reloc_upper_bound (abfd, section)
|
1395 |
|
|
bfd *abfd ATTRIBUTE_UNUSED;
|
1396 |
|
|
asection *section ATTRIBUTE_UNUSED;
|
1397 |
|
|
{
|
1398 |
|
|
#if VMS_DEBUG
|
1399 |
|
|
vms_debug (1, "vms_get_reloc_upper_bound(%p, %s)\n", abfd, section->name);
|
1400 |
|
|
#endif
|
1401 |
|
|
return -1L;
|
1402 |
|
|
}
|
1403 |
|
|
|
1404 |
|
|
|
1405 |
|
|
/* Call the back end associated with the open BFD abfd and translate the
|
1406 |
|
|
external form of the relocation information attached to sec into the
|
1407 |
|
|
internal canonical form. Place the table into memory at loc, which has
|
1408 |
|
|
been preallocated, usually by a call to bfd_get_reloc_upper_bound.
|
1409 |
|
|
Returns the number of relocs, or -1 on error. */
|
1410 |
|
|
|
1411 |
|
|
static long
|
1412 |
|
|
vms_canonicalize_reloc (abfd, section, location, symbols)
|
1413 |
|
|
bfd *abfd ATTRIBUTE_UNUSED;
|
1414 |
|
|
asection *section ATTRIBUTE_UNUSED;
|
1415 |
|
|
arelent **location ATTRIBUTE_UNUSED;
|
1416 |
|
|
asymbol **symbols ATTRIBUTE_UNUSED;
|
1417 |
|
|
{
|
1418 |
|
|
#if VMS_DEBUG
|
1419 |
|
|
vms_debug (1, "vms_canonicalize_reloc(%p, %s, <ret>, <ret>)\n", abfd, section->name);
|
1420 |
|
|
#endif
|
1421 |
|
|
return false;
|
1422 |
|
|
}
|
1423 |
|
|
|
1424 |
|
|
/*---------------------------------------------------------------------------*/
|
1425 |
|
|
/* this is just copied from ecoff-alpha, needs to be fixed probably */
|
1426 |
|
|
|
1427 |
|
|
/* How to process the various reloc types. */
|
1428 |
|
|
|
1429 |
|
|
static bfd_reloc_status_type
|
1430 |
|
|
reloc_nil (abfd, reloc, sym, data, sec, output_bfd, error_message)
|
1431 |
|
|
bfd *abfd ATTRIBUTE_UNUSED;
|
1432 |
|
|
arelent *reloc ATTRIBUTE_UNUSED;
|
1433 |
|
|
asymbol *sym ATTRIBUTE_UNUSED;
|
1434 |
|
|
PTR data ATTRIBUTE_UNUSED;
|
1435 |
|
|
asection *sec ATTRIBUTE_UNUSED;
|
1436 |
|
|
bfd *output_bfd ATTRIBUTE_UNUSED;
|
1437 |
|
|
char **error_message ATTRIBUTE_UNUSED;
|
1438 |
|
|
{
|
1439 |
|
|
#if VMS_DEBUG
|
1440 |
|
|
vms_debug (1, "reloc_nil(abfd %p, output_bfd %p)\n", abfd, output_bfd);
|
1441 |
|
|
vms_debug (2, "In section %s, symbol %s\n",
|
1442 |
|
|
sec->name, sym->name);
|
1443 |
|
|
vms_debug (2, "reloc sym %s, addr %08lx, addend %08lx, reloc is a %s\n",
|
1444 |
|
|
reloc->sym_ptr_ptr[0]->name,
|
1445 |
|
|
(unsigned long)reloc->address,
|
1446 |
|
|
(unsigned long)reloc->addend, reloc->howto->name);
|
1447 |
|
|
vms_debug (2, "data at %p\n", data);
|
1448 |
|
|
/* _bfd_hexdump (2, data, bfd_get_reloc_size(reloc->howto),0); */
|
1449 |
|
|
#endif
|
1450 |
|
|
|
1451 |
|
|
return bfd_reloc_ok;
|
1452 |
|
|
}
|
1453 |
|
|
|
1454 |
|
|
/* In case we're on a 32-bit machine, construct a 64-bit "-1" value
|
1455 |
|
|
from smaller values. Start with zero, widen, *then* decrement. */
|
1456 |
|
|
#define MINUS_ONE (((bfd_vma)0) - 1)
|
1457 |
|
|
|
1458 |
|
|
static reloc_howto_type alpha_howto_table[] =
|
1459 |
|
|
{
|
1460 |
|
|
HOWTO (ALPHA_R_IGNORE, /* type */
|
1461 |
|
|
0, /* rightshift */
|
1462 |
|
|
0, /* size (0 = byte, 1 = short, 2 = long) */
|
1463 |
|
|
8, /* bitsize */
|
1464 |
|
|
true, /* pc_relative */
|
1465 |
|
|
0, /* bitpos */
|
1466 |
|
|
complain_overflow_dont, /* complain_on_overflow */
|
1467 |
|
|
reloc_nil, /* special_function */
|
1468 |
|
|
"IGNORE", /* name */
|
1469 |
|
|
true, /* partial_inplace */
|
1470 |
|
|
0, /* src_mask */
|
1471 |
|
|
0, /* dst_mask */
|
1472 |
|
|
true), /* pcrel_offset */
|
1473 |
|
|
|
1474 |
|
|
/* A 64 bit reference to a symbol. */
|
1475 |
|
|
HOWTO (ALPHA_R_REFQUAD, /* type */
|
1476 |
|
|
0, /* rightshift */
|
1477 |
|
|
4, /* size (0 = byte, 1 = short, 2 = long) */
|
1478 |
|
|
64, /* bitsize */
|
1479 |
|
|
false, /* pc_relative */
|
1480 |
|
|
0, /* bitpos */
|
1481 |
|
|
complain_overflow_bitfield, /* complain_on_overflow */
|
1482 |
|
|
reloc_nil, /* special_function */
|
1483 |
|
|
"REFQUAD", /* name */
|
1484 |
|
|
true, /* partial_inplace */
|
1485 |
|
|
MINUS_ONE, /* src_mask */
|
1486 |
|
|
MINUS_ONE, /* dst_mask */
|
1487 |
|
|
false), /* pcrel_offset */
|
1488 |
|
|
|
1489 |
|
|
/* A 21 bit branch. The native assembler generates these for
|
1490 |
|
|
branches within the text segment, and also fills in the PC
|
1491 |
|
|
relative offset in the instruction. */
|
1492 |
|
|
HOWTO (ALPHA_R_BRADDR, /* type */
|
1493 |
|
|
2, /* rightshift */
|
1494 |
|
|
2, /* size (0 = byte, 1 = short, 2 = long) */
|
1495 |
|
|
21, /* bitsize */
|
1496 |
|
|
true, /* pc_relative */
|
1497 |
|
|
0, /* bitpos */
|
1498 |
|
|
complain_overflow_signed, /* complain_on_overflow */
|
1499 |
|
|
reloc_nil, /* special_function */
|
1500 |
|
|
"BRADDR", /* name */
|
1501 |
|
|
true, /* partial_inplace */
|
1502 |
|
|
0x1fffff, /* src_mask */
|
1503 |
|
|
0x1fffff, /* dst_mask */
|
1504 |
|
|
false), /* pcrel_offset */
|
1505 |
|
|
|
1506 |
|
|
/* A hint for a jump to a register. */
|
1507 |
|
|
HOWTO (ALPHA_R_HINT, /* type */
|
1508 |
|
|
2, /* rightshift */
|
1509 |
|
|
1, /* size (0 = byte, 1 = short, 2 = long) */
|
1510 |
|
|
14, /* bitsize */
|
1511 |
|
|
true, /* pc_relative */
|
1512 |
|
|
0, /* bitpos */
|
1513 |
|
|
complain_overflow_dont, /* complain_on_overflow */
|
1514 |
|
|
reloc_nil, /* special_function */
|
1515 |
|
|
"HINT", /* name */
|
1516 |
|
|
true, /* partial_inplace */
|
1517 |
|
|
0x3fff, /* src_mask */
|
1518 |
|
|
0x3fff, /* dst_mask */
|
1519 |
|
|
false), /* pcrel_offset */
|
1520 |
|
|
|
1521 |
|
|
/* 16 bit PC relative offset. */
|
1522 |
|
|
HOWTO (ALPHA_R_SREL16, /* type */
|
1523 |
|
|
0, /* rightshift */
|
1524 |
|
|
1, /* size (0 = byte, 1 = short, 2 = long) */
|
1525 |
|
|
16, /* bitsize */
|
1526 |
|
|
true, /* pc_relative */
|
1527 |
|
|
0, /* bitpos */
|
1528 |
|
|
complain_overflow_signed, /* complain_on_overflow */
|
1529 |
|
|
reloc_nil, /* special_function */
|
1530 |
|
|
"SREL16", /* name */
|
1531 |
|
|
true, /* partial_inplace */
|
1532 |
|
|
0xffff, /* src_mask */
|
1533 |
|
|
0xffff, /* dst_mask */
|
1534 |
|
|
false), /* pcrel_offset */
|
1535 |
|
|
|
1536 |
|
|
/* 32 bit PC relative offset. */
|
1537 |
|
|
HOWTO (ALPHA_R_SREL32, /* type */
|
1538 |
|
|
0, /* rightshift */
|
1539 |
|
|
2, /* size (0 = byte, 1 = short, 2 = long) */
|
1540 |
|
|
32, /* bitsize */
|
1541 |
|
|
true, /* pc_relative */
|
1542 |
|
|
0, /* bitpos */
|
1543 |
|
|
complain_overflow_signed, /* complain_on_overflow */
|
1544 |
|
|
reloc_nil, /* special_function */
|
1545 |
|
|
"SREL32", /* name */
|
1546 |
|
|
true, /* partial_inplace */
|
1547 |
|
|
0xffffffff, /* src_mask */
|
1548 |
|
|
0xffffffff, /* dst_mask */
|
1549 |
|
|
false), /* pcrel_offset */
|
1550 |
|
|
|
1551 |
|
|
/* A 64 bit PC relative offset. */
|
1552 |
|
|
HOWTO (ALPHA_R_SREL64, /* type */
|
1553 |
|
|
0, /* rightshift */
|
1554 |
|
|
4, /* size (0 = byte, 1 = short, 2 = long) */
|
1555 |
|
|
64, /* bitsize */
|
1556 |
|
|
true, /* pc_relative */
|
1557 |
|
|
0, /* bitpos */
|
1558 |
|
|
complain_overflow_signed, /* complain_on_overflow */
|
1559 |
|
|
reloc_nil, /* special_function */
|
1560 |
|
|
"SREL64", /* name */
|
1561 |
|
|
true, /* partial_inplace */
|
1562 |
|
|
MINUS_ONE, /* src_mask */
|
1563 |
|
|
MINUS_ONE, /* dst_mask */
|
1564 |
|
|
false), /* pcrel_offset */
|
1565 |
|
|
|
1566 |
|
|
/* Push a value on the reloc evaluation stack. */
|
1567 |
|
|
HOWTO (ALPHA_R_OP_PUSH, /* type */
|
1568 |
|
|
0, /* rightshift */
|
1569 |
|
|
0, /* size (0 = byte, 1 = short, 2 = long) */
|
1570 |
|
|
0, /* bitsize */
|
1571 |
|
|
false, /* pc_relative */
|
1572 |
|
|
0, /* bitpos */
|
1573 |
|
|
complain_overflow_dont, /* complain_on_overflow */
|
1574 |
|
|
reloc_nil, /* special_function */
|
1575 |
|
|
"OP_PUSH", /* name */
|
1576 |
|
|
false, /* partial_inplace */
|
1577 |
|
|
0, /* src_mask */
|
1578 |
|
|
0, /* dst_mask */
|
1579 |
|
|
false), /* pcrel_offset */
|
1580 |
|
|
|
1581 |
|
|
/* Store the value from the stack at the given address. Store it in
|
1582 |
|
|
a bitfield of size r_size starting at bit position r_offset. */
|
1583 |
|
|
HOWTO (ALPHA_R_OP_STORE, /* type */
|
1584 |
|
|
0, /* rightshift */
|
1585 |
|
|
4, /* size (0 = byte, 1 = short, 2 = long) */
|
1586 |
|
|
64, /* bitsize */
|
1587 |
|
|
false, /* pc_relative */
|
1588 |
|
|
0, /* bitpos */
|
1589 |
|
|
complain_overflow_dont, /* complain_on_overflow */
|
1590 |
|
|
reloc_nil, /* special_function */
|
1591 |
|
|
"OP_STORE", /* name */
|
1592 |
|
|
false, /* partial_inplace */
|
1593 |
|
|
0, /* src_mask */
|
1594 |
|
|
MINUS_ONE, /* dst_mask */
|
1595 |
|
|
false), /* pcrel_offset */
|
1596 |
|
|
|
1597 |
|
|
/* Subtract the reloc address from the value on the top of the
|
1598 |
|
|
relocation stack. */
|
1599 |
|
|
HOWTO (ALPHA_R_OP_PSUB, /* type */
|
1600 |
|
|
0, /* rightshift */
|
1601 |
|
|
0, /* size (0 = byte, 1 = short, 2 = long) */
|
1602 |
|
|
0, /* bitsize */
|
1603 |
|
|
false, /* pc_relative */
|
1604 |
|
|
0, /* bitpos */
|
1605 |
|
|
complain_overflow_dont, /* complain_on_overflow */
|
1606 |
|
|
reloc_nil, /* special_function */
|
1607 |
|
|
"OP_PSUB", /* name */
|
1608 |
|
|
false, /* partial_inplace */
|
1609 |
|
|
0, /* src_mask */
|
1610 |
|
|
0, /* dst_mask */
|
1611 |
|
|
false), /* pcrel_offset */
|
1612 |
|
|
|
1613 |
|
|
/* Shift the value on the top of the relocation stack right by the
|
1614 |
|
|
given value. */
|
1615 |
|
|
HOWTO (ALPHA_R_OP_PRSHIFT, /* type */
|
1616 |
|
|
0, /* rightshift */
|
1617 |
|
|
0, /* size (0 = byte, 1 = short, 2 = long) */
|
1618 |
|
|
0, /* bitsize */
|
1619 |
|
|
false, /* pc_relative */
|
1620 |
|
|
0, /* bitpos */
|
1621 |
|
|
complain_overflow_dont, /* complain_on_overflow */
|
1622 |
|
|
reloc_nil, /* special_function */
|
1623 |
|
|
"OP_PRSHIFT", /* name */
|
1624 |
|
|
false, /* partial_inplace */
|
1625 |
|
|
0, /* src_mask */
|
1626 |
|
|
0, /* dst_mask */
|
1627 |
|
|
false), /* pcrel_offset */
|
1628 |
|
|
|
1629 |
|
|
/* Hack. Linkage is done by linker. */
|
1630 |
|
|
HOWTO (ALPHA_R_LINKAGE, /* type */
|
1631 |
|
|
0, /* rightshift */
|
1632 |
|
|
8, /* size (0 = byte, 1 = short, 2 = long) */
|
1633 |
|
|
256, /* bitsize */
|
1634 |
|
|
false, /* pc_relative */
|
1635 |
|
|
0, /* bitpos */
|
1636 |
|
|
complain_overflow_dont, /* complain_on_overflow */
|
1637 |
|
|
reloc_nil, /* special_function */
|
1638 |
|
|
"LINKAGE", /* name */
|
1639 |
|
|
false, /* partial_inplace */
|
1640 |
|
|
0, /* src_mask */
|
1641 |
|
|
0, /* dst_mask */
|
1642 |
|
|
false), /* pcrel_offset */
|
1643 |
|
|
|
1644 |
|
|
/* A 32 bit reference to a symbol. */
|
1645 |
|
|
HOWTO (ALPHA_R_REFLONG, /* type */
|
1646 |
|
|
0, /* rightshift */
|
1647 |
|
|
2, /* size (0 = byte, 1 = short, 2 = long) */
|
1648 |
|
|
32, /* bitsize */
|
1649 |
|
|
false, /* pc_relative */
|
1650 |
|
|
0, /* bitpos */
|
1651 |
|
|
complain_overflow_bitfield, /* complain_on_overflow */
|
1652 |
|
|
reloc_nil, /* special_function */
|
1653 |
|
|
"REFLONG", /* name */
|
1654 |
|
|
true, /* partial_inplace */
|
1655 |
|
|
0xffffffff, /* src_mask */
|
1656 |
|
|
0xffffffff, /* dst_mask */
|
1657 |
|
|
false), /* pcrel_offset */
|
1658 |
|
|
|
1659 |
|
|
/* A 64 bit reference to a procedure, written as 32 bit value. */
|
1660 |
|
|
HOWTO (ALPHA_R_CODEADDR, /* type */
|
1661 |
|
|
0, /* rightshift */
|
1662 |
|
|
4, /* size (0 = byte, 1 = short, 2 = long) */
|
1663 |
|
|
64, /* bitsize */
|
1664 |
|
|
false, /* pc_relative */
|
1665 |
|
|
0, /* bitpos */
|
1666 |
|
|
complain_overflow_signed,/* complain_on_overflow */
|
1667 |
|
|
reloc_nil, /* special_function */
|
1668 |
|
|
"CODEADDR", /* name */
|
1669 |
|
|
false, /* partial_inplace */
|
1670 |
|
|
0xffffffff, /* src_mask */
|
1671 |
|
|
0xffffffff, /* dst_mask */
|
1672 |
|
|
false), /* pcrel_offset */
|
1673 |
|
|
|
1674 |
|
|
};
|
1675 |
|
|
|
1676 |
|
|
/* Return a pointer to a howto structure which, when invoked, will perform
|
1677 |
|
|
the relocation code on data from the architecture noted. */
|
1678 |
|
|
|
1679 |
|
|
static const struct reloc_howto_struct *
|
1680 |
|
|
vms_bfd_reloc_type_lookup (abfd, code)
|
1681 |
|
|
bfd *abfd ATTRIBUTE_UNUSED;
|
1682 |
|
|
bfd_reloc_code_real_type code;
|
1683 |
|
|
{
|
1684 |
|
|
int alpha_type;
|
1685 |
|
|
|
1686 |
|
|
#if VMS_DEBUG
|
1687 |
|
|
vms_debug (1, "vms_bfd_reloc_type_lookup(%p, %d)\t", abfd, code);
|
1688 |
|
|
#endif
|
1689 |
|
|
|
1690 |
|
|
switch (code)
|
1691 |
|
|
{
|
1692 |
|
|
case BFD_RELOC_16: alpha_type = ALPHA_R_SREL16; break;
|
1693 |
|
|
case BFD_RELOC_32: alpha_type = ALPHA_R_REFLONG; break;
|
1694 |
|
|
case BFD_RELOC_64: alpha_type = ALPHA_R_REFQUAD; break;
|
1695 |
|
|
case BFD_RELOC_CTOR: alpha_type = ALPHA_R_REFQUAD; break;
|
1696 |
|
|
case BFD_RELOC_23_PCREL_S2: alpha_type = ALPHA_R_BRADDR; break;
|
1697 |
|
|
case BFD_RELOC_ALPHA_HINT: alpha_type = ALPHA_R_HINT; break;
|
1698 |
|
|
case BFD_RELOC_16_PCREL: alpha_type = ALPHA_R_SREL16; break;
|
1699 |
|
|
case BFD_RELOC_32_PCREL: alpha_type = ALPHA_R_SREL32; break;
|
1700 |
|
|
case BFD_RELOC_64_PCREL: alpha_type = ALPHA_R_SREL64; break;
|
1701 |
|
|
case BFD_RELOC_ALPHA_LINKAGE: alpha_type = ALPHA_R_LINKAGE; break;
|
1702 |
|
|
case BFD_RELOC_ALPHA_CODEADDR: alpha_type = ALPHA_R_CODEADDR; break;
|
1703 |
|
|
default:
|
1704 |
|
|
(*_bfd_error_handler) ("reloc (%d) is *UNKNOWN*", code);
|
1705 |
|
|
return (const struct reloc_howto_struct *) NULL;
|
1706 |
|
|
}
|
1707 |
|
|
#if VMS_DEBUG
|
1708 |
|
|
vms_debug (2, "reloc is %s\n", alpha_howto_table[alpha_type].name);
|
1709 |
|
|
#endif
|
1710 |
|
|
return &alpha_howto_table[alpha_type];
|
1711 |
|
|
}
|
1712 |
|
|
|
1713 |
|
|
|
1714 |
|
|
/*-- Part 4.7, writing an object file ---------------------------------------*/
|
1715 |
|
|
|
1716 |
|
|
/* Set the architecture and machine type in BFD abfd to arch and mach.
|
1717 |
|
|
Find the correct pointer to a structure and insert it into the arch_info
|
1718 |
|
|
pointer. */
|
1719 |
|
|
|
1720 |
|
|
static boolean
|
1721 |
|
|
vms_set_arch_mach (abfd, arch, mach)
|
1722 |
|
|
bfd *abfd;
|
1723 |
|
|
enum bfd_architecture arch ATTRIBUTE_UNUSED;
|
1724 |
|
|
unsigned long mach ATTRIBUTE_UNUSED;
|
1725 |
|
|
{
|
1726 |
|
|
#if VMS_DEBUG
|
1727 |
|
|
vms_debug (1, "vms_set_arch_mach(%p, %d, %ld)\n", abfd, arch, mach);
|
1728 |
|
|
#endif
|
1729 |
|
|
abfd->arch_info = bfd_scan_arch("alpha");
|
1730 |
|
|
|
1731 |
|
|
return true;
|
1732 |
|
|
}
|
1733 |
|
|
|
1734 |
|
|
|
1735 |
|
|
/* Sets the contents of the section section in BFD abfd to the data starting
|
1736 |
|
|
in memory at data. The data is written to the output section starting at
|
1737 |
|
|
offset offset for count bytes.
|
1738 |
|
|
|
1739 |
|
|
Normally true is returned, else false. Possible error returns are:
|
1740 |
|
|
o bfd_error_no_contents - The output section does not have the
|
1741 |
|
|
SEC_HAS_CONTENTS attribute, so nothing can be written to it.
|
1742 |
|
|
o and some more too */
|
1743 |
|
|
|
1744 |
|
|
static boolean
|
1745 |
|
|
vms_set_section_contents (abfd, section, location, offset, count)
|
1746 |
|
|
bfd *abfd;
|
1747 |
|
|
asection *section;
|
1748 |
|
|
PTR location;
|
1749 |
|
|
file_ptr offset;
|
1750 |
|
|
bfd_size_type count;
|
1751 |
|
|
{
|
1752 |
|
|
#if VMS_DEBUG
|
1753 |
|
|
vms_debug (1, "vms_set_section_contents(%p, sec %s, loc %p, off %ld, count %d)\n",
|
1754 |
|
|
abfd, section->name, location, (long int)offset, (int)count);
|
1755 |
|
|
vms_debug (2, "secraw %d, seccooked %d\n", (int)section->_raw_size, (int)section->_cooked_size);
|
1756 |
|
|
#endif
|
1757 |
|
|
return _bfd_save_vms_section(abfd, section, location, offset, count);
|
1758 |
|
|
}
|
1759 |
|
|
|
1760 |
|
|
|
1761 |
|
|
/*-- Part 4.8, linker -------------------------------------------------------*/
|
1762 |
|
|
|
1763 |
|
|
/* Get the size of the section headers. */
|
1764 |
|
|
|
1765 |
|
|
static int
|
1766 |
|
|
vms_sizeof_headers (abfd, reloc)
|
1767 |
|
|
bfd *abfd ATTRIBUTE_UNUSED;
|
1768 |
|
|
boolean reloc ATTRIBUTE_UNUSED;
|
1769 |
|
|
{
|
1770 |
|
|
#if VMS_DEBUG
|
1771 |
|
|
vms_debug (1, "vms_sizeof_headers(%p, %s)\n", abfd, (reloc)?"True":"False");
|
1772 |
|
|
#endif
|
1773 |
|
|
return 0;
|
1774 |
|
|
}
|
1775 |
|
|
|
1776 |
|
|
|
1777 |
|
|
/* Provides default handling of relocation effort for back ends
|
1778 |
|
|
which can't be bothered to do it efficiently. */
|
1779 |
|
|
|
1780 |
|
|
static bfd_byte *
|
1781 |
|
|
vms_bfd_get_relocated_section_contents (abfd, link_info, link_order, data,
|
1782 |
|
|
relocateable, symbols)
|
1783 |
|
|
bfd *abfd ATTRIBUTE_UNUSED;
|
1784 |
|
|
struct bfd_link_info *link_info ATTRIBUTE_UNUSED;
|
1785 |
|
|
struct bfd_link_order *link_order ATTRIBUTE_UNUSED;
|
1786 |
|
|
bfd_byte *data ATTRIBUTE_UNUSED;
|
1787 |
|
|
boolean relocateable ATTRIBUTE_UNUSED;
|
1788 |
|
|
asymbol **symbols ATTRIBUTE_UNUSED;
|
1789 |
|
|
{
|
1790 |
|
|
#if VMS_DEBUG
|
1791 |
|
|
vms_debug (1, "vms_bfd_get_relocated_section_contents(%p, %p, %p, %p, %s, %p)\n",
|
1792 |
|
|
abfd, link_info, link_order, data, (relocateable)?"True":"False", symbols);
|
1793 |
|
|
#endif
|
1794 |
|
|
return 0;
|
1795 |
|
|
}
|
1796 |
|
|
|
1797 |
|
|
|
1798 |
|
|
/* ??? */
|
1799 |
|
|
|
1800 |
|
|
static boolean
|
1801 |
|
|
vms_bfd_relax_section (abfd, section, link_info, again)
|
1802 |
|
|
bfd *abfd ATTRIBUTE_UNUSED;
|
1803 |
|
|
asection *section ATTRIBUTE_UNUSED;
|
1804 |
|
|
struct bfd_link_info *link_info ATTRIBUTE_UNUSED;
|
1805 |
|
|
boolean *again ATTRIBUTE_UNUSED;
|
1806 |
|
|
{
|
1807 |
|
|
#if VMS_DEBUG
|
1808 |
|
|
vms_debug (1, "vms_bfd_relax_section(%p, %s, %p, <ret>)\n",
|
1809 |
|
|
abfd, section->name, link_info);
|
1810 |
|
|
#endif
|
1811 |
|
|
return true;
|
1812 |
|
|
}
|
1813 |
|
|
|
1814 |
|
|
static boolean
|
1815 |
|
|
vms_bfd_gc_sections (abfd, link_info)
|
1816 |
|
|
bfd *abfd ATTRIBUTE_UNUSED;
|
1817 |
|
|
struct bfd_link_info *link_info ATTRIBUTE_UNUSED;
|
1818 |
|
|
{
|
1819 |
|
|
#if VMS_DEBUG
|
1820 |
|
|
vms_debug (1, "vms_bfd_gc_sections(%p, %p)\n", abfd, link_info);
|
1821 |
|
|
#endif
|
1822 |
|
|
return true;
|
1823 |
|
|
}
|
1824 |
|
|
|
1825 |
|
|
|
1826 |
|
|
/* Create a hash table for the linker. Different backends store
|
1827 |
|
|
different information in this table. */
|
1828 |
|
|
|
1829 |
|
|
static struct bfd_link_hash_table *
|
1830 |
|
|
vms_bfd_link_hash_table_create (abfd)
|
1831 |
|
|
bfd *abfd ATTRIBUTE_UNUSED;
|
1832 |
|
|
{
|
1833 |
|
|
#if VMS_DEBUG
|
1834 |
|
|
vms_debug (1, "vms_bfd_link_hash_table_create(%p)\n", abfd);
|
1835 |
|
|
#endif
|
1836 |
|
|
return 0;
|
1837 |
|
|
}
|
1838 |
|
|
|
1839 |
|
|
|
1840 |
|
|
/* Add symbols from this object file into the hash table. */
|
1841 |
|
|
|
1842 |
|
|
static boolean
|
1843 |
|
|
vms_bfd_link_add_symbols (abfd, link_info)
|
1844 |
|
|
bfd *abfd ATTRIBUTE_UNUSED;
|
1845 |
|
|
struct bfd_link_info *link_info ATTRIBUTE_UNUSED;
|
1846 |
|
|
{
|
1847 |
|
|
#if VMS_DEBUG
|
1848 |
|
|
vms_debug (1, "vms_bfd_link_add_symbols(%p, %p)\n", abfd, link_info);
|
1849 |
|
|
#endif
|
1850 |
|
|
return false;
|
1851 |
|
|
}
|
1852 |
|
|
|
1853 |
|
|
|
1854 |
|
|
/* Do a link based on the link_order structures attached to each
|
1855 |
|
|
section of the BFD. */
|
1856 |
|
|
|
1857 |
|
|
static boolean
|
1858 |
|
|
vms_bfd_final_link (abfd, link_info)
|
1859 |
|
|
bfd *abfd ATTRIBUTE_UNUSED;
|
1860 |
|
|
struct bfd_link_info *link_info ATTRIBUTE_UNUSED;
|
1861 |
|
|
{
|
1862 |
|
|
#if VMS_DEBUG
|
1863 |
|
|
vms_debug (1, "vms_bfd_final_link(%p, %p)\n", abfd, link_info);
|
1864 |
|
|
#endif
|
1865 |
|
|
return true;
|
1866 |
|
|
}
|
1867 |
|
|
|
1868 |
|
|
/* Should this section be split up into smaller pieces during linking. */
|
1869 |
|
|
|
1870 |
|
|
static boolean
|
1871 |
|
|
vms_bfd_link_split_section (abfd, section)
|
1872 |
|
|
bfd *abfd ATTRIBUTE_UNUSED;
|
1873 |
|
|
asection *section ATTRIBUTE_UNUSED;
|
1874 |
|
|
{
|
1875 |
|
|
#if VMS_DEBUG
|
1876 |
|
|
vms_debug (1, "vms_bfd_link_split_section(%p, %s)\n", abfd, section->name);
|
1877 |
|
|
#endif
|
1878 |
|
|
return false;
|
1879 |
|
|
}
|
1880 |
|
|
|
1881 |
|
|
/*-- Part 4.9, dynamic symbols and relocations ------------------------------*/
|
1882 |
|
|
|
1883 |
|
|
/* Get the amount of memory required to hold the dynamic symbols. */
|
1884 |
|
|
|
1885 |
|
|
static long
|
1886 |
|
|
vms_get_dynamic_symtab_upper_bound (abfd)
|
1887 |
|
|
bfd *abfd ATTRIBUTE_UNUSED;
|
1888 |
|
|
{
|
1889 |
|
|
#if VMS_DEBUG
|
1890 |
|
|
vms_debug (1, "vms_get_dynamic_symtab_upper_bound(%p)\n", abfd);
|
1891 |
|
|
#endif
|
1892 |
|
|
return 0;
|
1893 |
|
|
}
|
1894 |
|
|
|
1895 |
|
|
static boolean
|
1896 |
|
|
vms_bfd_print_private_bfd_data (abfd, file)
|
1897 |
|
|
bfd *abfd ATTRIBUTE_UNUSED;
|
1898 |
|
|
void *file ATTRIBUTE_UNUSED;
|
1899 |
|
|
{
|
1900 |
|
|
#if VMS_DEBUG
|
1901 |
|
|
vms_debug (1, "vms_bfd_print_private_bfd_data(%p)\n", abfd);
|
1902 |
|
|
#endif
|
1903 |
|
|
return 0;
|
1904 |
|
|
}
|
1905 |
|
|
|
1906 |
|
|
|
1907 |
|
|
/* Read in the dynamic symbols. */
|
1908 |
|
|
|
1909 |
|
|
static long
|
1910 |
|
|
vms_canonicalize_dynamic_symtab (abfd, symbols)
|
1911 |
|
|
bfd *abfd ATTRIBUTE_UNUSED;
|
1912 |
|
|
asymbol **symbols ATTRIBUTE_UNUSED;
|
1913 |
|
|
{
|
1914 |
|
|
#if VMS_DEBUG
|
1915 |
|
|
vms_debug (1, "vms_canonicalize_dynamic_symtab(%p, <ret>)\n", abfd);
|
1916 |
|
|
#endif
|
1917 |
|
|
return 0L;
|
1918 |
|
|
}
|
1919 |
|
|
|
1920 |
|
|
|
1921 |
|
|
/* Get the amount of memory required to hold the dynamic relocs. */
|
1922 |
|
|
|
1923 |
|
|
static long
|
1924 |
|
|
vms_get_dynamic_reloc_upper_bound (abfd)
|
1925 |
|
|
bfd *abfd ATTRIBUTE_UNUSED;
|
1926 |
|
|
{
|
1927 |
|
|
#if VMS_DEBUG
|
1928 |
|
|
vms_debug (1, "vms_get_dynamic_reloc_upper_bound(%p)\n", abfd);
|
1929 |
|
|
#endif
|
1930 |
|
|
return 0L;
|
1931 |
|
|
}
|
1932 |
|
|
|
1933 |
|
|
|
1934 |
|
|
/* Read in the dynamic relocs. */
|
1935 |
|
|
|
1936 |
|
|
static long
|
1937 |
|
|
vms_canonicalize_dynamic_reloc (abfd, arel, symbols)
|
1938 |
|
|
bfd *abfd ATTRIBUTE_UNUSED;
|
1939 |
|
|
arelent **arel ATTRIBUTE_UNUSED;
|
1940 |
|
|
asymbol **symbols ATTRIBUTE_UNUSED;
|
1941 |
|
|
{
|
1942 |
|
|
#if VMS_DEBUG
|
1943 |
|
|
vms_debug (1, "vms_canonicalize_dynamic_reloc(%p)\n", abfd);
|
1944 |
|
|
#endif
|
1945 |
|
|
return 0L;
|
1946 |
|
|
}
|