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, 2003, 2004
4 Free Software Foundation, Inc.
6 Written by Klaus K"ampf (kkaempf@rmi.de)
8 This program is free software; you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation; either version 2 of the License, or
11 (at your option) any later version.
13 This program is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
18 You should have received a copy of the GNU General Public License
19 along with this program; if not, write to the Free Software
20 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
29 static bfd_boolean vms_initialize
31 static unsigned int priv_section_count;
32 static bfd_boolean fill_section_ptr
33 PARAMS ((struct bfd_hash_entry *, PTR));
34 static bfd_boolean vms_fixup_sections
36 static bfd_boolean copy_symbols
37 PARAMS ((struct bfd_hash_entry *, PTR));
38 static bfd_reloc_status_type reloc_nil
39 PARAMS ((bfd *, arelent *, asymbol *, PTR, asection *, bfd *, char **));
40 static const struct bfd_target *vms_object_p
42 static const struct bfd_target *vms_archive_p
44 static bfd_boolean vms_mkobject
46 static bfd_boolean vms_write_object_contents
48 static bfd_boolean vms_close_and_cleanup
50 static bfd_boolean vms_bfd_free_cached_info
52 static bfd_boolean vms_new_section_hook
53 PARAMS ((bfd *abfd, asection *section));
54 static bfd_boolean vms_get_section_contents
55 PARAMS ((bfd *abfd, asection *section, PTR x1, file_ptr x2,
57 static 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));
60 static bfd_boolean vms_bfd_copy_private_bfd_data
61 PARAMS ((bfd *src, bfd *dest));
62 static bfd_boolean vms_bfd_copy_private_section_data
63 PARAMS ((bfd *srcbfd, asection *srcsec, bfd *dstbfd, asection *dstsec));
64 static bfd_boolean vms_bfd_copy_private_symbol_data
65 PARAMS ((bfd *ibfd, asymbol *isym, bfd *obfd, asymbol *osym));
66 static bfd_boolean vms_bfd_print_private_bfd_data
67 PARAMS ((bfd *abfd, void *file));
68 static char *vms_core_file_failing_command
70 static int vms_core_file_failing_signal
72 static bfd_boolean vms_core_file_matches_executable_p
73 PARAMS ((bfd *abfd, bfd *bbfd));
74 static bfd_boolean vms_slurp_armap
76 static bfd_boolean vms_slurp_extended_name_table
78 static bfd_boolean vms_construct_extended_name_table
79 PARAMS ((bfd *abfd, char **tabloc, bfd_size_type *tablen,
81 static void vms_truncate_arname
82 PARAMS ((bfd *abfd, const char *pathname, char *arhdr));
83 static bfd_boolean vms_write_armap
84 PARAMS ((bfd *arch, unsigned int elength, struct orl *map,
85 unsigned int orl_count, int stridx));
86 static PTR vms_read_ar_hdr
88 static bfd *vms_get_elt_at_index
89 PARAMS ((bfd *abfd, symindex index));
90 static bfd *vms_openr_next_archived_file
91 PARAMS ((bfd *arch, bfd *prev));
92 static bfd_boolean vms_update_armap_timestamp
94 static int vms_generic_stat_arch_elt
95 PARAMS ((bfd *, struct stat *));
96 static long vms_get_symtab_upper_bound
98 static long vms_canonicalize_symtab
99 PARAMS ((bfd *abfd, asymbol **symbols));
100 static void vms_print_symbol
101 PARAMS ((bfd *abfd, PTR file, asymbol *symbol, bfd_print_symbol_type how));
102 static void vms_get_symbol_info
103 PARAMS ((bfd *abfd, asymbol *symbol, symbol_info *ret));
104 static bfd_boolean vms_bfd_is_local_label_name
105 PARAMS ((bfd *abfd, const char *));
106 static alent *vms_get_lineno
107 PARAMS ((bfd *abfd, asymbol *symbol));
108 static 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));
111 static asymbol *vms_bfd_make_debug_symbol
112 PARAMS ((bfd *abfd, void *ptr, unsigned long size));
113 static long vms_read_minisymbols
114 PARAMS ((bfd *abfd, bfd_boolean dynamic, PTR *minisymsp,
115 unsigned int *sizep));
116 static asymbol *vms_minisymbol_to_symbol
117 PARAMS ((bfd *abfd, bfd_boolean dynamic, const PTR minisym, asymbol *sym));
118 static long vms_get_reloc_upper_bound
119 PARAMS ((bfd *abfd, asection *sect));
120 static long vms_canonicalize_reloc
121 PARAMS ((bfd *abfd, asection *srcsec, arelent **location,
123 static const struct reloc_howto_struct *vms_bfd_reloc_type_lookup
124 PARAMS ((bfd *abfd, bfd_reloc_code_real_type code));
125 static bfd_boolean vms_set_arch_mach
126 PARAMS ((bfd *abfd, enum bfd_architecture arch, unsigned long mach));
127 static bfd_boolean vms_set_section_contents
128 PARAMS ((bfd *abfd, asection *section, const PTR location, file_ptr offset,
129 bfd_size_type count));
130 static int vms_sizeof_headers
131 PARAMS ((bfd *abfd, bfd_boolean reloc));
132 static 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 relocatable, asymbol **symbols));
136 static bfd_boolean vms_bfd_relax_section
137 PARAMS ((bfd *abfd, asection *section, struct bfd_link_info *link_info,
138 bfd_boolean *again));
139 static bfd_boolean vms_bfd_gc_sections
140 PARAMS ((bfd *abfd, struct bfd_link_info *link_info));
141 static bfd_boolean vms_bfd_merge_sections
142 PARAMS ((bfd *abfd, struct bfd_link_info *link_info));
143 static struct bfd_link_hash_table *vms_bfd_link_hash_table_create
144 PARAMS ((bfd *abfd));
145 static void vms_bfd_link_hash_table_free
146 PARAMS ((struct bfd_link_hash_table *hash));
147 static bfd_boolean vms_bfd_link_add_symbols
148 PARAMS ((bfd *abfd, struct bfd_link_info *link_info));
149 static bfd_boolean vms_bfd_final_link
150 PARAMS ((bfd *abfd, struct bfd_link_info *link_info));
151 static bfd_boolean vms_bfd_link_split_section
152 PARAMS ((bfd *abfd, asection *section));
153 static long vms_get_dynamic_symtab_upper_bound
154 PARAMS ((bfd *abfd));
155 static long vms_canonicalize_dynamic_symtab
156 PARAMS ((bfd *abfd, asymbol **symbols));
157 #define vms_get_synthetic_symtab _bfd_nodynamic_get_synthetic_symtab
158 static long vms_get_dynamic_reloc_upper_bound
159 PARAMS ((bfd *abfd));
160 static long vms_canonicalize_dynamic_reloc
161 PARAMS ((bfd *abfd, arelent **arel, asymbol **symbols));
162 static bfd_boolean vms_bfd_merge_private_bfd_data
163 PARAMS ((bfd *ibfd, bfd *obfd));
164 static bfd_boolean vms_bfd_set_private_flags
165 PARAMS ((bfd *abfd, flagword flags));
167 #define vms_make_empty_symbol _bfd_generic_make_empty_symbol
168 #define vms_bfd_link_just_syms _bfd_generic_link_just_syms
169 #define vms_bfd_is_group_section bfd_generic_is_group_section
170 #define vms_bfd_discard_group bfd_generic_discard_group
172 /*===========================================================================*/
174 const bfd_target vms_alpha_vec =
176 "vms-alpha", /* name */
177 bfd_target_evax_flavour,
178 BFD_ENDIAN_LITTLE, /* data byte order is little */
179 BFD_ENDIAN_LITTLE, /* header byte order is little */
181 (HAS_RELOC | HAS_SYMS
182 | WP_TEXT | D_PAGED), /* object flags */
183 (SEC_ALLOC | SEC_LOAD | SEC_RELOC
184 | SEC_READONLY | SEC_CODE | SEC_DATA
185 | SEC_HAS_CONTENTS | SEC_IN_MEMORY), /* sect flags */
186 0, /* symbol_leading_char */
187 ' ', /* ar_pad_char */
188 15, /* ar_max_namelen */
189 bfd_getl64, bfd_getl_signed_64, bfd_putl64,
190 bfd_getl32, bfd_getl_signed_32, bfd_putl32,
191 bfd_getl16, bfd_getl_signed_16, bfd_putl16,
192 bfd_getl64, bfd_getl_signed_64, bfd_putl64,
193 bfd_getl32, bfd_getl_signed_32, bfd_putl32,
194 bfd_getl16, bfd_getl_signed_16, bfd_putl16,
196 {_bfd_dummy_target, vms_object_p, /* bfd_check_format */
197 vms_archive_p, _bfd_dummy_target},
198 {bfd_false, vms_mkobject, /* bfd_set_format */
199 _bfd_generic_mkarchive, bfd_false},
200 {bfd_false, vms_write_object_contents, /* bfd_write_contents */
201 _bfd_write_archive_contents, bfd_false},
203 BFD_JUMP_TABLE_GENERIC (vms),
204 BFD_JUMP_TABLE_COPY (vms),
205 BFD_JUMP_TABLE_CORE (vms),
206 BFD_JUMP_TABLE_ARCHIVE (vms),
207 BFD_JUMP_TABLE_SYMBOLS (vms),
208 BFD_JUMP_TABLE_RELOCS (vms),
209 BFD_JUMP_TABLE_WRITE (vms),
210 BFD_JUMP_TABLE_LINK (vms),
211 BFD_JUMP_TABLE_DYNAMIC (vms),
218 const bfd_target vms_vax_vec =
220 "vms-vax", /* name */
221 bfd_target_ovax_flavour,
222 BFD_ENDIAN_LITTLE, /* data byte order is little */
223 BFD_ENDIAN_LITTLE, /* header byte order is little */
225 (HAS_RELOC | HAS_SYMS /* object flags */
227 | HAS_LINENO | HAS_DEBUG | HAS_LOCALS),
229 (SEC_ALLOC | SEC_LOAD | SEC_RELOC
230 | SEC_READONLY | SEC_CODE | SEC_DATA
231 | SEC_HAS_CONTENTS | SEC_IN_MEMORY), /* sect flags */
232 0, /* symbol_leading_char */
233 ' ', /* ar_pad_char */
234 15, /* ar_max_namelen */
235 bfd_getl64, bfd_getl_signed_64, bfd_putl64,
236 bfd_getl32, bfd_getl_signed_32, bfd_putl32,
237 bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* data */
238 bfd_getl64, bfd_getl_signed_64, bfd_putl64,
239 bfd_getl32, bfd_getl_signed_32, bfd_putl32,
240 bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* hdrs */
242 {_bfd_dummy_target, vms_object_p, /* bfd_check_format */
243 vms_archive_p, _bfd_dummy_target},
244 {bfd_false, vms_mkobject, /* bfd_set_format */
245 _bfd_generic_mkarchive, bfd_false},
246 {bfd_false, vms_write_object_contents, /* bfd_write_contents */
247 _bfd_write_archive_contents, bfd_false},
249 BFD_JUMP_TABLE_GENERIC (vms),
250 BFD_JUMP_TABLE_COPY (vms),
251 BFD_JUMP_TABLE_CORE (vms),
252 BFD_JUMP_TABLE_ARCHIVE (vms),
253 BFD_JUMP_TABLE_SYMBOLS (vms),
254 BFD_JUMP_TABLE_RELOCS (vms),
255 BFD_JUMP_TABLE_WRITE (vms),
256 BFD_JUMP_TABLE_LINK (vms),
257 BFD_JUMP_TABLE_DYNAMIC (vms),
264 /*===========================================================================*/
266 /* Initialize private data */
269 vms_initialize (abfd)
275 bfd_set_start_address (abfd, (bfd_vma) -1);
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)
289 PRIV (rec_length) = 0;
290 PRIV (file_format) = FF_UNKNOWN;
291 PRIV (fixup_done) = FALSE;
292 PRIV (sections) = NULL;
294 amt = sizeof (struct stack_struct) * STACKSIZE;
295 PRIV (stack) = (struct stack_struct *) bfd_alloc (abfd, amt);
296 if (PRIV (stack) == 0)
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)
305 if (!bfd_hash_table_init (PRIV (vms_symbol_table), _bfd_vms_hash_newfunc))
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)
313 for (i = 0; i < VMS_SECTION_COUNT; i++)
314 PRIV (vms_section_table)[i] = NULL;
316 amt = MAX_OUTREC_SIZE;
317 PRIV (output_buf) = (unsigned char *) bfd_alloc (abfd, amt);
318 if (PRIV (output_buf) == 0)
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;
330 bfd_hash_table_free (PRIV (vms_symbol_table));
332 bfd_release (abfd, abfd->tdata.any);
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
342 It has the correct value for referenced (undefined section) symbols
344 called from bfd_hash_traverse in vms_fixup_sections */
347 fill_section_ptr (entry, sections)
348 struct bfd_hash_entry *entry;
354 sym = ((vms_symbol_entry *)entry)->symbol;
358 vms_debug (6, "fill_section_ptr: sym %p, sec %p\n", sym, sec);
361 /* fill forward references (these contain section number, not section ptr). */
363 if ((unsigned int) sec < priv_section_count)
365 sec = ((vms_symbol_entry *)entry)->symbol->section =
366 ((asection **)sections)[(int)sec];
369 if (strcmp (sym->name, sec->name) == 0)
370 sym->flags |= BSF_SECTION_SYM;
376 set up all pointers and arrays, counters and sizes are fixed now
378 we build a private sections vector for easy access since sections
379 are always referenced by an index number.
381 alloc PRIV(sections) according to abfd->section_count
382 copy abfd->sections to PRIV(sections) */
385 vms_fixup_sections (abfd)
388 if (PRIV (fixup_done))
392 * traverse symbol table and fill in all section pointers
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)));
400 PRIV (fixup_done) = TRUE;
405 /*===========================================================================*/
407 /* Check the format for a file being read.
408 Return a (bfd_target *) if it's an object file or zero if not. */
410 static const struct bfd_target *
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);
422 vms_debug (1, "vms_object_p(%p)\n", abfd);
425 if (!vms_initialize (abfd))
428 if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET))
429 goto err_wrong_format;
436 vms_debug (7, "reading at %08lx\n", bfd_tell(abfd));
438 if (_bfd_vms_next_record (abfd) < 0)
441 vms_debug (2, "next_record failed\n");
443 goto err_wrong_format;
446 if ((prev_type == EOBJ_S_C_EGSD)
447 && (PRIV (rec_type) != EOBJ_S_C_EGSD))
449 if (! vms_fixup_sections (abfd))
452 vms_debug (2, "vms_fixup_sections failed\n");
454 goto err_wrong_format;
458 prev_type = PRIV (rec_type);
460 if (target_vector == 0)
462 if (prev_type <= OBJ_S_C_MAXRECTYP)
463 target_vector = &vms_vax_vec;
465 target_vector = &vms_alpha_vec;
472 err = _bfd_vms_slurp_hdr (abfd, prev_type);
477 err = _bfd_vms_slurp_eom (abfd, prev_type);
481 err = _bfd_vms_slurp_gsd (abfd, prev_type);
485 err = _bfd_vms_slurp_tir (abfd, prev_type);
489 err = _bfd_vms_slurp_dbg (abfd, prev_type);
493 err = _bfd_vms_slurp_tbt (abfd, prev_type);
496 err = _bfd_vms_slurp_lnk (abfd, prev_type);
504 vms_debug (2, "slurp type %d failed with %d\n", prev_type, err);
506 goto err_wrong_format;
509 while ((prev_type != EOBJ_S_C_EEOM) && (prev_type != OBJ_S_C_EOM) && (prev_type != OBJ_S_C_EOMW));
511 if (target_vector == &vms_vax_vec)
513 if (! vms_fixup_sections (abfd))
516 vms_debug (2, "vms_fixup_sections failed\n");
518 goto err_wrong_format;
521 /* set arch_info to vax */
523 arch = bfd_scan_arch ("vax");
526 vms_debug (2, "arch is vax\n");
529 else if (target_vector == &vms_alpha_vec)
531 /* set arch_info to alpha */
533 arch = bfd_scan_arch ("alpha");
536 vms_debug (2, "arch is alpha\n");
543 vms_debug (2, "arch not found\n");
545 goto err_wrong_format;
547 abfd->arch_info = arch;
549 return target_vector;
552 bfd_set_error (bfd_error_wrong_format);
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);
561 /* Check the format for a file being read.
562 Return a (bfd_target *) if it's an archive file or zero. */
564 static const struct bfd_target *
566 bfd *abfd ATTRIBUTE_UNUSED;
569 vms_debug (1, "vms_archive_p(%p)\n", abfd);
575 /* Set the format of a file being written. */
582 vms_debug (1, "vms_mkobject(%p)\n", abfd);
585 if (!vms_initialize (abfd))
590 const bfd_arch_info_type *arch = bfd_scan_arch ("vax");
592 const bfd_arch_info_type *arch = bfd_scan_arch ("alpha");
596 bfd_set_error(bfd_error_wrong_format);
599 abfd->arch_info = arch;
605 /* Write cached information into a file being written, at bfd_close. */
608 vms_write_object_contents (abfd)
612 vms_debug (1, "vms_write_object_contents(%p)\n", abfd);
615 if (abfd->section_count > 0) /* we have sections */
619 if (_bfd_vms_write_hdr (abfd, OBJ_S_C_HDR) != 0)
621 if (_bfd_vms_write_gsd (abfd, OBJ_S_C_GSD) != 0)
623 if (_bfd_vms_write_tir (abfd, OBJ_S_C_TIR) != 0)
625 if (_bfd_vms_write_tbt (abfd, OBJ_S_C_TBT) != 0)
627 if (_bfd_vms_write_dbg (abfd, OBJ_S_C_DBG) != 0)
629 if (abfd->section_count > 255)
631 if (_bfd_vms_write_eom (abfd, OBJ_S_C_EOMW) != 0)
636 if (_bfd_vms_write_eom (abfd, OBJ_S_C_EOM) != 0)
642 if (_bfd_vms_write_hdr (abfd, EOBJ_S_C_EMH) != 0)
644 if (_bfd_vms_write_gsd (abfd, EOBJ_S_C_EGSD) != 0)
646 if (_bfd_vms_write_tir (abfd, EOBJ_S_C_ETIR) != 0)
648 if (_bfd_vms_write_tbt (abfd, EOBJ_S_C_ETBT) != 0)
650 if (_bfd_vms_write_dbg (abfd, EOBJ_S_C_EDBG) != 0)
652 if (_bfd_vms_write_eom (abfd, EOBJ_S_C_EEOM) != 0)
659 /*-- 4.1, generic -----------------------------------------------------------*/
661 /* Called when the BFD is being closed to do any necessary cleanup. */
664 vms_close_and_cleanup (abfd)
668 vms_debug (1, "vms_close_and_cleanup(%p)\n", abfd);
673 if (PRIV (vms_buf) != NULL)
674 free (PRIV (vms_buf));
676 if (PRIV (sections) != NULL)
677 free (PRIV (sections));
679 if (PRIV (vms_symbol_table))
680 bfd_hash_table_free (PRIV (vms_symbol_table));
682 bfd_release (abfd, abfd->tdata.any);
683 abfd->tdata.any = NULL;
688 /* Ask the BFD to free all cached information. */
690 vms_bfd_free_cached_info (abfd)
691 bfd *abfd ATTRIBUTE_UNUSED;
694 vms_debug (1, "vms_bfd_free_cached_info(%p)\n", abfd);
699 /* Called when a new section is created. */
702 vms_new_section_hook (abfd, section)
706 /* Count hasn't been incremented yet. */
707 unsigned int section_count = abfd->section_count + 1;
710 vms_debug (1, "vms_new_section_hook (%p, [%d]%s), count %d\n",
711 abfd, section->index, section->name, section_count);
713 bfd_set_section_alignment (abfd, section, 4);
715 if (section_count > PRIV (section_count))
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)
722 PRIV (section_count) = section_count;
725 vms_debug (6, "section_count: %d\n", PRIV (section_count));
727 PRIV (sections)[section->index] = section;
729 vms_debug (7, "%d: %s\n", section->index, section->name);
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) */
740 vms_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;
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);
752 /* shouldn't be called, since all sections are IN_MEMORY */
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) */
762 vms_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;
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);
774 /* shouldn't be called, since all sections are IN_MEMORY */
779 /*-- Part 4.2, copy private data --------------------------------------------*/
781 /* Called to copy BFD general private data from one object file
785 vms_bfd_copy_private_bfd_data (src, dest)
786 bfd *src ATTRIBUTE_UNUSED;
787 bfd *dest ATTRIBUTE_UNUSED;
790 vms_debug (1, "vms_bfd_copy_private_bfd_data(%p, %p)\n", src, dest);
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:
799 o <<bfd_error_no_memory>> -
800 Not enough memory exists to create private data for @var{obfd}. */
803 vms_bfd_merge_private_bfd_data (ibfd, obfd)
804 bfd *ibfd ATTRIBUTE_UNUSED;
805 bfd *obfd ATTRIBUTE_UNUSED;
808 vms_debug (1,"vms_bfd_merge_private_bfd_data(%p, %p)\n", ibfd, obfd);
813 /* Set private BFD flag information in the BFD @var{abfd}.
814 Return <<TRUE>> on success, <<FALSE>> on error. Possible error
817 o <<bfd_error_no_memory>> -
818 Not enough memory exists to create private data for @var{obfd}. */
821 vms_bfd_set_private_flags (abfd, flags)
822 bfd *abfd ATTRIBUTE_UNUSED;
823 flagword flags ATTRIBUTE_UNUSED;
826 vms_debug (1,"vms_bfd_set_private_flags(%p, %lx)\n", abfd, (long)flags);
831 /* Called to copy BFD private section data from one object file
835 vms_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;
842 vms_debug (1, "vms_bfd_copy_private_section_data(%p, %s, %p, %s)\n",
843 srcbfd, srcsec->name, dstbfd, dstsec->name);
848 /* Called to copy BFD private symbol data from one object file
852 vms_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;
859 vms_debug (1, "vms_bfd_copy_private_symbol_data(%p, %s, %p, %s)\n",
860 ibfd, isym->name, obfd, osym->name);
865 /*-- Part 4.3, core file ----------------------------------------------------*/
867 /* Return a read-only string explaining which program was running
868 when it failed and produced the core file abfd. */
871 vms_core_file_failing_command (abfd)
872 bfd *abfd ATTRIBUTE_UNUSED;
875 vms_debug (1, "vms_core_file_failing_command(%p)\n", abfd);
880 /* Returns the signal number which caused the core dump which
881 generated the file the BFD abfd is attached to. */
884 vms_core_file_failing_signal (abfd)
885 bfd *abfd ATTRIBUTE_UNUSED;
888 vms_debug (1, "vms_core_file_failing_signal(%p)\n", abfd);
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. */
897 vms_core_file_matches_executable_p (abfd, bbfd)
898 bfd *abfd ATTRIBUTE_UNUSED;
899 bfd *bbfd ATTRIBUTE_UNUSED;
902 vms_debug (1, "vms_core_file_matches_executable_p(%p, %p)\n", abfd, bbfd);
907 /*-- Part 4.4, archive ------------------------------------------------------*/
909 /* ??? do something with an archive map.
910 Return FALSE on error, TRUE otherwise. */
913 vms_slurp_armap (abfd)
914 bfd *abfd ATTRIBUTE_UNUSED;
917 vms_debug (1, "vms_slurp_armap(%p)\n", abfd);
922 /* ??? do something with an extended name table.
923 Return FALSE on error, TRUE otherwise. */
926 vms_slurp_extended_name_table (abfd)
927 bfd *abfd ATTRIBUTE_UNUSED;
930 vms_debug (1, "vms_slurp_extended_name_table(%p)\n", abfd);
935 /* ??? do something with an extended name table.
936 Return FALSE on error, TRUE otherwise. */
939 vms_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;
946 vms_debug (1, "vms_construct_extended_name_table(%p)\n", abfd);
951 /* Truncate the name of an archive to match system-dependent restrictions */
954 vms_truncate_arname (abfd, pathname, arhdr)
955 bfd *abfd ATTRIBUTE_UNUSED;
956 const char *pathname ATTRIBUTE_UNUSED;
957 char *arhdr ATTRIBUTE_UNUSED;
960 vms_debug (1, "vms_truncate_arname(%p, %s, %s)\n", abfd, pathname, arhdr);
965 /* ??? write archive map */
968 vms_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;
976 vms_debug (1, "vms_write_armap(%p, %d, %p, %d %d)\n",
977 arch, elength, map, orl_count, stridx);
982 /* Read archive header ??? */
985 vms_read_ar_hdr (abfd)
986 bfd * abfd ATTRIBUTE_UNUSED;
989 vms_debug (1, "vms_read_ar_hdr(%p)\n", abfd);
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. */
1001 vms_openr_next_archived_file (arch, prev)
1002 bfd *arch ATTRIBUTE_UNUSED;
1003 bfd *prev ATTRIBUTE_UNUSED;
1006 vms_debug (1, "vms_openr_next_archived_file(%p, %p)\n", arch, prev);
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. */
1015 vms_get_elt_at_index (abfd, index)
1020 vms_debug (1, "vms_get_elt_at_index(%p, %p)\n", abfd, index);
1022 return _bfd_generic_get_elt_at_index(abfd, index);
1026 -> bfd_generic_stat_arch_elt */
1029 vms_generic_stat_arch_elt (abfd, st)
1034 vms_debug (1, "vms_generic_stat_arch_elt(%p, %p)\n", abfd, st);
1036 return bfd_generic_stat_arch_elt (abfd, st);
1039 /* This is a new function in bfd 2.5 */
1042 vms_update_armap_timestamp (abfd)
1043 bfd *abfd ATTRIBUTE_UNUSED;
1046 vms_debug (1, "vms_update_armap_timestamp(%p)\n", abfd);
1051 /*-- Part 4.5, symbols --------------------------------------------------------*/
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. */
1059 vms_get_symtab_upper_bound (abfd)
1063 vms_debug (1, "vms_get_symtab_upper_bound(%p), %d symbols\n", abfd, PRIV (gsd_sym_count));
1065 return (PRIV (gsd_sym_count)+1) * sizeof (asymbol *);
1068 /* Copy symbols from hash table to symbol vector
1070 called from bfd_hash_traverse in vms_canonicalize_symtab
1071 init counter to 0 if entry == 0 */
1074 copy_symbols (entry, arg)
1075 struct bfd_hash_entry *entry;
1078 bfd *abfd = (bfd *) arg;
1080 if (entry == NULL) /* init counter */
1082 else /* fill vector, inc counter */
1083 PRIV (symcache)[PRIV (symnum)++] = ((vms_symbol_entry *)entry)->symbol;
1088 /* Read the symbols from the BFD abfd, and fills in the vector
1089 location with pointers to the symbols and a trailing NULL.
1091 return # of symbols read */
1094 vms_canonicalize_symtab (abfd, symbols)
1099 vms_debug (1, "vms_canonicalize_symtab(%p, <ret>)\n", abfd);
1103 (void)copy_symbols((struct bfd_hash_entry *)0, abfd);
1105 /* traverse table and fill symbols vector */
1107 PRIV (symcache) = symbols;
1108 bfd_hash_traverse(PRIV (vms_symbol_table), copy_symbols, (PTR)abfd);
1110 symbols[PRIV (gsd_sym_count)] = NULL;
1112 return PRIV (gsd_sym_count);
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 :-) */
1121 vms_print_symbol (abfd, file, symbol, how)
1125 bfd_print_symbol_type how;
1128 vms_debug (1, "vms_print_symbol(%p, %p, %p, %d)\n", abfd, file, symbol, how);
1133 case bfd_print_symbol_name:
1134 case bfd_print_symbol_more:
1135 fprintf ((FILE *)file," %s", symbol->name);
1138 case bfd_print_symbol_all:
1140 const char *section_name = symbol->section->name;
1142 bfd_print_symbol_vandf (abfd, (PTR)file, symbol);
1144 fprintf ((FILE *)file," %-8s %s", section_name, symbol->name);
1151 /* Return information about symbol in ret.
1153 fill type, value and name
1156 B bss segment symbol
1158 D data segment symbol
1160 t a static function symbol
1161 T text segment symbol
1166 vms_get_symbol_info (abfd, symbol, ret)
1167 bfd *abfd ATTRIBUTE_UNUSED;
1174 vms_debug (1, "vms_get_symbol_info(%p, %p, %p)\n", abfd, symbol, ret);
1177 sec = symbol->section;
1182 if (bfd_is_com_section (sec))
1184 else if (bfd_is_abs_section (sec))
1186 else if (bfd_is_und_section (sec))
1188 else if (bfd_is_ind_section (sec))
1190 else if (bfd_get_section_flags (abfd, sec) & SEC_CODE)
1192 else if (bfd_get_section_flags (abfd, sec) & SEC_DATA)
1194 else if (bfd_get_section_flags (abfd, sec) & SEC_ALLOC)
1199 if (ret->type != 'U')
1200 ret->value = symbol->value + symbol->section->vma;
1203 ret->name = symbol->name;
1208 /* Return TRUE if the given symbol sym in the BFD abfd is
1209 a compiler generated local label, else return FALSE. */
1212 vms_bfd_is_local_label_name (abfd, name)
1213 bfd *abfd ATTRIBUTE_UNUSED;
1217 vms_debug (1, "vms_bfd_is_local_label_name(%p, %s)\n", abfd, name);
1219 return name[0] == '$';
1222 /* Get source line number for symbol */
1225 vms_get_lineno (abfd, symbol)
1226 bfd *abfd ATTRIBUTE_UNUSED;
1227 asymbol *symbol ATTRIBUTE_UNUSED;
1230 vms_debug (1, "vms_get_lineno(%p, %p)\n", abfd, symbol);
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
1240 vms_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;
1250 vms_debug (1, "vms_find_nearest_line(%p, %s, %p, %ld, <ret>, <ret>, <ret>)\n",
1251 abfd, section->name, symbols, (long int)offset);
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. */
1261 vms_bfd_make_debug_symbol (abfd, ptr, size)
1262 bfd *abfd ATTRIBUTE_UNUSED;
1263 void *ptr ATTRIBUTE_UNUSED;
1264 unsigned long size ATTRIBUTE_UNUSED;
1267 vms_debug (1, "vms_bfd_make_debug_symbol(%p, %p, %ld)\n", abfd, ptr, size);
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. */
1277 vms_read_minisymbols (abfd, dynamic, minisymsp, sizep)
1279 bfd_boolean dynamic;
1281 unsigned int *sizep;
1284 vms_debug (1, "vms_read_minisymbols(%p, %d, %p, %d)\n", abfd, dynamic, minisymsp, *sizep);
1286 return _bfd_generic_read_minisymbols (abfd, dynamic, minisymsp, sizep);
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. */
1294 vms_minisymbol_to_symbol (abfd, dynamic, minisym, sym)
1296 bfd_boolean dynamic;
1301 vms_debug (1, "vms_minisymbol_to_symbol(%p, %d, %p, %p)\n", abfd, dynamic, minisym, sym);
1303 return _bfd_generic_minisymbol_to_symbol (abfd, dynamic, minisym, sym);
1306 /*-- Part 4.6, relocations --------------------------------------------------*/
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. */
1313 vms_get_reloc_upper_bound (abfd, section)
1314 bfd *abfd ATTRIBUTE_UNUSED;
1315 asection *section ATTRIBUTE_UNUSED;
1318 vms_debug (1, "vms_get_reloc_upper_bound(%p, %s)\n", abfd, section->name);
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. */
1330 vms_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;
1337 vms_debug (1, "vms_canonicalize_reloc(%p, %s, <ret>, <ret>)\n", abfd, section->name);
1342 /*---------------------------------------------------------------------------*/
1343 /* this is just copied from ecoff-alpha, needs to be fixed probably */
1345 /* How to process the various reloc types. */
1347 static bfd_reloc_status_type
1348 reloc_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;
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); */
1369 return bfd_reloc_ok;
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)
1376 static reloc_howto_type alpha_howto_table[] =
1378 HOWTO (ALPHA_R_IGNORE, /* type */
1380 0, /* size (0 = byte, 1 = short, 2 = long) */
1382 TRUE, /* pc_relative */
1384 complain_overflow_dont, /* complain_on_overflow */
1385 reloc_nil, /* special_function */
1386 "IGNORE", /* name */
1387 TRUE, /* partial_inplace */
1390 TRUE), /* pcrel_offset */
1392 /* A 64 bit reference to a symbol. */
1393 HOWTO (ALPHA_R_REFQUAD, /* type */
1395 4, /* size (0 = byte, 1 = short, 2 = long) */
1397 FALSE, /* pc_relative */
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 */
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 */
1412 2, /* size (0 = byte, 1 = short, 2 = long) */
1414 TRUE, /* pc_relative */
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 */
1424 /* A hint for a jump to a register. */
1425 HOWTO (ALPHA_R_HINT, /* type */
1427 1, /* size (0 = byte, 1 = short, 2 = long) */
1429 TRUE, /* pc_relative */
1431 complain_overflow_dont, /* complain_on_overflow */
1432 reloc_nil, /* special_function */
1434 TRUE, /* partial_inplace */
1435 0x3fff, /* src_mask */
1436 0x3fff, /* dst_mask */
1437 FALSE), /* pcrel_offset */
1439 /* 16 bit PC relative offset. */
1440 HOWTO (ALPHA_R_SREL16, /* type */
1442 1, /* size (0 = byte, 1 = short, 2 = long) */
1444 TRUE, /* pc_relative */
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 */
1454 /* 32 bit PC relative offset. */
1455 HOWTO (ALPHA_R_SREL32, /* type */
1457 2, /* size (0 = byte, 1 = short, 2 = long) */
1459 TRUE, /* pc_relative */
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 */
1469 /* A 64 bit PC relative offset. */
1470 HOWTO (ALPHA_R_SREL64, /* type */
1472 4, /* size (0 = byte, 1 = short, 2 = long) */
1474 TRUE, /* pc_relative */
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 */
1484 /* Push a value on the reloc evaluation stack. */
1485 HOWTO (ALPHA_R_OP_PUSH, /* type */
1487 0, /* size (0 = byte, 1 = short, 2 = long) */
1489 FALSE, /* pc_relative */
1491 complain_overflow_dont, /* complain_on_overflow */
1492 reloc_nil, /* special_function */
1493 "OP_PUSH", /* name */
1494 FALSE, /* partial_inplace */
1497 FALSE), /* pcrel_offset */
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 */
1503 4, /* size (0 = byte, 1 = short, 2 = long) */
1505 FALSE, /* pc_relative */
1507 complain_overflow_dont, /* complain_on_overflow */
1508 reloc_nil, /* special_function */
1509 "OP_STORE", /* name */
1510 FALSE, /* partial_inplace */
1512 MINUS_ONE, /* dst_mask */
1513 FALSE), /* pcrel_offset */
1515 /* Subtract the reloc address from the value on the top of the
1516 relocation stack. */
1517 HOWTO (ALPHA_R_OP_PSUB, /* type */
1519 0, /* size (0 = byte, 1 = short, 2 = long) */
1521 FALSE, /* pc_relative */
1523 complain_overflow_dont, /* complain_on_overflow */
1524 reloc_nil, /* special_function */
1525 "OP_PSUB", /* name */
1526 FALSE, /* partial_inplace */
1529 FALSE), /* pcrel_offset */
1531 /* Shift the value on the top of the relocation stack right by the
1533 HOWTO (ALPHA_R_OP_PRSHIFT, /* type */
1535 0, /* size (0 = byte, 1 = short, 2 = long) */
1537 FALSE, /* pc_relative */
1539 complain_overflow_dont, /* complain_on_overflow */
1540 reloc_nil, /* special_function */
1541 "OP_PRSHIFT", /* name */
1542 FALSE, /* partial_inplace */
1545 FALSE), /* pcrel_offset */
1547 /* Hack. Linkage is done by linker. */
1548 HOWTO (ALPHA_R_LINKAGE, /* type */
1550 8, /* size (0 = byte, 1 = short, 2 = long) */
1552 FALSE, /* pc_relative */
1554 complain_overflow_dont, /* complain_on_overflow */
1555 reloc_nil, /* special_function */
1556 "LINKAGE", /* name */
1557 FALSE, /* partial_inplace */
1560 FALSE), /* pcrel_offset */
1562 /* A 32 bit reference to a symbol. */
1563 HOWTO (ALPHA_R_REFLONG, /* type */
1565 2, /* size (0 = byte, 1 = short, 2 = long) */
1567 FALSE, /* pc_relative */
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 */
1577 /* A 64 bit reference to a procedure, written as 32 bit value. */
1578 HOWTO (ALPHA_R_CODEADDR, /* type */
1580 4, /* size (0 = byte, 1 = short, 2 = long) */
1582 FALSE, /* pc_relative */
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 */
1594 /* Return a pointer to a howto structure which, when invoked, will perform
1595 the relocation code on data from the architecture noted. */
1597 static const struct reloc_howto_struct *
1598 vms_bfd_reloc_type_lookup (abfd, code)
1599 bfd *abfd ATTRIBUTE_UNUSED;
1600 bfd_reloc_code_real_type code;
1605 vms_debug (1, "vms_bfd_reloc_type_lookup(%p, %d)\t", abfd, code);
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;
1622 (*_bfd_error_handler) ("reloc (%d) is *UNKNOWN*", code);
1623 return (const struct reloc_howto_struct *) NULL;
1626 vms_debug (2, "reloc is %s\n", alpha_howto_table[alpha_type].name);
1628 return &alpha_howto_table[alpha_type];
1631 /*-- Part 4.7, writing an object file ---------------------------------------*/
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
1638 vms_set_arch_mach (abfd, arch, mach)
1640 enum bfd_architecture arch ATTRIBUTE_UNUSED;
1641 unsigned long mach ATTRIBUTE_UNUSED;
1644 vms_debug (1, "vms_set_arch_mach(%p, %d, %ld)\n", abfd, arch, mach);
1646 abfd->arch_info = bfd_scan_arch("alpha");
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.
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 */
1661 vms_set_section_contents (abfd, section, location, offset, count)
1666 bfd_size_type count;
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);
1673 return _bfd_save_vms_section(abfd, section, location, offset, count);
1676 /*-- Part 4.8, linker -------------------------------------------------------*/
1678 /* Get the size of the section headers. */
1681 vms_sizeof_headers (abfd, reloc)
1682 bfd *abfd ATTRIBUTE_UNUSED;
1683 bfd_boolean reloc ATTRIBUTE_UNUSED;
1686 vms_debug (1, "vms_sizeof_headers(%p, %s)\n", abfd, (reloc)?"True":"False");
1691 /* Provides default handling of relocation effort for back ends
1692 which can't be bothered to do it efficiently. */
1695 vms_bfd_get_relocated_section_contents (abfd, link_info, link_order, data,
1696 relocatable, 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 relocatable ATTRIBUTE_UNUSED;
1702 asymbol **symbols ATTRIBUTE_UNUSED;
1705 vms_debug (1, "vms_bfd_get_relocated_section_contents(%p, %p, %p, %p, %s, %p)\n",
1706 abfd, link_info, link_order, data, (relocatable)?"True":"False", symbols);
1714 vms_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;
1721 vms_debug (1, "vms_bfd_relax_section(%p, %s, %p, <ret>)\n",
1722 abfd, section->name, link_info);
1728 vms_bfd_gc_sections (abfd, link_info)
1729 bfd *abfd ATTRIBUTE_UNUSED;
1730 struct bfd_link_info *link_info ATTRIBUTE_UNUSED;
1733 vms_debug (1, "vms_bfd_gc_sections(%p, %p)\n", abfd, link_info);
1739 vms_bfd_merge_sections (abfd, link_info)
1740 bfd *abfd ATTRIBUTE_UNUSED;
1741 struct bfd_link_info *link_info ATTRIBUTE_UNUSED;
1744 vms_debug (1, "vms_bfd_merge_sections(%p, %p)\n", abfd, link_info);
1749 /* Create a hash table for the linker. Different backends store
1750 different information in this table. */
1752 static struct bfd_link_hash_table *
1753 vms_bfd_link_hash_table_create (abfd)
1754 bfd *abfd ATTRIBUTE_UNUSED;
1757 vms_debug (1, "vms_bfd_link_hash_table_create(%p)\n", abfd);
1762 /* Free a linker hash table. */
1765 vms_bfd_link_hash_table_free (hash)
1766 struct bfd_link_hash_table *hash ATTRIBUTE_UNUSED;
1769 vms_debug (1, "vms_bfd_link_hash_table_free(%p)\n", abfd);
1773 /* Add symbols from this object file into the hash table. */
1776 vms_bfd_link_add_symbols (abfd, link_info)
1777 bfd *abfd ATTRIBUTE_UNUSED;
1778 struct bfd_link_info *link_info ATTRIBUTE_UNUSED;
1781 vms_debug (1, "vms_bfd_link_add_symbols(%p, %p)\n", abfd, link_info);
1786 /* Do a link based on the link_order structures attached to each
1787 section of the BFD. */
1790 vms_bfd_final_link (abfd, link_info)
1791 bfd *abfd ATTRIBUTE_UNUSED;
1792 struct bfd_link_info *link_info ATTRIBUTE_UNUSED;
1795 vms_debug (1, "vms_bfd_final_link(%p, %p)\n", abfd, link_info);
1800 /* Should this section be split up into smaller pieces during linking. */
1803 vms_bfd_link_split_section (abfd, section)
1804 bfd *abfd ATTRIBUTE_UNUSED;
1805 asection *section ATTRIBUTE_UNUSED;
1808 vms_debug (1, "vms_bfd_link_split_section(%p, %s)\n", abfd, section->name);
1813 /*-- Part 4.9, dynamic symbols and relocations ------------------------------*/
1815 /* Get the amount of memory required to hold the dynamic symbols. */
1818 vms_get_dynamic_symtab_upper_bound (abfd)
1819 bfd *abfd ATTRIBUTE_UNUSED;
1822 vms_debug (1, "vms_get_dynamic_symtab_upper_bound(%p)\n", abfd);
1828 vms_bfd_print_private_bfd_data (abfd, file)
1829 bfd *abfd ATTRIBUTE_UNUSED;
1830 void *file ATTRIBUTE_UNUSED;
1833 vms_debug (1, "vms_bfd_print_private_bfd_data(%p)\n", abfd);
1838 /* Read in the dynamic symbols. */
1841 vms_canonicalize_dynamic_symtab (abfd, symbols)
1842 bfd *abfd ATTRIBUTE_UNUSED;
1843 asymbol **symbols ATTRIBUTE_UNUSED;
1846 vms_debug (1, "vms_canonicalize_dynamic_symtab(%p, <ret>)\n", abfd);
1851 /* Get the amount of memory required to hold the dynamic relocs. */
1854 vms_get_dynamic_reloc_upper_bound (abfd)
1855 bfd *abfd ATTRIBUTE_UNUSED;
1858 vms_debug (1, "vms_get_dynamic_reloc_upper_bound(%p)\n", abfd);
1863 /* Read in the dynamic relocs. */
1866 vms_canonicalize_dynamic_reloc (abfd, arel, symbols)
1867 bfd *abfd ATTRIBUTE_UNUSED;
1868 arelent **arel ATTRIBUTE_UNUSED;
1869 asymbol **symbols ATTRIBUTE_UNUSED;
1872 vms_debug (1, "vms_canonicalize_dynamic_reloc(%p)\n", abfd);