daily update
[binutils.git] / bfd / vms.c
bloba55b94b0989f39f36402b1d459f6df66320b2e79
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
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. */
22 #include "bfd.h"
23 #include "sysdep.h"
24 #include "bfdlink.h"
25 #include "libbfd.h"
27 #include "vms.h"
29 static bfd_boolean vms_initialize
30 PARAMS ((bfd *));
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
35 PARAMS ((bfd *));
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
41 PARAMS ((bfd *abfd));
42 static const struct bfd_target *vms_archive_p
43 PARAMS ((bfd *abfd));
44 static bfd_boolean vms_mkobject
45 PARAMS ((bfd *abfd));
46 static bfd_boolean vms_write_object_contents
47 PARAMS ((bfd *abfd));
48 static bfd_boolean vms_close_and_cleanup
49 PARAMS ((bfd *abfd));
50 static bfd_boolean vms_bfd_free_cached_info
51 PARAMS ((bfd *abfd));
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,
56 bfd_size_type x3));
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
69 PARAMS ((bfd *abfd));
70 static int vms_core_file_failing_signal
71 PARAMS ((bfd *abfd));
72 static bfd_boolean vms_core_file_matches_executable_p
73 PARAMS ((bfd *abfd, bfd *bbfd));
74 static bfd_boolean vms_slurp_armap
75 PARAMS ((bfd *abfd));
76 static bfd_boolean vms_slurp_extended_name_table
77 PARAMS ((bfd *abfd));
78 static bfd_boolean vms_construct_extended_name_table
79 PARAMS ((bfd *abfd, char **tabloc, bfd_size_type *tablen,
80 const char **name));
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
87 PARAMS ((bfd *abfd));
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
93 PARAMS ((bfd *abfd));
94 static int vms_generic_stat_arch_elt
95 PARAMS ((bfd *, struct stat *));
96 static long vms_get_symtab_upper_bound
97 PARAMS ((bfd *abfd));
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,
122 asymbol **symbols));
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 static long vms_get_dynamic_reloc_upper_bound
158 PARAMS ((bfd *abfd));
159 static long vms_canonicalize_dynamic_reloc
160 PARAMS ((bfd *abfd, arelent **arel, asymbol **symbols));
161 static bfd_boolean vms_bfd_merge_private_bfd_data
162 PARAMS ((bfd *ibfd, bfd *obfd));
163 static bfd_boolean vms_bfd_set_private_flags
164 PARAMS ((bfd *abfd, flagword flags));
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
170 /*===========================================================================*/
172 const bfd_target vms_alpha_vec =
174 "vms-alpha", /* name */
175 bfd_target_evax_flavour,
176 BFD_ENDIAN_LITTLE, /* data byte order is little */
177 BFD_ENDIAN_LITTLE, /* header byte order is little */
179 (HAS_RELOC | HAS_SYMS
180 | WP_TEXT | D_PAGED), /* object flags */
181 (SEC_ALLOC | SEC_LOAD | SEC_RELOC
182 | SEC_READONLY | SEC_CODE | SEC_DATA
183 | SEC_HAS_CONTENTS | SEC_IN_MEMORY), /* sect flags */
184 0, /* symbol_leading_char */
185 ' ', /* ar_pad_char */
186 15, /* ar_max_namelen */
187 bfd_getl64, bfd_getl_signed_64, bfd_putl64,
188 bfd_getl32, bfd_getl_signed_32, bfd_putl32,
189 bfd_getl16, bfd_getl_signed_16, bfd_putl16,
190 bfd_getl64, bfd_getl_signed_64, bfd_putl64,
191 bfd_getl32, bfd_getl_signed_32, bfd_putl32,
192 bfd_getl16, bfd_getl_signed_16, bfd_putl16,
194 {_bfd_dummy_target, vms_object_p, /* bfd_check_format */
195 vms_archive_p, _bfd_dummy_target},
196 {bfd_false, vms_mkobject, /* bfd_set_format */
197 _bfd_generic_mkarchive, bfd_false},
198 {bfd_false, vms_write_object_contents, /* bfd_write_contents */
199 _bfd_write_archive_contents, bfd_false},
201 BFD_JUMP_TABLE_GENERIC (vms),
202 BFD_JUMP_TABLE_COPY (vms),
203 BFD_JUMP_TABLE_CORE (vms),
204 BFD_JUMP_TABLE_ARCHIVE (vms),
205 BFD_JUMP_TABLE_SYMBOLS (vms),
206 BFD_JUMP_TABLE_RELOCS (vms),
207 BFD_JUMP_TABLE_WRITE (vms),
208 BFD_JUMP_TABLE_LINK (vms),
209 BFD_JUMP_TABLE_DYNAMIC (vms),
211 NULL,
213 (PTR) 0
216 const bfd_target vms_vax_vec =
218 "vms-vax", /* name */
219 bfd_target_ovax_flavour,
220 BFD_ENDIAN_LITTLE, /* data byte order is little */
221 BFD_ENDIAN_LITTLE, /* header byte order is little */
223 (HAS_RELOC | HAS_SYMS /* object flags */
224 | WP_TEXT | D_PAGED
225 | HAS_LINENO | HAS_DEBUG | HAS_LOCALS),
227 (SEC_ALLOC | SEC_LOAD | SEC_RELOC
228 | SEC_READONLY | SEC_CODE | SEC_DATA
229 | SEC_HAS_CONTENTS | SEC_IN_MEMORY), /* sect flags */
230 0, /* symbol_leading_char */
231 ' ', /* ar_pad_char */
232 15, /* ar_max_namelen */
233 bfd_getl64, bfd_getl_signed_64, bfd_putl64,
234 bfd_getl32, bfd_getl_signed_32, bfd_putl32,
235 bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* data */
236 bfd_getl64, bfd_getl_signed_64, bfd_putl64,
237 bfd_getl32, bfd_getl_signed_32, bfd_putl32,
238 bfd_getl16, bfd_getl_signed_16, bfd_putl16, /* hdrs */
240 {_bfd_dummy_target, vms_object_p, /* bfd_check_format */
241 vms_archive_p, _bfd_dummy_target},
242 {bfd_false, vms_mkobject, /* bfd_set_format */
243 _bfd_generic_mkarchive, bfd_false},
244 {bfd_false, vms_write_object_contents, /* bfd_write_contents */
245 _bfd_write_archive_contents, bfd_false},
247 BFD_JUMP_TABLE_GENERIC (vms),
248 BFD_JUMP_TABLE_COPY (vms),
249 BFD_JUMP_TABLE_CORE (vms),
250 BFD_JUMP_TABLE_ARCHIVE (vms),
251 BFD_JUMP_TABLE_SYMBOLS (vms),
252 BFD_JUMP_TABLE_RELOCS (vms),
253 BFD_JUMP_TABLE_WRITE (vms),
254 BFD_JUMP_TABLE_LINK (vms),
255 BFD_JUMP_TABLE_DYNAMIC (vms),
257 NULL,
259 (PTR) 0
262 /*===========================================================================*/
264 /* Initialize private data */
266 static bfd_boolean
267 vms_initialize (abfd)
268 bfd *abfd;
270 int i;
271 bfd_size_type amt;
273 bfd_set_start_address (abfd, (bfd_vma) -1);
275 amt = sizeof (struct vms_private_data_struct);
276 abfd->tdata.any = (struct vms_private_data_struct*) bfd_alloc (abfd, amt);
277 if (abfd->tdata.any == 0)
278 return FALSE;
280 #ifdef __ALPHA
281 PRIV (is_vax) = 0;
282 #else
283 PRIV (is_vax) = 1;
284 #endif
285 PRIV (vms_buf) = 0;
286 PRIV (buf_size) = 0;
287 PRIV (rec_length) = 0;
288 PRIV (file_format) = FF_UNKNOWN;
289 PRIV (fixup_done) = FALSE;
290 PRIV (sections) = NULL;
292 amt = sizeof (struct stack_struct) * STACKSIZE;
293 PRIV (stack) = (struct stack_struct *) bfd_alloc (abfd, amt);
294 if (PRIV (stack) == 0)
295 goto error_ret1;
296 PRIV (stackptr) = 0;
298 amt = sizeof (struct bfd_hash_table);
299 PRIV (vms_symbol_table) = (struct bfd_hash_table *) bfd_alloc (abfd, amt);
300 if (PRIV (vms_symbol_table) == 0)
301 goto error_ret1;
303 if (!bfd_hash_table_init (PRIV (vms_symbol_table), _bfd_vms_hash_newfunc))
304 goto error_ret1;
306 amt = sizeof (struct location_struct) * LOCATION_SAVE_SIZE;
307 PRIV (location_stack) = (struct location_struct *) bfd_alloc (abfd, amt);
308 if (PRIV (location_stack) == 0)
309 goto error_ret2;
311 for (i = 0; i < VMS_SECTION_COUNT; i++)
312 PRIV (vms_section_table)[i] = NULL;
314 amt = MAX_OUTREC_SIZE;
315 PRIV (output_buf) = (unsigned char *) bfd_alloc (abfd, amt);
316 if (PRIV (output_buf) == 0)
317 goto error_ret2;
319 PRIV (push_level) = 0;
320 PRIV (pushed_size) = 0;
321 PRIV (length_pos) = 2;
322 PRIV (output_size) = 0;
323 PRIV (output_alignment) = 1;
325 return TRUE;
327 error_ret2:
328 bfd_hash_table_free (PRIV (vms_symbol_table));
329 error_ret1:
330 bfd_release (abfd, abfd->tdata.any);
331 abfd->tdata.any = 0;
332 return FALSE;
335 /* Fill symbol->section with section ptr
336 symbol->section is filled with the section index for defined symbols
337 during reading the GSD/EGSD section. But we need the pointer to the
338 bfd section later.
340 It has the correct value for referenced (undefined section) symbols
342 called from bfd_hash_traverse in vms_fixup_sections */
344 static bfd_boolean
345 fill_section_ptr (entry, sections)
346 struct bfd_hash_entry *entry;
347 PTR sections;
349 asection *sec;
350 asymbol *sym;
352 sym = ((vms_symbol_entry *)entry)->symbol;
353 sec = sym->section;
355 #if VMS_DEBUG
356 vms_debug (6, "fill_section_ptr: sym %p, sec %p\n", sym, sec);
357 #endif
359 /* fill forward references (these contain section number, not section ptr). */
361 if ((unsigned int) sec < priv_section_count)
363 sec = ((vms_symbol_entry *)entry)->symbol->section =
364 ((asection **)sections)[(int)sec];
367 if (strcmp (sym->name, sec->name) == 0)
368 sym->flags |= BSF_SECTION_SYM;
370 return TRUE;
373 /* Fixup sections
374 set up all pointers and arrays, counters and sizes are fixed now
376 we build a private sections vector for easy access since sections
377 are always referenced by an index number.
379 alloc PRIV(sections) according to abfd->section_count
380 copy abfd->sections to PRIV(sections) */
382 static bfd_boolean
383 vms_fixup_sections (abfd)
384 bfd *abfd;
386 if (PRIV (fixup_done))
387 return TRUE;
390 * traverse symbol table and fill in all section pointers
393 /* can't provide section count as argument to fill_section_ptr(). */
394 priv_section_count = PRIV (section_count);
395 bfd_hash_traverse (PRIV (vms_symbol_table), fill_section_ptr,
396 (PTR) (PRIV (sections)));
398 PRIV (fixup_done) = TRUE;
400 return TRUE;
403 /*===========================================================================*/
405 /* Check the format for a file being read.
406 Return a (bfd_target *) if it's an object file or zero if not. */
408 static const struct bfd_target *
409 vms_object_p (abfd)
410 bfd *abfd;
412 int err = 0;
413 int prev_type;
414 const struct bfd_target *target_vector = 0;
415 const bfd_arch_info_type *arch = 0;
416 PTR tdata_save = abfd->tdata.any;
417 bfd_vma saddr_save = bfd_get_start_address (abfd);
419 #if VMS_DEBUG
420 vms_debug (1, "vms_object_p(%p)\n", abfd);
421 #endif
423 if (!vms_initialize (abfd))
424 goto error_ret;
426 if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET))
427 goto err_wrong_format;
429 prev_type = -1;
433 #if VMS_DEBUG
434 vms_debug (7, "reading at %08lx\n", bfd_tell(abfd));
435 #endif
436 if (_bfd_vms_next_record (abfd) < 0)
438 #if VMS_DEBUG
439 vms_debug (2, "next_record failed\n");
440 #endif
441 goto err_wrong_format;
444 if ((prev_type == EOBJ_S_C_EGSD)
445 && (PRIV (rec_type) != EOBJ_S_C_EGSD))
447 if (! vms_fixup_sections (abfd))
449 #if VMS_DEBUG
450 vms_debug (2, "vms_fixup_sections failed\n");
451 #endif
452 goto err_wrong_format;
456 prev_type = PRIV (rec_type);
458 if (target_vector == 0)
460 if (prev_type <= OBJ_S_C_MAXRECTYP)
461 target_vector = &vms_vax_vec;
462 else
463 target_vector = &vms_alpha_vec;
466 switch (prev_type)
468 case OBJ_S_C_HDR:
469 case EOBJ_S_C_EMH:
470 err = _bfd_vms_slurp_hdr (abfd, prev_type);
471 break;
472 case OBJ_S_C_EOM:
473 case OBJ_S_C_EOMW:
474 case EOBJ_S_C_EEOM:
475 err = _bfd_vms_slurp_eom (abfd, prev_type);
476 break;
477 case OBJ_S_C_GSD:
478 case EOBJ_S_C_EGSD:
479 err = _bfd_vms_slurp_gsd (abfd, prev_type);
480 break;
481 case OBJ_S_C_TIR:
482 case EOBJ_S_C_ETIR:
483 err = _bfd_vms_slurp_tir (abfd, prev_type);
484 break;
485 case OBJ_S_C_DBG:
486 case EOBJ_S_C_EDBG:
487 err = _bfd_vms_slurp_dbg (abfd, prev_type);
488 break;
489 case OBJ_S_C_TBT:
490 case EOBJ_S_C_ETBT:
491 err = _bfd_vms_slurp_tbt (abfd, prev_type);
492 break;
493 case OBJ_S_C_LNK:
494 err = _bfd_vms_slurp_lnk (abfd, prev_type);
495 break;
496 default:
497 err = -1;
499 if (err != 0)
501 #if VMS_DEBUG
502 vms_debug (2, "slurp type %d failed with %d\n", prev_type, err);
503 #endif
504 goto err_wrong_format;
507 while ((prev_type != EOBJ_S_C_EEOM) && (prev_type != OBJ_S_C_EOM) && (prev_type != OBJ_S_C_EOMW));
509 if (target_vector == &vms_vax_vec)
511 if (! vms_fixup_sections (abfd))
513 #if VMS_DEBUG
514 vms_debug (2, "vms_fixup_sections failed\n");
515 #endif
516 goto err_wrong_format;
519 /* set arch_info to vax */
521 arch = bfd_scan_arch ("vax");
522 PRIV (is_vax) = 1;
523 #if VMS_DEBUG
524 vms_debug (2, "arch is vax\n");
525 #endif
527 else if (target_vector == &vms_alpha_vec)
529 /* set arch_info to alpha */
531 arch = bfd_scan_arch ("alpha");
532 PRIV (is_vax) = 0;
533 #if VMS_DEBUG
534 vms_debug (2, "arch is alpha\n");
535 #endif
538 if (arch == 0)
540 #if VMS_DEBUG
541 vms_debug (2, "arch not found\n");
542 #endif
543 goto err_wrong_format;
545 abfd->arch_info = arch;
547 return target_vector;
549 err_wrong_format:
550 bfd_set_error (bfd_error_wrong_format);
551 error_ret:
552 if (abfd->tdata.any != tdata_save && abfd->tdata.any != NULL)
553 bfd_release (abfd, abfd->tdata.any);
554 abfd->tdata.any = tdata_save;
555 bfd_set_start_address (abfd, saddr_save);
556 return NULL;
559 /* Check the format for a file being read.
560 Return a (bfd_target *) if it's an archive file or zero. */
562 static const struct bfd_target *
563 vms_archive_p (abfd)
564 bfd *abfd ATTRIBUTE_UNUSED;
566 #if VMS_DEBUG
567 vms_debug (1, "vms_archive_p(%p)\n", abfd);
568 #endif
570 return 0;
573 /* Set the format of a file being written. */
575 static bfd_boolean
576 vms_mkobject (abfd)
577 bfd *abfd;
579 #if VMS_DEBUG
580 vms_debug (1, "vms_mkobject(%p)\n", abfd);
581 #endif
583 if (!vms_initialize (abfd))
584 return 0;
587 #ifdef __VAX
588 const bfd_arch_info_type *arch = bfd_scan_arch ("vax");
589 #else
590 const bfd_arch_info_type *arch = bfd_scan_arch ("alpha");
591 #endif
592 if (arch == 0)
594 bfd_set_error(bfd_error_wrong_format);
595 return 0;
597 abfd->arch_info = arch;
600 return TRUE;
603 /* Write cached information into a file being written, at bfd_close. */
605 static bfd_boolean
606 vms_write_object_contents (abfd)
607 bfd *abfd;
609 #if VMS_DEBUG
610 vms_debug (1, "vms_write_object_contents(%p)\n", abfd);
611 #endif
613 if (abfd->section_count > 0) /* we have sections */
615 if (PRIV (is_vax))
617 if (_bfd_vms_write_hdr (abfd, OBJ_S_C_HDR) != 0)
618 return FALSE;
619 if (_bfd_vms_write_gsd (abfd, OBJ_S_C_GSD) != 0)
620 return FALSE;
621 if (_bfd_vms_write_tir (abfd, OBJ_S_C_TIR) != 0)
622 return FALSE;
623 if (_bfd_vms_write_tbt (abfd, OBJ_S_C_TBT) != 0)
624 return FALSE;
625 if (_bfd_vms_write_dbg (abfd, OBJ_S_C_DBG) != 0)
626 return FALSE;
627 if (abfd->section_count > 255)
629 if (_bfd_vms_write_eom (abfd, OBJ_S_C_EOMW) != 0)
630 return FALSE;
632 else
634 if (_bfd_vms_write_eom (abfd, OBJ_S_C_EOM) != 0)
635 return FALSE;
638 else
640 if (_bfd_vms_write_hdr (abfd, EOBJ_S_C_EMH) != 0)
641 return FALSE;
642 if (_bfd_vms_write_gsd (abfd, EOBJ_S_C_EGSD) != 0)
643 return FALSE;
644 if (_bfd_vms_write_tir (abfd, EOBJ_S_C_ETIR) != 0)
645 return FALSE;
646 if (_bfd_vms_write_tbt (abfd, EOBJ_S_C_ETBT) != 0)
647 return FALSE;
648 if (_bfd_vms_write_dbg (abfd, EOBJ_S_C_EDBG) != 0)
649 return FALSE;
650 if (_bfd_vms_write_eom (abfd, EOBJ_S_C_EEOM) != 0)
651 return FALSE;
654 return TRUE;
657 /*-- 4.1, generic -----------------------------------------------------------*/
659 /* Called when the BFD is being closed to do any necessary cleanup. */
661 static bfd_boolean
662 vms_close_and_cleanup (abfd)
663 bfd *abfd;
665 #if VMS_DEBUG
666 vms_debug (1, "vms_close_and_cleanup(%p)\n", abfd);
667 #endif
668 if (abfd == 0)
669 return TRUE;
671 if (PRIV (vms_buf) != NULL)
672 free (PRIV (vms_buf));
674 if (PRIV (sections) != NULL)
675 free (PRIV (sections));
677 if (PRIV (vms_symbol_table))
678 bfd_hash_table_free (PRIV (vms_symbol_table));
680 bfd_release (abfd, abfd->tdata.any);
681 abfd->tdata.any = NULL;
683 return TRUE;
686 /* Ask the BFD to free all cached information. */
687 static bfd_boolean
688 vms_bfd_free_cached_info (abfd)
689 bfd *abfd ATTRIBUTE_UNUSED;
691 #if VMS_DEBUG
692 vms_debug (1, "vms_bfd_free_cached_info(%p)\n", abfd);
693 #endif
694 return TRUE;
697 /* Called when a new section is created. */
699 static bfd_boolean
700 vms_new_section_hook (abfd, section)
701 bfd *abfd;
702 asection *section;
704 /* Count hasn't been incremented yet. */
705 unsigned int section_count = abfd->section_count + 1;
707 #if VMS_DEBUG
708 vms_debug (1, "vms_new_section_hook (%p, [%d]%s), count %d\n",
709 abfd, section->index, section->name, section_count);
710 #endif
711 bfd_set_section_alignment (abfd, section, 4);
713 if (section_count > PRIV (section_count))
715 bfd_size_type amt = section_count;
716 amt *= sizeof (asection *);
717 PRIV (sections) = (asection **) bfd_realloc (PRIV (sections), amt);
718 if (PRIV (sections) == 0)
719 return FALSE;
720 PRIV (section_count) = section_count;
722 #if VMS_DEBUG
723 vms_debug (6, "section_count: %d\n", PRIV (section_count));
724 #endif
725 PRIV (sections)[section->index] = section;
726 #if VMS_DEBUG
727 vms_debug (7, "%d: %s\n", section->index, section->name);
728 #endif
730 return TRUE;
733 /* Read the contents of a section.
734 buf points to a buffer of buf_size bytes to be filled with
735 section data (starting at offset into section) */
737 static bfd_boolean
738 vms_get_section_contents (abfd, section, buf, offset, buf_size)
739 bfd *abfd ATTRIBUTE_UNUSED;
740 asection *section ATTRIBUTE_UNUSED;
741 PTR buf ATTRIBUTE_UNUSED;
742 file_ptr offset ATTRIBUTE_UNUSED;
743 bfd_size_type buf_size ATTRIBUTE_UNUSED;
745 #if VMS_DEBUG
746 vms_debug (1, "vms_get_section_contents(%p, %s, %p, off %ld, size %d)\n",
747 abfd, section->name, buf, offset, (int)buf_size);
748 #endif
750 /* shouldn't be called, since all sections are IN_MEMORY */
752 return FALSE;
755 /* Read the contents of a section.
756 buf points to a buffer of buf_size bytes to be filled with
757 section data (starting at offset into section) */
759 static bfd_boolean
760 vms_get_section_contents_in_window (abfd, section, w, offset, count)
761 bfd *abfd ATTRIBUTE_UNUSED;
762 asection *section ATTRIBUTE_UNUSED;
763 bfd_window *w ATTRIBUTE_UNUSED;
764 file_ptr offset ATTRIBUTE_UNUSED;
765 bfd_size_type count ATTRIBUTE_UNUSED;
767 #if VMS_DEBUG
768 vms_debug (1, "vms_get_section_contents_in_window(%p, %s, %p, off %ld, count %d)\n",
769 abfd, section->name, w, offset, (int)count);
770 #endif
772 /* shouldn't be called, since all sections are IN_MEMORY */
774 return FALSE;
777 /*-- Part 4.2, copy private data --------------------------------------------*/
779 /* Called to copy BFD general private data from one object file
780 to another. */
782 static bfd_boolean
783 vms_bfd_copy_private_bfd_data (src, dest)
784 bfd *src ATTRIBUTE_UNUSED;
785 bfd *dest ATTRIBUTE_UNUSED;
787 #if VMS_DEBUG
788 vms_debug (1, "vms_bfd_copy_private_bfd_data(%p, %p)\n", src, dest);
789 #endif
790 return TRUE;
793 /* Merge private BFD information from the BFD @var{ibfd} to the
794 the output file BFD @var{obfd} when linking. Return <<TRUE>>
795 on success, <<FALSE>> on error. Possible error returns are:
797 o <<bfd_error_no_memory>> -
798 Not enough memory exists to create private data for @var{obfd}. */
800 static bfd_boolean
801 vms_bfd_merge_private_bfd_data (ibfd, obfd)
802 bfd *ibfd ATTRIBUTE_UNUSED;
803 bfd *obfd ATTRIBUTE_UNUSED;
805 #if VMS_DEBUG
806 vms_debug (1,"vms_bfd_merge_private_bfd_data(%p, %p)\n", ibfd, obfd);
807 #endif
808 return TRUE;
811 /* Set private BFD flag information in the BFD @var{abfd}.
812 Return <<TRUE>> on success, <<FALSE>> on error. Possible error
813 returns are:
815 o <<bfd_error_no_memory>> -
816 Not enough memory exists to create private data for @var{obfd}. */
818 static bfd_boolean
819 vms_bfd_set_private_flags (abfd, flags)
820 bfd *abfd ATTRIBUTE_UNUSED;
821 flagword flags ATTRIBUTE_UNUSED;
823 #if VMS_DEBUG
824 vms_debug (1,"vms_bfd_set_private_flags(%p, %lx)\n", abfd, (long)flags);
825 #endif
826 return TRUE;
829 /* Called to copy BFD private section data from one object file
830 to another. */
832 static bfd_boolean
833 vms_bfd_copy_private_section_data (srcbfd, srcsec, dstbfd, dstsec)
834 bfd *srcbfd ATTRIBUTE_UNUSED;
835 asection *srcsec ATTRIBUTE_UNUSED;
836 bfd *dstbfd ATTRIBUTE_UNUSED;
837 asection *dstsec ATTRIBUTE_UNUSED;
839 #if VMS_DEBUG
840 vms_debug (1, "vms_bfd_copy_private_section_data(%p, %s, %p, %s)\n",
841 srcbfd, srcsec->name, dstbfd, dstsec->name);
842 #endif
843 return TRUE;
846 /* Called to copy BFD private symbol data from one object file
847 to another. */
849 static bfd_boolean
850 vms_bfd_copy_private_symbol_data (ibfd, isym, obfd, osym)
851 bfd *ibfd ATTRIBUTE_UNUSED;
852 asymbol *isym ATTRIBUTE_UNUSED;
853 bfd *obfd ATTRIBUTE_UNUSED;
854 asymbol *osym ATTRIBUTE_UNUSED;
856 #if VMS_DEBUG
857 vms_debug (1, "vms_bfd_copy_private_symbol_data(%p, %s, %p, %s)\n",
858 ibfd, isym->name, obfd, osym->name);
859 #endif
860 return TRUE;
863 /*-- Part 4.3, core file ----------------------------------------------------*/
865 /* Return a read-only string explaining which program was running
866 when it failed and produced the core file abfd. */
868 static char *
869 vms_core_file_failing_command (abfd)
870 bfd *abfd ATTRIBUTE_UNUSED;
872 #if VMS_DEBUG
873 vms_debug (1, "vms_core_file_failing_command(%p)\n", abfd);
874 #endif
875 return 0;
878 /* Returns the signal number which caused the core dump which
879 generated the file the BFD abfd is attached to. */
881 static int
882 vms_core_file_failing_signal (abfd)
883 bfd *abfd ATTRIBUTE_UNUSED;
885 #if VMS_DEBUG
886 vms_debug (1, "vms_core_file_failing_signal(%p)\n", abfd);
887 #endif
888 return 0;
891 /* Return TRUE if the core file attached to core_bfd was generated
892 by a run of the executable file attached to exec_bfd, FALSE otherwise. */
894 static bfd_boolean
895 vms_core_file_matches_executable_p (abfd, bbfd)
896 bfd *abfd ATTRIBUTE_UNUSED;
897 bfd *bbfd ATTRIBUTE_UNUSED;
899 #if VMS_DEBUG
900 vms_debug (1, "vms_core_file_matches_executable_p(%p, %p)\n", abfd, bbfd);
901 #endif
902 return FALSE;
905 /*-- Part 4.4, archive ------------------------------------------------------*/
907 /* ??? do something with an archive map.
908 Return FALSE on error, TRUE otherwise. */
910 static bfd_boolean
911 vms_slurp_armap (abfd)
912 bfd *abfd ATTRIBUTE_UNUSED;
914 #if VMS_DEBUG
915 vms_debug (1, "vms_slurp_armap(%p)\n", abfd);
916 #endif
917 return FALSE;
920 /* ??? do something with an extended name table.
921 Return FALSE on error, TRUE otherwise. */
923 static bfd_boolean
924 vms_slurp_extended_name_table (abfd)
925 bfd *abfd ATTRIBUTE_UNUSED;
927 #if VMS_DEBUG
928 vms_debug (1, "vms_slurp_extended_name_table(%p)\n", abfd);
929 #endif
930 return FALSE;
933 /* ??? do something with an extended name table.
934 Return FALSE on error, TRUE otherwise. */
936 static bfd_boolean
937 vms_construct_extended_name_table (abfd, tabloc, tablen, name)
938 bfd *abfd ATTRIBUTE_UNUSED;
939 char **tabloc ATTRIBUTE_UNUSED;
940 bfd_size_type *tablen ATTRIBUTE_UNUSED;
941 const char **name ATTRIBUTE_UNUSED;
943 #if VMS_DEBUG
944 vms_debug (1, "vms_construct_extended_name_table(%p)\n", abfd);
945 #endif
946 return FALSE;
949 /* Truncate the name of an archive to match system-dependent restrictions */
951 static void
952 vms_truncate_arname (abfd, pathname, arhdr)
953 bfd *abfd ATTRIBUTE_UNUSED;
954 const char *pathname ATTRIBUTE_UNUSED;
955 char *arhdr ATTRIBUTE_UNUSED;
957 #if VMS_DEBUG
958 vms_debug (1, "vms_truncate_arname(%p, %s, %s)\n", abfd, pathname, arhdr);
959 #endif
960 return;
963 /* ??? write archive map */
965 static bfd_boolean
966 vms_write_armap (arch, elength, map, orl_count, stridx)
967 bfd *arch ATTRIBUTE_UNUSED;
968 unsigned int elength ATTRIBUTE_UNUSED;
969 struct orl *map ATTRIBUTE_UNUSED;
970 unsigned int orl_count ATTRIBUTE_UNUSED;
971 int stridx ATTRIBUTE_UNUSED;
973 #if VMS_DEBUG
974 vms_debug (1, "vms_write_armap(%p, %d, %p, %d %d)\n",
975 arch, elength, map, orl_count, stridx);
976 #endif
977 return TRUE;
980 /* Read archive header ??? */
982 static PTR
983 vms_read_ar_hdr (abfd)
984 bfd * abfd ATTRIBUTE_UNUSED;
986 #if VMS_DEBUG
987 vms_debug (1, "vms_read_ar_hdr(%p)\n", abfd);
988 #endif
989 return (PTR)0;
992 /* Provided a BFD, @var{archive}, containing an archive and NULL, open
993 an input BFD on the first contained element and returns that.
994 Subsequent calls should pass the archive and the previous return value
995 to return a created BFD to the next contained element.
996 NULL is returned when there are no more. */
998 static bfd *
999 vms_openr_next_archived_file (arch, prev)
1000 bfd *arch ATTRIBUTE_UNUSED;
1001 bfd *prev ATTRIBUTE_UNUSED;
1003 #if VMS_DEBUG
1004 vms_debug (1, "vms_openr_next_archived_file(%p, %p)\n", arch, prev);
1005 #endif
1006 return NULL;
1009 /* Return the BFD which is referenced by the symbol in ABFD indexed by
1010 INDEX. INDEX should have been returned by bfd_get_next_mapent. */
1012 static bfd *
1013 vms_get_elt_at_index (abfd, index)
1014 bfd *abfd;
1015 symindex index;
1017 #if VMS_DEBUG
1018 vms_debug (1, "vms_get_elt_at_index(%p, %p)\n", abfd, index);
1019 #endif
1020 return _bfd_generic_get_elt_at_index(abfd, index);
1023 /* ???
1024 -> bfd_generic_stat_arch_elt */
1026 static int
1027 vms_generic_stat_arch_elt (abfd, st)
1028 bfd *abfd;
1029 struct stat *st;
1031 #if VMS_DEBUG
1032 vms_debug (1, "vms_generic_stat_arch_elt(%p, %p)\n", abfd, st);
1033 #endif
1034 return bfd_generic_stat_arch_elt (abfd, st);
1037 /* This is a new function in bfd 2.5 */
1039 static bfd_boolean
1040 vms_update_armap_timestamp (abfd)
1041 bfd *abfd ATTRIBUTE_UNUSED;
1043 #if VMS_DEBUG
1044 vms_debug (1, "vms_update_armap_timestamp(%p)\n", abfd);
1045 #endif
1046 return TRUE;
1049 /*-- Part 4.5, symbols --------------------------------------------------------*/
1051 /* Return the number of bytes required to store a vector of pointers
1052 to asymbols for all the symbols in the BFD abfd, including a
1053 terminal NULL pointer. If there are no symbols in the BFD,
1054 then return 0. If an error occurs, return -1. */
1056 static long
1057 vms_get_symtab_upper_bound (abfd)
1058 bfd *abfd;
1060 #if VMS_DEBUG
1061 vms_debug (1, "vms_get_symtab_upper_bound(%p), %d symbols\n", abfd, PRIV (gsd_sym_count));
1062 #endif
1063 return (PRIV (gsd_sym_count)+1) * sizeof (asymbol *);
1066 /* Copy symbols from hash table to symbol vector
1068 called from bfd_hash_traverse in vms_canonicalize_symtab
1069 init counter to 0 if entry == 0 */
1071 static bfd_boolean
1072 copy_symbols (entry, arg)
1073 struct bfd_hash_entry *entry;
1074 PTR arg;
1076 bfd *abfd = (bfd *) arg;
1078 if (entry == NULL) /* init counter */
1079 PRIV (symnum) = 0;
1080 else /* fill vector, inc counter */
1081 PRIV (symcache)[PRIV (symnum)++] = ((vms_symbol_entry *)entry)->symbol;
1083 return TRUE;
1086 /* Read the symbols from the BFD abfd, and fills in the vector
1087 location with pointers to the symbols and a trailing NULL.
1089 return # of symbols read */
1091 static long
1092 vms_canonicalize_symtab (abfd, symbols)
1093 bfd *abfd;
1094 asymbol **symbols;
1096 #if VMS_DEBUG
1097 vms_debug (1, "vms_canonicalize_symtab(%p, <ret>)\n", abfd);
1098 #endif
1100 /* init counter */
1101 (void)copy_symbols((struct bfd_hash_entry *)0, abfd);
1103 /* traverse table and fill symbols vector */
1105 PRIV (symcache) = symbols;
1106 bfd_hash_traverse(PRIV (vms_symbol_table), copy_symbols, (PTR)abfd);
1108 symbols[PRIV (gsd_sym_count)] = NULL;
1110 return PRIV (gsd_sym_count);
1113 /* Print symbol to file according to how. how is one of
1114 bfd_print_symbol_name just print the name
1115 bfd_print_symbol_more print more (???)
1116 bfd_print_symbol_all print all we know, which is not much right now :-) */
1118 static void
1119 vms_print_symbol (abfd, file, symbol, how)
1120 bfd *abfd;
1121 PTR file;
1122 asymbol *symbol;
1123 bfd_print_symbol_type how;
1125 #if VMS_DEBUG
1126 vms_debug (1, "vms_print_symbol(%p, %p, %p, %d)\n", abfd, file, symbol, how);
1127 #endif
1129 switch (how)
1131 case bfd_print_symbol_name:
1132 case bfd_print_symbol_more:
1133 fprintf ((FILE *)file," %s", symbol->name);
1134 break;
1136 case bfd_print_symbol_all:
1138 const char *section_name = symbol->section->name;
1140 bfd_print_symbol_vandf (abfd, (PTR)file, symbol);
1142 fprintf ((FILE *)file," %-8s %s", section_name, symbol->name);
1144 break;
1146 return;
1149 /* Return information about symbol in ret.
1151 fill type, value and name
1152 type:
1153 A absolute
1154 B bss segment symbol
1155 C common symbol
1156 D data segment symbol
1157 f filename
1158 t a static function symbol
1159 T text segment symbol
1160 U undefined
1161 - debug */
1163 static void
1164 vms_get_symbol_info (abfd, symbol, ret)
1165 bfd *abfd ATTRIBUTE_UNUSED;
1166 asymbol *symbol;
1167 symbol_info *ret;
1169 asection *sec;
1171 #if VMS_DEBUG
1172 vms_debug (1, "vms_get_symbol_info(%p, %p, %p)\n", abfd, symbol, ret);
1173 #endif
1175 sec = symbol->section;
1177 if (ret == 0)
1178 return;
1180 if (bfd_is_com_section (sec))
1181 ret->type = 'C';
1182 else if (bfd_is_abs_section (sec))
1183 ret->type = 'A';
1184 else if (bfd_is_und_section (sec))
1185 ret->type = 'U';
1186 else if (bfd_is_ind_section (sec))
1187 ret->type = 'I';
1188 else if (bfd_get_section_flags (abfd, sec) & SEC_CODE)
1189 ret->type = 'T';
1190 else if (bfd_get_section_flags (abfd, sec) & SEC_DATA)
1191 ret->type = 'D';
1192 else if (bfd_get_section_flags (abfd, sec) & SEC_ALLOC)
1193 ret->type = 'B';
1194 else
1195 ret->type = '-';
1197 if (ret->type != 'U')
1198 ret->value = symbol->value + symbol->section->vma;
1199 else
1200 ret->value = 0;
1201 ret->name = symbol->name;
1203 return;
1206 /* Return TRUE if the given symbol sym in the BFD abfd is
1207 a compiler generated local label, else return FALSE. */
1209 static bfd_boolean
1210 vms_bfd_is_local_label_name (abfd, name)
1211 bfd *abfd ATTRIBUTE_UNUSED;
1212 const char *name;
1214 #if VMS_DEBUG
1215 vms_debug (1, "vms_bfd_is_local_label_name(%p, %s)\n", abfd, name);
1216 #endif
1217 return name[0] == '$';
1220 /* Get source line number for symbol */
1222 static alent *
1223 vms_get_lineno (abfd, symbol)
1224 bfd *abfd ATTRIBUTE_UNUSED;
1225 asymbol *symbol ATTRIBUTE_UNUSED;
1227 #if VMS_DEBUG
1228 vms_debug (1, "vms_get_lineno(%p, %p)\n", abfd, symbol);
1229 #endif
1230 return 0;
1233 /* Provided a BFD, a section and an offset into the section, calculate and
1234 return the name of the source file and the line nearest to the wanted
1235 location. */
1237 static bfd_boolean
1238 vms_find_nearest_line (abfd, section, symbols, offset, file, func, line)
1239 bfd *abfd ATTRIBUTE_UNUSED;
1240 asection *section ATTRIBUTE_UNUSED;
1241 asymbol **symbols ATTRIBUTE_UNUSED;
1242 bfd_vma offset ATTRIBUTE_UNUSED;
1243 const char **file ATTRIBUTE_UNUSED;
1244 const char **func ATTRIBUTE_UNUSED;
1245 unsigned int *line ATTRIBUTE_UNUSED;
1247 #if VMS_DEBUG
1248 vms_debug (1, "vms_find_nearest_line(%p, %s, %p, %ld, <ret>, <ret>, <ret>)\n",
1249 abfd, section->name, symbols, (long int)offset);
1250 #endif
1251 return FALSE;
1254 /* Back-door to allow format-aware applications to create debug symbols
1255 while using BFD for everything else. Currently used by the assembler
1256 when creating COFF files. */
1258 static asymbol *
1259 vms_bfd_make_debug_symbol (abfd, ptr, size)
1260 bfd *abfd ATTRIBUTE_UNUSED;
1261 void *ptr ATTRIBUTE_UNUSED;
1262 unsigned long size ATTRIBUTE_UNUSED;
1264 #if VMS_DEBUG
1265 vms_debug (1, "vms_bfd_make_debug_symbol(%p, %p, %ld)\n", abfd, ptr, size);
1266 #endif
1267 return 0;
1270 /* Read minisymbols. For minisymbols, we use the unmodified a.out
1271 symbols. The minisymbol_to_symbol function translates these into
1272 BFD asymbol structures. */
1274 static long
1275 vms_read_minisymbols (abfd, dynamic, minisymsp, sizep)
1276 bfd *abfd;
1277 bfd_boolean dynamic;
1278 PTR *minisymsp;
1279 unsigned int *sizep;
1281 #if VMS_DEBUG
1282 vms_debug (1, "vms_read_minisymbols(%p, %d, %p, %d)\n", abfd, dynamic, minisymsp, *sizep);
1283 #endif
1284 return _bfd_generic_read_minisymbols (abfd, dynamic, minisymsp, sizep);
1287 /* Convert a minisymbol to a BFD asymbol. A minisymbol is just an
1288 unmodified a.out symbol. The SYM argument is a structure returned
1289 by bfd_make_empty_symbol, which we fill in here. */
1291 static asymbol *
1292 vms_minisymbol_to_symbol (abfd, dynamic, minisym, sym)
1293 bfd *abfd;
1294 bfd_boolean dynamic;
1295 const PTR minisym;
1296 asymbol *sym;
1298 #if VMS_DEBUG
1299 vms_debug (1, "vms_minisymbol_to_symbol(%p, %d, %p, %p)\n", abfd, dynamic, minisym, sym);
1300 #endif
1301 return _bfd_generic_minisymbol_to_symbol (abfd, dynamic, minisym, sym);
1304 /*-- Part 4.6, relocations --------------------------------------------------*/
1306 /* Return the number of bytes required to store the relocation information
1307 associated with section sect attached to bfd abfd.
1308 If an error occurs, return -1. */
1310 static long
1311 vms_get_reloc_upper_bound (abfd, section)
1312 bfd *abfd ATTRIBUTE_UNUSED;
1313 asection *section ATTRIBUTE_UNUSED;
1315 #if VMS_DEBUG
1316 vms_debug (1, "vms_get_reloc_upper_bound(%p, %s)\n", abfd, section->name);
1317 #endif
1318 return -1L;
1321 /* Call the back end associated with the open BFD abfd and translate the
1322 external form of the relocation information attached to sec into the
1323 internal canonical form. Place the table into memory at loc, which has
1324 been preallocated, usually by a call to bfd_get_reloc_upper_bound.
1325 Returns the number of relocs, or -1 on error. */
1327 static long
1328 vms_canonicalize_reloc (abfd, section, location, symbols)
1329 bfd *abfd ATTRIBUTE_UNUSED;
1330 asection *section ATTRIBUTE_UNUSED;
1331 arelent **location ATTRIBUTE_UNUSED;
1332 asymbol **symbols ATTRIBUTE_UNUSED;
1334 #if VMS_DEBUG
1335 vms_debug (1, "vms_canonicalize_reloc(%p, %s, <ret>, <ret>)\n", abfd, section->name);
1336 #endif
1337 return FALSE;
1340 /*---------------------------------------------------------------------------*/
1341 /* this is just copied from ecoff-alpha, needs to be fixed probably */
1343 /* How to process the various reloc types. */
1345 static bfd_reloc_status_type
1346 reloc_nil (abfd, reloc, sym, data, sec, output_bfd, error_message)
1347 bfd *abfd ATTRIBUTE_UNUSED;
1348 arelent *reloc ATTRIBUTE_UNUSED;
1349 asymbol *sym ATTRIBUTE_UNUSED;
1350 PTR data ATTRIBUTE_UNUSED;
1351 asection *sec ATTRIBUTE_UNUSED;
1352 bfd *output_bfd ATTRIBUTE_UNUSED;
1353 char **error_message ATTRIBUTE_UNUSED;
1355 #if VMS_DEBUG
1356 vms_debug (1, "reloc_nil(abfd %p, output_bfd %p)\n", abfd, output_bfd);
1357 vms_debug (2, "In section %s, symbol %s\n",
1358 sec->name, sym->name);
1359 vms_debug (2, "reloc sym %s, addr %08lx, addend %08lx, reloc is a %s\n",
1360 reloc->sym_ptr_ptr[0]->name,
1361 (unsigned long)reloc->address,
1362 (unsigned long)reloc->addend, reloc->howto->name);
1363 vms_debug (2, "data at %p\n", data);
1364 /* _bfd_hexdump (2, data, bfd_get_reloc_size(reloc->howto),0); */
1365 #endif
1367 return bfd_reloc_ok;
1370 /* In case we're on a 32-bit machine, construct a 64-bit "-1" value
1371 from smaller values. Start with zero, widen, *then* decrement. */
1372 #define MINUS_ONE (((bfd_vma)0) - 1)
1374 static reloc_howto_type alpha_howto_table[] =
1376 HOWTO (ALPHA_R_IGNORE, /* type */
1377 0, /* rightshift */
1378 0, /* size (0 = byte, 1 = short, 2 = long) */
1379 8, /* bitsize */
1380 TRUE, /* pc_relative */
1381 0, /* bitpos */
1382 complain_overflow_dont, /* complain_on_overflow */
1383 reloc_nil, /* special_function */
1384 "IGNORE", /* name */
1385 TRUE, /* partial_inplace */
1386 0, /* src_mask */
1387 0, /* dst_mask */
1388 TRUE), /* pcrel_offset */
1390 /* A 64 bit reference to a symbol. */
1391 HOWTO (ALPHA_R_REFQUAD, /* type */
1392 0, /* rightshift */
1393 4, /* size (0 = byte, 1 = short, 2 = long) */
1394 64, /* bitsize */
1395 FALSE, /* pc_relative */
1396 0, /* bitpos */
1397 complain_overflow_bitfield, /* complain_on_overflow */
1398 reloc_nil, /* special_function */
1399 "REFQUAD", /* name */
1400 TRUE, /* partial_inplace */
1401 MINUS_ONE, /* src_mask */
1402 MINUS_ONE, /* dst_mask */
1403 FALSE), /* pcrel_offset */
1405 /* A 21 bit branch. The native assembler generates these for
1406 branches within the text segment, and also fills in the PC
1407 relative offset in the instruction. */
1408 HOWTO (ALPHA_R_BRADDR, /* type */
1409 2, /* rightshift */
1410 2, /* size (0 = byte, 1 = short, 2 = long) */
1411 21, /* bitsize */
1412 TRUE, /* pc_relative */
1413 0, /* bitpos */
1414 complain_overflow_signed, /* complain_on_overflow */
1415 reloc_nil, /* special_function */
1416 "BRADDR", /* name */
1417 TRUE, /* partial_inplace */
1418 0x1fffff, /* src_mask */
1419 0x1fffff, /* dst_mask */
1420 FALSE), /* pcrel_offset */
1422 /* A hint for a jump to a register. */
1423 HOWTO (ALPHA_R_HINT, /* type */
1424 2, /* rightshift */
1425 1, /* size (0 = byte, 1 = short, 2 = long) */
1426 14, /* bitsize */
1427 TRUE, /* pc_relative */
1428 0, /* bitpos */
1429 complain_overflow_dont, /* complain_on_overflow */
1430 reloc_nil, /* special_function */
1431 "HINT", /* name */
1432 TRUE, /* partial_inplace */
1433 0x3fff, /* src_mask */
1434 0x3fff, /* dst_mask */
1435 FALSE), /* pcrel_offset */
1437 /* 16 bit PC relative offset. */
1438 HOWTO (ALPHA_R_SREL16, /* type */
1439 0, /* rightshift */
1440 1, /* size (0 = byte, 1 = short, 2 = long) */
1441 16, /* bitsize */
1442 TRUE, /* pc_relative */
1443 0, /* bitpos */
1444 complain_overflow_signed, /* complain_on_overflow */
1445 reloc_nil, /* special_function */
1446 "SREL16", /* name */
1447 TRUE, /* partial_inplace */
1448 0xffff, /* src_mask */
1449 0xffff, /* dst_mask */
1450 FALSE), /* pcrel_offset */
1452 /* 32 bit PC relative offset. */
1453 HOWTO (ALPHA_R_SREL32, /* type */
1454 0, /* rightshift */
1455 2, /* size (0 = byte, 1 = short, 2 = long) */
1456 32, /* bitsize */
1457 TRUE, /* pc_relative */
1458 0, /* bitpos */
1459 complain_overflow_signed, /* complain_on_overflow */
1460 reloc_nil, /* special_function */
1461 "SREL32", /* name */
1462 TRUE, /* partial_inplace */
1463 0xffffffff, /* src_mask */
1464 0xffffffff, /* dst_mask */
1465 FALSE), /* pcrel_offset */
1467 /* A 64 bit PC relative offset. */
1468 HOWTO (ALPHA_R_SREL64, /* type */
1469 0, /* rightshift */
1470 4, /* size (0 = byte, 1 = short, 2 = long) */
1471 64, /* bitsize */
1472 TRUE, /* pc_relative */
1473 0, /* bitpos */
1474 complain_overflow_signed, /* complain_on_overflow */
1475 reloc_nil, /* special_function */
1476 "SREL64", /* name */
1477 TRUE, /* partial_inplace */
1478 MINUS_ONE, /* src_mask */
1479 MINUS_ONE, /* dst_mask */
1480 FALSE), /* pcrel_offset */
1482 /* Push a value on the reloc evaluation stack. */
1483 HOWTO (ALPHA_R_OP_PUSH, /* type */
1484 0, /* rightshift */
1485 0, /* size (0 = byte, 1 = short, 2 = long) */
1486 0, /* bitsize */
1487 FALSE, /* pc_relative */
1488 0, /* bitpos */
1489 complain_overflow_dont, /* complain_on_overflow */
1490 reloc_nil, /* special_function */
1491 "OP_PUSH", /* name */
1492 FALSE, /* partial_inplace */
1493 0, /* src_mask */
1494 0, /* dst_mask */
1495 FALSE), /* pcrel_offset */
1497 /* Store the value from the stack at the given address. Store it in
1498 a bitfield of size r_size starting at bit position r_offset. */
1499 HOWTO (ALPHA_R_OP_STORE, /* type */
1500 0, /* rightshift */
1501 4, /* size (0 = byte, 1 = short, 2 = long) */
1502 64, /* bitsize */
1503 FALSE, /* pc_relative */
1504 0, /* bitpos */
1505 complain_overflow_dont, /* complain_on_overflow */
1506 reloc_nil, /* special_function */
1507 "OP_STORE", /* name */
1508 FALSE, /* partial_inplace */
1509 0, /* src_mask */
1510 MINUS_ONE, /* dst_mask */
1511 FALSE), /* pcrel_offset */
1513 /* Subtract the reloc address from the value on the top of the
1514 relocation stack. */
1515 HOWTO (ALPHA_R_OP_PSUB, /* type */
1516 0, /* rightshift */
1517 0, /* size (0 = byte, 1 = short, 2 = long) */
1518 0, /* bitsize */
1519 FALSE, /* pc_relative */
1520 0, /* bitpos */
1521 complain_overflow_dont, /* complain_on_overflow */
1522 reloc_nil, /* special_function */
1523 "OP_PSUB", /* name */
1524 FALSE, /* partial_inplace */
1525 0, /* src_mask */
1526 0, /* dst_mask */
1527 FALSE), /* pcrel_offset */
1529 /* Shift the value on the top of the relocation stack right by the
1530 given value. */
1531 HOWTO (ALPHA_R_OP_PRSHIFT, /* type */
1532 0, /* rightshift */
1533 0, /* size (0 = byte, 1 = short, 2 = long) */
1534 0, /* bitsize */
1535 FALSE, /* pc_relative */
1536 0, /* bitpos */
1537 complain_overflow_dont, /* complain_on_overflow */
1538 reloc_nil, /* special_function */
1539 "OP_PRSHIFT", /* name */
1540 FALSE, /* partial_inplace */
1541 0, /* src_mask */
1542 0, /* dst_mask */
1543 FALSE), /* pcrel_offset */
1545 /* Hack. Linkage is done by linker. */
1546 HOWTO (ALPHA_R_LINKAGE, /* type */
1547 0, /* rightshift */
1548 8, /* size (0 = byte, 1 = short, 2 = long) */
1549 256, /* bitsize */
1550 FALSE, /* pc_relative */
1551 0, /* bitpos */
1552 complain_overflow_dont, /* complain_on_overflow */
1553 reloc_nil, /* special_function */
1554 "LINKAGE", /* name */
1555 FALSE, /* partial_inplace */
1556 0, /* src_mask */
1557 0, /* dst_mask */
1558 FALSE), /* pcrel_offset */
1560 /* A 32 bit reference to a symbol. */
1561 HOWTO (ALPHA_R_REFLONG, /* type */
1562 0, /* rightshift */
1563 2, /* size (0 = byte, 1 = short, 2 = long) */
1564 32, /* bitsize */
1565 FALSE, /* pc_relative */
1566 0, /* bitpos */
1567 complain_overflow_bitfield, /* complain_on_overflow */
1568 reloc_nil, /* special_function */
1569 "REFLONG", /* name */
1570 TRUE, /* partial_inplace */
1571 0xffffffff, /* src_mask */
1572 0xffffffff, /* dst_mask */
1573 FALSE), /* pcrel_offset */
1575 /* A 64 bit reference to a procedure, written as 32 bit value. */
1576 HOWTO (ALPHA_R_CODEADDR, /* type */
1577 0, /* rightshift */
1578 4, /* size (0 = byte, 1 = short, 2 = long) */
1579 64, /* bitsize */
1580 FALSE, /* pc_relative */
1581 0, /* bitpos */
1582 complain_overflow_signed,/* complain_on_overflow */
1583 reloc_nil, /* special_function */
1584 "CODEADDR", /* name */
1585 FALSE, /* partial_inplace */
1586 0xffffffff, /* src_mask */
1587 0xffffffff, /* dst_mask */
1588 FALSE), /* pcrel_offset */
1592 /* Return a pointer to a howto structure which, when invoked, will perform
1593 the relocation code on data from the architecture noted. */
1595 static const struct reloc_howto_struct *
1596 vms_bfd_reloc_type_lookup (abfd, code)
1597 bfd *abfd ATTRIBUTE_UNUSED;
1598 bfd_reloc_code_real_type code;
1600 int alpha_type;
1602 #if VMS_DEBUG
1603 vms_debug (1, "vms_bfd_reloc_type_lookup(%p, %d)\t", abfd, code);
1604 #endif
1606 switch (code)
1608 case BFD_RELOC_16: alpha_type = ALPHA_R_SREL16; break;
1609 case BFD_RELOC_32: alpha_type = ALPHA_R_REFLONG; break;
1610 case BFD_RELOC_64: alpha_type = ALPHA_R_REFQUAD; break;
1611 case BFD_RELOC_CTOR: alpha_type = ALPHA_R_REFQUAD; break;
1612 case BFD_RELOC_23_PCREL_S2: alpha_type = ALPHA_R_BRADDR; break;
1613 case BFD_RELOC_ALPHA_HINT: alpha_type = ALPHA_R_HINT; break;
1614 case BFD_RELOC_16_PCREL: alpha_type = ALPHA_R_SREL16; break;
1615 case BFD_RELOC_32_PCREL: alpha_type = ALPHA_R_SREL32; break;
1616 case BFD_RELOC_64_PCREL: alpha_type = ALPHA_R_SREL64; break;
1617 case BFD_RELOC_ALPHA_LINKAGE: alpha_type = ALPHA_R_LINKAGE; break;
1618 case BFD_RELOC_ALPHA_CODEADDR: alpha_type = ALPHA_R_CODEADDR; break;
1619 default:
1620 (*_bfd_error_handler) ("reloc (%d) is *UNKNOWN*", code);
1621 return (const struct reloc_howto_struct *) NULL;
1623 #if VMS_DEBUG
1624 vms_debug (2, "reloc is %s\n", alpha_howto_table[alpha_type].name);
1625 #endif
1626 return &alpha_howto_table[alpha_type];
1629 /*-- Part 4.7, writing an object file ---------------------------------------*/
1631 /* Set the architecture and machine type in BFD abfd to arch and mach.
1632 Find the correct pointer to a structure and insert it into the arch_info
1633 pointer. */
1635 static bfd_boolean
1636 vms_set_arch_mach (abfd, arch, mach)
1637 bfd *abfd;
1638 enum bfd_architecture arch ATTRIBUTE_UNUSED;
1639 unsigned long mach ATTRIBUTE_UNUSED;
1641 #if VMS_DEBUG
1642 vms_debug (1, "vms_set_arch_mach(%p, %d, %ld)\n", abfd, arch, mach);
1643 #endif
1644 abfd->arch_info = bfd_scan_arch("alpha");
1646 return TRUE;
1649 /* Sets the contents of the section section in BFD abfd to the data starting
1650 in memory at data. The data is written to the output section starting at
1651 offset offset for count bytes.
1653 Normally TRUE is returned, else FALSE. Possible error returns are:
1654 o bfd_error_no_contents - The output section does not have the
1655 SEC_HAS_CONTENTS attribute, so nothing can be written to it.
1656 o and some more too */
1658 static bfd_boolean
1659 vms_set_section_contents (abfd, section, location, offset, count)
1660 bfd *abfd;
1661 asection *section;
1662 const PTR location;
1663 file_ptr offset;
1664 bfd_size_type count;
1666 #if VMS_DEBUG
1667 vms_debug (1, "vms_set_section_contents(%p, sec %s, loc %p, off %ld, count %d)\n",
1668 abfd, section->name, location, (long int)offset, (int)count);
1669 vms_debug (2, "secraw %d, seccooked %d\n", (int)section->_raw_size, (int)section->_cooked_size);
1670 #endif
1671 return _bfd_save_vms_section(abfd, section, location, offset, count);
1674 /*-- Part 4.8, linker -------------------------------------------------------*/
1676 /* Get the size of the section headers. */
1678 static int
1679 vms_sizeof_headers (abfd, reloc)
1680 bfd *abfd ATTRIBUTE_UNUSED;
1681 bfd_boolean reloc ATTRIBUTE_UNUSED;
1683 #if VMS_DEBUG
1684 vms_debug (1, "vms_sizeof_headers(%p, %s)\n", abfd, (reloc)?"True":"False");
1685 #endif
1686 return 0;
1689 /* Provides default handling of relocation effort for back ends
1690 which can't be bothered to do it efficiently. */
1692 static bfd_byte *
1693 vms_bfd_get_relocated_section_contents (abfd, link_info, link_order, data,
1694 relocatable, symbols)
1695 bfd *abfd ATTRIBUTE_UNUSED;
1696 struct bfd_link_info *link_info ATTRIBUTE_UNUSED;
1697 struct bfd_link_order *link_order ATTRIBUTE_UNUSED;
1698 bfd_byte *data ATTRIBUTE_UNUSED;
1699 bfd_boolean relocatable ATTRIBUTE_UNUSED;
1700 asymbol **symbols ATTRIBUTE_UNUSED;
1702 #if VMS_DEBUG
1703 vms_debug (1, "vms_bfd_get_relocated_section_contents(%p, %p, %p, %p, %s, %p)\n",
1704 abfd, link_info, link_order, data, (relocatable)?"True":"False", symbols);
1705 #endif
1706 return 0;
1709 /* ??? */
1711 static bfd_boolean
1712 vms_bfd_relax_section (abfd, section, link_info, again)
1713 bfd *abfd ATTRIBUTE_UNUSED;
1714 asection *section ATTRIBUTE_UNUSED;
1715 struct bfd_link_info *link_info ATTRIBUTE_UNUSED;
1716 bfd_boolean *again ATTRIBUTE_UNUSED;
1718 #if VMS_DEBUG
1719 vms_debug (1, "vms_bfd_relax_section(%p, %s, %p, <ret>)\n",
1720 abfd, section->name, link_info);
1721 #endif
1722 return TRUE;
1725 static bfd_boolean
1726 vms_bfd_gc_sections (abfd, link_info)
1727 bfd *abfd ATTRIBUTE_UNUSED;
1728 struct bfd_link_info *link_info ATTRIBUTE_UNUSED;
1730 #if VMS_DEBUG
1731 vms_debug (1, "vms_bfd_gc_sections(%p, %p)\n", abfd, link_info);
1732 #endif
1733 return TRUE;
1736 static bfd_boolean
1737 vms_bfd_merge_sections (abfd, link_info)
1738 bfd *abfd ATTRIBUTE_UNUSED;
1739 struct bfd_link_info *link_info ATTRIBUTE_UNUSED;
1741 #if VMS_DEBUG
1742 vms_debug (1, "vms_bfd_merge_sections(%p, %p)\n", abfd, link_info);
1743 #endif
1744 return TRUE;
1747 /* Create a hash table for the linker. Different backends store
1748 different information in this table. */
1750 static struct bfd_link_hash_table *
1751 vms_bfd_link_hash_table_create (abfd)
1752 bfd *abfd ATTRIBUTE_UNUSED;
1754 #if VMS_DEBUG
1755 vms_debug (1, "vms_bfd_link_hash_table_create(%p)\n", abfd);
1756 #endif
1757 return 0;
1760 /* Free a linker hash table. */
1762 static void
1763 vms_bfd_link_hash_table_free (hash)
1764 struct bfd_link_hash_table *hash ATTRIBUTE_UNUSED;
1766 #if VMS_DEBUG
1767 vms_debug (1, "vms_bfd_link_hash_table_free(%p)\n", abfd);
1768 #endif
1771 /* Add symbols from this object file into the hash table. */
1773 static bfd_boolean
1774 vms_bfd_link_add_symbols (abfd, link_info)
1775 bfd *abfd ATTRIBUTE_UNUSED;
1776 struct bfd_link_info *link_info ATTRIBUTE_UNUSED;
1778 #if VMS_DEBUG
1779 vms_debug (1, "vms_bfd_link_add_symbols(%p, %p)\n", abfd, link_info);
1780 #endif
1781 return FALSE;
1784 /* Do a link based on the link_order structures attached to each
1785 section of the BFD. */
1787 static bfd_boolean
1788 vms_bfd_final_link (abfd, link_info)
1789 bfd *abfd ATTRIBUTE_UNUSED;
1790 struct bfd_link_info *link_info ATTRIBUTE_UNUSED;
1792 #if VMS_DEBUG
1793 vms_debug (1, "vms_bfd_final_link(%p, %p)\n", abfd, link_info);
1794 #endif
1795 return TRUE;
1798 /* Should this section be split up into smaller pieces during linking. */
1800 static bfd_boolean
1801 vms_bfd_link_split_section (abfd, section)
1802 bfd *abfd ATTRIBUTE_UNUSED;
1803 asection *section ATTRIBUTE_UNUSED;
1805 #if VMS_DEBUG
1806 vms_debug (1, "vms_bfd_link_split_section(%p, %s)\n", abfd, section->name);
1807 #endif
1808 return FALSE;
1811 /*-- Part 4.9, dynamic symbols and relocations ------------------------------*/
1813 /* Get the amount of memory required to hold the dynamic symbols. */
1815 static long
1816 vms_get_dynamic_symtab_upper_bound (abfd)
1817 bfd *abfd ATTRIBUTE_UNUSED;
1819 #if VMS_DEBUG
1820 vms_debug (1, "vms_get_dynamic_symtab_upper_bound(%p)\n", abfd);
1821 #endif
1822 return 0;
1825 static bfd_boolean
1826 vms_bfd_print_private_bfd_data (abfd, file)
1827 bfd *abfd ATTRIBUTE_UNUSED;
1828 void *file ATTRIBUTE_UNUSED;
1830 #if VMS_DEBUG
1831 vms_debug (1, "vms_bfd_print_private_bfd_data(%p)\n", abfd);
1832 #endif
1833 return 0;
1836 /* Read in the dynamic symbols. */
1838 static long
1839 vms_canonicalize_dynamic_symtab (abfd, symbols)
1840 bfd *abfd ATTRIBUTE_UNUSED;
1841 asymbol **symbols ATTRIBUTE_UNUSED;
1843 #if VMS_DEBUG
1844 vms_debug (1, "vms_canonicalize_dynamic_symtab(%p, <ret>)\n", abfd);
1845 #endif
1846 return 0L;
1849 /* Get the amount of memory required to hold the dynamic relocs. */
1851 static long
1852 vms_get_dynamic_reloc_upper_bound (abfd)
1853 bfd *abfd ATTRIBUTE_UNUSED;
1855 #if VMS_DEBUG
1856 vms_debug (1, "vms_get_dynamic_reloc_upper_bound(%p)\n", abfd);
1857 #endif
1858 return 0L;
1861 /* Read in the dynamic relocs. */
1863 static long
1864 vms_canonicalize_dynamic_reloc (abfd, arel, symbols)
1865 bfd *abfd ATTRIBUTE_UNUSED;
1866 arelent **arel ATTRIBUTE_UNUSED;
1867 asymbol **symbols ATTRIBUTE_UNUSED;
1869 #if VMS_DEBUG
1870 vms_debug (1, "vms_canonicalize_dynamic_reloc(%p)\n", abfd);
1871 #endif
1872 return 0L;