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