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