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