source: branches/libc-0.6/src/binutils/bfd/vms.c

Last change on this file was 610, checked in by bird, 22 years ago

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