1 /* vms.c -- BFD back-end for EVAX (openVMS/Alpha) files.
2 Copyright 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
3 2006, 2007, 2008, 2009, 2010, 2011 Free Software Foundation, Inc.
5 Initial version written by Klaus Kaempf (kkaempf@rmi.de)
6 Major rewrite by Adacore.
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.
13 This program is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
18 You should have received a copy of the GNU General Public License
19 along with this program; if not, write to the Free Software
20 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
21 MA 02110-1301, USA. */
26 o Generation of shared image
27 o Relocation optimizations
33 o protected sections (for messages)
51 #include "vms/eihvn.h"
52 #include "vms/eobjrec.h"
55 #include "vms/esgps.h"
64 #include "vms/esdfm.h"
65 #include "vms/esdfv.h"
71 #include "vms/internal.h"
74 #define MIN(a,b) ((a) < (b) ? (a) : (b))
76 /* The r_type field in a reloc is one of the following values. */
77 #define ALPHA_R_IGNORE 0
78 #define ALPHA_R_REFQUAD 1
79 #define ALPHA_R_BRADDR 2
80 #define ALPHA_R_HINT 3
81 #define ALPHA_R_SREL16 4
82 #define ALPHA_R_SREL32 5
83 #define ALPHA_R_SREL64 6
84 #define ALPHA_R_OP_PUSH 7
85 #define ALPHA_R_OP_STORE 8
86 #define ALPHA_R_OP_PSUB 9
87 #define ALPHA_R_OP_PRSHIFT 10
88 #define ALPHA_R_LINKAGE 11
89 #define ALPHA_R_REFLONG 12
90 #define ALPHA_R_CODEADDR 13
91 #define ALPHA_R_NOP 14
92 #define ALPHA_R_BSR 15
93 #define ALPHA_R_LDA 16
94 #define ALPHA_R_BOH 17
96 /* These are used with DST_S_C_LINE_NUM. */
97 #define DST_S_C_LINE_NUM_HEADER_SIZE 4
99 /* These are used with DST_S_C_SOURCE */
101 #define DST_S_B_PCLINE_UNSBYTE 1
102 #define DST_S_W_PCLINE_UNSWORD 1
103 #define DST_S_L_PCLINE_UNSLONG 1
105 #define DST_S_B_MODBEG_NAME 14
106 #define DST_S_L_RTNBEG_ADDRESS 5
107 #define DST_S_B_RTNBEG_NAME 13
108 #define DST_S_L_RTNEND_SIZE 5
110 /* These are used with DST_S_C_SOURCE. */
111 #define DST_S_C_SOURCE_HEADER_SIZE 4
113 #define DST_S_B_SRC_DF_LENGTH 1
114 #define DST_S_W_SRC_DF_FILEID 3
115 #define DST_S_B_SRC_DF_FILENAME 20
116 #define DST_S_B_SRC_UNSBYTE 1
117 #define DST_S_W_SRC_UNSWORD 1
118 #define DST_S_L_SRC_UNSLONG 1
120 /* Debugger symbol definitions. */
122 #define DBG_S_L_DMT_MODBEG 0
123 #define DBG_S_L_DST_SIZE 4
124 #define DBG_S_W_DMT_PSECT_COUNT 8
125 #define DBG_S_C_DMT_HEADER_SIZE 12
127 #define DBG_S_L_DMT_PSECT_START 0
128 #define DBG_S_L_DMT_PSECT_LENGTH 4
129 #define DBG_S_C_DMT_PSECT_SIZE 8
131 /* VMS module header. */
147 #define EMH_DATE_LENGTH 17
149 /* VMS End-Of-Module records (EOM/EEOM). */
153 unsigned int eom_l_total_lps
;
154 unsigned short eom_w_comcod
;
155 bfd_boolean eom_has_transfer
;
156 unsigned char eom_b_tfrflg
;
157 unsigned int eom_l_psindx
;
158 unsigned int eom_l_tfradr
;
161 struct vms_symbol_entry
167 unsigned char data_type
;
168 unsigned short flags
;
170 /* Section and offset/value of the symbol. */
174 /* Section and offset/value for the entry point (only for subprg). */
175 asection
*code_section
;
176 unsigned int code_value
;
178 /* Symbol vector offset. */
179 unsigned int symbol_vector
;
181 /* Length of the name. */
182 unsigned char namelen
;
187 /* Stack value for push/pop commands. */
195 #define STACKSIZE 128
197 /* A minimal decoding of DST compilation units. We only decode
198 what's needed to get to the line number information. */
208 struct srecinfo
*next
;
216 struct lineinfo
*next
;
223 struct funcinfo
*next
;
231 /* Chain the previously read compilation unit. */
234 /* The module name. */
237 /* The start offset and size of debug info in the DST section. */
241 /* The lowest and highest addresses contained in this compilation
242 unit as specified in the compilation unit header. */
246 /* The listing line table. */
247 struct lineinfo
*line_table
;
249 /* The source record table. */
250 struct srecinfo
*srec_table
;
252 /* A list of the functions found in this module. */
253 struct funcinfo
*func_table
;
255 /* Current allocation of file_table. */
256 unsigned int file_table_count
;
258 /* An array of the files making up this module. */
259 struct fileinfo
*file_table
;
262 /* BFD private data for alpha-vms. */
264 struct vms_private_data_struct
266 /* If true, relocs have been read. */
267 bfd_boolean reloc_done
;
269 /* Record input buffer. */
270 struct vms_rec_rd recrd
;
271 struct vms_rec_wr recwr
;
273 struct hdr_struct hdr_data
; /* data from HDR/EMH record */
274 struct eom_struct eom_data
; /* data from EOM/EEOM record */
276 /* Transfer addresses (entry points). */
277 bfd_vma transfer_address
[4];
279 /* Array of GSD sections to get the correspond BFD one. */
280 unsigned int section_max
; /* Size of the sections array. */
281 unsigned int section_count
; /* Number of GSD sections. */
284 /* Array of raw symbols. */
285 struct vms_symbol_entry
**syms
;
287 /* Canonicalized symbols. */
290 /* Number of symbols. */
291 unsigned int gsd_sym_count
;
292 /* Size of the syms array. */
293 unsigned int max_sym_count
;
294 /* Number of procedure symbols. */
295 unsigned int norm_sym_count
;
297 /* Stack used to evaluate TIR/ETIR commands. */
298 struct stack_struct
*stack
;
301 /* Content reading. */
302 asection
*image_section
; /* section for image_ptr */
303 file_ptr image_offset
; /* Offset for image_ptr. */
305 struct module
*modules
; /* list of all compilation units */
307 /* The DST section. */
308 asection
*dst_section
;
310 unsigned int dst_ptr_offsets_count
; /* # of offsets in following array */
311 unsigned int *dst_ptr_offsets
; /* array of saved image_ptr offsets */
313 /* Shared library support */
314 bfd_vma symvva
; /* relative virtual address of symbol vector */
316 unsigned char matchctl
;
318 /* Shared library index. This is used for input bfd while linking. */
319 unsigned int shr_index
;
321 /* Used to place structures in the file. */
324 /* Simply linked list of eisd. */
325 struct vms_internal_eisd_map
*eisd_head
;
326 struct vms_internal_eisd_map
*eisd_tail
;
328 /* Simply linked list of eisd for shared libraries. */
329 struct vms_internal_eisd_map
*gbl_eisd_head
;
330 struct vms_internal_eisd_map
*gbl_eisd_tail
;
332 /* linkage index counter used by conditional store commands */
333 int vms_linkage_index
;
335 /* see tc-alpha.c of gas for a description. */
336 int flag_hash_long_names
; /* -+, hash instead of truncate */
337 int flag_show_after_trunc
; /* -H, show hashing/truncation */
340 #define PRIV2(abfd, name) \
341 (((struct vms_private_data_struct *)(abfd)->tdata.any)->name)
342 #define PRIV(name) PRIV2(abfd,name)
345 /* Used to keep extra VMS specific information for a given section.
347 reloc_size holds the size of the relocation stream, note this
348 is very different from the number of relocations as VMS relocations
351 reloc_stream is the actual stream of relocation entries. */
353 struct vms_section_data_struct
355 /* Maximnum number of entries in sec->relocation. */
358 /* Corresponding eisd. Used only while generating executables. */
359 struct vms_internal_eisd_map
*eisd
;
361 /* PSC flags to be clear. */
364 /* PSC flags to be set. */
368 #define vms_section_data(sec) \
369 ((struct vms_section_data_struct *)sec->used_by_bfd)
371 /* To be called from the debugger. */
372 struct vms_private_data_struct
*bfd_vms_get_data (bfd
*abfd
);
374 static int vms_get_remaining_object_record (bfd
*abfd
, int read_so_far
);
375 static bfd_boolean
_bfd_vms_slurp_object_records (bfd
* abfd
);
376 static void alpha_vms_add_fixup_lp (struct bfd_link_info
*, bfd
*, bfd
*);
377 static void alpha_vms_add_fixup_ca (struct bfd_link_info
*, bfd
*, bfd
*);
378 static void alpha_vms_add_fixup_qr (struct bfd_link_info
*, bfd
*, bfd
*,
380 static void alpha_vms_add_fixup_lr (struct bfd_link_info
*, unsigned int,
382 static void alpha_vms_add_lw_reloc (struct bfd_link_info
*info
);
383 static void alpha_vms_add_qw_reloc (struct bfd_link_info
*info
);
392 /* Number of elements in VEC. */
394 #define VEC_COUNT(VEC) ((VEC).nbr_el)
396 /* Get the address of the Nth element. */
398 #define VEC_EL(VEC, TYPE, N) (((TYPE *)((VEC).els))[N])
400 #define VEC_INIT(VEC) \
407 /* Be sure there is room for a new element. */
409 static void vector_grow1 (struct vector_type
*vec
, size_t elsz
);
411 /* Allocate room for a new element and return its address. */
413 #define VEC_APPEND(VEC, TYPE) \
414 (vector_grow1 (&VEC, sizeof (TYPE)), &VEC_EL(VEC, TYPE, (VEC).nbr_el++))
416 /* Append an element. */
418 #define VEC_APPEND_EL(VEC, TYPE, EL) \
419 (*(VEC_APPEND (VEC, TYPE)) = EL)
421 struct alpha_vms_vma_ref
423 bfd_vma vma
; /* Vma in the output. */
424 bfd_vma ref
; /* Reference in the input. */
427 struct alpha_vms_shlib_el
430 bfd_boolean has_fixups
;
432 struct vector_type lp
; /* Vector of bfd_vma. */
433 struct vector_type ca
; /* Vector of bfd_vma. */
434 struct vector_type qr
; /* Vector of struct alpha_vms_vma_ref. */
437 /* Alpha VMS linker hash table. */
439 struct alpha_vms_link_hash_table
441 struct bfd_link_hash_table root
;
443 /* Vector of shared libraries. */
444 struct vector_type shrlibs
;
449 /* Base address. Used by fixups. */
453 #define alpha_vms_link_hash(INFO) \
454 ((struct alpha_vms_link_hash_table *)(INFO->hash))
456 /* Alpha VMS linker hash table entry. */
458 struct alpha_vms_link_hash_entry
460 struct bfd_link_hash_entry root
;
462 /* Pointer to the original vms symbol. */
463 struct vms_symbol_entry
*sym
;
468 /* Read & process EIHD record.
469 Return TRUE on success, FALSE on error. */
472 _bfd_vms_slurp_eihd (bfd
*abfd
, unsigned int *eisd_offset
,
473 unsigned int *eihs_offset
)
475 unsigned int imgtype
, size
;
477 struct vms_eihd
*eihd
= (struct vms_eihd
*)PRIV (recrd
.rec
);
479 vms_debug2 ((8, "_bfd_vms_slurp_eihd\n"));
481 size
= bfd_getl32 (eihd
->size
);
482 imgtype
= bfd_getl32 (eihd
->imgtype
);
484 if (imgtype
== EIHD__K_EXE
|| imgtype
== EIHD__K_LIM
)
485 abfd
->flags
|= EXEC_P
;
487 symvva
= bfd_getl64 (eihd
->symvva
);
490 PRIV (symvva
) = symvva
;
491 abfd
->flags
|= DYNAMIC
;
494 PRIV (ident
) = bfd_getl32 (eihd
->ident
);
495 PRIV (matchctl
) = eihd
->matchctl
;
497 *eisd_offset
= bfd_getl32 (eihd
->isdoff
);
498 *eihs_offset
= bfd_getl32 (eihd
->symdbgoff
);
500 vms_debug2 ((4, "EIHD size %d imgtype %d symvva 0x%lx eisd %d eihs %d\n",
501 size
, imgtype
, (unsigned long)symvva
,
502 *eisd_offset
, *eihs_offset
));
507 /* Read & process EISD record.
508 Return TRUE on success, FALSE on error. */
511 _bfd_vms_slurp_eisd (bfd
*abfd
, unsigned int offset
)
513 int section_count
= 0;
515 vms_debug2 ((8, "_bfd_vms_slurp_eisd\n"));
519 struct vms_eisd
*eisd
;
520 unsigned int rec_size
;
522 unsigned long long vaddr
;
529 eisd
= (struct vms_eisd
*)(PRIV (recrd
.rec
) + offset
);
530 rec_size
= bfd_getl32 (eisd
->eisdsize
);
535 /* Skip to next block if pad. */
536 if (rec_size
== 0xffffffff)
538 offset
= (offset
+ VMS_BLOCK_SIZE
) & ~(VMS_BLOCK_SIZE
- 1);
544 size
= bfd_getl32 (eisd
->secsize
);
545 vaddr
= bfd_getl64 (eisd
->virt_addr
);
546 flags
= bfd_getl32 (eisd
->flags
);
547 vbn
= bfd_getl32 (eisd
->vbn
);
549 vms_debug2 ((4, "EISD at 0x%x size 0x%x addr 0x%lx flags 0x%x blk %d\n",
550 offset
, size
, (unsigned long)vaddr
, flags
, vbn
));
552 /* VMS combines psects from .obj files into isects in the .exe. This
553 process doesn't preserve enough information to reliably determine
554 what's in each section without examining the data. This is
555 especially true of DWARF debug sections. */
556 bfd_flags
= SEC_ALLOC
;
558 bfd_flags
|= SEC_HAS_CONTENTS
| SEC_LOAD
;
560 if (flags
& EISD__M_EXE
)
561 bfd_flags
|= SEC_CODE
;
563 if (flags
& EISD__M_NONSHRADR
)
564 bfd_flags
|= SEC_DATA
;
566 if (!(flags
& EISD__M_WRT
))
567 bfd_flags
|= SEC_READONLY
;
569 if (flags
& EISD__M_DZRO
)
570 bfd_flags
|= SEC_DATA
;
572 if (flags
& EISD__M_FIXUPVEC
)
573 bfd_flags
|= SEC_DATA
;
575 if (flags
& EISD__M_CRF
)
576 bfd_flags
|= SEC_DATA
;
578 if (flags
& EISD__M_GBL
)
580 name
= _bfd_vms_save_counted_string (eisd
->gblnam
);
581 bfd_flags
|= SEC_COFF_SHARED_LIBRARY
;
582 bfd_flags
&= ~(SEC_ALLOC
| SEC_LOAD
);
584 else if (flags
& EISD__M_FIXUPVEC
)
586 else if (eisd
->type
== EISD__K_USRSTACK
)
592 name
= (char*) bfd_alloc (abfd
, 32);
593 if (flags
& EISD__M_DZRO
)
595 else if (flags
& EISD__M_EXE
)
597 else if (!(flags
& EISD__M_WRT
))
601 BFD_ASSERT (section_count
< 999);
602 sprintf (name
, "$%s_%03d$", pfx
, section_count
++);
605 section
= bfd_make_section (abfd
, name
);
610 section
->filepos
= vbn
? VMS_BLOCK_SIZE
* (vbn
- 1) : 0;
611 section
->size
= size
;
612 section
->vma
= vaddr
;
614 if (!bfd_set_section_flags (abfd
, section
, bfd_flags
))
621 /* Read & process EIHS record.
622 Return TRUE on success, FALSE on error. */
625 _bfd_vms_slurp_eihs (bfd
*abfd
, unsigned int offset
)
627 unsigned char *p
= PRIV (recrd
.rec
) + offset
;
628 unsigned int gstvbn
= bfd_getl32 (p
+ EIHS__L_GSTVBN
);
629 unsigned int gstsize ATTRIBUTE_UNUSED
= bfd_getl32 (p
+ EIHS__L_GSTSIZE
);
630 unsigned int dstvbn
= bfd_getl32 (p
+ EIHS__L_DSTVBN
);
631 unsigned int dstsize
= bfd_getl32 (p
+ EIHS__L_DSTSIZE
);
632 unsigned int dmtvbn
= bfd_getl32 (p
+ EIHS__L_DMTVBN
);
633 unsigned int dmtbytes
= bfd_getl32 (p
+ EIHS__L_DMTBYTES
);
637 vms_debug (8, "_bfd_vms_slurp_ihs\n");
638 vms_debug (4, "EIHS record gstvbn %d gstsize %d dstvbn %d dstsize %d dmtvbn %d dmtbytes %d\n",
639 gstvbn
, gstsize
, dstvbn
, dstsize
, dmtvbn
, dmtbytes
);
644 flagword bfd_flags
= SEC_HAS_CONTENTS
| SEC_DEBUGGING
;
646 section
= bfd_make_section (abfd
, "$DST$");
650 section
->size
= dstsize
;
651 section
->filepos
= VMS_BLOCK_SIZE
* (dstvbn
- 1);
653 if (!bfd_set_section_flags (abfd
, section
, bfd_flags
))
656 PRIV (dst_section
) = section
;
657 abfd
->flags
|= (HAS_DEBUG
| HAS_LINENO
);
662 flagword bfd_flags
= SEC_HAS_CONTENTS
| SEC_DEBUGGING
;
664 section
= bfd_make_section (abfd
, "$DMT$");
668 section
->size
= dmtbytes
;
669 section
->filepos
= VMS_BLOCK_SIZE
* (dmtvbn
- 1);
671 if (!bfd_set_section_flags (abfd
, section
, bfd_flags
))
677 if (bfd_seek (abfd
, VMS_BLOCK_SIZE
* (gstvbn
- 1), SEEK_SET
))
679 bfd_set_error (bfd_error_file_truncated
);
683 if (_bfd_vms_slurp_object_records (abfd
) != TRUE
)
686 abfd
->flags
|= HAS_SYMS
;
692 /* Object file reading. */
694 /* Object file input functions. */
696 /* Get next record from object file to vms_buf.
697 Set PRIV(buf_size) and return it
699 This is a little tricky since it should be portable.
701 The openVMS object file has 'variable length' which means that
702 read() returns data in chunks of (hopefully) correct and expected
703 size. The linker (and other tools on VMS) depend on that. Unix
704 doesn't know about 'formatted' files, so reading and writing such
705 an object file in a Unix environment is not trivial.
707 With the tool 'file' (available on all VMS FTP sites), one
708 can view and change the attributes of a file. Changing from
709 'variable length' to 'fixed length, 512 bytes' reveals the
710 record size at the first 2 bytes of every record. The same
711 may happen during the transfer of object files from VMS to Unix,
712 at least with UCX, the DEC implementation of TCP/IP.
714 The VMS format repeats the size at bytes 2 & 3 of every record.
716 On the first call (file_format == FF_UNKNOWN) we check if
717 the first and the third byte pair (!) of the record match.
718 If they do it's an object file in an Unix environment or with
719 wrong attributes (FF_FOREIGN), else we should be in a VMS
720 environment where read() returns the record size (FF_NATIVE).
722 Reading is always done in 2 steps:
723 1. first just the record header is read and the size extracted,
724 2. then the read buffer is adjusted and the remaining bytes are
727 All file I/O is done on even file positions. */
729 #define VMS_OBJECT_ADJUSTMENT 2
732 maybe_adjust_record_pointer_for_object (bfd
*abfd
)
734 /* Set the file format once for all on the first invocation. */
735 if (PRIV (recrd
.file_format
) == FF_UNKNOWN
)
737 if (PRIV (recrd
.rec
)[0] == PRIV (recrd
.rec
)[4]
738 && PRIV (recrd
.rec
)[1] == PRIV (recrd
.rec
)[5])
739 PRIV (recrd
.file_format
) = FF_FOREIGN
;
741 PRIV (recrd
.file_format
) = FF_NATIVE
;
744 /* The adjustment is needed only in an Unix environment. */
745 if (PRIV (recrd
.file_format
) == FF_FOREIGN
)
746 PRIV (recrd
.rec
) += VMS_OBJECT_ADJUSTMENT
;
749 /* Implement step #1 of the object record reading procedure.
750 Return the record type or -1 on failure. */
753 _bfd_vms_get_object_record (bfd
*abfd
)
755 unsigned int test_len
= 6;
758 vms_debug2 ((8, "_bfd_vms_get_obj_record\n"));
760 /* Skip alignment byte if the current position is odd. */
761 if (PRIV (recrd
.file_format
) == FF_FOREIGN
&& (bfd_tell (abfd
) & 1))
763 if (bfd_bread (PRIV (recrd
.buf
), 1, abfd
) != 1)
765 bfd_set_error (bfd_error_file_truncated
);
770 /* Read the record header */
771 if (bfd_bread (PRIV (recrd
.buf
), test_len
, abfd
) != test_len
)
773 bfd_set_error (bfd_error_file_truncated
);
777 /* Reset the record pointer. */
778 PRIV (recrd
.rec
) = PRIV (recrd
.buf
);
779 maybe_adjust_record_pointer_for_object (abfd
);
781 if (vms_get_remaining_object_record (abfd
, test_len
) <= 0)
784 type
= bfd_getl16 (PRIV (recrd
.rec
));
786 vms_debug2 ((8, "_bfd_vms_get_obj_record: rec %p, size %d, type %d\n",
787 PRIV (recrd
.rec
), PRIV (recrd
.rec_size
), type
));
792 /* Implement step #2 of the object record reading procedure.
793 Return the size of the record or 0 on failure. */
796 vms_get_remaining_object_record (bfd
*abfd
, int read_so_far
)
798 unsigned int to_read
;
800 vms_debug2 ((8, "vms_get_remaining_obj_record\n"));
802 /* Extract record size. */
803 PRIV (recrd
.rec_size
) = bfd_getl16 (PRIV (recrd
.rec
) + 2);
805 if (PRIV (recrd
.rec_size
) == 0)
807 bfd_set_error (bfd_error_file_truncated
);
811 /* That's what the linker manual says. */
812 if (PRIV (recrd
.rec_size
) > EOBJ__C_MAXRECSIZ
)
814 bfd_set_error (bfd_error_file_truncated
);
818 /* Take into account object adjustment. */
819 to_read
= PRIV (recrd
.rec_size
);
820 if (PRIV (recrd
.file_format
) == FF_FOREIGN
)
821 to_read
+= VMS_OBJECT_ADJUSTMENT
;
823 /* Adjust the buffer. */
824 if (to_read
> PRIV (recrd
.buf_size
))
827 = (unsigned char *) bfd_realloc (PRIV (recrd
.buf
), to_read
);
828 if (PRIV (recrd
.buf
) == NULL
)
830 PRIV (recrd
.buf_size
) = to_read
;
833 /* Read the remaining record. */
834 to_read
-= read_so_far
;
836 vms_debug2 ((8, "vms_get_remaining_obj_record: to_read %d\n", to_read
));
838 if (bfd_bread (PRIV (recrd
.buf
) + read_so_far
, to_read
, abfd
) != to_read
)
840 bfd_set_error (bfd_error_file_truncated
);
844 /* Reset the record pointer. */
845 PRIV (recrd
.rec
) = PRIV (recrd
.buf
);
846 maybe_adjust_record_pointer_for_object (abfd
);
848 vms_debug2 ((8, "vms_get_remaining_obj_record: size %d\n",
849 PRIV (recrd
.rec_size
)));
851 return PRIV (recrd
.rec_size
);
854 /* Read and process emh record.
855 Return TRUE on success, FALSE on error. */
858 _bfd_vms_slurp_ehdr (bfd
*abfd
)
861 unsigned char *vms_rec
;
864 vms_rec
= PRIV (recrd
.rec
);
866 vms_debug2 ((2, "HDR/EMH\n"));
868 subtype
= bfd_getl16 (vms_rec
+ 4);
870 vms_debug2 ((3, "subtype %d\n", subtype
));
876 PRIV (hdr_data
).hdr_b_strlvl
= vms_rec
[6];
877 PRIV (hdr_data
).hdr_l_arch1
= bfd_getl32 (vms_rec
+ 8);
878 PRIV (hdr_data
).hdr_l_arch2
= bfd_getl32 (vms_rec
+ 12);
879 PRIV (hdr_data
).hdr_l_recsiz
= bfd_getl32 (vms_rec
+ 16);
880 PRIV (hdr_data
).hdr_t_name
= _bfd_vms_save_counted_string (vms_rec
+ 20);
881 ptr
= vms_rec
+ 20 + vms_rec
[20] + 1;
882 PRIV (hdr_data
).hdr_t_version
=_bfd_vms_save_counted_string (ptr
);
884 PRIV (hdr_data
).hdr_t_date
= _bfd_vms_save_sized_string (ptr
, 17);
888 PRIV (hdr_data
).hdr_c_lnm
=
889 _bfd_vms_save_sized_string (vms_rec
, PRIV (recrd
.rec_size
- 6));
893 PRIV (hdr_data
).hdr_c_src
=
894 _bfd_vms_save_sized_string (vms_rec
, PRIV (recrd
.rec_size
- 6));
898 PRIV (hdr_data
).hdr_c_ttl
=
899 _bfd_vms_save_sized_string (vms_rec
, PRIV (recrd
.rec_size
- 6));
908 bfd_set_error (bfd_error_wrong_format
);
915 /* Typical sections for evax object files. */
917 #define EVAX_ABS_NAME "$ABS$"
918 #define EVAX_CODE_NAME "$CODE$"
919 #define EVAX_LINK_NAME "$LINK$"
920 #define EVAX_DATA_NAME "$DATA$"
921 #define EVAX_BSS_NAME "$BSS$"
922 #define EVAX_READONLYADDR_NAME "$READONLY_ADDR$"
923 #define EVAX_READONLY_NAME "$READONLY$"
924 #define EVAX_LITERAL_NAME "$LITERAL$"
925 #define EVAX_LITERALS_NAME "$LITERALS"
926 #define EVAX_COMMON_NAME "$COMMON$"
927 #define EVAX_LOCAL_NAME "$LOCAL$"
929 struct sec_flags_struct
931 const char *name
; /* Name of section. */
933 flagword flags_always
; /* Flags we set always. */
935 flagword flags_hassize
; /* Flags we set if the section has a size > 0. */
938 /* These flags are deccrtl/vaxcrtl (openVMS 6.2 Alpha) compatible. */
940 static const struct sec_flags_struct evax_section_flags
[] =
948 EGPS__V_PIC
| EGPS__V_REL
| EGPS__V_SHR
| EGPS__V_EXE
,
949 SEC_CODE
| SEC_READONLY
,
950 EGPS__V_PIC
| EGPS__V_REL
| EGPS__V_SHR
| EGPS__V_EXE
,
951 SEC_CODE
| SEC_READONLY
| SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_LOAD
},
953 EGPS__V_PIC
| EGPS__V_REL
| EGPS__V_SHR
| EGPS__V_RD
| EGPS__V_NOMOD
,
954 SEC_DATA
| SEC_READONLY
,
955 EGPS__V_PIC
| EGPS__V_REL
| EGPS__V_SHR
| EGPS__V_RD
,
956 SEC_DATA
| SEC_READONLY
| SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_LOAD
},
958 EGPS__V_REL
| EGPS__V_RD
,
959 SEC_DATA
| SEC_READONLY
,
960 EGPS__V_REL
| EGPS__V_RD
,
961 SEC_DATA
| SEC_READONLY
| SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_LOAD
},
963 EGPS__V_REL
| EGPS__V_RD
| EGPS__V_WRT
| EGPS__V_NOMOD
,
965 EGPS__V_REL
| EGPS__V_RD
| EGPS__V_WRT
,
966 SEC_DATA
| SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_LOAD
},
968 EGPS__V_REL
| EGPS__V_RD
| EGPS__V_WRT
| EGPS__V_NOMOD
,
970 EGPS__V_REL
| EGPS__V_RD
| EGPS__V_WRT
| EGPS__V_NOMOD
,
972 { EVAX_READONLYADDR_NAME
,
973 EGPS__V_PIC
| EGPS__V_REL
| EGPS__V_RD
,
974 SEC_DATA
| SEC_READONLY
,
975 EGPS__V_PIC
| EGPS__V_REL
| EGPS__V_RD
,
976 SEC_DATA
| SEC_READONLY
| SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_LOAD
},
977 { EVAX_READONLY_NAME
,
978 EGPS__V_PIC
| EGPS__V_REL
| EGPS__V_SHR
| EGPS__V_RD
| EGPS__V_NOMOD
,
979 SEC_DATA
| SEC_READONLY
,
980 EGPS__V_PIC
| EGPS__V_REL
| EGPS__V_SHR
| EGPS__V_RD
,
981 SEC_DATA
| SEC_READONLY
| SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_LOAD
},
983 EGPS__V_REL
| EGPS__V_RD
| EGPS__V_WRT
,
985 EGPS__V_REL
| EGPS__V_RD
| EGPS__V_WRT
,
986 SEC_DATA
| SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_LOAD
},
987 { EVAX_LITERALS_NAME
,
988 EGPS__V_PIC
| EGPS__V_OVR
,
989 SEC_DATA
| SEC_READONLY
,
990 EGPS__V_PIC
| EGPS__V_OVR
,
991 SEC_DATA
| SEC_READONLY
| SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_LOAD
},
993 EGPS__V_REL
| EGPS__V_RD
| EGPS__V_WRT
,
995 EGPS__V_REL
| EGPS__V_RD
| EGPS__V_WRT
,
996 SEC_DATA
| SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_LOAD
}
999 /* Retrieve BFD section flags by name and size. */
1002 vms_secflag_by_name (const struct sec_flags_struct
*section_flags
,
1008 while (section_flags
[i
].name
!= NULL
)
1010 if (strcmp (name
, section_flags
[i
].name
) == 0)
1013 return section_flags
[i
].flags_hassize
;
1015 return section_flags
[i
].flags_always
;
1020 return section_flags
[i
].flags_hassize
;
1021 return section_flags
[i
].flags_always
;
1024 /* Retrieve VMS section flags by name and size. */
1027 vms_esecflag_by_name (const struct sec_flags_struct
*section_flags
,
1033 while (section_flags
[i
].name
!= NULL
)
1035 if (strcmp (name
, section_flags
[i
].name
) == 0)
1038 return section_flags
[i
].vflags_hassize
;
1040 return section_flags
[i
].vflags_always
;
1045 return section_flags
[i
].vflags_hassize
;
1046 return section_flags
[i
].vflags_always
;
1049 /* Add SYM to the symbol table of ABFD.
1050 Return FALSE in case of error. */
1053 add_symbol_entry (bfd
*abfd
, struct vms_symbol_entry
*sym
)
1055 if (PRIV (gsd_sym_count
) >= PRIV (max_sym_count
))
1057 if (PRIV (max_sym_count
) == 0)
1059 PRIV (max_sym_count
) = 128;
1060 PRIV (syms
) = bfd_malloc
1061 (PRIV (max_sym_count
) * sizeof (struct vms_symbol_entry
*));
1065 PRIV (max_sym_count
) *= 2;
1066 PRIV (syms
) = bfd_realloc
1068 (PRIV (max_sym_count
) * sizeof (struct vms_symbol_entry
*)));
1070 if (PRIV (syms
) == NULL
)
1074 PRIV (syms
)[PRIV (gsd_sym_count
)++] = sym
;
1078 /* Create a symbol whose name is ASCIC and add it to ABFD.
1079 Return NULL in case of error. */
1081 static struct vms_symbol_entry
*
1082 add_symbol (bfd
*abfd
, const unsigned char *ascic
)
1084 struct vms_symbol_entry
*entry
;
1088 entry
= (struct vms_symbol_entry
*)bfd_zalloc (abfd
, sizeof (*entry
) + len
);
1091 entry
->namelen
= len
;
1092 memcpy (entry
->name
, ascic
, len
);
1093 entry
->name
[len
] = 0;
1094 entry
->owner
= abfd
;
1096 if (!add_symbol_entry (abfd
, entry
))
1101 /* Read and process EGSD. Return FALSE on failure. */
1104 _bfd_vms_slurp_egsd (bfd
*abfd
)
1106 int gsd_type
, gsd_size
;
1107 unsigned char *vms_rec
;
1108 unsigned long base_addr
;
1110 vms_debug2 ((2, "EGSD\n"));
1112 PRIV (recrd
.rec
) += 8; /* Skip type, size, align pad. */
1113 PRIV (recrd
.rec_size
) -= 8;
1115 /* Calculate base address for each section. */
1118 while (PRIV (recrd
.rec_size
) > 0)
1120 vms_rec
= PRIV (recrd
.rec
);
1122 gsd_type
= bfd_getl16 (vms_rec
);
1123 gsd_size
= bfd_getl16 (vms_rec
+ 2);
1125 vms_debug2 ((3, "egsd_type %d\n", gsd_type
));
1130 /* Program section definition. */
1132 struct vms_egps
*egps
= (struct vms_egps
*)vms_rec
;
1133 flagword new_flags
, vms_flags
;
1136 vms_flags
= bfd_getl16 (egps
->flags
);
1138 if ((vms_flags
& EGPS__V_REL
) == 0)
1140 /* Use the global absolute section for all
1141 absolute sections. */
1142 section
= bfd_abs_section_ptr
;
1147 unsigned long align_addr
;
1149 name
= _bfd_vms_save_counted_string (&egps
->namlng
);
1151 section
= bfd_make_section (abfd
, name
);
1155 section
->filepos
= 0;
1156 section
->size
= bfd_getl32 (egps
->alloc
);
1157 section
->alignment_power
= egps
->align
;
1159 vms_section_data (section
)->flags
= vms_flags
;
1160 vms_section_data (section
)->no_flags
= 0;
1162 new_flags
= vms_secflag_by_name (evax_section_flags
, name
,
1164 if (section
->size
> 0)
1165 new_flags
|= SEC_LOAD
;
1166 if (!(vms_flags
& EGPS__V_NOMOD
) && section
->size
> 0)
1168 /* Set RELOC and HAS_CONTENTS if the section is not
1169 demand-zero and not empty. */
1170 new_flags
|= SEC_HAS_CONTENTS
;
1171 if (vms_flags
& EGPS__V_REL
)
1172 new_flags
|= SEC_RELOC
;
1174 if (vms_flags
& EGPS__V_EXE
)
1176 /* Set CODE if section is executable. */
1177 new_flags
|= SEC_CODE
;
1178 new_flags
&= ~SEC_DATA
;
1180 if (!bfd_set_section_flags (abfd
, section
, new_flags
))
1183 /* Give a non-overlapping vma to non absolute sections. */
1184 align_addr
= (1 << section
->alignment_power
);
1185 if ((base_addr
% align_addr
) != 0)
1186 base_addr
+= (align_addr
- (base_addr
% align_addr
));
1187 section
->vma
= (bfd_vma
)base_addr
;
1188 base_addr
+= section
->size
;
1191 /* Append it to the section array. */
1192 if (PRIV (section_count
) >= PRIV (section_max
))
1194 if (PRIV (section_max
) == 0)
1195 PRIV (section_max
) = 16;
1197 PRIV (section_max
) *= 2;
1198 PRIV (sections
) = bfd_realloc_or_free
1199 (PRIV (sections
), PRIV (section_max
) * sizeof (asection
*));
1200 if (PRIV (sections
) == NULL
)
1204 PRIV (sections
)[PRIV (section_count
)] = section
;
1205 PRIV (section_count
)++;
1212 struct vms_symbol_entry
*entry
;
1213 struct vms_egsy
*egsy
= (struct vms_egsy
*) vms_rec
;
1216 old_flags
= bfd_getl16 (egsy
->flags
);
1217 if (old_flags
& EGSY__V_DEF
)
1218 nameoff
= ESDF__B_NAMLNG
;
1220 nameoff
= ESRF__B_NAMLNG
;
1222 entry
= add_symbol (abfd
, vms_rec
+ nameoff
);
1226 /* Allow only duplicate reference. */
1227 if ((entry
->flags
& EGSY__V_DEF
) && (old_flags
& EGSY__V_DEF
))
1230 if (entry
->typ
== 0)
1232 entry
->typ
= gsd_type
;
1233 entry
->data_type
= egsy
->datyp
;
1234 entry
->flags
= old_flags
;
1237 if (old_flags
& EGSY__V_DEF
)
1239 struct vms_esdf
*esdf
= (struct vms_esdf
*)vms_rec
;
1241 entry
->value
= bfd_getl64 (esdf
->value
);
1242 entry
->section
= PRIV (sections
)[bfd_getl32 (esdf
->psindx
)];
1244 if (old_flags
& EGSY__V_NORM
)
1246 PRIV (norm_sym_count
)++;
1248 entry
->code_value
= bfd_getl64 (esdf
->code_address
);
1249 entry
->code_section
=
1250 PRIV (sections
)[bfd_getl32 (esdf
->ca_psindx
)];
1258 struct vms_symbol_entry
*entry
;
1259 struct vms_egst
*egst
= (struct vms_egst
*)vms_rec
;
1262 old_flags
= bfd_getl16 (egst
->header
.flags
);
1264 entry
= add_symbol (abfd
, &egst
->namlng
);
1269 entry
->typ
= gsd_type
;
1270 entry
->data_type
= egst
->header
.datyp
;
1271 entry
->flags
= old_flags
;
1273 entry
->symbol_vector
= bfd_getl32 (egst
->value
);
1275 if (old_flags
& EGSY__V_REL
)
1276 entry
->section
= PRIV (sections
)[bfd_getl32 (egst
->psindx
)];
1278 entry
->section
= bfd_abs_section_ptr
;
1280 entry
->value
= bfd_getl64 (egst
->lp_2
);
1282 if (old_flags
& EGSY__V_NORM
)
1284 PRIV (norm_sym_count
)++;
1286 entry
->code_value
= bfd_getl64 (egst
->lp_1
);
1287 entry
->code_section
= bfd_abs_section_ptr
;
1294 /* Currently ignored. */
1299 (*_bfd_error_handler
) (_("Unknown EGSD subtype %d"), gsd_type
);
1300 bfd_set_error (bfd_error_bad_value
);
1304 PRIV (recrd
.rec_size
) -= gsd_size
;
1305 PRIV (recrd
.rec
) += gsd_size
;
1308 if (PRIV (gsd_sym_count
) > 0)
1309 abfd
->flags
|= HAS_SYMS
;
1314 /* Stack routines for vms ETIR commands. */
1316 /* Push value and section index. */
1319 _bfd_vms_push (bfd
*abfd
, bfd_vma val
, unsigned int reloc
)
1321 vms_debug2 ((4, "<push %08lx (0x%08x) at %d>\n",
1322 (unsigned long)val
, reloc
, PRIV (stackptr
)));
1324 PRIV (stack
[PRIV (stackptr
)]).value
= val
;
1325 PRIV (stack
[PRIV (stackptr
)]).reloc
= reloc
;
1327 if (PRIV (stackptr
) >= STACKSIZE
)
1329 bfd_set_error (bfd_error_bad_value
);
1330 (*_bfd_error_handler
) (_("Stack overflow (%d) in _bfd_vms_push"), PRIV (stackptr
));
1335 /* Pop value and section index. */
1338 _bfd_vms_pop (bfd
*abfd
, bfd_vma
*val
, unsigned int *rel
)
1340 if (PRIV (stackptr
) == 0)
1342 bfd_set_error (bfd_error_bad_value
);
1343 (*_bfd_error_handler
) (_("Stack underflow in _bfd_vms_pop"));
1347 *val
= PRIV (stack
[PRIV (stackptr
)]).value
;
1348 *rel
= PRIV (stack
[PRIV (stackptr
)]).reloc
;
1350 vms_debug2 ((4, "<pop %08lx (0x%08x)>\n", (unsigned long)*val
, *rel
));
1353 /* Routines to fill sections contents during tir/etir read. */
1355 /* Initialize image buffer pointer to be filled. */
1358 image_set_ptr (bfd
*abfd
, bfd_vma vma
, int sect
, struct bfd_link_info
*info
)
1362 vms_debug2 ((4, "image_set_ptr (0x%08x, sect=%d)\n", (unsigned)vma
, sect
));
1364 sec
= PRIV (sections
)[sect
];
1368 /* Reading contents to an output bfd. */
1370 if (sec
->output_section
== NULL
)
1372 /* Section discarded. */
1373 vms_debug2 ((5, " section %s discarded\n", sec
->name
));
1375 /* This is not used. */
1376 PRIV (image_section
) = NULL
;
1377 PRIV (image_offset
) = 0;
1380 PRIV (image_offset
) = sec
->output_offset
+ vma
;
1381 PRIV (image_section
) = sec
->output_section
;
1385 PRIV (image_offset
) = vma
;
1386 PRIV (image_section
) = sec
;
1390 /* Increment image buffer pointer by offset. */
1393 image_inc_ptr (bfd
*abfd
, bfd_vma offset
)
1395 vms_debug2 ((4, "image_inc_ptr (%u)\n", (unsigned)offset
));
1397 PRIV (image_offset
) += offset
;
1400 /* Save current DST location counter under specified index. */
1403 dst_define_location (bfd
*abfd
, unsigned int loc
)
1405 vms_debug2 ((4, "dst_define_location (%d)\n", (int)loc
));
1407 /* Grow the ptr offset table if necessary. */
1408 if (loc
+ 1 > PRIV (dst_ptr_offsets_count
))
1410 PRIV (dst_ptr_offsets
) = bfd_realloc (PRIV (dst_ptr_offsets
),
1411 (loc
+ 1) * sizeof (unsigned int));
1412 PRIV (dst_ptr_offsets_count
) = loc
+ 1;
1415 PRIV (dst_ptr_offsets
)[loc
] = PRIV (image_offset
);
1418 /* Restore saved DST location counter from specified index. */
1421 dst_restore_location (bfd
*abfd
, unsigned int loc
)
1423 vms_debug2 ((4, "dst_restore_location (%d)\n", (int)loc
));
1425 PRIV (image_offset
) = PRIV (dst_ptr_offsets
)[loc
];
1428 /* Retrieve saved DST location counter from specified index. */
1431 dst_retrieve_location (bfd
*abfd
, unsigned int loc
)
1433 vms_debug2 ((4, "dst_retrieve_location (%d)\n", (int)loc
));
1435 return PRIV (dst_ptr_offsets
)[loc
];
1438 /* Write multiple bytes to section image. */
1441 image_write (bfd
*abfd
, unsigned char *ptr
, int size
)
1444 _bfd_vms_debug (8, "image_write from (%p, %d) to (%ld)\n", ptr
, size
,
1445 (long)PRIV (image_offset
));
1446 _bfd_hexdump (9, ptr
, size
, 0);
1449 if (PRIV (image_section
)->contents
!= NULL
)
1451 asection
*sec
= PRIV (image_section
);
1452 file_ptr off
= PRIV (image_offset
);
1455 if (off
> (file_ptr
)sec
->size
1456 || size
> (file_ptr
)sec
->size
1457 || off
+ size
> (file_ptr
)sec
->size
)
1459 bfd_set_error (bfd_error_bad_value
);
1463 memcpy (sec
->contents
+ off
, ptr
, size
);
1466 PRIV (image_offset
) += size
;
1470 /* Write byte to section image. */
1473 image_write_b (bfd
* abfd
, unsigned int value
)
1475 unsigned char data
[1];
1477 vms_debug2 ((6, "image_write_b (%02x)\n", (int) value
));
1481 return image_write (abfd
, data
, sizeof (data
));
1484 /* Write 2-byte word to image. */
1487 image_write_w (bfd
* abfd
, unsigned int value
)
1489 unsigned char data
[2];
1491 vms_debug2 ((6, "image_write_w (%04x)\n", (int) value
));
1493 bfd_putl16 (value
, data
);
1494 return image_write (abfd
, data
, sizeof (data
));
1497 /* Write 4-byte long to image. */
1500 image_write_l (bfd
* abfd
, unsigned long value
)
1502 unsigned char data
[4];
1504 vms_debug2 ((6, "image_write_l (%08lx)\n", value
));
1506 bfd_putl32 (value
, data
);
1507 return image_write (abfd
, data
, sizeof (data
));
1510 /* Write 8-byte quad to image. */
1513 image_write_q (bfd
* abfd
, bfd_vma value
)
1515 unsigned char data
[8];
1517 vms_debug2 ((6, "image_write_q (%08lx)\n", (unsigned long)value
));
1519 bfd_putl64 (value
, data
);
1520 return image_write (abfd
, data
, sizeof (data
));
1524 _bfd_vms_etir_name (int cmd
)
1528 case ETIR__C_STA_GBL
: return "ETIR__C_STA_GBL";
1529 case ETIR__C_STA_LW
: return "ETIR__C_STA_LW";
1530 case ETIR__C_STA_QW
: return "ETIR__C_STA_QW";
1531 case ETIR__C_STA_PQ
: return "ETIR__C_STA_PQ";
1532 case ETIR__C_STA_LI
: return "ETIR__C_STA_LI";
1533 case ETIR__C_STA_MOD
: return "ETIR__C_STA_MOD";
1534 case ETIR__C_STA_CKARG
: return "ETIR__C_STA_CKARG";
1535 case ETIR__C_STO_B
: return "ETIR__C_STO_B";
1536 case ETIR__C_STO_W
: return "ETIR__C_STO_W";
1537 case ETIR__C_STO_GBL
: return "ETIR__C_STO_GBL";
1538 case ETIR__C_STO_CA
: return "ETIR__C_STO_CA";
1539 case ETIR__C_STO_RB
: return "ETIR__C_STO_RB";
1540 case ETIR__C_STO_AB
: return "ETIR__C_STO_AB";
1541 case ETIR__C_STO_OFF
: return "ETIR__C_STO_OFF";
1542 case ETIR__C_STO_IMM
: return "ETIR__C_STO_IMM";
1543 case ETIR__C_STO_IMMR
: return "ETIR__C_STO_IMMR";
1544 case ETIR__C_STO_LW
: return "ETIR__C_STO_LW";
1545 case ETIR__C_STO_QW
: return "ETIR__C_STO_QW";
1546 case ETIR__C_STO_GBL_LW
: return "ETIR__C_STO_GBL_LW";
1547 case ETIR__C_STO_LP_PSB
: return "ETIR__C_STO_LP_PSB";
1548 case ETIR__C_STO_HINT_GBL
: return "ETIR__C_STO_HINT_GBL";
1549 case ETIR__C_STO_HINT_PS
: return "ETIR__C_STO_HINT_PS";
1550 case ETIR__C_OPR_ADD
: return "ETIR__C_OPR_ADD";
1551 case ETIR__C_OPR_SUB
: return "ETIR__C_OPR_SUB";
1552 case ETIR__C_OPR_INSV
: return "ETIR__C_OPR_INSV";
1553 case ETIR__C_OPR_USH
: return "ETIR__C_OPR_USH";
1554 case ETIR__C_OPR_ROT
: return "ETIR__C_OPR_ROT";
1555 case ETIR__C_OPR_REDEF
: return "ETIR__C_OPR_REDEF";
1556 case ETIR__C_OPR_DFLIT
: return "ETIR__C_OPR_DFLIT";
1557 case ETIR__C_STC_LP
: return "ETIR__C_STC_LP";
1558 case ETIR__C_STC_GBL
: return "ETIR__C_STC_GBL";
1559 case ETIR__C_STC_GCA
: return "ETIR__C_STC_GCA";
1560 case ETIR__C_STC_PS
: return "ETIR__C_STC_PS";
1561 case ETIR__C_STC_NBH_PS
: return "ETIR__C_STC_NBH_PS";
1562 case ETIR__C_STC_NOP_GBL
: return "ETIR__C_STC_NOP_GBL";
1563 case ETIR__C_STC_NOP_PS
: return "ETIR__C_STC_NOP_PS";
1564 case ETIR__C_STC_BSR_GBL
: return "ETIR__C_STC_BSR_GBL";
1565 case ETIR__C_STC_BSR_PS
: return "ETIR__C_STC_BSR_PS";
1566 case ETIR__C_STC_LDA_GBL
: return "ETIR__C_STC_LDA_GBL";
1567 case ETIR__C_STC_LDA_PS
: return "ETIR__C_STC_LDA_PS";
1568 case ETIR__C_STC_BOH_GBL
: return "ETIR__C_STC_BOH_GBL";
1569 case ETIR__C_STC_BOH_PS
: return "ETIR__C_STC_BOH_PS";
1570 case ETIR__C_STC_NBH_GBL
: return "ETIR__C_STC_NBH_GBL";
1571 case ETIR__C_STC_LP_PSB
: return "ETIR__C_STC_LP_PSB";
1572 case ETIR__C_CTL_SETRB
: return "ETIR__C_CTL_SETRB";
1573 case ETIR__C_CTL_AUGRB
: return "ETIR__C_CTL_AUGRB";
1574 case ETIR__C_CTL_DFLOC
: return "ETIR__C_CTL_DFLOC";
1575 case ETIR__C_CTL_STLOC
: return "ETIR__C_CTL_STLOC";
1576 case ETIR__C_CTL_STKDL
: return "ETIR__C_CTL_STKDL";
1579 /* These names have not yet been added to this switch statement. */
1580 (*_bfd_error_handler
) (_("unknown ETIR command %d"), cmd
);
1585 #define HIGHBIT(op) ((op & 0x80000000L) == 0x80000000L)
1588 _bfd_vms_get_value (bfd
*abfd
, const unsigned char *ascic
,
1589 struct bfd_link_info
*info
,
1591 struct alpha_vms_link_hash_entry
**hp
)
1596 struct alpha_vms_link_hash_entry
*h
;
1598 /* Not linking. Do not try to resolve the symbol. */
1607 for (i
= 0; i
< len
; i
++)
1608 name
[i
] = ascic
[i
+ 1];
1611 h
= (struct alpha_vms_link_hash_entry
*)
1612 bfd_link_hash_lookup (info
->hash
, name
, FALSE
, FALSE
, TRUE
);
1617 && (h
->root
.type
== bfd_link_hash_defined
1618 || h
->root
.type
== bfd_link_hash_defweak
))
1619 *vma
= h
->root
.u
.def
.value
1620 + h
->root
.u
.def
.section
->output_offset
1621 + h
->root
.u
.def
.section
->output_section
->vma
;
1622 else if (h
&& h
->root
.type
== bfd_link_hash_undefweak
)
1626 if (!(*info
->callbacks
->undefined_symbol
)
1627 (info
, name
, abfd
, PRIV (image_section
), PRIV (image_offset
), TRUE
))
1635 #define RELC_SHR_BASE 0x10000
1636 #define RELC_SEC_BASE 0x20000
1637 #define RELC_MASK 0x0ffff
1640 alpha_vms_sym_to_ctxt (struct alpha_vms_link_hash_entry
*h
)
1642 /* Handle undefined symbols. */
1643 if (h
== NULL
|| h
->sym
== NULL
)
1646 if (h
->sym
->typ
== EGSD__C_SYMG
)
1648 if (h
->sym
->flags
& EGSY__V_REL
)
1649 return RELC_SHR_BASE
+ PRIV2 (h
->sym
->owner
, shr_index
);
1652 /* Can this happen (non-relocatable symg) ? I'd like to see
1657 if (h
->sym
->typ
== EGSD__C_SYM
)
1659 if (h
->sym
->flags
& EGSY__V_REL
)
1668 alpha_vms_get_sym_value (asection
*sect
, bfd_vma addr
)
1670 return sect
->output_section
->vma
+ sect
->output_offset
+ addr
;
1674 alpha_vms_fix_sec_rel (bfd
*abfd
, struct bfd_link_info
*info
,
1675 unsigned int rel
, bfd_vma vma
)
1677 asection
*sec
= PRIV (sections
)[rel
& RELC_MASK
];
1681 if (sec
->output_section
== NULL
)
1683 return vma
+ sec
->output_section
->vma
+ sec
->output_offset
;
1686 return vma
+ sec
->vma
;
1689 /* Read an ETIR record from ABFD. If INFO is not null, put the content into
1690 the output section (used during linking).
1691 Return FALSE in case of error. */
1694 _bfd_vms_slurp_etir (bfd
*abfd
, struct bfd_link_info
*info
)
1697 unsigned int length
;
1698 unsigned char *maxptr
;
1703 struct alpha_vms_link_hash_entry
*h
;
1705 PRIV (recrd
.rec
) += ETIR__C_HEADER_SIZE
;
1706 PRIV (recrd
.rec_size
) -= ETIR__C_HEADER_SIZE
;
1708 ptr
= PRIV (recrd
.rec
);
1709 length
= PRIV (recrd
.rec_size
);
1710 maxptr
= ptr
+ length
;
1712 vms_debug2 ((2, "ETIR: %d bytes\n", length
));
1714 while (ptr
< maxptr
)
1716 int cmd
= bfd_getl16 (ptr
);
1717 int cmd_length
= bfd_getl16 (ptr
+ 2);
1722 _bfd_vms_debug (4, "etir: %s(%d)\n",
1723 _bfd_vms_etir_name (cmd
), cmd
);
1724 _bfd_hexdump (8, ptr
, cmd_length
- 4, 0);
1732 stack 32 bit value of symbol (high bits set to 0). */
1733 case ETIR__C_STA_GBL
:
1734 _bfd_vms_get_value (abfd
, ptr
, info
, &op1
, &h
);
1735 _bfd_vms_push (abfd
, op1
, alpha_vms_sym_to_ctxt (h
));
1741 stack 32 bit value, sign extend to 64 bit. */
1742 case ETIR__C_STA_LW
:
1743 _bfd_vms_push (abfd
, bfd_getl32 (ptr
), RELC_NONE
);
1749 stack 64 bit value of symbol. */
1750 case ETIR__C_STA_QW
:
1751 _bfd_vms_push (abfd
, bfd_getl64 (ptr
), RELC_NONE
);
1754 /* Stack psect base plus quadword offset
1755 arg: lw section index
1756 qw signed quadword offset (low 32 bits)
1758 Stack qw argument and section index
1759 (see ETIR__C_STO_OFF, ETIR__C_CTL_SETRB). */
1760 case ETIR__C_STA_PQ
:
1764 psect
= bfd_getl32 (ptr
);
1765 if ((unsigned int) psect
>= PRIV (section_count
))
1767 (*_bfd_error_handler
) (_("bad section index in %s"),
1768 _bfd_vms_etir_name (cmd
));
1769 bfd_set_error (bfd_error_bad_value
);
1772 op1
= bfd_getl64 (ptr
+ 4);
1773 _bfd_vms_push (abfd
, op1
, psect
| RELC_SEC_BASE
);
1777 case ETIR__C_STA_LI
:
1778 case ETIR__C_STA_MOD
:
1779 case ETIR__C_STA_CKARG
:
1780 (*_bfd_error_handler
) (_("unsupported STA cmd %s"),
1781 _bfd_vms_etir_name (cmd
));
1785 /* Store byte: pop stack, write byte
1788 _bfd_vms_pop (abfd
, &op1
, &rel1
);
1789 if (rel1
!= RELC_NONE
)
1791 image_write_b (abfd
, (unsigned int) op1
& 0xff);
1794 /* Store word: pop stack, write word
1797 _bfd_vms_pop (abfd
, &op1
, &rel1
);
1798 if (rel1
!= RELC_NONE
)
1800 image_write_w (abfd
, (unsigned int) op1
& 0xffff);
1803 /* Store longword: pop stack, write longword
1805 case ETIR__C_STO_LW
:
1806 _bfd_vms_pop (abfd
, &op1
, &rel1
);
1807 if (rel1
& RELC_SEC_BASE
)
1809 op1
= alpha_vms_fix_sec_rel (abfd
, info
, rel1
, op1
);
1812 else if (rel1
& RELC_SHR_BASE
)
1814 alpha_vms_add_fixup_lr (info
, rel1
& RELC_MASK
, op1
);
1817 if (rel1
!= RELC_NONE
)
1819 if (rel1
!= RELC_REL
)
1821 alpha_vms_add_lw_reloc (info
);
1823 image_write_l (abfd
, op1
);
1826 /* Store quadword: pop stack, write quadword
1828 case ETIR__C_STO_QW
:
1829 _bfd_vms_pop (abfd
, &op1
, &rel1
);
1830 if (rel1
& RELC_SEC_BASE
)
1832 op1
= alpha_vms_fix_sec_rel (abfd
, info
, rel1
, op1
);
1835 else if (rel1
& RELC_SHR_BASE
)
1837 if (rel1
!= RELC_NONE
)
1839 if (rel1
!= RELC_REL
)
1841 alpha_vms_add_qw_reloc (info
);
1843 image_write_q (abfd
, op1
);
1846 /* Store immediate repeated: pop stack for repeat count
1849 case ETIR__C_STO_IMMR
:
1853 size
= bfd_getl32 (ptr
);
1854 _bfd_vms_pop (abfd
, &op1
, &rel1
);
1855 if (rel1
!= RELC_NONE
)
1858 image_write (abfd
, ptr
+ 4, size
);
1862 /* Store global: write symbol value
1863 arg: cs global symbol name. */
1864 case ETIR__C_STO_GBL
:
1865 _bfd_vms_get_value (abfd
, ptr
, info
, &op1
, &h
);
1868 if (h
->sym
->typ
== EGSD__C_SYMG
)
1870 alpha_vms_add_fixup_qr
1871 (info
, abfd
, h
->sym
->owner
, h
->sym
->symbol_vector
);
1876 op1
= alpha_vms_get_sym_value (h
->sym
->section
,
1878 alpha_vms_add_qw_reloc (info
);
1881 image_write_q (abfd
, op1
);
1884 /* Store code address: write address of entry point
1885 arg: cs global symbol name (procedure). */
1886 case ETIR__C_STO_CA
:
1887 _bfd_vms_get_value (abfd
, ptr
, info
, &op1
, &h
);
1890 if (h
->sym
->flags
& EGSY__V_NORM
)
1892 /* That's really a procedure. */
1893 if (h
->sym
->typ
== EGSD__C_SYMG
)
1895 alpha_vms_add_fixup_ca (info
, abfd
, h
->sym
->owner
);
1896 op1
= h
->sym
->symbol_vector
;
1900 op1
= alpha_vms_get_sym_value (h
->sym
->code_section
,
1901 h
->sym
->code_value
);
1902 alpha_vms_add_qw_reloc (info
);
1907 /* Symbol is not a procedure. */
1911 image_write_q (abfd
, op1
);
1914 /* Store offset to psect: pop stack, add low 32 bits to base of psect
1916 case ETIR__C_STO_OFF
:
1917 _bfd_vms_pop (abfd
, &op1
, &rel1
);
1919 if (!(rel1
& RELC_SEC_BASE
))
1922 op1
= alpha_vms_fix_sec_rel (abfd
, info
, rel1
, op1
);
1924 image_write_q (abfd
, op1
);
1928 arg: lw count of bytes
1930 case ETIR__C_STO_IMM
:
1934 size
= bfd_getl32 (ptr
);
1935 image_write (abfd
, ptr
+ 4, size
);
1939 /* This code is 'reserved to digital' according to the openVMS
1940 linker manual, however it is generated by the DEC C compiler
1941 and defined in the include file.
1942 FIXME, since the following is just a guess
1943 store global longword: store 32bit value of symbol
1944 arg: cs symbol name. */
1945 case ETIR__C_STO_GBL_LW
:
1946 _bfd_vms_get_value (abfd
, ptr
, info
, &op1
, &h
);
1950 image_write_l (abfd
, op1
);
1953 case ETIR__C_STO_RB
:
1954 case ETIR__C_STO_AB
:
1955 case ETIR__C_STO_LP_PSB
:
1956 (*_bfd_error_handler
) (_("%s: not supported"),
1957 _bfd_vms_etir_name (cmd
));
1960 case ETIR__C_STO_HINT_GBL
:
1961 case ETIR__C_STO_HINT_PS
:
1962 (*_bfd_error_handler
) (_("%s: not implemented"),
1963 _bfd_vms_etir_name (cmd
));
1967 /* 200 Store-conditional Linkage Pair
1969 case ETIR__C_STC_LP
:
1971 /* 202 Store-conditional Address at global address
1975 case ETIR__C_STC_GBL
:
1977 /* 203 Store-conditional Code Address at global address
1979 cs procedure name. */
1980 case ETIR__C_STC_GCA
:
1982 /* 204 Store-conditional Address at psect + offset
1986 case ETIR__C_STC_PS
:
1987 (*_bfd_error_handler
) (_("%s: not supported"),
1988 _bfd_vms_etir_name (cmd
));
1992 /* 201 Store-conditional Linkage Pair with Procedure Signature
1998 case ETIR__C_STC_LP_PSB
:
1999 _bfd_vms_get_value (abfd
, ptr
+ 4, info
, &op1
, &h
);
2002 if (h
->sym
->typ
== EGSD__C_SYMG
)
2004 alpha_vms_add_fixup_lp (info
, abfd
, h
->sym
->owner
);
2005 op1
= h
->sym
->symbol_vector
;
2010 op1
= alpha_vms_get_sym_value (h
->sym
->code_section
,
2011 h
->sym
->code_value
);
2012 op2
= alpha_vms_get_sym_value (h
->sym
->section
,
2018 /* Undefined symbol. */
2022 image_write_q (abfd
, op1
);
2023 image_write_q (abfd
, op2
);
2026 /* 205 Store-conditional NOP at address of global
2028 case ETIR__C_STC_NOP_GBL
:
2031 /* 207 Store-conditional BSR at global address
2034 case ETIR__C_STC_BSR_GBL
:
2037 /* 209 Store-conditional LDA at global address
2040 case ETIR__C_STC_LDA_GBL
:
2043 /* 211 Store-conditional BSR or Hint at global address
2046 case ETIR__C_STC_BOH_GBL
:
2047 /* Currentl ignored. */
2050 /* 213 Store-conditional NOP,BSR or HINT at global address
2053 case ETIR__C_STC_NBH_GBL
:
2055 /* 206 Store-conditional NOP at pect + offset
2058 case ETIR__C_STC_NOP_PS
:
2060 /* 208 Store-conditional BSR at pect + offset
2063 case ETIR__C_STC_BSR_PS
:
2065 /* 210 Store-conditional LDA at psect + offset
2068 case ETIR__C_STC_LDA_PS
:
2070 /* 212 Store-conditional BSR or Hint at pect + offset
2073 case ETIR__C_STC_BOH_PS
:
2075 /* 214 Store-conditional NOP, BSR or HINT at psect + offset
2077 case ETIR__C_STC_NBH_PS
:
2078 (*_bfd_error_handler
) ("%s: not supported",
2079 _bfd_vms_etir_name (cmd
));
2083 /* Det relocation base: pop stack, set image location counter
2085 case ETIR__C_CTL_SETRB
:
2086 _bfd_vms_pop (abfd
, &op1
, &rel1
);
2087 if (!(rel1
& RELC_SEC_BASE
))
2089 image_set_ptr (abfd
, op1
, rel1
& RELC_MASK
, info
);
2092 /* Augment relocation base: increment image location counter by offset
2093 arg: lw offset value. */
2094 case ETIR__C_CTL_AUGRB
:
2095 op1
= bfd_getl32 (ptr
);
2096 image_inc_ptr (abfd
, op1
);
2099 /* Define location: pop index, save location counter under index
2101 case ETIR__C_CTL_DFLOC
:
2102 _bfd_vms_pop (abfd
, &op1
, &rel1
);
2103 if (rel1
!= RELC_NONE
)
2105 dst_define_location (abfd
, op1
);
2108 /* Set location: pop index, restore location counter from index
2110 case ETIR__C_CTL_STLOC
:
2111 _bfd_vms_pop (abfd
, &op1
, &rel1
);
2112 if (rel1
!= RELC_NONE
)
2114 dst_restore_location (abfd
, op1
);
2117 /* Stack defined location: pop index, push location counter from index
2119 case ETIR__C_CTL_STKDL
:
2120 _bfd_vms_pop (abfd
, &op1
, &rel1
);
2121 if (rel1
!= RELC_NONE
)
2123 _bfd_vms_push (abfd
, dst_retrieve_location (abfd
, op1
), RELC_NONE
);
2126 case ETIR__C_OPR_NOP
: /* No-op. */
2129 case ETIR__C_OPR_ADD
: /* Add. */
2130 _bfd_vms_pop (abfd
, &op1
, &rel1
);
2131 _bfd_vms_pop (abfd
, &op2
, &rel2
);
2132 if (rel1
== RELC_NONE
&& rel2
!= RELC_NONE
)
2134 else if (rel1
!= RELC_NONE
&& rel2
!= RELC_NONE
)
2136 _bfd_vms_push (abfd
, op1
+ op2
, rel1
);
2139 case ETIR__C_OPR_SUB
: /* Subtract. */
2140 _bfd_vms_pop (abfd
, &op1
, &rel1
);
2141 _bfd_vms_pop (abfd
, &op2
, &rel2
);
2142 if (rel1
== RELC_NONE
&& rel2
!= RELC_NONE
)
2144 else if ((rel1
& RELC_SEC_BASE
) && (rel2
& RELC_SEC_BASE
))
2146 op1
= alpha_vms_fix_sec_rel (abfd
, info
, rel1
, op1
);
2147 op2
= alpha_vms_fix_sec_rel (abfd
, info
, rel2
, op2
);
2150 else if (rel1
!= RELC_NONE
&& rel2
!= RELC_NONE
)
2152 _bfd_vms_push (abfd
, op2
- op1
, rel1
);
2155 case ETIR__C_OPR_MUL
: /* Multiply. */
2156 _bfd_vms_pop (abfd
, &op1
, &rel1
);
2157 _bfd_vms_pop (abfd
, &op2
, &rel2
);
2158 if (rel1
!= RELC_NONE
|| rel2
!= RELC_NONE
)
2160 _bfd_vms_push (abfd
, op1
* op2
, RELC_NONE
);
2163 case ETIR__C_OPR_DIV
: /* Divide. */
2164 _bfd_vms_pop (abfd
, &op1
, &rel1
);
2165 _bfd_vms_pop (abfd
, &op2
, &rel2
);
2166 if (rel1
!= RELC_NONE
|| rel2
!= RELC_NONE
)
2169 _bfd_vms_push (abfd
, 0, RELC_NONE
);
2171 _bfd_vms_push (abfd
, op2
/ op1
, RELC_NONE
);
2174 case ETIR__C_OPR_AND
: /* Logical AND. */
2175 _bfd_vms_pop (abfd
, &op1
, &rel1
);
2176 _bfd_vms_pop (abfd
, &op2
, &rel2
);
2177 if (rel1
!= RELC_NONE
|| rel2
!= RELC_NONE
)
2179 _bfd_vms_push (abfd
, op1
& op2
, RELC_NONE
);
2182 case ETIR__C_OPR_IOR
: /* Logical inclusive OR. */
2183 _bfd_vms_pop (abfd
, &op1
, &rel1
);
2184 _bfd_vms_pop (abfd
, &op2
, &rel2
);
2185 if (rel1
!= RELC_NONE
|| rel2
!= RELC_NONE
)
2187 _bfd_vms_push (abfd
, op1
| op2
, RELC_NONE
);
2190 case ETIR__C_OPR_EOR
: /* Logical exclusive OR. */
2191 _bfd_vms_pop (abfd
, &op1
, &rel1
);
2192 _bfd_vms_pop (abfd
, &op2
, &rel2
);
2193 if (rel1
!= RELC_NONE
|| rel2
!= RELC_NONE
)
2195 _bfd_vms_push (abfd
, op1
^ op2
, RELC_NONE
);
2198 case ETIR__C_OPR_NEG
: /* Negate. */
2199 _bfd_vms_pop (abfd
, &op1
, &rel1
);
2200 if (rel1
!= RELC_NONE
)
2202 _bfd_vms_push (abfd
, -op1
, RELC_NONE
);
2205 case ETIR__C_OPR_COM
: /* Complement. */
2206 _bfd_vms_pop (abfd
, &op1
, &rel1
);
2207 if (rel1
!= RELC_NONE
)
2209 _bfd_vms_push (abfd
, ~op1
, RELC_NONE
);
2212 case ETIR__C_OPR_ASH
: /* Arithmetic shift. */
2213 _bfd_vms_pop (abfd
, &op1
, &rel1
);
2214 _bfd_vms_pop (abfd
, &op2
, &rel2
);
2215 if (rel1
!= RELC_NONE
|| rel2
!= RELC_NONE
)
2218 (*_bfd_error_handler
) (_("invalid use of %s with contexts"),
2219 _bfd_vms_etir_name (cmd
));
2222 if ((int)op2
< 0) /* Shift right. */
2224 else /* Shift left. */
2226 _bfd_vms_push (abfd
, op1
, RELC_NONE
); /* FIXME: sym. */
2229 case ETIR__C_OPR_INSV
: /* Insert field. */
2230 case ETIR__C_OPR_USH
: /* Unsigned shift. */
2231 case ETIR__C_OPR_ROT
: /* Rotate. */
2232 case ETIR__C_OPR_REDEF
: /* Redefine symbol to current location. */
2233 case ETIR__C_OPR_DFLIT
: /* Define a literal. */
2234 (*_bfd_error_handler
) (_("%s: not supported"),
2235 _bfd_vms_etir_name (cmd
));
2239 case ETIR__C_OPR_SEL
: /* Select. */
2240 _bfd_vms_pop (abfd
, &op1
, &rel1
);
2242 _bfd_vms_pop (abfd
, &op1
, &rel1
);
2245 _bfd_vms_pop (abfd
, &op1
, &rel1
);
2246 _bfd_vms_pop (abfd
, &op2
, &rel2
);
2247 _bfd_vms_push (abfd
, op1
, rel1
);
2252 (*_bfd_error_handler
) (_("reserved cmd %d"), cmd
);
2257 ptr
+= cmd_length
- 4;
2263 /* Process EDBG/ETBT record.
2264 Return TRUE on success, FALSE on error */
2267 vms_slurp_debug (bfd
*abfd
)
2269 asection
*section
= PRIV (dst_section
);
2271 if (section
== NULL
)
2273 /* We have no way to find out beforehand how much debug info there
2274 is in an object file, so pick an initial amount and grow it as
2276 flagword flags
= SEC_HAS_CONTENTS
| SEC_DEBUGGING
| SEC_RELOC
2279 section
= bfd_make_section (abfd
, "$DST$");
2282 if (!bfd_set_section_flags (abfd
, section
, flags
))
2284 PRIV (dst_section
) = section
;
2287 PRIV (image_section
) = section
;
2288 PRIV (image_offset
) = section
->size
;
2290 if (!_bfd_vms_slurp_etir (abfd
, NULL
))
2293 section
->size
= PRIV (image_offset
);
2297 /* Process EDBG record.
2298 Return TRUE on success, FALSE on error. */
2301 _bfd_vms_slurp_edbg (bfd
*abfd
)
2303 vms_debug2 ((2, "EDBG\n"));
2305 abfd
->flags
|= HAS_DEBUG
| HAS_LINENO
;
2307 return vms_slurp_debug (abfd
);
2310 /* Process ETBT record.
2311 Return TRUE on success, FALSE on error. */
2314 _bfd_vms_slurp_etbt (bfd
*abfd
)
2316 vms_debug2 ((2, "ETBT\n"));
2318 abfd
->flags
|= HAS_LINENO
;
2320 return vms_slurp_debug (abfd
);
2323 /* Process EEOM record.
2324 Return TRUE on success, FALSE on error. */
2327 _bfd_vms_slurp_eeom (bfd
*abfd
)
2329 struct vms_eeom
*eeom
= (struct vms_eeom
*) PRIV (recrd
.rec
);
2331 vms_debug2 ((2, "EEOM\n"));
2333 PRIV (eom_data
).eom_l_total_lps
= bfd_getl32 (eeom
->total_lps
);
2334 PRIV (eom_data
).eom_w_comcod
= bfd_getl16 (eeom
->comcod
);
2335 if (PRIV (eom_data
).eom_w_comcod
> 1)
2337 (*_bfd_error_handler
) (_("Object module NOT error-free !\n"));
2338 bfd_set_error (bfd_error_bad_value
);
2342 PRIV (eom_data
).eom_has_transfer
= FALSE
;
2343 if (PRIV (recrd
.rec_size
) > 10)
2345 PRIV (eom_data
).eom_has_transfer
= TRUE
;
2346 PRIV (eom_data
).eom_b_tfrflg
= eeom
->tfrflg
;
2347 PRIV (eom_data
).eom_l_psindx
= bfd_getl32 (eeom
->psindx
);
2348 PRIV (eom_data
).eom_l_tfradr
= bfd_getl32 (eeom
->tfradr
);
2350 abfd
->start_address
= PRIV (eom_data
).eom_l_tfradr
;
2355 /* Slurp an ordered set of VMS object records. Return FALSE on error. */
2358 _bfd_vms_slurp_object_records (bfd
* abfd
)
2365 vms_debug2 ((7, "reading at %08lx\n", (unsigned long)bfd_tell (abfd
)));
2367 type
= _bfd_vms_get_object_record (abfd
);
2370 vms_debug2 ((2, "next_record failed\n"));
2377 err
= _bfd_vms_slurp_ehdr (abfd
);
2380 err
= _bfd_vms_slurp_eeom (abfd
);
2383 err
= _bfd_vms_slurp_egsd (abfd
);
2386 err
= TRUE
; /* _bfd_vms_slurp_etir (abfd); */
2389 err
= _bfd_vms_slurp_edbg (abfd
);
2392 err
= _bfd_vms_slurp_etbt (abfd
);
2399 vms_debug2 ((2, "slurp type %d failed\n", type
));
2403 while (type
!= EOBJ__C_EEOM
);
2408 /* Initialize private data */
2410 vms_initialize (bfd
* abfd
)
2414 amt
= sizeof (struct vms_private_data_struct
);
2415 abfd
->tdata
.any
= bfd_zalloc (abfd
, amt
);
2416 if (abfd
->tdata
.any
== NULL
)
2419 PRIV (recrd
.file_format
) = FF_UNKNOWN
;
2421 amt
= sizeof (struct stack_struct
) * STACKSIZE
;
2422 PRIV (stack
) = bfd_alloc (abfd
, amt
);
2423 if (PRIV (stack
) == NULL
)
2429 bfd_release (abfd
, abfd
->tdata
.any
);
2430 abfd
->tdata
.any
= NULL
;
2434 /* Check the format for a file being read.
2435 Return a (bfd_target *) if it's an object file or zero if not. */
2437 static const struct bfd_target
*
2438 alpha_vms_object_p (bfd
*abfd
)
2440 void *tdata_save
= abfd
->tdata
.any
;
2441 unsigned int test_len
;
2444 vms_debug2 ((1, "vms_object_p(%p)\n", abfd
));
2446 /* Allocate alpha-vms specific data. */
2447 if (!vms_initialize (abfd
))
2450 if (bfd_seek (abfd
, (file_ptr
) 0, SEEK_SET
))
2451 goto err_wrong_format
;
2453 /* The first challenge with VMS is to discover the kind of the file.
2455 Image files (executable or shared images) are stored as a raw
2456 stream of bytes (like on UNIX), but there is no magic number.
2458 Object files are written with RMS (record management service), ie
2459 each records are preceeded by its length (on a word - 2 bytes), and
2460 padded for word-alignment. That would be simple but when files
2461 are transfered to a UNIX filesystem (using ftp), records are lost.
2462 Only the raw content of the records are transfered. Fortunately,
2463 the Alpha Object file format also store the length of the record
2464 in the records. Is that clear ? */
2466 /* Minimum is 6 bytes for objects (2 bytes size, 2 bytes record id,
2467 2 bytes size repeated) and 12 bytes for images (4 bytes major id,
2468 4 bytes minor id, 4 bytes length). */
2471 /* Size the main buffer. */
2472 buf
= (unsigned char *) bfd_malloc (test_len
);
2475 PRIV (recrd
.buf
) = buf
;
2476 PRIV (recrd
.buf_size
) = test_len
;
2478 /* Initialize the record pointer. */
2479 PRIV (recrd
.rec
) = buf
;
2481 if (bfd_bread (buf
, test_len
, abfd
) != test_len
)
2483 bfd_set_error (bfd_error_file_truncated
);
2487 /* Is it an image? */
2488 if ((bfd_getl32 (buf
) == EIHD__K_MAJORID
)
2489 && (bfd_getl32 (buf
+ 4) == EIHD__K_MINORID
))
2491 unsigned int to_read
;
2492 unsigned int read_so_far
;
2493 unsigned int remaining
;
2494 unsigned int eisd_offset
, eihs_offset
;
2496 /* Extract the header size. */
2497 PRIV (recrd
.rec_size
) = bfd_getl32 (buf
+ EIHD__L_SIZE
);
2499 /* The header size is 0 for DSF files. */
2500 if (PRIV (recrd
.rec_size
) == 0)
2501 PRIV (recrd
.rec_size
) = sizeof (struct vms_eihd
);
2503 if (PRIV (recrd
.rec_size
) > PRIV (recrd
.buf_size
))
2505 buf
= bfd_realloc_or_free (buf
, PRIV (recrd
.rec_size
));
2509 PRIV (recrd
.buf
) = NULL
;
2510 bfd_set_error (bfd_error_no_memory
);
2513 PRIV (recrd
.buf
) = buf
;
2514 PRIV (recrd
.buf_size
) = PRIV (recrd
.rec_size
);
2517 /* Read the remaining record. */
2518 remaining
= PRIV (recrd
.rec_size
) - test_len
;
2519 to_read
= MIN (VMS_BLOCK_SIZE
- test_len
, remaining
);
2520 read_so_far
= test_len
;
2522 while (remaining
> 0)
2524 if (bfd_bread (buf
+ read_so_far
, to_read
, abfd
) != to_read
)
2526 bfd_set_error (bfd_error_file_truncated
);
2527 goto err_wrong_format
;
2530 read_so_far
+= to_read
;
2531 remaining
-= to_read
;
2533 to_read
= MIN (VMS_BLOCK_SIZE
, remaining
);
2536 /* Reset the record pointer. */
2537 PRIV (recrd
.rec
) = buf
;
2539 vms_debug2 ((2, "file type is image\n"));
2541 if (_bfd_vms_slurp_eihd (abfd
, &eisd_offset
, &eihs_offset
) != TRUE
)
2542 goto err_wrong_format
;
2544 if (_bfd_vms_slurp_eisd (abfd
, eisd_offset
) != TRUE
)
2545 goto err_wrong_format
;
2547 /* EIHS is optional. */
2548 if (eihs_offset
!= 0 && _bfd_vms_slurp_eihs (abfd
, eihs_offset
) != TRUE
)
2549 goto err_wrong_format
;
2555 /* Assume it's a module and adjust record pointer if necessary. */
2556 maybe_adjust_record_pointer_for_object (abfd
);
2558 /* But is it really a module? */
2559 if (bfd_getl16 (PRIV (recrd
.rec
)) <= EOBJ__C_MAXRECTYP
2560 && bfd_getl16 (PRIV (recrd
.rec
) + 2) <= EOBJ__C_MAXRECSIZ
)
2562 if (vms_get_remaining_object_record (abfd
, test_len
) <= 0)
2563 goto err_wrong_format
;
2565 vms_debug2 ((2, "file type is module\n"));
2567 type
= bfd_getl16 (PRIV (recrd
.rec
));
2568 if (type
!= EOBJ__C_EMH
|| _bfd_vms_slurp_ehdr (abfd
) != TRUE
)
2569 goto err_wrong_format
;
2571 if (_bfd_vms_slurp_object_records (abfd
) != TRUE
)
2572 goto err_wrong_format
;
2575 goto err_wrong_format
;
2578 /* Set arch_info to alpha. */
2580 if (! bfd_default_set_arch_mach (abfd
, bfd_arch_alpha
, 0))
2581 goto err_wrong_format
;
2586 bfd_set_error (bfd_error_wrong_format
);
2589 if (PRIV (recrd
.buf
))
2590 free (PRIV (recrd
.buf
));
2591 if (abfd
->tdata
.any
!= tdata_save
&& abfd
->tdata
.any
!= NULL
)
2592 bfd_release (abfd
, abfd
->tdata
.any
);
2593 abfd
->tdata
.any
= tdata_save
;
2599 /* Write an EMH/MHD record. */
2602 _bfd_vms_write_emh (bfd
*abfd
)
2604 struct vms_rec_wr
*recwr
= &PRIV (recwr
);
2606 _bfd_vms_output_alignment (recwr
, 2);
2609 _bfd_vms_output_begin (recwr
, EOBJ__C_EMH
);
2610 _bfd_vms_output_short (recwr
, EMH__C_MHD
);
2611 _bfd_vms_output_short (recwr
, EOBJ__C_STRLVL
);
2612 _bfd_vms_output_long (recwr
, 0);
2613 _bfd_vms_output_long (recwr
, 0);
2614 _bfd_vms_output_long (recwr
, MAX_OUTREC_SIZE
);
2616 /* Create module name from filename. */
2617 if (bfd_get_filename (abfd
) != 0)
2619 char *module
= vms_get_module_name (bfd_get_filename (abfd
), TRUE
);
2620 _bfd_vms_output_counted (recwr
, module
);
2624 _bfd_vms_output_counted (recwr
, "NONAME");
2626 _bfd_vms_output_counted (recwr
, BFD_VERSION_STRING
);
2627 _bfd_vms_output_dump (recwr
, get_vms_time_string (), EMH_DATE_LENGTH
);
2628 _bfd_vms_output_fill (recwr
, 0, EMH_DATE_LENGTH
);
2629 _bfd_vms_output_end (abfd
, recwr
);
2632 /* Write an EMH/LMN record. */
2635 _bfd_vms_write_lmn (bfd
*abfd
, const char *name
)
2638 struct vms_rec_wr
*recwr
= &PRIV (recwr
);
2639 unsigned int ver
= BFD_VERSION
/ 10000;
2642 _bfd_vms_output_begin (recwr
, EOBJ__C_EMH
);
2643 _bfd_vms_output_short (recwr
, EMH__C_LNM
);
2644 snprintf (version
, sizeof (version
), "%s %d.%d.%d", name
,
2645 ver
/ 10000, (ver
/ 100) % 100, ver
% 100);
2646 _bfd_vms_output_dump (recwr
, (unsigned char *)version
, strlen (version
));
2647 _bfd_vms_output_end (abfd
, recwr
);
2651 /* Write eom record for bfd abfd. Return FALSE on error. */
2654 _bfd_vms_write_eeom (bfd
*abfd
)
2656 struct vms_rec_wr
*recwr
= &PRIV (recwr
);
2658 vms_debug2 ((2, "vms_write_eeom\n"));
2660 _bfd_vms_output_alignment (recwr
, 2);
2662 _bfd_vms_output_begin (recwr
, EOBJ__C_EEOM
);
2663 _bfd_vms_output_long (recwr
, (unsigned long) (PRIV (vms_linkage_index
) >> 1));
2664 _bfd_vms_output_byte (recwr
, 0); /* Completion code. */
2665 _bfd_vms_output_byte (recwr
, 0); /* Fill byte. */
2667 if ((abfd
->flags
& EXEC_P
) == 0
2668 && bfd_get_start_address (abfd
) != (bfd_vma
)-1)
2672 section
= bfd_get_section_by_name (abfd
, ".link");
2675 bfd_set_error (bfd_error_nonrepresentable_section
);
2678 _bfd_vms_output_short (recwr
, 0);
2679 _bfd_vms_output_long (recwr
, (unsigned long) section
->target_index
);
2680 _bfd_vms_output_long (recwr
,
2681 (unsigned long) bfd_get_start_address (abfd
));
2682 _bfd_vms_output_long (recwr
, 0);
2685 _bfd_vms_output_end (abfd
, recwr
);
2689 /* This hash routine borrowed from GNU-EMACS, and strengthened
2693 hash_string (const char *ptr
)
2695 const unsigned char *p
= (unsigned char *) ptr
;
2696 const unsigned char *end
= p
+ strlen (ptr
);
2703 hash
= ((hash
<< 3) + (hash
<< 15) + (hash
>> 28) + c
);
2708 /* Generate a length-hashed VMS symbol name (limited to maxlen chars). */
2711 _bfd_vms_length_hash_symbol (bfd
*abfd
, const char *in
, int maxlen
)
2713 unsigned long result
;
2716 const char *old_name
;
2718 static char outbuf
[EOBJ__C_SYMSIZ
+ 1];
2722 vms_debug (4, "_bfd_vms_length_hash_symbol \"%s\"\n", in
);
2725 if (maxlen
> EOBJ__C_SYMSIZ
)
2726 maxlen
= EOBJ__C_SYMSIZ
;
2728 /* Save this for later. */
2731 /* We may need to truncate the symbol, save the hash for later. */
2732 in_len
= strlen (in
);
2734 result
= (in_len
> maxlen
) ? hash_string (in
) : 0;
2738 /* Do the length checking. */
2739 if (in_len
<= maxlen
)
2743 if (PRIV (flag_hash_long_names
))
2749 strncpy (out
, in
, (size_t) i
);
2753 if ((in_len
> maxlen
)
2754 && PRIV (flag_hash_long_names
))
2755 sprintf (out
, "_%08lx", result
);
2760 vms_debug (4, "--> [%d]\"%s\"\n", (int)strlen (outbuf
), outbuf
);
2764 && PRIV (flag_hash_long_names
)
2765 && PRIV (flag_show_after_trunc
))
2766 printf (_("Symbol %s replaced by %s\n"), old_name
, new_name
);
2772 vector_grow1 (struct vector_type
*vec
, size_t elsz
)
2774 if (vec
->nbr_el
+ 1 < vec
->max_el
)
2777 if (vec
->max_el
== 0)
2780 vec
->els
= bfd_malloc2 (vec
->max_el
, elsz
);
2785 vec
->els
= bfd_realloc2 (vec
->els
, vec
->max_el
, elsz
);
2789 /* Bump ABFD file position to next block. */
2792 alpha_vms_file_position_block (bfd
*abfd
)
2795 PRIV (file_pos
) += VMS_BLOCK_SIZE
- 1;
2796 PRIV (file_pos
) -= (PRIV (file_pos
) % VMS_BLOCK_SIZE
);
2799 /* Convert from internal structure SRC to external structure DST. */
2802 alpha_vms_swap_eisd_out (struct vms_internal_eisd_map
*src
,
2803 struct vms_eisd
*dst
)
2805 bfd_putl32 (src
->u
.eisd
.majorid
, dst
->majorid
);
2806 bfd_putl32 (src
->u
.eisd
.minorid
, dst
->minorid
);
2807 bfd_putl32 (src
->u
.eisd
.eisdsize
, dst
->eisdsize
);
2808 if (src
->u
.eisd
.eisdsize
<= EISD__K_LENEND
)
2810 bfd_putl32 (src
->u
.eisd
.secsize
, dst
->secsize
);
2811 bfd_putl64 (src
->u
.eisd
.virt_addr
, dst
->virt_addr
);
2812 bfd_putl32 (src
->u
.eisd
.flags
, dst
->flags
);
2813 bfd_putl32 (src
->u
.eisd
.vbn
, dst
->vbn
);
2814 dst
->pfc
= src
->u
.eisd
.pfc
;
2815 dst
->matchctl
= src
->u
.eisd
.matchctl
;
2816 dst
->type
= src
->u
.eisd
.type
;
2818 if (src
->u
.eisd
.flags
& EISD__M_GBL
)
2820 bfd_putl32 (src
->u
.gbl_eisd
.ident
, dst
->ident
);
2821 memcpy (dst
->gblnam
, src
->u
.gbl_eisd
.gblnam
,
2822 src
->u
.gbl_eisd
.gblnam
[0] + 1);
2826 /* Append EISD to the list of extra eisd for ABFD. */
2829 alpha_vms_append_extra_eisd (bfd
*abfd
, struct vms_internal_eisd_map
*eisd
)
2832 if (PRIV (gbl_eisd_head
) == NULL
)
2833 PRIV (gbl_eisd_head
) = eisd
;
2835 PRIV (gbl_eisd_tail
)->next
= eisd
;
2836 PRIV (gbl_eisd_tail
) = eisd
;
2839 /* Create an EISD for shared image SHRIMG.
2840 Return FALSE in case of error. */
2843 alpha_vms_create_eisd_for_shared (bfd
*abfd
, bfd
*shrimg
)
2845 struct vms_internal_eisd_map
*eisd
;
2848 namlen
= strlen (PRIV2 (shrimg
, hdr_data
.hdr_t_name
));
2849 if (namlen
+ 5 > EISD__K_GBLNAMLEN
)
2855 eisd
= bfd_alloc (abfd
, sizeof (*eisd
));
2859 /* Fill the fields. */
2860 eisd
->u
.gbl_eisd
.common
.majorid
= EISD__K_MAJORID
;
2861 eisd
->u
.gbl_eisd
.common
.minorid
= EISD__K_MINORID
;
2862 eisd
->u
.gbl_eisd
.common
.eisdsize
= (EISD__K_LEN
+ 4 + namlen
+ 5 + 3) & ~3;
2863 eisd
->u
.gbl_eisd
.common
.secsize
= VMS_BLOCK_SIZE
; /* Must not be 0. */
2864 eisd
->u
.gbl_eisd
.common
.virt_addr
= 0;
2865 eisd
->u
.gbl_eisd
.common
.flags
= EISD__M_GBL
;
2866 eisd
->u
.gbl_eisd
.common
.vbn
= 0;
2867 eisd
->u
.gbl_eisd
.common
.pfc
= 0;
2868 eisd
->u
.gbl_eisd
.common
.matchctl
= PRIV2 (shrimg
, matchctl
);
2869 eisd
->u
.gbl_eisd
.common
.type
= EISD__K_SHRPIC
;
2871 eisd
->u
.gbl_eisd
.ident
= PRIV2 (shrimg
, ident
);
2872 eisd
->u
.gbl_eisd
.gblnam
[0] = namlen
+ 4;
2873 memcpy (eisd
->u
.gbl_eisd
.gblnam
+ 1, PRIV2 (shrimg
, hdr_data
.hdr_t_name
),
2875 memcpy (eisd
->u
.gbl_eisd
.gblnam
+ 1 + namlen
, "_001", 4);
2877 /* Append it to the list. */
2878 alpha_vms_append_extra_eisd (abfd
, eisd
);
2883 /* Create an EISD for section SEC.
2884 Return FALSE in case of failure. */
2887 alpha_vms_create_eisd_for_section (bfd
*abfd
, asection
*sec
)
2889 struct vms_internal_eisd_map
*eisd
;
2891 /* Only for allocating section. */
2892 if (!(sec
->flags
& SEC_ALLOC
))
2895 BFD_ASSERT (vms_section_data (sec
)->eisd
== NULL
);
2896 eisd
= bfd_alloc (abfd
, sizeof (*eisd
));
2899 vms_section_data (sec
)->eisd
= eisd
;
2901 /* Fill the fields. */
2902 eisd
->u
.eisd
.majorid
= EISD__K_MAJORID
;
2903 eisd
->u
.eisd
.minorid
= EISD__K_MINORID
;
2904 eisd
->u
.eisd
.eisdsize
= EISD__K_LEN
;
2905 eisd
->u
.eisd
.secsize
=
2906 (sec
->size
+ VMS_BLOCK_SIZE
- 1) & ~(VMS_BLOCK_SIZE
- 1);
2907 eisd
->u
.eisd
.virt_addr
= sec
->vma
;
2908 eisd
->u
.eisd
.flags
= 0;
2909 eisd
->u
.eisd
.vbn
= 0; /* To be later defined. */
2910 eisd
->u
.eisd
.pfc
= 0; /* Default. */
2911 eisd
->u
.eisd
.matchctl
= EISD__K_MATALL
;
2912 eisd
->u
.eisd
.type
= EISD__K_NORMAL
;
2914 if (sec
->flags
& SEC_CODE
)
2915 eisd
->u
.eisd
.flags
|= EISD__M_EXE
;
2916 if (!(sec
->flags
& SEC_READONLY
))
2917 eisd
->u
.eisd
.flags
|= EISD__M_WRT
| EISD__M_CRF
;
2919 /* If relocations or fixup will be applied, make this isect writeable. */
2920 if (sec
->flags
& SEC_RELOC
)
2921 eisd
->u
.eisd
.flags
|= EISD__M_WRT
| EISD__M_CRF
;
2923 if (!(sec
->flags
& SEC_HAS_CONTENTS
))
2925 eisd
->u
.eisd
.flags
|= EISD__M_DZRO
;
2926 eisd
->u
.eisd
.flags
&= ~EISD__M_CRF
;
2928 if (sec
->flags
& SEC_LINKER_CREATED
)
2930 if (strcmp (sec
->name
, "$FIXUP$") == 0)
2931 eisd
->u
.eisd
.flags
|= EISD__M_FIXUPVEC
;
2934 /* Append it to the list. */
2936 if (PRIV (eisd_head
) == NULL
)
2937 PRIV (eisd_head
) = eisd
;
2939 PRIV (eisd_tail
)->next
= eisd
;
2940 PRIV (eisd_tail
) = eisd
;
2945 /* Layout executable ABFD and write it to the disk.
2946 Return FALSE in case of failure. */
2949 alpha_vms_write_exec (bfd
*abfd
)
2951 struct vms_eihd eihd
;
2952 struct vms_eiha
*eiha
;
2953 struct vms_eihi
*eihi
;
2954 struct vms_eihs
*eihs
= NULL
;
2956 struct vms_internal_eisd_map
*first_eisd
;
2957 struct vms_internal_eisd_map
*eisd
;
2960 file_ptr gst_filepos
= 0;
2961 unsigned int lnkflags
= 0;
2963 /* Build the EIHD. */
2964 PRIV (file_pos
) = EIHD__C_LENGTH
;
2966 memset (&eihd
, 0, sizeof (eihd
));
2967 memset (eihd
.fill_2
, 0xff, sizeof (eihd
.fill_2
));
2969 bfd_putl32 (EIHD__K_MAJORID
, eihd
.majorid
);
2970 bfd_putl32 (EIHD__K_MINORID
, eihd
.minorid
);
2972 bfd_putl32 (sizeof (eihd
), eihd
.size
);
2973 bfd_putl32 (0, eihd
.isdoff
);
2974 bfd_putl32 (0, eihd
.activoff
);
2975 bfd_putl32 (0, eihd
.symdbgoff
);
2976 bfd_putl32 (0, eihd
.imgidoff
);
2977 bfd_putl32 (0, eihd
.patchoff
);
2978 bfd_putl64 (0, eihd
.iafva
);
2979 bfd_putl32 (0, eihd
.version_array_off
);
2981 bfd_putl32 (EIHD__K_EXE
, eihd
.imgtype
);
2982 bfd_putl32 (0, eihd
.subtype
);
2984 bfd_putl32 (0, eihd
.imgiocnt
);
2985 bfd_putl32 (-1, eihd
.privreqs
);
2986 bfd_putl32 (-1, eihd
.privreqs
+ 4);
2988 bfd_putl32 ((sizeof (eihd
) + VMS_BLOCK_SIZE
- 1) / VMS_BLOCK_SIZE
,
2990 bfd_putl32 (0, eihd
.ident
);
2991 bfd_putl32 (0, eihd
.sysver
);
2994 bfd_putl32 (0, eihd
.symvect_size
);
2995 bfd_putl32 (16, eihd
.virt_mem_block_size
);
2996 bfd_putl32 (0, eihd
.ext_fixup_off
);
2997 bfd_putl32 (0, eihd
.noopt_psect_off
);
2998 bfd_putl32 (-1, eihd
.alias
);
3001 eiha
= (struct vms_eiha
*)((char *) &eihd
+ PRIV (file_pos
));
3002 bfd_putl32 (PRIV (file_pos
), eihd
.activoff
);
3003 PRIV (file_pos
) += sizeof (struct vms_eiha
);
3005 bfd_putl32 (sizeof (struct vms_eiha
), eiha
->size
);
3006 bfd_putl32 (0, eiha
->spare
);
3007 bfd_putl64 (PRIV (transfer_address
[0]), eiha
->tfradr1
);
3008 bfd_putl64 (PRIV (transfer_address
[1]), eiha
->tfradr2
);
3009 bfd_putl64 (PRIV (transfer_address
[2]), eiha
->tfradr3
);
3010 bfd_putl64 (PRIV (transfer_address
[3]), eiha
->tfradr4
);
3011 bfd_putl64 (0, eiha
->inishr
);
3014 eihi
= (struct vms_eihi
*)((char *) &eihd
+ PRIV (file_pos
));
3015 bfd_putl32 (PRIV (file_pos
), eihd
.imgidoff
);
3016 PRIV (file_pos
) += sizeof (struct vms_eihi
);
3018 bfd_putl32 (EIHI__K_MAJORID
, eihi
->majorid
);
3019 bfd_putl32 (EIHI__K_MINORID
, eihi
->minorid
);
3024 /* Set module name. */
3025 module
= vms_get_module_name (bfd_get_filename (abfd
), TRUE
);
3026 len
= strlen (module
);
3027 if (len
> sizeof (eihi
->imgnam
) - 1)
3028 len
= sizeof (eihi
->imgnam
) - 1;
3029 eihi
->imgnam
[0] = len
;
3030 memcpy (eihi
->imgnam
+ 1, module
, len
);
3038 vms_get_time (&hi
, &lo
);
3039 bfd_putl32 (lo
, eihi
->linktime
+ 0);
3040 bfd_putl32 (hi
, eihi
->linktime
+ 4);
3043 eihi
->linkid
[0] = 0;
3044 eihi
->imgbid
[0] = 0;
3047 dst
= PRIV (dst_section
);
3048 dmt
= bfd_get_section_by_name (abfd
, "$DMT$");
3049 if (dst
!= NULL
&& dst
->size
!= 0)
3051 eihs
= (struct vms_eihs
*)((char *) &eihd
+ PRIV (file_pos
));
3052 bfd_putl32 (PRIV (file_pos
), eihd
.symdbgoff
);
3053 PRIV (file_pos
) += sizeof (struct vms_eihs
);
3055 bfd_putl32 (EIHS__K_MAJORID
, eihs
->majorid
);
3056 bfd_putl32 (EIHS__K_MINORID
, eihs
->minorid
);
3057 bfd_putl32 (0, eihs
->dstvbn
);
3058 bfd_putl32 (0, eihs
->dstsize
);
3059 bfd_putl32 (0, eihs
->gstvbn
);
3060 bfd_putl32 (0, eihs
->gstsize
);
3061 bfd_putl32 (0, eihs
->dmtvbn
);
3062 bfd_putl32 (0, eihs
->dmtsize
);
3065 /* One EISD per section. */
3066 for (sec
= abfd
->sections
; sec
; sec
= sec
->next
)
3068 if (!alpha_vms_create_eisd_for_section (abfd
, sec
))
3072 /* Merge section EIDS which extra ones. */
3073 if (PRIV (eisd_tail
))
3074 PRIV (eisd_tail
)->next
= PRIV (gbl_eisd_head
);
3076 PRIV (eisd_head
) = PRIV (gbl_eisd_head
);
3077 if (PRIV (gbl_eisd_tail
))
3078 PRIV (eisd_tail
) = PRIV (gbl_eisd_tail
);
3080 first_eisd
= PRIV (eisd_head
);
3082 /* Add end of eisd. */
3085 eisd
= bfd_zalloc (abfd
, sizeof (*eisd
));
3088 eisd
->u
.eisd
.majorid
= 0;
3089 eisd
->u
.eisd
.minorid
= 0;
3090 eisd
->u
.eisd
.eisdsize
= 0;
3091 alpha_vms_append_extra_eisd (abfd
, eisd
);
3094 /* Place EISD in the file. */
3095 for (eisd
= first_eisd
; eisd
; eisd
= eisd
->next
)
3097 file_ptr room
= VMS_BLOCK_SIZE
- (PRIV (file_pos
) % VMS_BLOCK_SIZE
);
3099 /* First block is a little bit special: there is a word at the end. */
3100 if (PRIV (file_pos
) < VMS_BLOCK_SIZE
&& room
> 2)
3102 if (room
< eisd
->u
.eisd
.eisdsize
+ EISD__K_LENEND
)
3103 alpha_vms_file_position_block (abfd
);
3105 eisd
->file_pos
= PRIV (file_pos
);
3106 PRIV (file_pos
) += eisd
->u
.eisd
.eisdsize
;
3108 if (eisd
->u
.eisd
.flags
& EISD__M_FIXUPVEC
)
3109 bfd_putl64 (eisd
->u
.eisd
.virt_addr
, eihd
.iafva
);
3112 if (first_eisd
!= NULL
)
3114 bfd_putl32 (first_eisd
->file_pos
, eihd
.isdoff
);
3115 /* Real size of end of eisd marker. */
3116 PRIV (file_pos
) += EISD__K_LENEND
;
3119 bfd_putl32 (PRIV (file_pos
), eihd
.size
);
3120 bfd_putl32 ((PRIV (file_pos
) + VMS_BLOCK_SIZE
- 1) / VMS_BLOCK_SIZE
,
3123 /* Place sections. */
3124 for (sec
= abfd
->sections
; sec
; sec
= sec
->next
)
3126 if (!(sec
->flags
& SEC_HAS_CONTENTS
))
3129 eisd
= vms_section_data (sec
)->eisd
;
3131 /* Align on a block. */
3132 alpha_vms_file_position_block (abfd
);
3133 sec
->filepos
= PRIV (file_pos
);
3136 eisd
->u
.eisd
.vbn
= (sec
->filepos
/ VMS_BLOCK_SIZE
) + 1;
3138 PRIV (file_pos
) += sec
->size
;
3142 if (eihs
!= NULL
&& dst
!= NULL
)
3144 bfd_putl32 ((dst
->filepos
/ VMS_BLOCK_SIZE
) + 1, eihs
->dstvbn
);
3145 bfd_putl32 (dst
->size
, eihs
->dstsize
);
3149 lnkflags
|= EIHD__M_DBGDMT
;
3150 bfd_putl32 ((dmt
->filepos
/ VMS_BLOCK_SIZE
) + 1, eihs
->dmtvbn
);
3151 bfd_putl32 (dmt
->size
, eihs
->dmtsize
);
3153 if (PRIV (gsd_sym_count
) != 0)
3155 alpha_vms_file_position_block (abfd
);
3156 gst_filepos
= PRIV (file_pos
);
3157 bfd_putl32 ((gst_filepos
/ VMS_BLOCK_SIZE
) + 1, eihs
->gstvbn
);
3158 bfd_putl32 ((PRIV (gsd_sym_count
) + 4) / 5 + 4, eihs
->gstsize
);
3162 /* Write EISD in hdr. */
3163 for (eisd
= first_eisd
; eisd
&& eisd
->file_pos
< VMS_BLOCK_SIZE
;
3165 alpha_vms_swap_eisd_out
3166 (eisd
, (struct vms_eisd
*)((char *)&eihd
+ eisd
->file_pos
));
3168 /* Write first block. */
3169 bfd_putl32 (lnkflags
, eihd
.lnkflags
);
3170 if (bfd_bwrite (&eihd
, sizeof (eihd
), abfd
) != sizeof (eihd
))
3173 /* Write remaining eisd. */
3176 unsigned char blk
[VMS_BLOCK_SIZE
];
3177 struct vms_internal_eisd_map
*next_eisd
;
3179 memset (blk
, 0xff, sizeof (blk
));
3180 while (eisd
!= NULL
)
3182 alpha_vms_swap_eisd_out
3184 (struct vms_eisd
*)(blk
+ (eisd
->file_pos
% VMS_BLOCK_SIZE
)));
3186 next_eisd
= eisd
->next
;
3187 if (next_eisd
== NULL
3188 || (next_eisd
->file_pos
/ VMS_BLOCK_SIZE
3189 != eisd
->file_pos
/ VMS_BLOCK_SIZE
))
3191 if (bfd_bwrite (blk
, sizeof (blk
), abfd
) != sizeof (blk
))
3194 memset (blk
, 0xff, sizeof (blk
));
3200 /* Write sections. */
3201 for (sec
= abfd
->sections
; sec
; sec
= sec
->next
)
3203 unsigned char blk
[VMS_BLOCK_SIZE
];
3206 if (sec
->size
== 0 || !(sec
->flags
& SEC_HAS_CONTENTS
))
3208 if (bfd_bwrite (sec
->contents
, sec
->size
, abfd
) != sec
->size
)
3212 len
= VMS_BLOCK_SIZE
- sec
->size
% VMS_BLOCK_SIZE
;
3213 if (len
!= VMS_BLOCK_SIZE
)
3215 memset (blk
, 0, len
);
3216 if (bfd_bwrite (blk
, len
, abfd
) != len
)
3222 if (gst_filepos
!= 0)
3224 struct vms_rec_wr
*recwr
= &PRIV (recwr
);
3227 _bfd_vms_write_emh (abfd
);
3228 _bfd_vms_write_lmn (abfd
, "GNU LD");
3230 /* PSC for the absolute section. */
3231 _bfd_vms_output_begin (recwr
, EOBJ__C_EGSD
);
3232 _bfd_vms_output_long (recwr
, 0);
3233 _bfd_vms_output_begin_subrec (recwr
, EGSD__C_PSC
);
3234 _bfd_vms_output_short (recwr
, 0);
3235 _bfd_vms_output_short (recwr
, EGPS__V_PIC
| EGPS__V_LIB
| EGPS__V_RD
);
3236 _bfd_vms_output_long (recwr
, 0);
3237 _bfd_vms_output_counted (recwr
, ".$$ABS$$.");
3238 _bfd_vms_output_end_subrec (recwr
);
3239 _bfd_vms_output_end (abfd
, recwr
);
3241 for (i
= 0; i
< PRIV (gsd_sym_count
); i
++)
3243 struct vms_symbol_entry
*sym
= PRIV (syms
)[i
];
3250 _bfd_vms_output_alignment (recwr
, 8);
3251 _bfd_vms_output_begin (recwr
, EOBJ__C_EGSD
);
3252 _bfd_vms_output_long (recwr
, 0);
3254 _bfd_vms_output_begin_subrec (recwr
, EGSD__C_SYMG
);
3255 _bfd_vms_output_short (recwr
, 0); /* Data type, alignment. */
3256 _bfd_vms_output_short (recwr
, sym
->flags
);
3258 if (sym
->code_section
)
3259 ep
= alpha_vms_get_sym_value (sym
->code_section
, sym
->code_value
);
3262 BFD_ASSERT (sym
->code_value
== 0);
3265 val
= alpha_vms_get_sym_value (sym
->section
, sym
->value
);
3266 _bfd_vms_output_quad
3267 (recwr
, sym
->typ
== EGSD__C_SYMG
? sym
->symbol_vector
: val
);
3268 _bfd_vms_output_quad (recwr
, ep
);
3269 _bfd_vms_output_quad (recwr
, val
);
3270 _bfd_vms_output_long (recwr
, 0);
3271 hash
= _bfd_vms_length_hash_symbol (abfd
, sym
->name
, EOBJ__C_SYMSIZ
);
3272 _bfd_vms_output_counted (recwr
, hash
);
3273 _bfd_vms_output_end_subrec (recwr
);
3275 _bfd_vms_output_end (abfd
, recwr
);
3278 _bfd_vms_output_end (abfd
, recwr
);
3280 if (!_bfd_vms_write_eeom (abfd
))
3288 /* Write section and symbol directory of bfd abfd. Return FALSE on error. */
3291 _bfd_vms_write_egsd (bfd
*abfd
)
3295 unsigned int symnum
;
3297 flagword new_flags
, old_flags
;
3298 int abs_section_index
= -1;
3299 unsigned int target_index
= 0;
3300 struct vms_rec_wr
*recwr
= &PRIV (recwr
);
3302 vms_debug2 ((2, "vms_write_egsd\n"));
3304 /* Egsd is quadword aligned. */
3305 _bfd_vms_output_alignment (recwr
, 8);
3307 _bfd_vms_output_begin (recwr
, EOBJ__C_EGSD
);
3308 _bfd_vms_output_long (recwr
, 0);
3310 /* Number sections. */
3311 for (section
= abfd
->sections
; section
!= NULL
; section
= section
->next
)
3313 if (section
->flags
& SEC_DEBUGGING
)
3315 if (!strcmp (section
->name
, ".vmsdebug"))
3317 section
->flags
|= SEC_DEBUGGING
;
3320 section
->target_index
= target_index
++;
3323 for (section
= abfd
->sections
; section
!= NULL
; section
= section
->next
)
3325 vms_debug2 ((3, "Section #%d %s, %d bytes\n",
3326 section
->target_index
, section
->name
, (int)section
->size
));
3328 /* Don't write out the VMS debug info section since it is in the
3329 ETBT and EDBG sections in etir. */
3330 if (section
->flags
& SEC_DEBUGGING
)
3333 /* 13 bytes egsd, max 31 chars name -> should be 44 bytes. */
3334 if (_bfd_vms_output_check (recwr
, 64) < 0)
3336 _bfd_vms_output_end (abfd
, recwr
);
3337 _bfd_vms_output_begin (recwr
, EOBJ__C_EGSD
);
3338 _bfd_vms_output_long (recwr
, 0);
3341 /* Don't know if this is necessary for the linker but for now it keeps
3342 vms_slurp_gsd happy. */
3343 sname
= section
->name
;
3346 /* Remove leading dot. */
3348 if ((*sname
== 't') && (strcmp (sname
, "text") == 0))
3349 sname
= EVAX_CODE_NAME
;
3350 else if ((*sname
== 'd') && (strcmp (sname
, "data") == 0))
3351 sname
= EVAX_DATA_NAME
;
3352 else if ((*sname
== 'b') && (strcmp (sname
, "bss") == 0))
3353 sname
= EVAX_BSS_NAME
;
3354 else if ((*sname
== 'l') && (strcmp (sname
, "link") == 0))
3355 sname
= EVAX_LINK_NAME
;
3356 else if ((*sname
== 'r') && (strcmp (sname
, "rdata") == 0))
3357 sname
= EVAX_READONLY_NAME
;
3358 else if ((*sname
== 'l') && (strcmp (sname
, "literal") == 0))
3359 sname
= EVAX_LITERAL_NAME
;
3360 else if ((*sname
== 'l') && (strcmp (sname
, "literals") == 0))
3361 sname
= EVAX_LITERALS_NAME
;
3362 else if ((*sname
== 'c') && (strcmp (sname
, "comm") == 0))
3363 sname
= EVAX_COMMON_NAME
;
3364 else if ((*sname
== 'l') && (strcmp (sname
, "lcomm") == 0))
3365 sname
= EVAX_LOCAL_NAME
;
3368 sname
= _bfd_vms_length_hash_symbol (abfd
, sname
, EOBJ__C_SECSIZ
);
3370 if (bfd_is_com_section (section
))
3371 new_flags
= (EGPS__V_OVR
| EGPS__V_REL
| EGPS__V_GBL
| EGPS__V_RD
3372 | EGPS__V_WRT
| EGPS__V_NOMOD
| EGPS__V_COM
);
3374 new_flags
= vms_esecflag_by_name (evax_section_flags
, sname
,
3377 /* Modify them as directed. */
3378 if (section
->flags
& SEC_READONLY
)
3379 new_flags
&= ~EGPS__V_WRT
;
3381 new_flags
&= ~vms_section_data (section
)->no_flags
;
3382 new_flags
|= vms_section_data (section
)->flags
;
3384 vms_debug2 ((3, "sec flags %x\n", section
->flags
));
3385 vms_debug2 ((3, "new_flags %x, _raw_size %lu\n",
3386 new_flags
, (unsigned long)section
->size
));
3388 _bfd_vms_output_begin_subrec (recwr
, EGSD__C_PSC
);
3389 _bfd_vms_output_short (recwr
, section
->alignment_power
& 0xff);
3390 _bfd_vms_output_short (recwr
, new_flags
);
3391 _bfd_vms_output_long (recwr
, (unsigned long) section
->size
);
3392 _bfd_vms_output_counted (recwr
, sname
);
3393 _bfd_vms_output_end_subrec (recwr
);
3395 /* If the section is an obsolute one, remind its index as it will be
3396 used later for absolute symbols. */
3397 if ((new_flags
& EGPS__V_REL
) == 0 && abs_section_index
< 0)
3398 abs_section_index
= section
->target_index
;
3401 /* Output symbols. */
3402 vms_debug2 ((3, "%d symbols found\n", abfd
->symcount
));
3404 bfd_set_start_address (abfd
, (bfd_vma
) -1);
3406 for (symnum
= 0; symnum
< abfd
->symcount
; symnum
++)
3410 symbol
= abfd
->outsymbols
[symnum
];
3411 old_flags
= symbol
->flags
;
3413 /* Work-around a missing feature: consider __main as the main entry
3415 if (*(symbol
->name
) == '_')
3417 if (strcmp (symbol
->name
, "__main") == 0)
3418 bfd_set_start_address (abfd
, (bfd_vma
)symbol
->value
);
3421 /* Only put in the GSD the global and the undefined symbols. */
3422 if (old_flags
& BSF_FILE
)
3425 if ((old_flags
& BSF_GLOBAL
) == 0 && !bfd_is_und_section (symbol
->section
))
3427 /* If the LIB$INITIIALIZE section is present, add a reference to
3428 LIB$INITIALIZE symbol. FIXME: this should be done explicitely
3429 in the assembly file. */
3430 if (!((old_flags
& BSF_SECTION_SYM
) != 0
3431 && strcmp (symbol
->section
->name
, "LIB$INITIALIZE") == 0))
3435 /* 13 bytes egsd, max 64 chars name -> should be 77 bytes. Add 16 more
3436 bytes for a possible ABS section. */
3437 if (_bfd_vms_output_check (recwr
, 80 + 16) < 0)
3439 _bfd_vms_output_end (abfd
, recwr
);
3440 _bfd_vms_output_begin (recwr
, EOBJ__C_EGSD
);
3441 _bfd_vms_output_long (recwr
, 0);
3444 if ((old_flags
& BSF_GLOBAL
) != 0
3445 && bfd_is_abs_section (symbol
->section
)
3446 && abs_section_index
<= 0)
3448 /* Create an absolute section if none was defined. It is highly
3449 unlikely that the name $ABS$ clashes with a user defined
3450 non-absolute section name. */
3451 _bfd_vms_output_begin_subrec (recwr
, EGSD__C_PSC
);
3452 _bfd_vms_output_short (recwr
, 4);
3453 _bfd_vms_output_short (recwr
, EGPS__V_SHR
);
3454 _bfd_vms_output_long (recwr
, 0);
3455 _bfd_vms_output_counted (recwr
, "$ABS$");
3456 _bfd_vms_output_end_subrec (recwr
);
3458 abs_section_index
= target_index
++;
3461 _bfd_vms_output_begin_subrec (recwr
, EGSD__C_SYM
);
3463 /* Data type, alignment. */
3464 _bfd_vms_output_short (recwr
, 0);
3468 if (old_flags
& BSF_WEAK
)
3469 new_flags
|= EGSY__V_WEAK
;
3470 if (bfd_is_com_section (symbol
->section
)) /* .comm */
3471 new_flags
|= (EGSY__V_WEAK
| EGSY__V_COMM
);
3473 if (old_flags
& BSF_FUNCTION
)
3475 new_flags
|= EGSY__V_NORM
;
3476 new_flags
|= EGSY__V_REL
;
3478 if (old_flags
& BSF_GLOBAL
)
3480 new_flags
|= EGSY__V_DEF
;
3481 if (!bfd_is_abs_section (symbol
->section
))
3482 new_flags
|= EGSY__V_REL
;
3484 _bfd_vms_output_short (recwr
, new_flags
);
3486 if (old_flags
& BSF_GLOBAL
)
3488 /* Symbol definition. */
3489 bfd_vma code_address
= 0;
3490 unsigned long ca_psindx
= 0;
3491 unsigned long psindx
;
3493 if ((old_flags
& BSF_FUNCTION
) && symbol
->udata
.p
!= NULL
)
3498 ((struct evax_private_udata_struct
*)symbol
->udata
.p
)->enbsym
;
3499 code_address
= sym
->value
;
3500 ca_psindx
= sym
->section
->target_index
;
3502 if (bfd_is_abs_section (symbol
->section
))
3503 psindx
= abs_section_index
;
3505 psindx
= symbol
->section
->target_index
;
3507 _bfd_vms_output_quad (recwr
, symbol
->value
);
3508 _bfd_vms_output_quad (recwr
, code_address
);
3509 _bfd_vms_output_long (recwr
, ca_psindx
);
3510 _bfd_vms_output_long (recwr
, psindx
);
3512 hash
= _bfd_vms_length_hash_symbol (abfd
, symbol
->name
, EOBJ__C_SYMSIZ
);
3513 _bfd_vms_output_counted (recwr
, hash
);
3515 _bfd_vms_output_end_subrec (recwr
);
3518 _bfd_vms_output_alignment (recwr
, 8);
3519 _bfd_vms_output_end (abfd
, recwr
);
3524 /* Write object header for bfd abfd. Return FALSE on error. */
3527 _bfd_vms_write_ehdr (bfd
*abfd
)
3530 unsigned int symnum
;
3533 struct vms_rec_wr
*recwr
= &PRIV (recwr
);
3535 vms_debug2 ((2, "vms_write_ehdr (%p)\n", abfd
));
3537 _bfd_vms_output_alignment (recwr
, 2);
3539 _bfd_vms_write_emh (abfd
);
3540 _bfd_vms_write_lmn (abfd
, "GNU AS");
3543 _bfd_vms_output_begin (recwr
, EOBJ__C_EMH
);
3544 _bfd_vms_output_short (recwr
, EMH__C_SRC
);
3546 for (symnum
= 0; symnum
< abfd
->symcount
; symnum
++)
3548 symbol
= abfd
->outsymbols
[symnum
];
3550 if (symbol
->flags
& BSF_FILE
)
3552 if (CONST_STRNEQ ((char *)symbol
->name
, "<CASE:"))
3554 PRIV (flag_hash_long_names
) = symbol
->name
[6] - '0';
3555 PRIV (flag_show_after_trunc
) = symbol
->name
[7] - '0';
3563 _bfd_vms_output_dump (recwr
, (unsigned char *) symbol
->name
,
3564 (int) strlen (symbol
->name
));
3571 if (symnum
== abfd
->symcount
)
3572 _bfd_vms_output_dump (recwr
, (unsigned char *) STRING_COMMA_LEN ("noname"));
3574 _bfd_vms_output_end (abfd
, recwr
);
3577 _bfd_vms_output_begin (recwr
, EOBJ__C_EMH
);
3578 _bfd_vms_output_short (recwr
, EMH__C_TTL
);
3579 _bfd_vms_output_dump (recwr
, (unsigned char *) STRING_COMMA_LEN ("TTL"));
3580 _bfd_vms_output_end (abfd
, recwr
);
3583 _bfd_vms_output_begin (recwr
, EOBJ__C_EMH
);
3584 _bfd_vms_output_short (recwr
, EMH__C_CPR
);
3585 _bfd_vms_output_dump (recwr
,
3586 (unsigned char *)"GNU BFD ported by Klaus Kämpf 1994-1996",
3588 _bfd_vms_output_end (abfd
, recwr
);
3593 /* Part 4.6, relocations. */
3596 /* WRITE ETIR SECTION
3598 This is still under construction and therefore not documented. */
3600 /* Close the etir/etbt record. */
3603 end_etir_record (bfd
* abfd
)
3605 struct vms_rec_wr
*recwr
= &PRIV (recwr
);
3607 _bfd_vms_output_end (abfd
, recwr
);
3611 start_etir_or_etbt_record (bfd
*abfd
, asection
*section
, bfd_vma offset
)
3613 struct vms_rec_wr
*recwr
= &PRIV (recwr
);
3615 if (section
->flags
& SEC_DEBUGGING
)
3617 _bfd_vms_output_begin (recwr
, EOBJ__C_ETBT
);
3621 /* Push start offset. */
3622 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STA_LW
);
3623 _bfd_vms_output_long (recwr
, (unsigned long) 0);
3624 _bfd_vms_output_end_subrec (recwr
);
3627 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_CTL_DFLOC
);
3628 _bfd_vms_output_end_subrec (recwr
);
3633 _bfd_vms_output_begin (recwr
, EOBJ__C_ETIR
);
3637 /* Push start offset. */
3638 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STA_PQ
);
3639 _bfd_vms_output_long (recwr
, (unsigned long) section
->target_index
);
3640 _bfd_vms_output_quad (recwr
, offset
);
3641 _bfd_vms_output_end_subrec (recwr
);
3643 /* Start = pop (). */
3644 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_CTL_SETRB
);
3645 _bfd_vms_output_end_subrec (recwr
);
3650 /* Output a STO_IMM command for SSIZE bytes of data from CPR at virtual
3651 address VADDR in section specified by SEC_INDEX and NAME. */
3654 sto_imm (bfd
*abfd
, asection
*section
,
3655 bfd_size_type ssize
, unsigned char *cptr
, bfd_vma vaddr
)
3658 struct vms_rec_wr
*recwr
= &PRIV (recwr
);
3661 _bfd_vms_debug (8, "sto_imm %d bytes\n", (int) ssize
);
3662 _bfd_hexdump (9, cptr
, (int) ssize
, (int) vaddr
);
3667 /* Try all the rest. */
3670 if (_bfd_vms_output_check (recwr
, size
) < 0)
3672 /* Doesn't fit, split ! */
3673 end_etir_record (abfd
);
3675 start_etir_or_etbt_record (abfd
, section
, vaddr
);
3677 size
= _bfd_vms_output_check (recwr
, 0); /* get max size */
3678 if (size
> ssize
) /* more than what's left ? */
3682 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STO_IMM
);
3683 _bfd_vms_output_long (recwr
, (unsigned long) (size
));
3684 _bfd_vms_output_dump (recwr
, cptr
, size
);
3685 _bfd_vms_output_end_subrec (recwr
);
3688 _bfd_vms_debug (10, "dumped %d bytes\n", (int) size
);
3689 _bfd_hexdump (10, cptr
, (int) size
, (int) vaddr
);
3699 etir_output_check (bfd
*abfd
, asection
*section
, bfd_vma vaddr
, int checklen
)
3701 if (_bfd_vms_output_check (&PRIV (recwr
), checklen
) < 0)
3703 /* Not enough room in this record. Close it and open a new one. */
3704 end_etir_record (abfd
);
3705 start_etir_or_etbt_record (abfd
, section
, vaddr
);
3709 /* Return whether RELOC must be deferred till the end. */
3712 defer_reloc_p (arelent
*reloc
)
3714 switch (reloc
->howto
->type
)
3727 /* Write section contents for bfd abfd. Return FALSE on error. */
3730 _bfd_vms_write_etir (bfd
* abfd
, int objtype ATTRIBUTE_UNUSED
)
3733 struct vms_rec_wr
*recwr
= &PRIV (recwr
);
3735 vms_debug2 ((2, "vms_write_tir (%p, %d)\n", abfd
, objtype
));
3737 _bfd_vms_output_alignment (recwr
, 4);
3739 PRIV (vms_linkage_index
) = 1;
3741 for (section
= abfd
->sections
; section
; section
= section
->next
)
3743 vms_debug2 ((4, "writing %d. section '%s' (%d bytes)\n",
3744 section
->target_index
, section
->name
, (int) (section
->size
)));
3746 if (!(section
->flags
& SEC_HAS_CONTENTS
)
3747 || bfd_is_com_section (section
))
3750 if (!section
->contents
)
3752 bfd_set_error (bfd_error_no_contents
);
3756 start_etir_or_etbt_record (abfd
, section
, 0);
3758 if (section
->flags
& SEC_RELOC
)
3760 bfd_vma curr_addr
= 0;
3761 unsigned char *curr_data
= section
->contents
;
3763 int pass2_needed
= 0;
3764 int pass2_in_progress
= 0;
3767 if (section
->reloc_count
== 0)
3768 (*_bfd_error_handler
)
3769 (_("SEC_RELOC with no relocs in section %s"), section
->name
);
3774 int i
= section
->reloc_count
;
3775 arelent
**rptr
= section
->orelocation
;
3776 _bfd_vms_debug (4, "%d relocations:\n", i
);
3779 _bfd_vms_debug (4, "sym %s in sec %s, value %08lx, "
3780 "addr %08lx, off %08lx, len %d: %s\n",
3781 (*(*rptr
)->sym_ptr_ptr
)->name
,
3782 (*(*rptr
)->sym_ptr_ptr
)->section
->name
,
3783 (long) (*(*rptr
)->sym_ptr_ptr
)->value
,
3784 (unsigned long)(*rptr
)->address
,
3785 (unsigned long)(*rptr
)->addend
,
3786 bfd_get_reloc_size ((*rptr
)->howto
),
3787 ( *rptr
)->howto
->name
);
3794 for (irel
= 0; irel
< section
->reloc_count
; irel
++)
3796 struct evax_private_udata_struct
*udata
;
3797 arelent
*rptr
= section
->orelocation
[irel
];
3798 bfd_vma addr
= rptr
->address
;
3799 asymbol
*sym
= *rptr
->sym_ptr_ptr
;
3800 asection
*sec
= sym
->section
;
3801 bfd_boolean defer
= defer_reloc_p (rptr
);
3805 if (pass2_in_progress
)
3807 /* Non-deferred relocs have already been output. */
3813 /* Deferred relocs must be output at the very end. */
3820 /* Regular relocs are intertwined with binary data. */
3821 if (curr_addr
> addr
)
3822 (*_bfd_error_handler
) (_("Size error in section %s"),
3824 size
= addr
- curr_addr
;
3825 sto_imm (abfd
, section
, size
, curr_data
, curr_addr
);
3830 size
= bfd_get_reloc_size (rptr
->howto
);
3832 switch (rptr
->howto
->type
)
3834 case ALPHA_R_IGNORE
:
3837 case ALPHA_R_REFLONG
:
3838 if (bfd_is_und_section (sym
->section
))
3840 bfd_vma addend
= rptr
->addend
;
3841 slen
= strlen ((char *) sym
->name
);
3842 hash
= _bfd_vms_length_hash_symbol
3843 (abfd
, sym
->name
, EOBJ__C_SYMSIZ
);
3844 etir_output_check (abfd
, section
, curr_addr
, slen
);
3847 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STA_GBL
);
3848 _bfd_vms_output_counted (recwr
, hash
);
3849 _bfd_vms_output_end_subrec (recwr
);
3850 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STA_LW
);
3851 _bfd_vms_output_long (recwr
, (unsigned long) addend
);
3852 _bfd_vms_output_end_subrec (recwr
);
3853 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_OPR_ADD
);
3854 _bfd_vms_output_end_subrec (recwr
);
3855 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STO_LW
);
3856 _bfd_vms_output_end_subrec (recwr
);
3860 _bfd_vms_output_begin_subrec
3861 (recwr
, ETIR__C_STO_GBL_LW
);
3862 _bfd_vms_output_counted (recwr
, hash
);
3863 _bfd_vms_output_end_subrec (recwr
);
3866 else if (bfd_is_abs_section (sym
->section
))
3868 etir_output_check (abfd
, section
, curr_addr
, 16);
3869 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STA_LW
);
3870 _bfd_vms_output_long (recwr
, (unsigned long) sym
->value
);
3871 _bfd_vms_output_end_subrec (recwr
);
3872 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STO_LW
);
3873 _bfd_vms_output_end_subrec (recwr
);
3877 etir_output_check (abfd
, section
, curr_addr
, 32);
3878 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STA_PQ
);
3879 _bfd_vms_output_long (recwr
,
3880 (unsigned long) sec
->target_index
);
3881 _bfd_vms_output_quad (recwr
, rptr
->addend
+ sym
->value
);
3882 _bfd_vms_output_end_subrec (recwr
);
3883 /* ??? Table B-8 of the OpenVMS Linker Utilily Manual
3884 says that we should have a ETIR__C_STO_OFF here.
3885 But the relocation would not be BFD_RELOC_32 then.
3886 This case is very likely unreachable. */
3887 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STO_LW
);
3888 _bfd_vms_output_end_subrec (recwr
);
3892 case ALPHA_R_REFQUAD
:
3893 if (bfd_is_und_section (sym
->section
))
3895 bfd_vma addend
= rptr
->addend
;
3896 slen
= strlen ((char *) sym
->name
);
3897 hash
= _bfd_vms_length_hash_symbol
3898 (abfd
, sym
->name
, EOBJ__C_SYMSIZ
);
3899 etir_output_check (abfd
, section
, curr_addr
, slen
);
3902 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STA_GBL
);
3903 _bfd_vms_output_counted (recwr
, hash
);
3904 _bfd_vms_output_end_subrec (recwr
);
3905 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STA_QW
);
3906 _bfd_vms_output_quad (recwr
, addend
);
3907 _bfd_vms_output_end_subrec (recwr
);
3908 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_OPR_ADD
);
3909 _bfd_vms_output_end_subrec (recwr
);
3910 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STO_QW
);
3911 _bfd_vms_output_end_subrec (recwr
);
3915 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STO_GBL
);
3916 _bfd_vms_output_counted (recwr
, hash
);
3917 _bfd_vms_output_end_subrec (recwr
);
3920 else if (bfd_is_abs_section (sym
->section
))
3922 etir_output_check (abfd
, section
, curr_addr
, 16);
3923 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STA_QW
);
3924 _bfd_vms_output_quad (recwr
, sym
->value
);
3925 _bfd_vms_output_end_subrec (recwr
);
3926 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STO_QW
);
3927 _bfd_vms_output_end_subrec (recwr
);
3931 etir_output_check (abfd
, section
, curr_addr
, 32);
3932 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STA_PQ
);
3933 _bfd_vms_output_long (recwr
,
3934 (unsigned long) sec
->target_index
);
3935 _bfd_vms_output_quad (recwr
, rptr
->addend
+ sym
->value
);
3936 _bfd_vms_output_end_subrec (recwr
);
3937 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STO_OFF
);
3938 _bfd_vms_output_end_subrec (recwr
);
3943 sto_imm (abfd
, section
, size
, curr_data
, curr_addr
);
3946 case ALPHA_R_LINKAGE
:
3947 etir_output_check (abfd
, section
, curr_addr
, 64);
3948 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STC_LP_PSB
);
3949 _bfd_vms_output_long
3950 (recwr
, (unsigned long) PRIV (vms_linkage_index
));
3951 PRIV (vms_linkage_index
) += 2;
3952 hash
= _bfd_vms_length_hash_symbol
3953 (abfd
, sym
->name
, EOBJ__C_SYMSIZ
);
3954 _bfd_vms_output_counted (recwr
, hash
);
3955 _bfd_vms_output_byte (recwr
, 0);
3956 _bfd_vms_output_end_subrec (recwr
);
3959 case ALPHA_R_CODEADDR
:
3960 slen
= strlen ((char *) sym
->name
);
3961 hash
= _bfd_vms_length_hash_symbol
3962 (abfd
, sym
->name
, EOBJ__C_SYMSIZ
);
3963 etir_output_check (abfd
, section
, curr_addr
, slen
);
3964 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STO_CA
);
3965 _bfd_vms_output_counted (recwr
, hash
);
3966 _bfd_vms_output_end_subrec (recwr
);
3971 = (struct evax_private_udata_struct
*) rptr
->sym_ptr_ptr
;
3972 etir_output_check (abfd
, section
, curr_addr
,
3973 32 + 1 + strlen (udata
->origname
));
3974 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STC_NOP_GBL
);
3975 _bfd_vms_output_long (recwr
, (unsigned long) udata
->lkindex
);
3976 _bfd_vms_output_long
3978 (unsigned long) udata
->enbsym
->section
->target_index
);
3979 _bfd_vms_output_quad (recwr
, rptr
->address
);
3980 _bfd_vms_output_long (recwr
, (unsigned long) 0x47ff041f);
3981 _bfd_vms_output_long
3983 (unsigned long) udata
->enbsym
->section
->target_index
);
3984 _bfd_vms_output_quad (recwr
, rptr
->addend
);
3985 _bfd_vms_output_counted
3986 (recwr
, _bfd_vms_length_hash_symbol
3987 (abfd
, udata
->origname
, EOBJ__C_SYMSIZ
));
3988 _bfd_vms_output_end_subrec (recwr
);
3992 (*_bfd_error_handler
) (_("Spurious ALPHA_R_BSR reloc"));
3997 = (struct evax_private_udata_struct
*) rptr
->sym_ptr_ptr
;
3998 etir_output_check (abfd
, section
, curr_addr
,
3999 32 + 1 + strlen (udata
->origname
));
4000 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STC_LDA_GBL
);
4001 _bfd_vms_output_long
4002 (recwr
, (unsigned long) udata
->lkindex
+ 1);
4003 _bfd_vms_output_long
4005 (unsigned long) udata
->enbsym
->section
->target_index
);
4006 _bfd_vms_output_quad (recwr
, rptr
->address
);
4007 _bfd_vms_output_long (recwr
, (unsigned long) 0x237B0000);
4008 _bfd_vms_output_long
4009 (recwr
, (unsigned long) udata
->bsym
->section
->target_index
);
4010 _bfd_vms_output_quad (recwr
, rptr
->addend
);
4011 _bfd_vms_output_counted
4012 (recwr
, _bfd_vms_length_hash_symbol
4013 (abfd
, udata
->origname
, EOBJ__C_SYMSIZ
));
4014 _bfd_vms_output_end_subrec (recwr
);
4019 = (struct evax_private_udata_struct
*) rptr
->sym_ptr_ptr
;
4020 etir_output_check (abfd
, section
, curr_addr
,
4021 32 + 1 + strlen (udata
->origname
));
4022 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STC_BOH_GBL
);
4023 _bfd_vms_output_long (recwr
, (unsigned long) udata
->lkindex
);
4024 _bfd_vms_output_long
4026 (unsigned long) udata
->enbsym
->section
->target_index
);
4027 _bfd_vms_output_quad (recwr
, rptr
->address
);
4028 _bfd_vms_output_long (recwr
, (unsigned long) 0xD3400000);
4029 _bfd_vms_output_long
4031 (unsigned long) udata
->enbsym
->section
->target_index
);
4032 _bfd_vms_output_quad (recwr
, rptr
->addend
);
4033 _bfd_vms_output_counted
4034 (recwr
, _bfd_vms_length_hash_symbol
4035 (abfd
, udata
->origname
, EOBJ__C_SYMSIZ
));
4036 _bfd_vms_output_end_subrec (recwr
);
4040 (*_bfd_error_handler
) (_("Unhandled relocation %s"),
4047 } /* End of relocs loop. */
4049 if (!pass2_in_progress
)
4051 /* Output rest of section. */
4052 if (curr_addr
> section
->size
)
4053 (*_bfd_error_handler
) (_("Size error in section %s"),
4055 size
= section
->size
- curr_addr
;
4056 sto_imm (abfd
, section
, size
, curr_data
, curr_addr
);
4062 pass2_in_progress
= 1;
4068 else /* (section->flags & SEC_RELOC) */
4069 sto_imm (abfd
, section
, section
->size
, section
->contents
, 0);
4071 end_etir_record (abfd
);
4074 _bfd_vms_output_alignment (recwr
, 2);
4078 /* Write cached information into a file being written, at bfd_close. */
4081 alpha_vms_write_object_contents (bfd
*abfd
)
4083 vms_debug2 ((1, "vms_write_object_contents (%p)\n", abfd
));
4085 if (abfd
->flags
& (EXEC_P
| DYNAMIC
))
4087 return alpha_vms_write_exec (abfd
);
4091 if (abfd
->section_count
> 0) /* we have sections */
4093 if (_bfd_vms_write_ehdr (abfd
) != TRUE
)
4095 if (_bfd_vms_write_egsd (abfd
) != TRUE
)
4097 if (_bfd_vms_write_etir (abfd
, EOBJ__C_ETIR
) != TRUE
)
4099 if (_bfd_vms_write_eeom (abfd
) != TRUE
)
4106 /* Debug stuff: nearest line. */
4108 #define SET_MODULE_PARSED(m) \
4109 do { if ((m)->name == NULL) (m)->name = ""; } while (0)
4110 #define IS_MODULE_PARSED(m) ((m)->name != NULL)
4112 /* Build a new module for the specified BFD. */
4114 static struct module
*
4115 new_module (bfd
*abfd
)
4117 struct module
*module
4118 = (struct module
*) bfd_zalloc (abfd
, sizeof (struct module
));
4119 module
->file_table_count
= 16; /* Arbitrary. */
4121 = bfd_malloc (module
->file_table_count
* sizeof (struct fileinfo
));
4125 /* Parse debug info for a module and internalize it. */
4128 parse_module (bfd
*abfd
, struct module
*module
, unsigned char *ptr
,
4131 unsigned char *maxptr
= ptr
+ length
;
4132 unsigned char *src_ptr
, *pcl_ptr
;
4133 unsigned int prev_linum
= 0, curr_linenum
= 0;
4134 bfd_vma prev_pc
= 0, curr_pc
= 0;
4135 struct srecinfo
*curr_srec
, *srec
;
4136 struct lineinfo
*curr_line
, *line
;
4137 struct funcinfo
*funcinfo
;
4139 /* Initialize tables with zero element. */
4140 curr_srec
= (struct srecinfo
*) bfd_zalloc (abfd
, sizeof (struct srecinfo
));
4141 module
->srec_table
= curr_srec
;
4143 curr_line
= (struct lineinfo
*) bfd_zalloc (abfd
, sizeof (struct lineinfo
));
4144 module
->line_table
= curr_line
;
4146 while (length
== -1 || ptr
< maxptr
)
4148 /* The first byte is not counted in the recorded length. */
4149 int rec_length
= bfd_getl16 (ptr
) + 1;
4150 int rec_type
= bfd_getl16 (ptr
+ 2);
4152 vms_debug2 ((2, "DST record: leng %d, type %d\n", rec_length
, rec_type
));
4154 if (length
== -1 && rec_type
== DST__K_MODEND
)
4161 = _bfd_vms_save_counted_string (ptr
+ DST_S_B_MODBEG_NAME
);
4168 vms_debug2 ((3, "module: %s\n", module
->name
));
4175 funcinfo
= (struct funcinfo
*)
4176 bfd_zalloc (abfd
, sizeof (struct funcinfo
));
4178 = _bfd_vms_save_counted_string (ptr
+ DST_S_B_RTNBEG_NAME
);
4179 funcinfo
->low
= bfd_getl32 (ptr
+ DST_S_L_RTNBEG_ADDRESS
);
4180 funcinfo
->next
= module
->func_table
;
4181 module
->func_table
= funcinfo
;
4183 vms_debug2 ((3, "routine: %s at 0x%lx\n",
4184 funcinfo
->name
, (unsigned long) funcinfo
->low
));
4188 module
->func_table
->high
= module
->func_table
->low
4189 + bfd_getl32 (ptr
+ DST_S_L_RTNEND_SIZE
) - 1;
4191 if (module
->func_table
->high
> module
->high
)
4192 module
->high
= module
->func_table
->high
;
4194 vms_debug2 ((3, "end routine\n"));
4198 vms_debug2 ((3, "prologue\n"));
4202 vms_debug2 ((3, "epilog\n"));
4206 vms_debug2 ((3, "block\n"));
4210 vms_debug2 ((3, "end block\n"));
4214 src_ptr
= ptr
+ DST_S_C_SOURCE_HEADER_SIZE
;
4216 vms_debug2 ((3, "source info\n"));
4218 while (src_ptr
< ptr
+ rec_length
)
4220 int cmd
= src_ptr
[0], cmd_length
, data
;
4224 case DST__K_SRC_DECLFILE
:
4227 = bfd_getl16 (src_ptr
+ DST_S_W_SRC_DF_FILEID
);
4229 = _bfd_vms_save_counted_string (src_ptr
4230 + DST_S_B_SRC_DF_FILENAME
);
4232 while (fileid
>= module
->file_table_count
)
4234 module
->file_table_count
*= 2;
4236 = bfd_realloc (module
->file_table
,
4237 module
->file_table_count
4238 * sizeof (struct fileinfo
));
4241 module
->file_table
[fileid
].name
= filename
;
4242 module
->file_table
[fileid
].srec
= 1;
4243 cmd_length
= src_ptr
[DST_S_B_SRC_DF_LENGTH
] + 2;
4244 vms_debug2 ((4, "DST_S_C_SRC_DECLFILE: %d, %s\n",
4245 fileid
, module
->file_table
[fileid
].name
));
4249 case DST__K_SRC_DEFLINES_B
:
4250 /* Perform the association and set the next higher index
4252 data
= src_ptr
[DST_S_B_SRC_UNSBYTE
];
4253 srec
= (struct srecinfo
*)
4254 bfd_zalloc (abfd
, sizeof (struct srecinfo
));
4255 srec
->line
= curr_srec
->line
+ data
;
4256 srec
->srec
= curr_srec
->srec
+ data
;
4257 srec
->sfile
= curr_srec
->sfile
;
4258 curr_srec
->next
= srec
;
4261 vms_debug2 ((4, "DST_S_C_SRC_DEFLINES_B: %d\n", data
));
4264 case DST__K_SRC_DEFLINES_W
:
4265 /* Perform the association and set the next higher index
4267 data
= bfd_getl16 (src_ptr
+ DST_S_W_SRC_UNSWORD
);
4268 srec
= (struct srecinfo
*)
4269 bfd_zalloc (abfd
, sizeof (struct srecinfo
));
4270 srec
->line
= curr_srec
->line
+ data
;
4271 srec
->srec
= curr_srec
->srec
+ data
,
4272 srec
->sfile
= curr_srec
->sfile
;
4273 curr_srec
->next
= srec
;
4276 vms_debug2 ((4, "DST_S_C_SRC_DEFLINES_W: %d\n", data
));
4279 case DST__K_SRC_INCRLNUM_B
:
4280 data
= src_ptr
[DST_S_B_SRC_UNSBYTE
];
4281 curr_srec
->line
+= data
;
4283 vms_debug2 ((4, "DST_S_C_SRC_INCRLNUM_B: %d\n", data
));
4286 case DST__K_SRC_SETFILE
:
4287 data
= bfd_getl16 (src_ptr
+ DST_S_W_SRC_UNSWORD
);
4288 curr_srec
->sfile
= data
;
4289 curr_srec
->srec
= module
->file_table
[data
].srec
;
4291 vms_debug2 ((4, "DST_S_C_SRC_SETFILE: %d\n", data
));
4294 case DST__K_SRC_SETLNUM_L
:
4295 data
= bfd_getl32 (src_ptr
+ DST_S_L_SRC_UNSLONG
);
4296 curr_srec
->line
= data
;
4298 vms_debug2 ((4, "DST_S_C_SRC_SETLNUM_L: %d\n", data
));
4301 case DST__K_SRC_SETLNUM_W
:
4302 data
= bfd_getl16 (src_ptr
+ DST_S_W_SRC_UNSWORD
);
4303 curr_srec
->line
= data
;
4305 vms_debug2 ((4, "DST_S_C_SRC_SETLNUM_W: %d\n", data
));
4308 case DST__K_SRC_SETREC_L
:
4309 data
= bfd_getl32 (src_ptr
+ DST_S_L_SRC_UNSLONG
);
4310 curr_srec
->srec
= data
;
4311 module
->file_table
[curr_srec
->sfile
].srec
= data
;
4313 vms_debug2 ((4, "DST_S_C_SRC_SETREC_L: %d\n", data
));
4316 case DST__K_SRC_SETREC_W
:
4317 data
= bfd_getl16 (src_ptr
+ DST_S_W_SRC_UNSWORD
);
4318 curr_srec
->srec
= data
;
4319 module
->file_table
[curr_srec
->sfile
].srec
= data
;
4321 vms_debug2 ((4, "DST_S_C_SRC_SETREC_W: %d\n", data
));
4324 case DST__K_SRC_FORMFEED
:
4326 vms_debug2 ((4, "DST_S_C_SRC_FORMFEED\n"));
4330 (*_bfd_error_handler
) (_("unknown source command %d"),
4336 src_ptr
+= cmd_length
;
4340 case DST__K_LINE_NUM
:
4341 pcl_ptr
= ptr
+ DST_S_C_LINE_NUM_HEADER_SIZE
;
4343 vms_debug2 ((3, "line info\n"));
4345 while (pcl_ptr
< ptr
+ rec_length
)
4347 /* The command byte is signed so we must sign-extend it. */
4348 int cmd
= ((signed char *)pcl_ptr
)[0], cmd_length
, data
;
4352 case DST__K_DELTA_PC_W
:
4353 data
= bfd_getl16 (pcl_ptr
+ DST_S_W_PCLINE_UNSWORD
);
4357 vms_debug2 ((4, "DST__K_DELTA_PC_W: %d\n", data
));
4360 case DST__K_DELTA_PC_L
:
4361 data
= bfd_getl32 (pcl_ptr
+ DST_S_L_PCLINE_UNSLONG
);
4365 vms_debug2 ((4, "DST__K_DELTA_PC_L: %d\n", data
));
4368 case DST__K_INCR_LINUM
:
4369 data
= pcl_ptr
[DST_S_B_PCLINE_UNSBYTE
];
4370 curr_linenum
+= data
;
4372 vms_debug2 ((4, "DST__K_INCR_LINUM: %d\n", data
));
4375 case DST__K_INCR_LINUM_W
:
4376 data
= bfd_getl16 (pcl_ptr
+ DST_S_W_PCLINE_UNSWORD
);
4377 curr_linenum
+= data
;
4379 vms_debug2 ((4, "DST__K_INCR_LINUM_W: %d\n", data
));
4382 case DST__K_INCR_LINUM_L
:
4383 data
= bfd_getl32 (pcl_ptr
+ DST_S_L_PCLINE_UNSLONG
);
4384 curr_linenum
+= data
;
4386 vms_debug2 ((4, "DST__K_INCR_LINUM_L: %d\n", data
));
4389 case DST__K_SET_LINUM_INCR
:
4390 (*_bfd_error_handler
)
4391 (_("DST__K_SET_LINUM_INCR not implemented"));
4395 case DST__K_SET_LINUM_INCR_W
:
4396 (*_bfd_error_handler
)
4397 (_("DST__K_SET_LINUM_INCR_W not implemented"));
4401 case DST__K_RESET_LINUM_INCR
:
4402 (*_bfd_error_handler
)
4403 (_("DST__K_RESET_LINUM_INCR not implemented"));
4407 case DST__K_BEG_STMT_MODE
:
4408 (*_bfd_error_handler
)
4409 (_("DST__K_BEG_STMT_MODE not implemented"));
4413 case DST__K_END_STMT_MODE
:
4414 (*_bfd_error_handler
)
4415 (_("DST__K_END_STMT_MODE not implemented"));
4419 case DST__K_SET_LINUM_B
:
4420 data
= pcl_ptr
[DST_S_B_PCLINE_UNSBYTE
];
4421 curr_linenum
= data
;
4423 vms_debug2 ((4, "DST__K_SET_LINUM_B: %d\n", data
));
4426 case DST__K_SET_LINUM
:
4427 data
= bfd_getl16 (pcl_ptr
+ DST_S_W_PCLINE_UNSWORD
);
4428 curr_linenum
= data
;
4430 vms_debug2 ((4, "DST__K_SET_LINE_NUM: %d\n", data
));
4433 case DST__K_SET_LINUM_L
:
4434 data
= bfd_getl32 (pcl_ptr
+ DST_S_L_PCLINE_UNSLONG
);
4435 curr_linenum
= data
;
4437 vms_debug2 ((4, "DST__K_SET_LINUM_L: %d\n", data
));
4441 (*_bfd_error_handler
)
4442 (_("DST__K_SET_PC not implemented"));
4446 case DST__K_SET_PC_W
:
4447 (*_bfd_error_handler
)
4448 (_("DST__K_SET_PC_W not implemented"));
4452 case DST__K_SET_PC_L
:
4453 (*_bfd_error_handler
)
4454 (_("DST__K_SET_PC_L not implemented"));
4458 case DST__K_SET_STMTNUM
:
4459 (*_bfd_error_handler
)
4460 (_("DST__K_SET_STMTNUM not implemented"));
4465 data
= pcl_ptr
[DST_S_B_PCLINE_UNSBYTE
];
4468 vms_debug2 ((4, "DST__K_TERM: %d\n", data
));
4472 data
= bfd_getl16 (pcl_ptr
+ DST_S_W_PCLINE_UNSWORD
);
4475 vms_debug2 ((4, "DST__K_TERM_W: %d\n", data
));
4479 data
= bfd_getl32 (pcl_ptr
+ DST_S_L_PCLINE_UNSLONG
);
4482 vms_debug2 ((4, "DST__K_TERM_L: %d\n", data
));
4485 case DST__K_SET_ABS_PC
:
4486 data
= bfd_getl32 (pcl_ptr
+ DST_S_L_PCLINE_UNSLONG
);
4489 vms_debug2 ((4, "DST__K_SET_ABS_PC: 0x%x\n", data
));
4498 vms_debug2 ((4, "bump pc to 0x%lx and line to %d\n",
4499 (unsigned long)curr_pc
, curr_linenum
));
4503 (*_bfd_error_handler
) (_("unknown line command %d"),
4510 if ((curr_linenum
!= prev_linum
&& curr_pc
!= prev_pc
)
4512 || cmd
== DST__K_DELTA_PC_L
4513 || cmd
== DST__K_DELTA_PC_W
)
4515 line
= (struct lineinfo
*)
4516 bfd_zalloc (abfd
, sizeof (struct lineinfo
));
4517 line
->address
= curr_pc
;
4518 line
->line
= curr_linenum
;
4520 curr_line
->next
= line
;
4523 prev_linum
= curr_linenum
;
4525 vms_debug2 ((4, "-> correlate pc 0x%lx with line %d\n",
4526 (unsigned long)curr_pc
, curr_linenum
));
4529 pcl_ptr
+= cmd_length
;
4533 case 0x17: /* Undocumented type used by DEC C to declare equates. */
4534 vms_debug2 ((3, "undocumented type 0x17\n"));
4538 vms_debug2 ((3, "ignoring record\n"));
4546 /* Finalize tables with EOL marker. */
4547 srec
= (struct srecinfo
*) bfd_zalloc (abfd
, sizeof (struct srecinfo
));
4548 srec
->line
= (unsigned int) -1;
4549 srec
->srec
= (unsigned int) -1;
4550 curr_srec
->next
= srec
;
4552 line
= (struct lineinfo
*) bfd_zalloc (abfd
, sizeof (struct lineinfo
));
4553 line
->line
= (unsigned int) -1;
4554 line
->address
= (bfd_vma
) -1;
4555 curr_line
->next
= line
;
4557 /* Advertise that this module has been parsed. This is needed
4558 because parsing can be either performed at module creation
4559 or deferred until debug info is consumed. */
4560 SET_MODULE_PARSED (module
);
4563 /* Build the list of modules for the specified BFD. */
4565 static struct module
*
4566 build_module_list (bfd
*abfd
)
4568 struct module
*module
, *list
= NULL
;
4571 if ((dmt
= bfd_get_section_by_name (abfd
, "$DMT$")))
4573 /* We have a DMT section so this must be an image. Parse the
4574 section and build the list of modules. This is sufficient
4575 since we can compute the start address and the end address
4576 of every module from the section contents. */
4577 bfd_size_type size
= bfd_get_section_size (dmt
);
4578 unsigned char *ptr
, *end
;
4580 ptr
= (unsigned char *) bfd_alloc (abfd
, size
);
4584 if (! bfd_get_section_contents (abfd
, dmt
, ptr
, 0, size
))
4587 vms_debug2 ((2, "DMT\n"));
4593 /* Each header declares a module with its start offset and size
4594 of debug info in the DST section, as well as the count of
4595 program sections (i.e. address spans) it contains. */
4596 int modbeg
= bfd_getl32 (ptr
+ DBG_S_L_DMT_MODBEG
);
4597 int msize
= bfd_getl32 (ptr
+ DBG_S_L_DST_SIZE
);
4598 int count
= bfd_getl16 (ptr
+ DBG_S_W_DMT_PSECT_COUNT
);
4599 ptr
+= DBG_S_C_DMT_HEADER_SIZE
;
4601 vms_debug2 ((3, "module: modbeg = %d, size = %d, count = %d\n",
4602 modbeg
, msize
, count
));
4604 /* We create a 'module' structure for each program section since
4605 we only support contiguous addresses in a 'module' structure.
4606 As a consequence, the actual debug info in the DST section is
4607 shared and can be parsed multiple times; that doesn't seem to
4608 cause problems in practice. */
4611 int start
= bfd_getl32 (ptr
+ DBG_S_L_DMT_PSECT_START
);
4612 int length
= bfd_getl32 (ptr
+ DBG_S_L_DMT_PSECT_LENGTH
);
4613 module
= new_module (abfd
);
4614 module
->modbeg
= modbeg
;
4615 module
->size
= msize
;
4616 module
->low
= start
;
4617 module
->high
= start
+ length
;
4618 module
->next
= list
;
4620 ptr
+= DBG_S_C_DMT_PSECT_SIZE
;
4622 vms_debug2 ((4, "section: start = 0x%x, length = %d\n",
4629 /* We don't have a DMT section so this must be an object. Parse
4630 the module right now in order to compute its start address and
4632 void *dst
= PRIV (dst_section
)->contents
;
4637 module
= new_module (abfd
);
4638 parse_module (abfd
, module
, PRIV (dst_section
)->contents
, -1);
4645 /* Calculate and return the name of the source file and the line nearest
4646 to the wanted location in the specified module. */
4649 module_find_nearest_line (bfd
*abfd
, struct module
*module
, bfd_vma addr
,
4650 const char **file
, const char **func
,
4653 struct funcinfo
*funcinfo
;
4654 struct lineinfo
*lineinfo
;
4655 struct srecinfo
*srecinfo
;
4656 bfd_boolean ret
= FALSE
;
4658 /* Parse this module if that was not done at module creation. */
4659 if (! IS_MODULE_PARSED (module
))
4661 unsigned int size
= module
->size
;
4662 unsigned int modbeg
= PRIV (dst_section
)->filepos
+ module
->modbeg
;
4663 unsigned char *buffer
= (unsigned char *) bfd_malloc (module
->size
);
4665 if (bfd_seek (abfd
, modbeg
, SEEK_SET
) != 0
4666 || bfd_bread (buffer
, size
, abfd
) != size
)
4668 bfd_set_error (bfd_error_no_debug_section
);
4672 parse_module (abfd
, module
, buffer
, size
);
4676 /* Find out the function (if any) that contains the address. */
4677 for (funcinfo
= module
->func_table
; funcinfo
; funcinfo
= funcinfo
->next
)
4678 if (addr
>= funcinfo
->low
&& addr
<= funcinfo
->high
)
4680 *func
= funcinfo
->name
;
4685 /* Find out the source file and the line nearest to the address. */
4686 for (lineinfo
= module
->line_table
; lineinfo
; lineinfo
= lineinfo
->next
)
4687 if (lineinfo
->next
&& addr
< lineinfo
->next
->address
)
4689 for (srecinfo
= module
->srec_table
; srecinfo
; srecinfo
= srecinfo
->next
)
4690 if (srecinfo
->next
&& lineinfo
->line
< srecinfo
->next
->line
)
4692 if (srecinfo
->sfile
> 0)
4694 *file
= module
->file_table
[srecinfo
->sfile
].name
;
4695 *line
= srecinfo
->srec
+ lineinfo
->line
- srecinfo
->line
;
4699 *file
= module
->name
;
4700 *line
= lineinfo
->line
;
4711 /* Provided a BFD, a section and an offset into the section, calculate and
4712 return the name of the source file and the line nearest to the wanted
4716 _bfd_vms_find_nearest_dst_line (bfd
*abfd
, asection
*section
,
4717 asymbol
**symbols ATTRIBUTE_UNUSED
,
4718 bfd_vma offset
, const char **file
,
4719 const char **func
, unsigned int *line
)
4721 struct module
*module
;
4723 /* What address are we looking for? */
4724 bfd_vma addr
= section
->vma
+ offset
;
4730 /* We can't do anything if there is no DST (debug symbol table). */
4731 if (PRIV (dst_section
) == NULL
)
4734 /* Create the module list - if not already done. */
4735 if (PRIV (modules
) == NULL
)
4737 PRIV (modules
) = build_module_list (abfd
);
4738 if (PRIV (modules
) == NULL
)
4742 for (module
= PRIV (modules
); module
; module
= module
->next
)
4743 if (addr
>= module
->low
&& addr
<= module
->high
)
4744 return module_find_nearest_line (abfd
, module
, addr
, file
, func
, line
);
4749 /* Canonicalizations. */
4750 /* Set name, value, section and flags of SYM from E. */
4753 alpha_vms_convert_symbol (bfd
*abfd
, struct vms_symbol_entry
*e
, asymbol
*sym
)
4762 flags
= BSF_NO_FLAGS
;
4768 if (e
->flags
& EGSY__V_WEAK
)
4771 if (e
->flags
& EGSY__V_DEF
)
4773 /* Symbol definition. */
4774 flags
|= BSF_GLOBAL
;
4775 if (e
->flags
& EGSY__V_NORM
)
4776 flags
|= BSF_FUNCTION
;
4782 /* Symbol reference. */
4783 sec
= bfd_und_section_ptr
;
4788 /* A universal symbol is by definition global... */
4789 flags
|= BSF_GLOBAL
;
4791 /* ...and dynamic in shared libraries. */
4792 if (abfd
->flags
& DYNAMIC
)
4793 flags
|= BSF_DYNAMIC
;
4795 if (e
->flags
& EGSY__V_WEAK
)
4798 if (!(e
->flags
& EGSY__V_DEF
))
4801 if (e
->flags
& EGSY__V_NORM
)
4802 flags
|= BSF_FUNCTION
;
4805 /* sec = e->section; */
4806 sec
= bfd_abs_section_ptr
;
4821 /* Return the number of bytes required to store a vector of pointers
4822 to asymbols for all the symbols in the BFD abfd, including a
4823 terminal NULL pointer. If there are no symbols in the BFD,
4824 then return 0. If an error occurs, return -1. */
4827 alpha_vms_get_symtab_upper_bound (bfd
*abfd
)
4829 vms_debug2 ((1, "alpha_vms_get_symtab_upper_bound (%p), %d symbols\n",
4830 abfd
, PRIV (gsd_sym_count
)));
4832 return (PRIV (gsd_sym_count
) + 1) * sizeof (asymbol
*);
4835 /* Read the symbols from the BFD abfd, and fills in the vector
4836 location with pointers to the symbols and a trailing NULL.
4838 Return number of symbols read. */
4841 alpha_vms_canonicalize_symtab (bfd
*abfd
, asymbol
**symbols
)
4845 vms_debug2 ((1, "alpha_vms_canonicalize_symtab (%p, <ret>)\n", abfd
));
4847 if (PRIV (csymbols
) == NULL
)
4849 PRIV (csymbols
) = (asymbol
**) bfd_alloc
4850 (abfd
, PRIV (gsd_sym_count
) * sizeof (asymbol
*));
4852 /* Traverse table and fill symbols vector. */
4853 for (i
= 0; i
< PRIV (gsd_sym_count
); i
++)
4855 struct vms_symbol_entry
*e
= PRIV (syms
)[i
];
4858 sym
= bfd_make_empty_symbol (abfd
);
4859 if (sym
== NULL
|| !alpha_vms_convert_symbol (abfd
, e
, sym
))
4861 bfd_release (abfd
, PRIV (csymbols
));
4862 PRIV (csymbols
) = NULL
;
4866 PRIV (csymbols
)[i
] = sym
;
4870 if (symbols
!= NULL
)
4872 for (i
= 0; i
< PRIV (gsd_sym_count
); i
++)
4873 symbols
[i
] = PRIV (csymbols
)[i
];
4877 return PRIV (gsd_sym_count
);
4880 /* Read and convert relocations from ETIR. We do it once for all sections. */
4883 alpha_vms_slurp_relocs (bfd
*abfd
)
4887 vms_debug2 ((3, "alpha_vms_slurp_relocs\n"));
4889 /* We slurp relocs only once, for all sections. */
4890 if (PRIV (reloc_done
))
4892 PRIV (reloc_done
) = TRUE
;
4894 if (alpha_vms_canonicalize_symtab (abfd
, NULL
) < 0)
4897 if (bfd_seek (abfd
, 0, SEEK_SET
) != 0)
4902 unsigned char *begin
;
4905 bfd_reloc_code_real_type reloc_code
;
4911 bfd_vma cur_address
;
4913 unsigned char *cur_sym
= NULL
;
4915 bfd_vma cur_addend
= 0;
4917 /* Skip non-ETIR records. */
4918 type
= _bfd_vms_get_object_record (abfd
);
4919 if (type
== EOBJ__C_EEOM
)
4921 if (type
!= EOBJ__C_ETIR
)
4924 begin
= PRIV (recrd
.rec
) + 4;
4925 end
= PRIV (recrd
.rec
) + PRIV (recrd
.rec_size
);
4927 for (ptr
= begin
; ptr
< end
; ptr
+= length
)
4931 cmd
= bfd_getl16 (ptr
);
4932 length
= bfd_getl16 (ptr
+ 2);
4934 cur_address
= vaddr
;
4936 vms_debug2 ((4, "alpha_vms_slurp_relocs: etir %s\n",
4937 _bfd_vms_etir_name (cmd
)));
4941 case ETIR__C_STA_GBL
: /* ALPHA_R_REFLONG und_section, step 1 */
4942 /* ALPHA_R_REFQUAD und_section, step 1 */
4947 case ETIR__C_STA_PQ
: /* ALPHA_R_REF{LONG|QUAD}, others part 1 */
4948 cur_psidx
= bfd_getl32 (ptr
+ 4);
4949 cur_addend
= bfd_getl64 (ptr
+ 8);
4953 case ETIR__C_CTL_SETRB
:
4954 if (prev_cmd
!= ETIR__C_STA_PQ
)
4956 (*_bfd_error_handler
)
4957 (_("Unknown reloc %s + %s"), _bfd_vms_etir_name (prev_cmd
),
4958 _bfd_vms_etir_name (cmd
));
4961 cur_psect
= cur_psidx
;
4967 case ETIR__C_STA_LW
: /* ALPHA_R_REFLONG abs_section, step 1 */
4968 /* ALPHA_R_REFLONG und_section, step 2 */
4971 if (prev_cmd
!= ETIR__C_STA_GBL
)
4973 (*_bfd_error_handler
)
4974 (_("Unknown reloc %s + %s"), _bfd_vms_etir_name (cmd
),
4975 _bfd_vms_etir_name (ETIR__C_STA_LW
));
4979 cur_addend
= bfd_getl32 (ptr
+ 4);
4983 case ETIR__C_STA_QW
: /* ALPHA_R_REFQUAD abs_section, step 1 */
4984 /* ALPHA_R_REFQUAD und_section, step 2 */
4985 if (prev_cmd
!= -1 && prev_cmd
!= ETIR__C_STA_GBL
)
4987 (*_bfd_error_handler
)
4988 (_("Unknown reloc %s + %s"), _bfd_vms_etir_name (cmd
),
4989 _bfd_vms_etir_name (ETIR__C_STA_QW
));
4992 cur_addend
= bfd_getl64 (ptr
+ 4);
4996 case ETIR__C_STO_LW
: /* ALPHA_R_REFLONG und_section, step 4 */
4997 /* ALPHA_R_REFLONG abs_section, step 2 */
4998 /* ALPHA_R_REFLONG others, step 2 */
4999 if (prev_cmd
!= ETIR__C_OPR_ADD
5000 && prev_cmd
!= ETIR__C_STA_LW
5001 && prev_cmd
!= ETIR__C_STA_PQ
)
5003 (*_bfd_error_handler
) (_("Unknown reloc %s + %s"),
5004 _bfd_vms_etir_name (prev_cmd
),
5005 _bfd_vms_etir_name (ETIR__C_STO_LW
));
5008 reloc_code
= BFD_RELOC_32
;
5011 case ETIR__C_STO_QW
: /* ALPHA_R_REFQUAD und_section, step 4 */
5012 /* ALPHA_R_REFQUAD abs_section, step 2 */
5013 if (prev_cmd
!= ETIR__C_OPR_ADD
&& prev_cmd
!= ETIR__C_STA_QW
)
5015 (*_bfd_error_handler
) (_("Unknown reloc %s + %s"),
5016 _bfd_vms_etir_name (prev_cmd
),
5017 _bfd_vms_etir_name (ETIR__C_STO_QW
));
5020 reloc_code
= BFD_RELOC_64
;
5023 case ETIR__C_STO_OFF
: /* ALPHA_R_REFQUAD others, step 2 */
5024 if (prev_cmd
!= ETIR__C_STA_PQ
)
5026 (*_bfd_error_handler
) (_("Unknown reloc %s + %s"),
5027 _bfd_vms_etir_name (prev_cmd
),
5028 _bfd_vms_etir_name (ETIR__C_STO_OFF
));
5031 reloc_code
= BFD_RELOC_64
;
5034 case ETIR__C_OPR_ADD
: /* ALPHA_R_REFLONG und_section, step 3 */
5035 /* ALPHA_R_REFQUAD und_section, step 3 */
5036 if (prev_cmd
!= ETIR__C_STA_LW
&& prev_cmd
!= ETIR__C_STA_QW
)
5038 (*_bfd_error_handler
) (_("Unknown reloc %s + %s"),
5039 _bfd_vms_etir_name (prev_cmd
),
5040 _bfd_vms_etir_name (ETIR__C_OPR_ADD
));
5043 prev_cmd
= ETIR__C_OPR_ADD
;
5046 case ETIR__C_STO_CA
: /* ALPHA_R_CODEADDR */
5047 reloc_code
= BFD_RELOC_ALPHA_CODEADDR
;
5051 case ETIR__C_STO_GBL
: /* ALPHA_R_REFQUAD und_section */
5052 reloc_code
= BFD_RELOC_64
;
5056 case ETIR__C_STO_GBL_LW
: /* ALPHA_R_REFLONG und_section */
5057 reloc_code
= BFD_RELOC_32
;
5061 case ETIR__C_STC_LP_PSB
: /* ALPHA_R_LINKAGE */
5062 reloc_code
= BFD_RELOC_ALPHA_LINKAGE
;
5066 case ETIR__C_STC_NOP_GBL
: /* ALPHA_R_NOP */
5067 reloc_code
= BFD_RELOC_ALPHA_NOP
;
5070 case ETIR__C_STC_BSR_GBL
: /* ALPHA_R_BSR */
5071 reloc_code
= BFD_RELOC_ALPHA_BSR
;
5074 case ETIR__C_STC_LDA_GBL
: /* ALPHA_R_LDA */
5075 reloc_code
= BFD_RELOC_ALPHA_LDA
;
5078 case ETIR__C_STC_BOH_GBL
: /* ALPHA_R_BOH */
5079 reloc_code
= BFD_RELOC_ALPHA_BOH
;
5083 cur_sym
= ptr
+ 4 + 32;
5084 cur_address
= bfd_getl64 (ptr
+ 4 + 8);
5085 cur_addend
= bfd_getl64 (ptr
+ 4 + 24);
5088 case ETIR__C_STO_IMM
:
5089 vaddr
+= bfd_getl32 (ptr
+ 4);
5093 (*_bfd_error_handler
) (_("Unknown reloc %s"),
5094 _bfd_vms_etir_name (cmd
));
5100 struct vms_section_data_struct
*vms_sec
;
5103 /* Get section to which the relocation applies. */
5104 if (cur_psect
< 0 || cur_psect
> (int)PRIV (section_count
))
5106 (*_bfd_error_handler
) (_("Invalid section index in ETIR"));
5110 sec
= PRIV (sections
)[cur_psect
];
5111 if (sec
== bfd_abs_section_ptr
)
5113 (*_bfd_error_handler
) (_("Relocation for non-REL psect"));
5117 vms_sec
= vms_section_data (sec
);
5119 /* Allocate a reloc entry. */
5120 if (sec
->reloc_count
>= vms_sec
->reloc_max
)
5122 if (vms_sec
->reloc_max
== 0)
5124 vms_sec
->reloc_max
= 64;
5125 sec
->relocation
= bfd_zmalloc
5126 (vms_sec
->reloc_max
* sizeof (arelent
));
5130 vms_sec
->reloc_max
*= 2;
5131 sec
->relocation
= bfd_realloc
5132 (sec
->relocation
, vms_sec
->reloc_max
* sizeof (arelent
));
5135 reloc
= &sec
->relocation
[sec
->reloc_count
];
5138 reloc
->howto
= bfd_reloc_type_lookup (abfd
, reloc_code
);
5140 if (cur_sym
!= NULL
)
5143 unsigned int symlen
= *cur_sym
;
5146 /* Linear search. */
5151 for (j
= 0; j
< PRIV (gsd_sym_count
); j
++)
5152 if (PRIV (syms
)[j
]->namelen
== symlen
5153 && memcmp (PRIV (syms
)[j
]->name
, cur_sym
, symlen
) == 0)
5155 sym
= &PRIV (csymbols
)[j
];
5160 (*_bfd_error_handler
) (_("Unknown symbol in command %s"),
5161 _bfd_vms_etir_name (cmd
));
5162 reloc
->sym_ptr_ptr
= NULL
;
5165 reloc
->sym_ptr_ptr
= sym
;
5167 else if (cur_psidx
>= 0)
5168 reloc
->sym_ptr_ptr
=
5169 PRIV (sections
)[cur_psidx
]->symbol_ptr_ptr
;
5171 reloc
->sym_ptr_ptr
= NULL
;
5173 reloc
->address
= cur_address
;
5174 reloc
->addend
= cur_addend
;
5176 vaddr
+= bfd_get_reloc_size (reloc
->howto
);
5185 vms_debug2 ((3, "alpha_vms_slurp_relocs: result = TRUE\n"));
5190 /* Return the number of bytes required to store the relocation
5191 information associated with the given section. */
5194 alpha_vms_get_reloc_upper_bound (bfd
*abfd ATTRIBUTE_UNUSED
, asection
*section
)
5196 alpha_vms_slurp_relocs (abfd
);
5198 return (section
->reloc_count
+ 1) * sizeof (arelent
*);
5201 /* Convert relocations from VMS (external) form into BFD internal
5202 form. Return the number of relocations. */
5205 alpha_vms_canonicalize_reloc (bfd
*abfd
, asection
*section
, arelent
**relptr
,
5206 asymbol
**symbols ATTRIBUTE_UNUSED
)
5211 if (!alpha_vms_slurp_relocs (abfd
))
5214 count
= section
->reloc_count
;
5215 tblptr
= section
->relocation
;
5218 *relptr
++ = tblptr
++;
5220 *relptr
= (arelent
*) NULL
;
5221 return section
->reloc_count
;
5224 /* This is just copied from ecoff-alpha, needs to be fixed probably. */
5226 /* How to process the various reloc types. */
5228 static bfd_reloc_status_type
5229 reloc_nil (bfd
* abfd ATTRIBUTE_UNUSED
,
5230 arelent
*reloc ATTRIBUTE_UNUSED
,
5231 asymbol
*sym ATTRIBUTE_UNUSED
,
5232 void * data ATTRIBUTE_UNUSED
,
5233 asection
*sec ATTRIBUTE_UNUSED
,
5234 bfd
*output_bfd ATTRIBUTE_UNUSED
,
5235 char **error_message ATTRIBUTE_UNUSED
)
5238 vms_debug (1, "reloc_nil (abfd %p, output_bfd %p)\n", abfd
, output_bfd
);
5239 vms_debug (2, "In section %s, symbol %s\n",
5240 sec
->name
, sym
->name
);
5241 vms_debug (2, "reloc sym %s, addr %08lx, addend %08lx, reloc is a %s\n",
5242 reloc
->sym_ptr_ptr
[0]->name
,
5243 (unsigned long)reloc
->address
,
5244 (unsigned long)reloc
->addend
, reloc
->howto
->name
);
5245 vms_debug (2, "data at %p\n", data
);
5246 /* _bfd_hexdump (2, data, bfd_get_reloc_size (reloc->howto), 0); */
5249 return bfd_reloc_ok
;
5252 /* In case we're on a 32-bit machine, construct a 64-bit "-1" value
5253 from smaller values. Start with zero, widen, *then* decrement. */
5254 #define MINUS_ONE (((bfd_vma)0) - 1)
5256 static reloc_howto_type alpha_howto_table
[] =
5258 HOWTO (ALPHA_R_IGNORE
, /* Type. */
5259 0, /* Rightshift. */
5260 0, /* Size (0 = byte, 1 = short, 2 = long). */
5262 TRUE
, /* PC relative. */
5264 complain_overflow_dont
,/* Complain_on_overflow. */
5265 reloc_nil
, /* Special_function. */
5266 "IGNORE", /* Name. */
5267 TRUE
, /* Partial_inplace. */
5268 0, /* Source mask */
5270 TRUE
), /* PC rel offset. */
5272 /* A 64 bit reference to a symbol. */
5273 HOWTO (ALPHA_R_REFQUAD
, /* Type. */
5274 0, /* Rightshift. */
5275 4, /* Size (0 = byte, 1 = short, 2 = long). */
5277 FALSE
, /* PC relative. */
5279 complain_overflow_bitfield
, /* Complain_on_overflow. */
5280 reloc_nil
, /* Special_function. */
5281 "REFQUAD", /* Name. */
5282 TRUE
, /* Partial_inplace. */
5283 MINUS_ONE
, /* Source mask. */
5284 MINUS_ONE
, /* Dest mask. */
5285 FALSE
), /* PC rel offset. */
5287 /* A 21 bit branch. The native assembler generates these for
5288 branches within the text segment, and also fills in the PC
5289 relative offset in the instruction. */
5290 HOWTO (ALPHA_R_BRADDR
, /* Type. */
5291 2, /* Rightshift. */
5292 2, /* Size (0 = byte, 1 = short, 2 = long). */
5294 TRUE
, /* PC relative. */
5296 complain_overflow_signed
, /* Complain_on_overflow. */
5297 reloc_nil
, /* Special_function. */
5298 "BRADDR", /* Name. */
5299 TRUE
, /* Partial_inplace. */
5300 0x1fffff, /* Source mask. */
5301 0x1fffff, /* Dest mask. */
5302 FALSE
), /* PC rel offset. */
5304 /* A hint for a jump to a register. */
5305 HOWTO (ALPHA_R_HINT
, /* Type. */
5306 2, /* Rightshift. */
5307 1, /* Size (0 = byte, 1 = short, 2 = long). */
5309 TRUE
, /* PC relative. */
5311 complain_overflow_dont
,/* Complain_on_overflow. */
5312 reloc_nil
, /* Special_function. */
5314 TRUE
, /* Partial_inplace. */
5315 0x3fff, /* Source mask. */
5316 0x3fff, /* Dest mask. */
5317 FALSE
), /* PC rel offset. */
5319 /* 16 bit PC relative offset. */
5320 HOWTO (ALPHA_R_SREL16
, /* Type. */
5321 0, /* Rightshift. */
5322 1, /* Size (0 = byte, 1 = short, 2 = long). */
5324 TRUE
, /* PC relative. */
5326 complain_overflow_signed
, /* Complain_on_overflow. */
5327 reloc_nil
, /* Special_function. */
5328 "SREL16", /* Name. */
5329 TRUE
, /* Partial_inplace. */
5330 0xffff, /* Source mask. */
5331 0xffff, /* Dest mask. */
5332 FALSE
), /* PC rel offset. */
5334 /* 32 bit PC relative offset. */
5335 HOWTO (ALPHA_R_SREL32
, /* Type. */
5336 0, /* Rightshift. */
5337 2, /* Size (0 = byte, 1 = short, 2 = long). */
5339 TRUE
, /* PC relative. */
5341 complain_overflow_signed
, /* Complain_on_overflow. */
5342 reloc_nil
, /* Special_function. */
5343 "SREL32", /* Name. */
5344 TRUE
, /* Partial_inplace. */
5345 0xffffffff, /* Source mask. */
5346 0xffffffff, /* Dest mask. */
5347 FALSE
), /* PC rel offset. */
5349 /* A 64 bit PC relative offset. */
5350 HOWTO (ALPHA_R_SREL64
, /* Type. */
5351 0, /* Rightshift. */
5352 4, /* Size (0 = byte, 1 = short, 2 = long). */
5354 TRUE
, /* PC relative. */
5356 complain_overflow_signed
, /* Complain_on_overflow. */
5357 reloc_nil
, /* Special_function. */
5358 "SREL64", /* Name. */
5359 TRUE
, /* Partial_inplace. */
5360 MINUS_ONE
, /* Source mask. */
5361 MINUS_ONE
, /* Dest mask. */
5362 FALSE
), /* PC rel offset. */
5364 /* Push a value on the reloc evaluation stack. */
5365 HOWTO (ALPHA_R_OP_PUSH
, /* Type. */
5366 0, /* Rightshift. */
5367 0, /* Size (0 = byte, 1 = short, 2 = long). */
5369 FALSE
, /* PC relative. */
5371 complain_overflow_dont
,/* Complain_on_overflow. */
5372 reloc_nil
, /* Special_function. */
5373 "OP_PUSH", /* Name. */
5374 FALSE
, /* Partial_inplace. */
5375 0, /* Source mask. */
5377 FALSE
), /* PC rel offset. */
5379 /* Store the value from the stack at the given address. Store it in
5380 a bitfield of size r_size starting at bit position r_offset. */
5381 HOWTO (ALPHA_R_OP_STORE
, /* Type. */
5382 0, /* Rightshift. */
5383 4, /* Size (0 = byte, 1 = short, 2 = long). */
5385 FALSE
, /* PC relative. */
5387 complain_overflow_dont
,/* Complain_on_overflow. */
5388 reloc_nil
, /* Special_function. */
5389 "OP_STORE", /* Name. */
5390 FALSE
, /* Partial_inplace. */
5391 0, /* Source mask. */
5392 MINUS_ONE
, /* Dest mask. */
5393 FALSE
), /* PC rel offset. */
5395 /* Subtract the reloc address from the value on the top of the
5396 relocation stack. */
5397 HOWTO (ALPHA_R_OP_PSUB
, /* Type. */
5398 0, /* Rightshift. */
5399 0, /* Size (0 = byte, 1 = short, 2 = long). */
5401 FALSE
, /* PC relative. */
5403 complain_overflow_dont
,/* Complain_on_overflow. */
5404 reloc_nil
, /* Special_function. */
5405 "OP_PSUB", /* Name. */
5406 FALSE
, /* Partial_inplace. */
5407 0, /* Source mask. */
5409 FALSE
), /* PC rel offset. */
5411 /* Shift the value on the top of the relocation stack right by the
5413 HOWTO (ALPHA_R_OP_PRSHIFT
, /* Type. */
5414 0, /* Rightshift. */
5415 0, /* Size (0 = byte, 1 = short, 2 = long). */
5417 FALSE
, /* PC relative. */
5419 complain_overflow_dont
,/* Complain_on_overflow. */
5420 reloc_nil
, /* Special_function. */
5421 "OP_PRSHIFT", /* Name. */
5422 FALSE
, /* Partial_inplace. */
5423 0, /* Source mask. */
5425 FALSE
), /* PC rel offset. */
5427 /* Hack. Linkage is done by linker. */
5428 HOWTO (ALPHA_R_LINKAGE
, /* Type. */
5429 0, /* Rightshift. */
5430 8, /* Size (0 = byte, 1 = short, 2 = long). */
5432 FALSE
, /* PC relative. */
5434 complain_overflow_dont
,/* Complain_on_overflow. */
5435 reloc_nil
, /* Special_function. */
5436 "LINKAGE", /* Name. */
5437 FALSE
, /* Partial_inplace. */
5438 0, /* Source mask. */
5440 FALSE
), /* PC rel offset. */
5442 /* A 32 bit reference to a symbol. */
5443 HOWTO (ALPHA_R_REFLONG
, /* Type. */
5444 0, /* Rightshift. */
5445 2, /* Size (0 = byte, 1 = short, 2 = long). */
5447 FALSE
, /* PC relative. */
5449 complain_overflow_bitfield
, /* Complain_on_overflow. */
5450 reloc_nil
, /* Special_function. */
5451 "REFLONG", /* Name. */
5452 TRUE
, /* Partial_inplace. */
5453 0xffffffff, /* Source mask. */
5454 0xffffffff, /* Dest mask. */
5455 FALSE
), /* PC rel offset. */
5457 /* A 64 bit reference to a procedure, written as 32 bit value. */
5458 HOWTO (ALPHA_R_CODEADDR
, /* Type. */
5459 0, /* Rightshift. */
5460 4, /* Size (0 = byte, 1 = short, 2 = long). */
5462 FALSE
, /* PC relative. */
5464 complain_overflow_signed
,/* Complain_on_overflow. */
5465 reloc_nil
, /* Special_function. */
5466 "CODEADDR", /* Name. */
5467 FALSE
, /* Partial_inplace. */
5468 0xffffffff, /* Source mask. */
5469 0xffffffff, /* Dest mask. */
5470 FALSE
), /* PC rel offset. */
5472 HOWTO (ALPHA_R_NOP
, /* Type. */
5473 0, /* Rightshift. */
5474 3, /* Size (0 = byte, 1 = short, 2 = long). */
5476 /* The following value must match that of ALPHA_R_BSR/ALPHA_R_BOH
5477 because the calculations for the 3 relocations are the same.
5478 See B.4.5.2 of the OpenVMS Linker Utility Manual. */
5479 TRUE
, /* PC relative. */
5481 complain_overflow_dont
,/* Complain_on_overflow. */
5482 reloc_nil
, /* Special_function. */
5484 FALSE
, /* Partial_inplace. */
5485 0xffffffff, /* Source mask. */
5486 0xffffffff, /* Dest mask. */
5487 FALSE
), /* PC rel offset. */
5489 HOWTO (ALPHA_R_BSR
, /* Type. */
5490 0, /* Rightshift. */
5491 3, /* Size (0 = byte, 1 = short, 2 = long). */
5493 TRUE
, /* PC relative. */
5495 complain_overflow_dont
,/* Complain_on_overflow. */
5496 reloc_nil
, /* Special_function. */
5498 FALSE
, /* Partial_inplace. */
5499 0xffffffff, /* Source mask. */
5500 0xffffffff, /* Dest mask. */
5501 FALSE
), /* PC rel offset. */
5503 HOWTO (ALPHA_R_LDA
, /* Type. */
5504 0, /* Rightshift. */
5505 3, /* Size (0 = byte, 1 = short, 2 = long). */
5507 FALSE
, /* PC relative. */
5509 complain_overflow_dont
,/* Complain_on_overflow. */
5510 reloc_nil
, /* Special_function. */
5512 FALSE
, /* Partial_inplace. */
5513 0xffffffff, /* Source mask. */
5514 0xffffffff, /* Dest mask. */
5515 FALSE
), /* PC rel offset. */
5517 HOWTO (ALPHA_R_BOH
, /* Type. */
5518 0, /* Rightshift. */
5519 3, /* Size (0 = byte, 1 = short, 2 = long, 3 = nil). */
5521 TRUE
, /* PC relative. */
5523 complain_overflow_dont
,/* Complain_on_overflow. */
5524 reloc_nil
, /* Special_function. */
5526 FALSE
, /* Partial_inplace. */
5527 0xffffffff, /* Source mask. */
5528 0xffffffff, /* Dest mask. */
5529 FALSE
), /* PC rel offset. */
5532 /* Return a pointer to a howto structure which, when invoked, will perform
5533 the relocation code on data from the architecture noted. */
5535 static const struct reloc_howto_struct
*
5536 alpha_vms_bfd_reloc_type_lookup (bfd
* abfd ATTRIBUTE_UNUSED
,
5537 bfd_reloc_code_real_type code
)
5541 vms_debug2 ((1, "vms_bfd_reloc_type_lookup (%p, %d)\t", abfd
, code
));
5545 case BFD_RELOC_16
: alpha_type
= ALPHA_R_SREL16
; break;
5546 case BFD_RELOC_32
: alpha_type
= ALPHA_R_REFLONG
; break;
5547 case BFD_RELOC_64
: alpha_type
= ALPHA_R_REFQUAD
; break;
5548 case BFD_RELOC_CTOR
: alpha_type
= ALPHA_R_REFQUAD
; break;
5549 case BFD_RELOC_23_PCREL_S2
: alpha_type
= ALPHA_R_BRADDR
; break;
5550 case BFD_RELOC_ALPHA_HINT
: alpha_type
= ALPHA_R_HINT
; break;
5551 case BFD_RELOC_16_PCREL
: alpha_type
= ALPHA_R_SREL16
; break;
5552 case BFD_RELOC_32_PCREL
: alpha_type
= ALPHA_R_SREL32
; break;
5553 case BFD_RELOC_64_PCREL
: alpha_type
= ALPHA_R_SREL64
; break;
5554 case BFD_RELOC_ALPHA_LINKAGE
: alpha_type
= ALPHA_R_LINKAGE
; break;
5555 case BFD_RELOC_ALPHA_CODEADDR
: alpha_type
= ALPHA_R_CODEADDR
; break;
5556 case BFD_RELOC_ALPHA_NOP
: alpha_type
= ALPHA_R_NOP
; break;
5557 case BFD_RELOC_ALPHA_BSR
: alpha_type
= ALPHA_R_BSR
; break;
5558 case BFD_RELOC_ALPHA_LDA
: alpha_type
= ALPHA_R_LDA
; break;
5559 case BFD_RELOC_ALPHA_BOH
: alpha_type
= ALPHA_R_BOH
; break;
5561 (*_bfd_error_handler
) ("reloc (%d) is *UNKNOWN*", code
);
5564 vms_debug2 ((2, "reloc is %s\n", alpha_howto_table
[alpha_type
].name
));
5565 return & alpha_howto_table
[alpha_type
];
5568 static reloc_howto_type
*
5569 alpha_vms_bfd_reloc_name_lookup (bfd
*abfd ATTRIBUTE_UNUSED
,
5575 i
< sizeof (alpha_howto_table
) / sizeof (alpha_howto_table
[0]);
5577 if (alpha_howto_table
[i
].name
!= NULL
5578 && strcasecmp (alpha_howto_table
[i
].name
, r_name
) == 0)
5579 return &alpha_howto_table
[i
];
5585 alpha_vms_get_synthetic_symtab (bfd
*abfd
,
5586 long symcount ATTRIBUTE_UNUSED
,
5587 asymbol
**usyms ATTRIBUTE_UNUSED
,
5588 long dynsymcount ATTRIBUTE_UNUSED
,
5589 asymbol
**dynsyms ATTRIBUTE_UNUSED
,
5596 syms
= (asymbol
*) bfd_malloc (PRIV (norm_sym_count
) * sizeof (asymbol
));
5601 for (i
= 0; i
< PRIV (gsd_sym_count
); i
++)
5603 struct vms_symbol_entry
*e
= PRIV (syms
)[i
];
5614 flags
= BSF_LOCAL
| BSF_SYNTHETIC
;
5621 if ((e
->flags
& EGSY__V_DEF
) && (e
->flags
& EGSY__V_NORM
))
5623 value
= e
->code_value
;
5624 sec
= e
->code_section
;
5635 sname
= bfd_alloc (abfd
, l
+ 5);
5638 memcpy (sname
, name
, l
);
5639 memcpy (sname
+ l
, "..en", 5);
5646 sym
->udata
.p
= NULL
;
5655 vms_time_to_str (unsigned char *buf
)
5657 time_t t
= vms_rawtime_to_time_t (buf
);
5658 char *res
= ctime (&t
);
5661 res
= "*invalid time*";
5668 evax_bfd_print_emh (FILE *file
, unsigned char *rec
, unsigned int rec_len
)
5670 struct vms_emh_common
*emh
= (struct vms_emh_common
*)rec
;
5671 unsigned int subtype
;
5673 subtype
= (unsigned)bfd_getl16 (emh
->subtyp
);
5675 fprintf (file
, _(" EMH %u (len=%u): "), subtype
, rec_len
);
5681 struct vms_emh_mhd
*mhd
= (struct vms_emh_mhd
*)rec
;
5684 fprintf (file
, _("Module header\n"));
5685 fprintf (file
, _(" structure level: %u\n"), mhd
->strlvl
);
5686 fprintf (file
, _(" max record size: %u\n"),
5687 (unsigned)bfd_getl32 (mhd
->recsiz
));
5688 name
= (char *)(mhd
+ 1);
5689 fprintf (file
, _(" module name : %.*s\n"), name
[0], name
+ 1);
5690 name
+= name
[0] + 1;
5691 fprintf (file
, _(" module version : %.*s\n"), name
[0], name
+ 1);
5692 name
+= name
[0] + 1;
5693 fprintf (file
, _(" compile date : %.17s\n"), name
);
5698 fprintf (file
, _("Language Processor Name\n"));
5699 fprintf (file
, _(" language name: %.*s\n"),
5700 (int)(rec_len
- sizeof (struct vms_emh_common
)),
5701 (char *)rec
+ sizeof (struct vms_emh_common
));
5706 fprintf (file
, _("Source Files Header\n"));
5707 fprintf (file
, _(" file: %.*s\n"),
5708 (int)(rec_len
- sizeof (struct vms_emh_common
)),
5709 (char *)rec
+ sizeof (struct vms_emh_common
));
5714 fprintf (file
, _("Title Text Header\n"));
5715 fprintf (file
, _(" title: %.*s\n"),
5716 (int)(rec_len
- sizeof (struct vms_emh_common
)),
5717 (char *)rec
+ sizeof (struct vms_emh_common
));
5722 fprintf (file
, _("Copyright Header\n"));
5723 fprintf (file
, _(" copyright: %.*s\n"),
5724 (int)(rec_len
- sizeof (struct vms_emh_common
)),
5725 (char *)rec
+ sizeof (struct vms_emh_common
));
5729 fprintf (file
, _("unhandled emh subtype %u\n"), subtype
);
5735 evax_bfd_print_eeom (FILE *file
, unsigned char *rec
, unsigned int rec_len
)
5737 struct vms_eeom
*eeom
= (struct vms_eeom
*)rec
;
5739 fprintf (file
, _(" EEOM (len=%u):\n"), rec_len
);
5740 fprintf (file
, _(" number of cond linkage pairs: %u\n"),
5741 (unsigned)bfd_getl32 (eeom
->total_lps
));
5742 fprintf (file
, _(" completion code: %u\n"),
5743 (unsigned)bfd_getl16 (eeom
->comcod
));
5746 fprintf (file
, _(" transfer addr flags: 0x%02x\n"), eeom
->tfrflg
);
5747 fprintf (file
, _(" transfer addr psect: %u\n"),
5748 (unsigned)bfd_getl32 (eeom
->psindx
));
5749 fprintf (file
, _(" transfer address : 0x%08x\n"),
5750 (unsigned)bfd_getl32 (eeom
->tfradr
));
5755 exav_bfd_print_egsy_flags (unsigned int flags
, FILE *file
)
5757 if (flags
& EGSY__V_WEAK
)
5758 fputs (_(" WEAK"), file
);
5759 if (flags
& EGSY__V_DEF
)
5760 fputs (_(" DEF"), file
);
5761 if (flags
& EGSY__V_UNI
)
5762 fputs (_(" UNI"), file
);
5763 if (flags
& EGSY__V_REL
)
5764 fputs (_(" REL"), file
);
5765 if (flags
& EGSY__V_COMM
)
5766 fputs (_(" COMM"), file
);
5767 if (flags
& EGSY__V_VECEP
)
5768 fputs (_(" VECEP"), file
);
5769 if (flags
& EGSY__V_NORM
)
5770 fputs (_(" NORM"), file
);
5771 if (flags
& EGSY__V_QUAD_VAL
)
5772 fputs (_(" QVAL"), file
);
5776 evax_bfd_print_egsd_flags (FILE *file
, unsigned int flags
)
5778 if (flags
& EGPS__V_PIC
)
5779 fputs (_(" PIC"), file
);
5780 if (flags
& EGPS__V_LIB
)
5781 fputs (_(" LIB"), file
);
5782 if (flags
& EGPS__V_OVR
)
5783 fputs (_(" OVR"), file
);
5784 if (flags
& EGPS__V_REL
)
5785 fputs (_(" REL"), file
);
5786 if (flags
& EGPS__V_GBL
)
5787 fputs (_(" GBL"), file
);
5788 if (flags
& EGPS__V_SHR
)
5789 fputs (_(" SHR"), file
);
5790 if (flags
& EGPS__V_EXE
)
5791 fputs (_(" EXE"), file
);
5792 if (flags
& EGPS__V_RD
)
5793 fputs (_(" RD"), file
);
5794 if (flags
& EGPS__V_WRT
)
5795 fputs (_(" WRT"), file
);
5796 if (flags
& EGPS__V_VEC
)
5797 fputs (_(" VEC"), file
);
5798 if (flags
& EGPS__V_NOMOD
)
5799 fputs (_(" NOMOD"), file
);
5800 if (flags
& EGPS__V_COM
)
5801 fputs (_(" COM"), file
);
5802 if (flags
& EGPS__V_ALLOC_64BIT
)
5803 fputs (_(" 64B"), file
);
5807 evax_bfd_print_egsd (FILE *file
, unsigned char *rec
, unsigned int rec_len
)
5809 unsigned int off
= sizeof (struct vms_egsd
);
5812 fprintf (file
, _(" EGSD (len=%u):\n"), rec_len
);
5815 for (off
= sizeof (struct vms_egsd
); off
< rec_len
; )
5817 struct vms_egsd_entry
*e
= (struct vms_egsd_entry
*)(rec
+ off
);
5821 type
= (unsigned)bfd_getl16 (e
->gsdtyp
);
5822 len
= (unsigned)bfd_getl16 (e
->gsdsiz
);
5824 fprintf (file
, _(" EGSD entry %2u (type: %u, len: %u): "),
5832 struct vms_egps
*egps
= (struct vms_egps
*)e
;
5833 unsigned int flags
= bfd_getl16 (egps
->flags
);
5836 fprintf (file
, _("PSC - Program section definition\n"));
5837 fprintf (file
, _(" alignment : 2**%u\n"), egps
->align
);
5838 fprintf (file
, _(" flags : 0x%04x"), flags
);
5839 evax_bfd_print_egsd_flags (file
, flags
);
5841 l
= bfd_getl32 (egps
->alloc
);
5842 fprintf (file
, _(" alloc (len): %u (0x%08x)\n"), l
, l
);
5843 fprintf (file
, _(" name : %.*s\n"),
5844 egps
->namlng
, egps
->name
);
5849 struct vms_esgps
*esgps
= (struct vms_esgps
*)e
;
5850 unsigned int flags
= bfd_getl16 (esgps
->flags
);
5853 fprintf (file
, _("SPSC - Shared Image Program section def\n"));
5854 fprintf (file
, _(" alignment : 2**%u\n"), esgps
->align
);
5855 fprintf (file
, _(" flags : 0x%04x"), flags
);
5856 evax_bfd_print_egsd_flags (file
, flags
);
5858 l
= bfd_getl32 (esgps
->alloc
);
5859 fprintf (file
, _(" alloc (len) : %u (0x%08x)\n"), l
, l
);
5860 fprintf (file
, _(" image offset : 0x%08x\n"),
5861 (unsigned int)bfd_getl32 (esgps
->base
));
5862 fprintf (file
, _(" symvec offset : 0x%08x\n"),
5863 (unsigned int)bfd_getl32 (esgps
->value
));
5864 fprintf (file
, _(" name : %.*s\n"),
5865 esgps
->namlng
, esgps
->name
);
5870 struct vms_egsy
*egsy
= (struct vms_egsy
*)e
;
5871 unsigned int flags
= bfd_getl16 (egsy
->flags
);
5873 if (flags
& EGSY__V_DEF
)
5875 struct vms_esdf
*esdf
= (struct vms_esdf
*)e
;
5877 fprintf (file
, _("SYM - Global symbol definition\n"));
5878 fprintf (file
, _(" flags: 0x%04x"), flags
);
5879 exav_bfd_print_egsy_flags (flags
, file
);
5881 fprintf (file
, _(" psect offset: 0x%08x\n"),
5882 (unsigned)bfd_getl32 (esdf
->value
));
5883 if (flags
& EGSY__V_NORM
)
5885 fprintf (file
, _(" code address: 0x%08x\n"),
5886 (unsigned)bfd_getl32 (esdf
->code_address
));
5887 fprintf (file
, _(" psect index for entry point : %u\n"),
5888 (unsigned)bfd_getl32 (esdf
->ca_psindx
));
5890 fprintf (file
, _(" psect index : %u\n"),
5891 (unsigned)bfd_getl32 (esdf
->psindx
));
5892 fprintf (file
, _(" name : %.*s\n"),
5893 esdf
->namlng
, esdf
->name
);
5897 struct vms_esrf
*esrf
= (struct vms_esrf
*)e
;
5899 fprintf (file
, _("SYM - Global symbol reference\n"));
5900 fprintf (file
, _(" name : %.*s\n"),
5901 esrf
->namlng
, esrf
->name
);
5907 struct vms_eidc
*eidc
= (struct vms_eidc
*)e
;
5908 unsigned int flags
= bfd_getl32 (eidc
->flags
);
5911 fprintf (file
, _("IDC - Ident Consistency check\n"));
5912 fprintf (file
, _(" flags : 0x%08x"), flags
);
5913 if (flags
& EIDC__V_BINIDENT
)
5914 fputs (" BINDENT", file
);
5916 fprintf (file
, _(" id match : %x\n"),
5917 (flags
>> EIDC__V_IDMATCH_SH
) & EIDC__V_IDMATCH_MASK
);
5918 fprintf (file
, _(" error severity: %x\n"),
5919 (flags
>> EIDC__V_ERRSEV_SH
) & EIDC__V_ERRSEV_MASK
);
5921 fprintf (file
, _(" entity name : %.*s\n"), p
[0], p
+ 1);
5923 fprintf (file
, _(" object name : %.*s\n"), p
[0], p
+ 1);
5925 if (flags
& EIDC__V_BINIDENT
)
5926 fprintf (file
, _(" binary ident : 0x%08x\n"),
5927 (unsigned)bfd_getl32 (p
+ 1));
5929 fprintf (file
, _(" ascii ident : %.*s\n"), p
[0], p
+ 1);
5934 struct vms_egst
*egst
= (struct vms_egst
*)e
;
5935 unsigned int flags
= bfd_getl16 (egst
->header
.flags
);
5937 fprintf (file
, _("SYMG - Universal symbol definition\n"));
5938 fprintf (file
, _(" flags: 0x%04x"), flags
);
5939 exav_bfd_print_egsy_flags (flags
, file
);
5941 fprintf (file
, _(" symbol vector offset: 0x%08x\n"),
5942 (unsigned)bfd_getl32 (egst
->value
));
5943 fprintf (file
, _(" entry point: 0x%08x\n"),
5944 (unsigned)bfd_getl32 (egst
->lp_1
));
5945 fprintf (file
, _(" proc descr : 0x%08x\n"),
5946 (unsigned)bfd_getl32 (egst
->lp_2
));
5947 fprintf (file
, _(" psect index: %u\n"),
5948 (unsigned)bfd_getl32 (egst
->psindx
));
5949 fprintf (file
, _(" name : %.*s\n"),
5950 egst
->namlng
, egst
->name
);
5955 struct vms_esdfv
*esdfv
= (struct vms_esdfv
*)e
;
5956 unsigned int flags
= bfd_getl16 (esdfv
->flags
);
5958 fprintf (file
, _("SYMV - Vectored symbol definition\n"));
5959 fprintf (file
, _(" flags: 0x%04x"), flags
);
5960 exav_bfd_print_egsy_flags (flags
, file
);
5962 fprintf (file
, _(" vector : 0x%08x\n"),
5963 (unsigned)bfd_getl32 (esdfv
->vector
));
5964 fprintf (file
, _(" psect offset: %u\n"),
5965 (unsigned)bfd_getl32 (esdfv
->value
));
5966 fprintf (file
, _(" psect index : %u\n"),
5967 (unsigned)bfd_getl32 (esdfv
->psindx
));
5968 fprintf (file
, _(" name : %.*s\n"),
5969 esdfv
->namlng
, esdfv
->name
);
5974 struct vms_esdfm
*esdfm
= (struct vms_esdfm
*)e
;
5975 unsigned int flags
= bfd_getl16 (esdfm
->flags
);
5977 fprintf (file
, _("SYMM - Global symbol definition with version\n"));
5978 fprintf (file
, _(" flags: 0x%04x"), flags
);
5979 exav_bfd_print_egsy_flags (flags
, file
);
5981 fprintf (file
, _(" version mask: 0x%08x\n"),
5982 (unsigned)bfd_getl32 (esdfm
->version_mask
));
5983 fprintf (file
, _(" psect offset: %u\n"),
5984 (unsigned)bfd_getl32 (esdfm
->value
));
5985 fprintf (file
, _(" psect index : %u\n"),
5986 (unsigned)bfd_getl32 (esdfm
->psindx
));
5987 fprintf (file
, _(" name : %.*s\n"),
5988 esdfm
->namlng
, esdfm
->name
);
5992 fprintf (file
, _("unhandled egsd entry type %u\n"), type
);
6000 evax_bfd_print_hex (FILE *file
, const char *pfx
,
6001 const unsigned char *buf
, unsigned int len
)
6007 for (i
= 0; i
< len
; i
++)
6011 fprintf (file
, " %02x", buf
[i
]);
6024 evax_bfd_print_etir_stc_ir (FILE *file
, const unsigned char *buf
, int is_ps
)
6026 fprintf (file
, _(" linkage index: %u, replacement insn: 0x%08x\n"),
6027 (unsigned)bfd_getl32 (buf
),
6028 (unsigned)bfd_getl32 (buf
+ 16));
6029 fprintf (file
, _(" psect idx 1: %u, offset 1: 0x%08x %08x\n"),
6030 (unsigned)bfd_getl32 (buf
+ 4),
6031 (unsigned)bfd_getl32 (buf
+ 12),
6032 (unsigned)bfd_getl32 (buf
+ 8));
6033 fprintf (file
, _(" psect idx 2: %u, offset 2: 0x%08x %08x\n"),
6034 (unsigned)bfd_getl32 (buf
+ 20),
6035 (unsigned)bfd_getl32 (buf
+ 28),
6036 (unsigned)bfd_getl32 (buf
+ 24));
6038 fprintf (file
, _(" psect idx 3: %u, offset 3: 0x%08x %08x\n"),
6039 (unsigned)bfd_getl32 (buf
+ 32),
6040 (unsigned)bfd_getl32 (buf
+ 40),
6041 (unsigned)bfd_getl32 (buf
+ 36));
6043 fprintf (file
, _(" global name: %.*s\n"), buf
[32], buf
+ 33);
6047 evax_bfd_print_etir (FILE *file
, const char *name
,
6048 unsigned char *rec
, unsigned int rec_len
)
6050 unsigned int off
= sizeof (struct vms_egsd
);
6051 unsigned int sec_len
;
6053 fprintf (file
, _(" %s (len=%u+%u):\n"), name
,
6054 (unsigned)(rec_len
- sizeof (struct vms_eobjrec
)),
6055 (unsigned)sizeof (struct vms_eobjrec
));
6057 for (off
= sizeof (struct vms_eobjrec
); off
< rec_len
; )
6059 struct vms_etir
*etir
= (struct vms_etir
*)(rec
+ off
);
6064 type
= bfd_getl16 (etir
->rectyp
);
6065 size
= bfd_getl16 (etir
->size
);
6066 buf
= rec
+ off
+ sizeof (struct vms_etir
);
6068 fprintf (file
, _(" (type: %3u, size: 4+%3u): "), type
, size
- 4);
6071 case ETIR__C_STA_GBL
:
6072 fprintf (file
, _("STA_GBL (stack global) %.*s\n"),
6075 case ETIR__C_STA_LW
:
6076 fprintf (file
, _("STA_LW (stack longword) 0x%08x\n"),
6077 (unsigned)bfd_getl32 (buf
));
6079 case ETIR__C_STA_QW
:
6080 fprintf (file
, _("STA_QW (stack quadword) 0x%08x %08x\n"),
6081 (unsigned)bfd_getl32 (buf
+ 4),
6082 (unsigned)bfd_getl32 (buf
+ 0));
6084 case ETIR__C_STA_PQ
:
6085 fprintf (file
, _("STA_PQ (stack psect base + offset)\n"));
6086 fprintf (file
, _(" psect: %u, offset: 0x%08x %08x\n"),
6087 (unsigned)bfd_getl32 (buf
+ 0),
6088 (unsigned)bfd_getl32 (buf
+ 8),
6089 (unsigned)bfd_getl32 (buf
+ 4));
6091 case ETIR__C_STA_LI
:
6092 fprintf (file
, _("STA_LI (stack literal)\n"));
6094 case ETIR__C_STA_MOD
:
6095 fprintf (file
, _("STA_MOD (stack module)\n"));
6097 case ETIR__C_STA_CKARG
:
6098 fprintf (file
, _("STA_CKARG (compare procedure argument)\n"));
6102 fprintf (file
, _("STO_B (store byte)\n"));
6105 fprintf (file
, _("STO_W (store word)\n"));
6107 case ETIR__C_STO_LW
:
6108 fprintf (file
, _("STO_LW (store longword)\n"));
6110 case ETIR__C_STO_QW
:
6111 fprintf (file
, _("STO_QW (store quadword)\n"));
6113 case ETIR__C_STO_IMMR
:
6115 unsigned int len
= bfd_getl32 (buf
);
6117 _("STO_IMMR (store immediate repeat) %u bytes\n"),
6119 evax_bfd_print_hex (file
, " ", buf
+ 4, len
);
6123 case ETIR__C_STO_GBL
:
6124 fprintf (file
, _("STO_GBL (store global) %.*s\n"),
6127 case ETIR__C_STO_CA
:
6128 fprintf (file
, _("STO_CA (store code address) %.*s\n"),
6131 case ETIR__C_STO_RB
:
6132 fprintf (file
, _("STO_RB (store relative branch)\n"));
6134 case ETIR__C_STO_AB
:
6135 fprintf (file
, _("STO_AB (store absolute branch)\n"));
6137 case ETIR__C_STO_OFF
:
6138 fprintf (file
, _("STO_OFF (store offset to psect)\n"));
6140 case ETIR__C_STO_IMM
:
6142 unsigned int len
= bfd_getl32 (buf
);
6144 _("STO_IMM (store immediate) %u bytes\n"),
6146 evax_bfd_print_hex (file
, " ", buf
+ 4, len
);
6150 case ETIR__C_STO_GBL_LW
:
6151 fprintf (file
, _("STO_GBL_LW (store global longword) %.*s\n"),
6154 case ETIR__C_STO_LP_PSB
:
6155 fprintf (file
, _("STO_OFF (store LP with procedure signature)\n"));
6157 case ETIR__C_STO_HINT_GBL
:
6158 fprintf (file
, _("STO_BR_GBL (store branch global) *todo*\n"));
6160 case ETIR__C_STO_HINT_PS
:
6161 fprintf (file
, _("STO_BR_PS (store branch psect + offset) *todo*\n"));
6164 case ETIR__C_OPR_NOP
:
6165 fprintf (file
, _("OPR_NOP (no-operation)\n"));
6167 case ETIR__C_OPR_ADD
:
6168 fprintf (file
, _("OPR_ADD (add)\n"));
6170 case ETIR__C_OPR_SUB
:
6171 fprintf (file
, _("OPR_SUB (substract)\n"));
6173 case ETIR__C_OPR_MUL
:
6174 fprintf (file
, _("OPR_MUL (multiply)\n"));
6176 case ETIR__C_OPR_DIV
:
6177 fprintf (file
, _("OPR_DIV (divide)\n"));
6179 case ETIR__C_OPR_AND
:
6180 fprintf (file
, _("OPR_AND (logical and)\n"));
6182 case ETIR__C_OPR_IOR
:
6183 fprintf (file
, _("OPR_IOR (logical inclusive or)\n"));
6185 case ETIR__C_OPR_EOR
:
6186 fprintf (file
, _("OPR_EOR (logical exclusive or)\n"));
6188 case ETIR__C_OPR_NEG
:
6189 fprintf (file
, _("OPR_NEG (negate)\n"));
6191 case ETIR__C_OPR_COM
:
6192 fprintf (file
, _("OPR_COM (complement)\n"));
6194 case ETIR__C_OPR_INSV
:
6195 fprintf (file
, _("OPR_INSV (insert field)\n"));
6197 case ETIR__C_OPR_ASH
:
6198 fprintf (file
, _("OPR_ASH (arithmetic shift)\n"));
6200 case ETIR__C_OPR_USH
:
6201 fprintf (file
, _("OPR_USH (unsigned shift)\n"));
6203 case ETIR__C_OPR_ROT
:
6204 fprintf (file
, _("OPR_ROT (rotate)\n"));
6206 case ETIR__C_OPR_SEL
:
6207 fprintf (file
, _("OPR_SEL (select)\n"));
6209 case ETIR__C_OPR_REDEF
:
6210 fprintf (file
, _("OPR_REDEF (redefine symbol to curr location)\n"));
6212 case ETIR__C_OPR_DFLIT
:
6213 fprintf (file
, _("OPR_REDEF (define a literal)\n"));
6216 case ETIR__C_STC_LP
:
6217 fprintf (file
, _("STC_LP (store cond linkage pair)\n"));
6219 case ETIR__C_STC_LP_PSB
:
6221 _("STC_LP_PSB (store cond linkage pair + signature)\n"));
6222 fprintf (file
, _(" linkage index: %u, procedure: %.*s\n"),
6223 (unsigned)bfd_getl32 (buf
), buf
[4], buf
+ 5);
6224 buf
+= 4 + 1 + buf
[4];
6225 fprintf (file
, _(" signature: %.*s\n"), buf
[0], buf
+ 1);
6227 case ETIR__C_STC_GBL
:
6228 fprintf (file
, _("STC_GBL (store cond global)\n"));
6229 fprintf (file
, _(" linkage index: %u, global: %.*s\n"),
6230 (unsigned)bfd_getl32 (buf
), buf
[4], buf
+ 5);
6232 case ETIR__C_STC_GCA
:
6233 fprintf (file
, _("STC_GCA (store cond code address)\n"));
6234 fprintf (file
, _(" linkage index: %u, procedure name: %.*s\n"),
6235 (unsigned)bfd_getl32 (buf
), buf
[4], buf
+ 5);
6237 case ETIR__C_STC_PS
:
6238 fprintf (file
, _("STC_PS (store cond psect + offset)\n"));
6240 _(" linkage index: %u, psect: %u, offset: 0x%08x %08x\n"),
6241 (unsigned)bfd_getl32 (buf
),
6242 (unsigned)bfd_getl32 (buf
+ 4),
6243 (unsigned)bfd_getl32 (buf
+ 12),
6244 (unsigned)bfd_getl32 (buf
+ 8));
6246 case ETIR__C_STC_NOP_GBL
:
6247 fprintf (file
, _("STC_NOP_GBL (store cond NOP at global addr)\n"));
6248 evax_bfd_print_etir_stc_ir (file
, buf
, 0);
6250 case ETIR__C_STC_NOP_PS
:
6251 fprintf (file
, _("STC_NOP_PS (store cond NOP at psect + offset)\n"));
6252 evax_bfd_print_etir_stc_ir (file
, buf
, 1);
6254 case ETIR__C_STC_BSR_GBL
:
6255 fprintf (file
, _("STC_BSR_GBL (store cond BSR at global addr)\n"));
6256 evax_bfd_print_etir_stc_ir (file
, buf
, 0);
6258 case ETIR__C_STC_BSR_PS
:
6259 fprintf (file
, _("STC_BSR_PS (store cond BSR at psect + offset)\n"));
6260 evax_bfd_print_etir_stc_ir (file
, buf
, 1);
6262 case ETIR__C_STC_LDA_GBL
:
6263 fprintf (file
, _("STC_LDA_GBL (store cond LDA at global addr)\n"));
6264 evax_bfd_print_etir_stc_ir (file
, buf
, 0);
6266 case ETIR__C_STC_LDA_PS
:
6267 fprintf (file
, _("STC_LDA_PS (store cond LDA at psect + offset)\n"));
6268 evax_bfd_print_etir_stc_ir (file
, buf
, 1);
6270 case ETIR__C_STC_BOH_GBL
:
6271 fprintf (file
, _("STC_BOH_GBL (store cond BOH at global addr)\n"));
6272 evax_bfd_print_etir_stc_ir (file
, buf
, 0);
6274 case ETIR__C_STC_BOH_PS
:
6275 fprintf (file
, _("STC_BOH_PS (store cond BOH at psect + offset)\n"));
6276 evax_bfd_print_etir_stc_ir (file
, buf
, 1);
6278 case ETIR__C_STC_NBH_GBL
:
6280 _("STC_NBH_GBL (store cond or hint at global addr)\n"));
6282 case ETIR__C_STC_NBH_PS
:
6284 _("STC_NBH_PS (store cond or hint at psect + offset)\n"));
6287 case ETIR__C_CTL_SETRB
:
6288 fprintf (file
, _("CTL_SETRB (set relocation base)\n"));
6291 case ETIR__C_CTL_AUGRB
:
6293 unsigned int val
= bfd_getl32 (buf
);
6294 fprintf (file
, _("CTL_AUGRB (augment relocation base) %u\n"), val
);
6297 case ETIR__C_CTL_DFLOC
:
6298 fprintf (file
, _("CTL_DFLOC (define location)\n"));
6300 case ETIR__C_CTL_STLOC
:
6301 fprintf (file
, _("CTL_STLOC (set location)\n"));
6303 case ETIR__C_CTL_STKDL
:
6304 fprintf (file
, _("CTL_STKDL (stack defined location)\n"));
6307 fprintf (file
, _("*unhandled*\n"));
6315 evax_bfd_print_eobj (struct bfd
*abfd
, FILE *file
)
6317 bfd_boolean is_first
= TRUE
;
6318 bfd_boolean has_records
= FALSE
;
6322 unsigned int rec_len
;
6323 unsigned int pad_len
;
6325 unsigned int hdr_size
;
6330 unsigned char buf
[6];
6335 if (bfd_bread (buf
, sizeof (buf
), abfd
) != sizeof (buf
))
6337 fprintf (file
, _("cannot read GST record length\n"));
6340 rec_len
= bfd_getl16 (buf
+ 0);
6341 if (rec_len
== bfd_getl16 (buf
+ 4)
6342 && bfd_getl16 (buf
+ 2) == EOBJ__C_EMH
)
6344 /* The format is raw: record-size, type, record-size. */
6346 pad_len
= (rec_len
+ 1) & ~1U;
6349 else if (rec_len
== EOBJ__C_EMH
)
6351 has_records
= FALSE
;
6352 pad_len
= bfd_getl16 (buf
+ 2);
6358 fprintf (file
, _("cannot find EMH in first GST record\n"));
6361 rec
= bfd_malloc (pad_len
);
6362 memcpy (rec
, buf
+ sizeof (buf
) - hdr_size
, hdr_size
);
6366 unsigned int rec_len2
= 0;
6367 unsigned char hdr
[4];
6371 unsigned char buf_len
[2];
6373 if (bfd_bread (buf_len
, sizeof (buf_len
), abfd
)
6374 != sizeof (buf_len
))
6376 fprintf (file
, _("cannot read GST record length\n"));
6379 rec_len2
= (unsigned)bfd_getl16 (buf_len
);
6382 if (bfd_bread (hdr
, sizeof (hdr
), abfd
) != sizeof (hdr
))
6384 fprintf (file
, _("cannot read GST record header\n"));
6387 rec_len
= (unsigned)bfd_getl16 (hdr
+ 2);
6389 pad_len
= (rec_len
+ 1) & ~1U;
6392 rec
= bfd_malloc (pad_len
);
6393 memcpy (rec
, hdr
, sizeof (hdr
));
6394 hdr_size
= sizeof (hdr
);
6395 if (has_records
&& rec_len2
!= rec_len
)
6397 fprintf (file
, _(" corrupted GST\n"));
6402 if (bfd_bread (rec
+ hdr_size
, pad_len
- hdr_size
, abfd
)
6403 != pad_len
- hdr_size
)
6405 fprintf (file
, _("cannot read GST record\n"));
6409 type
= (unsigned)bfd_getl16 (rec
);
6414 evax_bfd_print_emh (file
, rec
, rec_len
);
6417 evax_bfd_print_egsd (file
, rec
, rec_len
);
6420 evax_bfd_print_eeom (file
, rec
, rec_len
);
6425 evax_bfd_print_etir (file
, "ETIR", rec
, rec_len
);
6428 evax_bfd_print_etir (file
, "EDBG", rec
, rec_len
);
6431 evax_bfd_print_etir (file
, "ETBT", rec
, rec_len
);
6434 fprintf (file
, _(" unhandled EOBJ record type %u\n"), type
);
6442 evax_bfd_print_relocation_records (FILE *file
, const unsigned char *rel
,
6443 unsigned int stride
)
6451 count
= bfd_getl32 (rel
+ 0);
6455 base
= bfd_getl32 (rel
+ 4);
6457 fprintf (file
, _(" bitcount: %u, base addr: 0x%08x\n"),
6461 for (j
= 0; count
> 0; j
+= 4, count
-= 32)
6467 val
= bfd_getl32 (rel
);
6470 fprintf (file
, _(" bitmap: 0x%08x (count: %u):\n"), val
, count
);
6472 for (k
= 0; k
< 32; k
++)
6477 fprintf (file
, _(" %08x"), base
+ (j
* 8 + k
) * stride
);
6492 evax_bfd_print_address_fixups (FILE *file
, const unsigned char *rel
)
6499 count
= bfd_getl32 (rel
+ 0);
6502 fprintf (file
, _(" image %u (%u entries)\n"),
6503 (unsigned)bfd_getl32 (rel
+ 4), count
);
6505 for (j
= 0; j
< count
; j
++)
6507 fprintf (file
, _(" offset: 0x%08x, val: 0x%08x\n"),
6508 (unsigned)bfd_getl32 (rel
+ 0),
6509 (unsigned)bfd_getl32 (rel
+ 4));
6516 evax_bfd_print_reference_fixups (FILE *file
, const unsigned char *rel
)
6525 count
= bfd_getl32 (rel
+ 0);
6528 fprintf (file
, _(" image %u (%u entries), offsets:\n"),
6529 (unsigned)bfd_getl32 (rel
+ 4), count
);
6531 for (j
= 0; j
< count
; j
++)
6535 fprintf (file
, _(" 0x%08x"), (unsigned)bfd_getl32 (rel
));
6550 evax_bfd_print_indent (int indent
, FILE *file
)
6552 for (; indent
; indent
--)
6557 evax_bfd_get_dsc_name (unsigned int v
)
6561 case DSC__K_DTYPE_Z
:
6562 return "Z (Unspecified)";
6563 case DSC__K_DTYPE_V
:
6565 case DSC__K_DTYPE_BU
:
6566 return "BU (Byte logical)";
6567 case DSC__K_DTYPE_WU
:
6568 return "WU (Word logical)";
6569 case DSC__K_DTYPE_LU
:
6570 return "LU (Longword logical)";
6571 case DSC__K_DTYPE_QU
:
6572 return "QU (Quadword logical)";
6573 case DSC__K_DTYPE_B
:
6574 return "B (Byte integer)";
6575 case DSC__K_DTYPE_W
:
6576 return "W (Word integer)";
6577 case DSC__K_DTYPE_L
:
6578 return "L (Longword integer)";
6579 case DSC__K_DTYPE_Q
:
6580 return "Q (Quadword integer)";
6581 case DSC__K_DTYPE_F
:
6582 return "F (Single-precision floating)";
6583 case DSC__K_DTYPE_D
:
6584 return "D (Double-precision floating)";
6585 case DSC__K_DTYPE_FC
:
6586 return "FC (Complex)";
6587 case DSC__K_DTYPE_DC
:
6588 return "DC (Double-precision Complex)";
6589 case DSC__K_DTYPE_T
:
6590 return "T (ASCII text string)";
6591 case DSC__K_DTYPE_NU
:
6592 return "NU (Numeric string, unsigned)";
6593 case DSC__K_DTYPE_NL
:
6594 return "NL (Numeric string, left separate sign)";
6595 case DSC__K_DTYPE_NLO
:
6596 return "NLO (Numeric string, left overpunched sign)";
6597 case DSC__K_DTYPE_NR
:
6598 return "NR (Numeric string, right separate sign)";
6599 case DSC__K_DTYPE_NRO
:
6600 return "NRO (Numeric string, right overpunched sig)";
6601 case DSC__K_DTYPE_NZ
:
6602 return "NZ (Numeric string, zoned sign)";
6603 case DSC__K_DTYPE_P
:
6604 return "P (Packed decimal string)";
6605 case DSC__K_DTYPE_ZI
:
6606 return "ZI (Sequence of instructions)";
6607 case DSC__K_DTYPE_ZEM
:
6608 return "ZEM (Procedure entry mask)";
6609 case DSC__K_DTYPE_DSC
:
6610 return "DSC (Descriptor, used for arrays of dyn strings)";
6611 case DSC__K_DTYPE_OU
:
6612 return "OU (Octaword logical)";
6613 case DSC__K_DTYPE_O
:
6614 return "O (Octaword integer)";
6615 case DSC__K_DTYPE_G
:
6616 return "G (Double precision G floating, 64 bit)";
6617 case DSC__K_DTYPE_H
:
6618 return "H (Quadruple precision floating, 128 bit)";
6619 case DSC__K_DTYPE_GC
:
6620 return "GC (Double precision complex, G floating)";
6621 case DSC__K_DTYPE_HC
:
6622 return "HC (Quadruple precision complex, H floating)";
6623 case DSC__K_DTYPE_CIT
:
6624 return "CIT (COBOL intermediate temporary)";
6625 case DSC__K_DTYPE_BPV
:
6626 return "BPV (Bound Procedure Value)";
6627 case DSC__K_DTYPE_BLV
:
6628 return "BLV (Bound Label Value)";
6629 case DSC__K_DTYPE_VU
:
6630 return "VU (Bit Unaligned)";
6631 case DSC__K_DTYPE_ADT
:
6632 return "ADT (Absolute Date-Time)";
6633 case DSC__K_DTYPE_VT
:
6634 return "VT (Varying Text)";
6635 case DSC__K_DTYPE_T2
:
6636 return "T2 (16-bit char)";
6637 case DSC__K_DTYPE_VT2
:
6638 return "VT2 (16-bit varying char)";
6640 return "?? (unknown)";
6645 evax_bfd_print_desc (const unsigned char *buf
, int indent
, FILE *file
)
6647 unsigned char bclass
= buf
[3];
6648 unsigned char dtype
= buf
[2];
6649 unsigned int len
= (unsigned)bfd_getl16 (buf
);
6650 unsigned int pointer
= (unsigned)bfd_getl32 (buf
+ 4);
6652 evax_bfd_print_indent (indent
, file
);
6654 if (len
== 1 && pointer
== 0xffffffffUL
)
6657 fprintf (file
, _("64 bits *unhandled*\n"));
6661 fprintf (file
, _("class: %u, dtype: %u, length: %u, pointer: 0x%08x\n"),
6662 bclass
, dtype
, len
, pointer
);
6665 case DSC__K_CLASS_NCA
:
6667 const struct vms_dsc_nca
*dsc
= (const void *)buf
;
6669 const unsigned char *b
;
6671 evax_bfd_print_indent (indent
, file
);
6672 fprintf (file
, _("non-contiguous array of %s\n"),
6673 evax_bfd_get_dsc_name (dsc
->dtype
));
6674 evax_bfd_print_indent (indent
+ 1, file
);
6676 _("dimct: %u, aflags: 0x%02x, digits: %u, scale: %u\n"),
6677 dsc
->dimct
, dsc
->aflags
, dsc
->digits
, dsc
->scale
);
6678 evax_bfd_print_indent (indent
+ 1, file
);
6680 _("arsize: %u, a0: 0x%08x\n"),
6681 (unsigned)bfd_getl32 (dsc
->arsize
),
6682 (unsigned)bfd_getl32 (dsc
->a0
));
6683 evax_bfd_print_indent (indent
+ 1, file
);
6684 fprintf (file
, _("Strides:\n"));
6685 b
= buf
+ sizeof (*dsc
);
6686 for (i
= 0; i
< dsc
->dimct
; i
++)
6688 evax_bfd_print_indent (indent
+ 2, file
);
6689 fprintf (file
, _("[%u]: %u\n"), i
+ 1,
6690 (unsigned)bfd_getl32 (b
));
6693 evax_bfd_print_indent (indent
+ 1, file
);
6694 fprintf (file
, _("Bounds:\n"));
6695 b
= buf
+ sizeof (*dsc
);
6696 for (i
= 0; i
< dsc
->dimct
; i
++)
6698 evax_bfd_print_indent (indent
+ 2, file
);
6699 fprintf (file
, _("[%u]: Lower: %u, upper: %u\n"), i
+ 1,
6700 (unsigned)bfd_getl32 (b
+ 0),
6701 (unsigned)bfd_getl32 (b
+ 4));
6706 case DSC__K_CLASS_UBS
:
6708 const struct vms_dsc_ubs
*ubs
= (const void *)buf
;
6710 evax_bfd_print_indent (indent
, file
);
6711 fprintf (file
, _("unaligned bit-string of %s\n"),
6712 evax_bfd_get_dsc_name (ubs
->dtype
));
6713 evax_bfd_print_indent (indent
+ 1, file
);
6715 _("base: %u, pos: %u\n"),
6716 (unsigned)bfd_getl32 (ubs
->base
),
6717 (unsigned)bfd_getl32 (ubs
->pos
));
6721 fprintf (file
, _("*unhandled*\n"));
6728 evax_bfd_print_valspec (const unsigned char *buf
, int indent
, FILE *file
)
6730 unsigned int vflags
= buf
[0];
6731 unsigned int value
= (unsigned)bfd_getl32 (buf
+ 1);
6732 unsigned int len
= 5;
6734 evax_bfd_print_indent (indent
, file
);
6735 fprintf (file
, _("vflags: 0x%02x, value: 0x%08x "), vflags
, value
);
6740 case DST__K_VFLAGS_NOVAL
:
6741 fprintf (file
, _("(no value)\n"));
6743 case DST__K_VFLAGS_NOTACTIVE
:
6744 fprintf (file
, _("(not active)\n"));
6746 case DST__K_VFLAGS_UNALLOC
:
6747 fprintf (file
, _("(not allocated)\n"));
6749 case DST__K_VFLAGS_DSC
:
6750 fprintf (file
, _("(descriptor)\n"));
6751 evax_bfd_print_desc (buf
+ value
, indent
+ 1, file
);
6753 case DST__K_VFLAGS_TVS
:
6754 fprintf (file
, _("(trailing value)\n"));
6756 case DST__K_VS_FOLLOWS
:
6757 fprintf (file
, _("(value spec follows)\n"));
6759 case DST__K_VFLAGS_BITOFFS
:
6760 fprintf (file
, _("(at bit offset %u)\n"), value
);
6763 fprintf (file
, _("(reg: %u, disp: %u, indir: %u, kind: "),
6764 (vflags
& DST__K_REGNUM_MASK
) >> DST__K_REGNUM_SHIFT
,
6765 vflags
& DST__K_DISP
? 1 : 0,
6766 vflags
& DST__K_INDIR
? 1 : 0);
6767 switch (vflags
& DST__K_VALKIND_MASK
)
6769 case DST__K_VALKIND_LITERAL
:
6770 fputs (_("literal"), file
);
6772 case DST__K_VALKIND_ADDR
:
6773 fputs (_("address"), file
);
6775 case DST__K_VALKIND_DESC
:
6776 fputs (_("desc"), file
);
6778 case DST__K_VALKIND_REG
:
6779 fputs (_("reg"), file
);
6782 fputs (")\n", file
);
6789 evax_bfd_print_typspec (const unsigned char *buf
, int indent
, FILE *file
)
6791 unsigned char kind
= buf
[2];
6792 unsigned int len
= (unsigned)bfd_getl16 (buf
);
6794 evax_bfd_print_indent (indent
, file
);
6795 fprintf (file
, ("len: %2u, kind: %2u "), len
, kind
);
6799 case DST__K_TS_ATOM
:
6800 fprintf (file
, ("atomic, type=0x%02x %s\n"),
6801 buf
[0], evax_bfd_get_dsc_name (buf
[0]));
6804 fprintf (file
, ("indirect, defined at 0x%08x\n"),
6805 (unsigned)bfd_getl32 (buf
));
6807 case DST__K_TS_TPTR
:
6808 fprintf (file
, ("typed pointer\n"));
6809 evax_bfd_print_typspec (buf
, indent
+ 1, file
);
6812 fprintf (file
, ("pointer\n"));
6814 case DST__K_TS_ARRAY
:
6816 const unsigned char *vs
;
6817 unsigned int vec_len
;
6820 fprintf (file
, ("array, dim: %u, bitmap: "), buf
[0]);
6821 vec_len
= (buf
[0] + 1 + 7) / 8;
6822 for (i
= 0; i
< vec_len
; i
++)
6823 fprintf (file
, " %02x", buf
[i
+ 1]);
6825 vs
= buf
+ 1 + vec_len
;
6826 evax_bfd_print_indent (indent
, file
);
6827 fprintf (file
, ("array descriptor:\n"));
6828 vs
+= evax_bfd_print_valspec (vs
, indent
+ 1, file
);
6829 for (i
= 0; i
< buf
[0] + 1U; i
++)
6830 if (buf
[1 + i
/ 8] & (1 << (i
% 8)))
6832 evax_bfd_print_indent (indent
, file
);
6834 fprintf (file
, ("type spec for element:\n"));
6836 fprintf (file
, ("type spec for subscript %u:\n"), i
);
6837 evax_bfd_print_typspec (vs
, indent
+ 1, file
);
6838 vs
+= bfd_getl16 (vs
);
6843 fprintf (file
, ("*unhandled*\n"));
6848 evax_bfd_print_dst (struct bfd
*abfd
, unsigned int dst_size
, FILE *file
)
6850 unsigned int off
= 0;
6851 unsigned int pc
= 0;
6852 unsigned int line
= 0;
6854 fprintf (file
, _("Debug symbol table:\n"));
6856 while (dst_size
> 0)
6858 struct vms_dst_header dsth
;
6863 if (bfd_bread (&dsth
, sizeof (dsth
), abfd
) != sizeof (dsth
))
6865 fprintf (file
, _("cannot read DST header\n"));
6868 len
= bfd_getl16 (dsth
.length
);
6869 type
= bfd_getl16 (dsth
.type
);
6870 fprintf (file
, _(" type: %3u, len: %3u (at 0x%08x): "),
6880 len
-= sizeof (dsth
);
6881 buf
= bfd_malloc (len
);
6882 if (bfd_bread (buf
, len
, abfd
) != len
)
6884 fprintf (file
, _("cannot read DST symbol\n"));
6889 case DSC__K_DTYPE_V
:
6890 case DSC__K_DTYPE_BU
:
6891 case DSC__K_DTYPE_WU
:
6892 case DSC__K_DTYPE_LU
:
6893 case DSC__K_DTYPE_QU
:
6894 case DSC__K_DTYPE_B
:
6895 case DSC__K_DTYPE_W
:
6896 case DSC__K_DTYPE_L
:
6897 case DSC__K_DTYPE_Q
:
6898 case DSC__K_DTYPE_F
:
6899 case DSC__K_DTYPE_D
:
6900 case DSC__K_DTYPE_FC
:
6901 case DSC__K_DTYPE_DC
:
6902 case DSC__K_DTYPE_T
:
6903 case DSC__K_DTYPE_NU
:
6904 case DSC__K_DTYPE_NL
:
6905 case DSC__K_DTYPE_NLO
:
6906 case DSC__K_DTYPE_NR
:
6907 case DSC__K_DTYPE_NRO
:
6908 case DSC__K_DTYPE_NZ
:
6909 case DSC__K_DTYPE_P
:
6910 case DSC__K_DTYPE_ZI
:
6911 case DSC__K_DTYPE_ZEM
:
6912 case DSC__K_DTYPE_DSC
:
6913 case DSC__K_DTYPE_OU
:
6914 case DSC__K_DTYPE_O
:
6915 case DSC__K_DTYPE_G
:
6916 case DSC__K_DTYPE_H
:
6917 case DSC__K_DTYPE_GC
:
6918 case DSC__K_DTYPE_HC
:
6919 case DSC__K_DTYPE_CIT
:
6920 case DSC__K_DTYPE_BPV
:
6921 case DSC__K_DTYPE_BLV
:
6922 case DSC__K_DTYPE_VU
:
6923 case DSC__K_DTYPE_ADT
:
6924 case DSC__K_DTYPE_VT
:
6925 case DSC__K_DTYPE_T2
:
6926 case DSC__K_DTYPE_VT2
:
6927 fprintf (file
, _("standard data: %s\n"),
6928 evax_bfd_get_dsc_name (type
));
6929 evax_bfd_print_valspec (buf
, 4, file
);
6930 fprintf (file
, _(" name: %.*s\n"), buf
[5], buf
+ 6);
6934 struct vms_dst_modbeg
*dst
= (void *)buf
;
6935 const char *name
= (const char *)buf
+ sizeof (*dst
);
6937 fprintf (file
, _("modbeg\n"));
6938 fprintf (file
, _(" flags: %d, language: %u, "
6939 "major: %u, minor: %u\n"),
6941 (unsigned)bfd_getl32 (dst
->language
),
6942 (unsigned)bfd_getl16 (dst
->major
),
6943 (unsigned)bfd_getl16 (dst
->minor
));
6944 fprintf (file
, _(" module name: %.*s\n"),
6946 name
+= name
[0] + 1;
6947 fprintf (file
, _(" compiler : %.*s\n"),
6952 fprintf (file
, _("modend\n"));
6956 struct vms_dst_rtnbeg
*dst
= (void *)buf
;
6957 const char *name
= (const char *)buf
+ sizeof (*dst
);
6959 fputs (_("rtnbeg\n"), file
);
6960 fprintf (file
, _(" flags: %u, address: 0x%08x, "
6961 "pd-address: 0x%08x\n"),
6963 (unsigned)bfd_getl32 (dst
->address
),
6964 (unsigned)bfd_getl32 (dst
->pd_address
));
6965 fprintf (file
, _(" routine name: %.*s\n"),
6971 struct vms_dst_rtnend
*dst
= (void *)buf
;
6973 fprintf (file
, _("rtnend: size 0x%08x\n"),
6974 (unsigned)bfd_getl32 (dst
->size
));
6979 struct vms_dst_prolog
*dst
= (void *)buf
;
6981 fprintf (file
, _("prolog: bkpt address 0x%08x\n"),
6982 (unsigned)bfd_getl32 (dst
->bkpt_addr
));
6987 struct vms_dst_epilog
*dst
= (void *)buf
;
6989 fprintf (file
, _("epilog: flags: %u, count: %u\n"),
6990 dst
->flags
, (unsigned)bfd_getl32 (dst
->count
));
6995 struct vms_dst_blkbeg
*dst
= (void *)buf
;
6996 const char *name
= (const char *)buf
+ sizeof (*dst
);
6998 fprintf (file
, _("blkbeg: address: 0x%08x, name: %.*s\n"),
6999 (unsigned)bfd_getl32 (dst
->address
),
7005 struct vms_dst_blkend
*dst
= (void *)buf
;
7007 fprintf (file
, _("blkend: size: 0x%08x\n"),
7008 (unsigned)bfd_getl32 (dst
->size
));
7011 case DST__K_TYPSPEC
:
7013 fprintf (file
, _("typspec (len: %u)\n"), len
);
7014 fprintf (file
, _(" name: %.*s\n"), buf
[0], buf
+ 1);
7015 evax_bfd_print_typspec (buf
+ 1 + buf
[0], 5, file
);
7020 fprintf (file
, _("septyp, name: %.*s\n"), buf
[5], buf
+ 6);
7021 evax_bfd_print_valspec (buf
, 4, file
);
7026 struct vms_dst_recbeg
*recbeg
= (void *)buf
;
7027 const char *name
= (const char *)buf
+ sizeof (*recbeg
);
7029 fprintf (file
, _("recbeg: name: %.*s\n"), name
[0], name
+ 1);
7030 evax_bfd_print_valspec (buf
, 4, file
);
7031 fprintf (file
, (" len: %u bits\n"),
7032 (unsigned)bfd_getl32 (name
+ 1 + name
[0]));
7036 fprintf (file
, _("recend\n"));
7038 case DST__K_ENUMBEG
:
7039 fprintf (file
, _("enumbeg, len: %u, name: %.*s\n"),
7040 buf
[0], buf
[1], buf
+ 2);
7042 case DST__K_ENUMELT
:
7043 fprintf (file
, _("enumelt, name: %.*s\n"), buf
[5], buf
+ 6);
7044 evax_bfd_print_valspec (buf
, 4, file
);
7046 case DST__K_ENUMEND
:
7047 fprintf (file
, _("enumend\n"));
7051 struct vms_dst_label
*lab
= (void *)buf
;
7052 fprintf (file
, ("label, name: %.*s\n"),
7053 lab
->name
[0], lab
->name
+ 1);
7054 fprintf (file
, (" address: 0x%08x\n"),
7055 (unsigned)bfd_getl32 (lab
->value
));
7058 case DST__K_DIS_RANGE
:
7060 unsigned int cnt
= bfd_getl32 (buf
);
7061 unsigned char *rng
= buf
+ 4;
7064 fprintf (file
, _("discontiguous range (nbr: %u)\n"), cnt
);
7065 for (i
= 0; i
< cnt
; i
++, rng
+= 8)
7066 fprintf (file
, _(" address: 0x%08x, size: %u\n"),
7067 (unsigned)bfd_getl32 (rng
),
7068 (unsigned)bfd_getl32 (rng
+ 4));
7072 case DST__K_LINE_NUM
:
7074 unsigned char *buf_orig
= buf
;
7076 fprintf (file
, _("line num (len: %u)\n"), len
);
7081 unsigned char cmdlen
;
7091 case DST__K_DELTA_PC_W
:
7092 val
= bfd_getl16 (buf
+ 1);
7093 fprintf (file
, _("delta_pc_w %u\n"), val
);
7098 case DST__K_INCR_LINUM
:
7100 fprintf (file
, _("incr_linum(b): +%u\n"), val
);
7104 case DST__K_INCR_LINUM_W
:
7105 val
= bfd_getl16 (buf
+ 1);
7106 fprintf (file
, _("incr_linum_w: +%u\n"), val
);
7110 case DST__K_INCR_LINUM_L
:
7111 val
= bfd_getl32 (buf
+ 1);
7112 fprintf (file
, _("incr_linum_l: +%u\n"), val
);
7116 case DST__K_SET_LINUM
:
7117 line
= bfd_getl16 (buf
+ 1);
7118 fprintf (file
, _("set_line_num(w) %u\n"), line
);
7121 case DST__K_SET_LINUM_B
:
7123 fprintf (file
, _("set_line_num_b %u\n"), line
);
7126 case DST__K_SET_LINUM_L
:
7127 line
= bfd_getl32 (buf
+ 1);
7128 fprintf (file
, _("set_line_num_l %u\n"), line
);
7131 case DST__K_SET_ABS_PC
:
7132 pc
= bfd_getl32 (buf
+ 1);
7133 fprintf (file
, _("set_abs_pc: 0x%08x\n"), pc
);
7136 case DST__K_DELTA_PC_L
:
7137 fprintf (file
, _("delta_pc_l: +0x%08x\n"),
7138 (unsigned)bfd_getl32 (buf
+ 1));
7142 fprintf (file
, _("term(b): 0x%02x"), buf
[1]);
7144 fprintf (file
, _(" pc: 0x%08x\n"), pc
);
7148 val
= bfd_getl16 (buf
+ 1);
7149 fprintf (file
, _("term_w: 0x%04x"), val
);
7151 fprintf (file
, _(" pc: 0x%08x\n"), pc
);
7157 fprintf (file
, _("delta pc +%-4d"), -cmd
);
7158 line
++; /* FIXME: curr increment. */
7160 fprintf (file
, _(" pc: 0x%08x line: %5u\n"),
7165 fprintf (file
, _(" *unhandled* cmd %u\n"), cmd
);
7178 unsigned char *buf_orig
= buf
;
7180 fprintf (file
, _("source (len: %u)\n"), len
);
7184 signed char cmd
= buf
[0];
7185 unsigned char cmdlen
= 0;
7189 case DST__K_SRC_DECLFILE
:
7191 struct vms_dst_src_decl_src
*src
= (void *)(buf
+ 1);
7194 fprintf (file
, _(" declfile: len: %u, flags: %u, "
7196 src
->length
, src
->flags
,
7197 (unsigned)bfd_getl16 (src
->fileid
));
7198 fprintf (file
, _(" rms: cdt: 0x%08x %08x, "
7199 "ebk: 0x%08x, ffb: 0x%04x, "
7201 (unsigned)bfd_getl32 (src
->rms_cdt
+ 4),
7202 (unsigned)bfd_getl32 (src
->rms_cdt
+ 0),
7203 (unsigned)bfd_getl32 (src
->rms_ebk
),
7204 (unsigned)bfd_getl16 (src
->rms_ffb
),
7206 name
= (const char *)buf
+ 1 + sizeof (*src
);
7207 fprintf (file
, _(" filename : %.*s\n"),
7209 name
+= name
[0] + 1;
7210 fprintf (file
, _(" module name: %.*s\n"),
7212 cmdlen
= 2 + src
->length
;
7215 case DST__K_SRC_SETFILE
:
7216 fprintf (file
, _(" setfile %u\n"),
7217 (unsigned)bfd_getl16 (buf
+ 1));
7220 case DST__K_SRC_SETREC_W
:
7221 fprintf (file
, _(" setrec %u\n"),
7222 (unsigned)bfd_getl16 (buf
+ 1));
7225 case DST__K_SRC_SETREC_L
:
7226 fprintf (file
, _(" setrec %u\n"),
7227 (unsigned)bfd_getl32 (buf
+ 1));
7230 case DST__K_SRC_SETLNUM_W
:
7231 fprintf (file
, _(" setlnum %u\n"),
7232 (unsigned)bfd_getl16 (buf
+ 1));
7235 case DST__K_SRC_SETLNUM_L
:
7236 fprintf (file
, _(" setlnum %u\n"),
7237 (unsigned)bfd_getl32 (buf
+ 1));
7240 case DST__K_SRC_DEFLINES_W
:
7241 fprintf (file
, _(" deflines %u\n"),
7242 (unsigned)bfd_getl16 (buf
+ 1));
7245 case DST__K_SRC_DEFLINES_B
:
7246 fprintf (file
, _(" deflines %u\n"), buf
[1]);
7249 case DST__K_SRC_FORMFEED
:
7250 fprintf (file
, _(" formfeed\n"));
7254 fprintf (file
, _(" *unhandled* cmd %u\n"), cmd
);
7266 fprintf (file
, _("*unhandled* dst type %u\n"), type
);
7274 evax_bfd_print_image (bfd
*abfd
, FILE *file
)
7276 struct vms_eihd eihd
;
7279 unsigned int eiha_off
;
7280 unsigned int eihi_off
;
7281 unsigned int eihs_off
;
7282 unsigned int eisd_off
;
7283 unsigned int eihef_off
= 0;
7284 unsigned int eihnp_off
= 0;
7285 unsigned int dmt_vbn
= 0;
7286 unsigned int dmt_size
= 0;
7287 unsigned int dst_vbn
= 0;
7288 unsigned int dst_size
= 0;
7289 unsigned int gst_vbn
= 0;
7290 unsigned int gst_size
= 0;
7291 unsigned int eiaf_vbn
= 0;
7292 unsigned int eiaf_size
= 0;
7293 unsigned int eihvn_off
;
7295 if (bfd_seek (abfd
, (file_ptr
) 0, SEEK_SET
)
7296 || bfd_bread (&eihd
, sizeof (eihd
), abfd
) != sizeof (eihd
))
7298 fprintf (file
, _("cannot read EIHD\n"));
7301 fprintf (file
, _("EIHD: (size: %u, nbr blocks: %u)\n"),
7302 (unsigned)bfd_getl32 (eihd
.size
),
7303 (unsigned)bfd_getl32 (eihd
.hdrblkcnt
));
7304 fprintf (file
, _(" majorid: %u, minorid: %u\n"),
7305 (unsigned)bfd_getl32 (eihd
.majorid
),
7306 (unsigned)bfd_getl32 (eihd
.minorid
));
7308 val
= (unsigned)bfd_getl32 (eihd
.imgtype
);
7312 name
= _("executable");
7315 name
= _("linkable image");
7318 name
= _("unknown");
7321 fprintf (file
, _(" image type: %u (%s)"), val
, name
);
7323 val
= (unsigned)bfd_getl32 (eihd
.subtype
);
7326 case EIHD__C_NATIVE
:
7333 name
= _("unknown");
7336 fprintf (file
, _(", subtype: %u (%s)\n"), val
, name
);
7338 eisd_off
= bfd_getl32 (eihd
.isdoff
);
7339 eiha_off
= bfd_getl32 (eihd
.activoff
);
7340 eihi_off
= bfd_getl32 (eihd
.imgidoff
);
7341 eihs_off
= bfd_getl32 (eihd
.symdbgoff
);
7342 fprintf (file
, _(" offsets: isd: %u, activ: %u, symdbg: %u, "
7343 "imgid: %u, patch: %u\n"),
7344 eisd_off
, eiha_off
, eihs_off
, eihi_off
,
7345 (unsigned)bfd_getl32 (eihd
.patchoff
));
7346 fprintf (file
, _(" fixup info rva: "));
7347 bfd_fprintf_vma (abfd
, file
, bfd_getl64 (eihd
.iafva
));
7348 fprintf (file
, _(", symbol vector rva: "));
7349 bfd_fprintf_vma (abfd
, file
, bfd_getl64 (eihd
.symvva
));
7350 eihvn_off
= bfd_getl32 (eihd
.version_array_off
);
7351 fprintf (file
, _("\n"
7352 " version array off: %u\n"),
7355 _(" img I/O count: %u, nbr channels: %u, req pri: %08x%08x\n"),
7356 (unsigned)bfd_getl32 (eihd
.imgiocnt
),
7357 (unsigned)bfd_getl32 (eihd
.iochancnt
),
7358 (unsigned)bfd_getl32 (eihd
.privreqs
+ 4),
7359 (unsigned)bfd_getl32 (eihd
.privreqs
+ 0));
7360 val
= (unsigned)bfd_getl32 (eihd
.lnkflags
);
7361 fprintf (file
, _(" linker flags: %08x:"), val
);
7362 if (val
& EIHD__M_LNKDEBUG
)
7363 fprintf (file
, " LNKDEBUG");
7364 if (val
& EIHD__M_LNKNOTFR
)
7365 fprintf (file
, " LNKNOTFR");
7366 if (val
& EIHD__M_NOP0BUFS
)
7367 fprintf (file
, " NOP0BUFS");
7368 if (val
& EIHD__M_PICIMG
)
7369 fprintf (file
, " PICIMG");
7370 if (val
& EIHD__M_P0IMAGE
)
7371 fprintf (file
, " P0IMAGE");
7372 if (val
& EIHD__M_DBGDMT
)
7373 fprintf (file
, " DBGDMT");
7374 if (val
& EIHD__M_INISHR
)
7375 fprintf (file
, " INISHR");
7376 if (val
& EIHD__M_XLATED
)
7377 fprintf (file
, " XLATED");
7378 if (val
& EIHD__M_BIND_CODE_SEC
)
7379 fprintf (file
, " BIND_CODE_SEC");
7380 if (val
& EIHD__M_BIND_DATA_SEC
)
7381 fprintf (file
, " BIND_DATA_SEC");
7382 if (val
& EIHD__M_MKTHREADS
)
7383 fprintf (file
, " MKTHREADS");
7384 if (val
& EIHD__M_UPCALLS
)
7385 fprintf (file
, " UPCALLS");
7386 if (val
& EIHD__M_OMV_READY
)
7387 fprintf (file
, " OMV_READY");
7388 if (val
& EIHD__M_EXT_BIND_SECT
)
7389 fprintf (file
, " EXT_BIND_SECT");
7390 fprintf (file
, "\n");
7391 fprintf (file
, _(" ident: 0x%08x, sysver: 0x%08x, "
7392 "match ctrl: %u, symvect_size: %u\n"),
7393 (unsigned)bfd_getl32 (eihd
.ident
),
7394 (unsigned)bfd_getl32 (eihd
.sysver
),
7396 (unsigned)bfd_getl32 (eihd
.symvect_size
));
7397 fprintf (file
, _(" BPAGE: %u"),
7398 (unsigned)bfd_getl32 (eihd
.virt_mem_block_size
));
7399 if (val
& (EIHD__M_OMV_READY
| EIHD__M_EXT_BIND_SECT
))
7401 eihef_off
= bfd_getl32 (eihd
.ext_fixup_off
);
7402 eihnp_off
= bfd_getl32 (eihd
.noopt_psect_off
);
7403 fprintf (file
, _(", ext fixup offset: %u, no_opt psect off: %u"),
7404 eihef_off
, eihnp_off
);
7406 fprintf (file
, _(", alias: %u\n"), (unsigned)bfd_getl16 (eihd
.alias
));
7410 struct vms_eihvn eihvn
;
7414 fprintf (file
, _("system version array information:\n"));
7415 if (bfd_seek (abfd
, (file_ptr
) eihvn_off
, SEEK_SET
)
7416 || bfd_bread (&eihvn
, sizeof (eihvn
), abfd
) != sizeof (eihvn
))
7418 fprintf (file
, _("cannot read EIHVN header\n"));
7421 mask
= bfd_getl32 (eihvn
.subsystem_mask
);
7422 for (j
= 0; j
< 32; j
++)
7423 if (mask
& (1 << j
))
7425 struct vms_eihvn_subversion ver
;
7426 if (bfd_bread (&ver
, sizeof (ver
), abfd
) != sizeof (ver
))
7428 fprintf (file
, _("cannot read EIHVN version\n"));
7431 fprintf (file
, _(" %02u "), j
);
7434 case EIHVN__BASE_IMAGE_BIT
:
7435 fputs (_("BASE_IMAGE "), file
);
7437 case EIHVN__MEMORY_MANAGEMENT_BIT
:
7438 fputs (_("MEMORY_MANAGEMENT"), file
);
7441 fputs (_("IO "), file
);
7443 case EIHVN__FILES_VOLUMES_BIT
:
7444 fputs (_("FILES_VOLUMES "), file
);
7446 case EIHVN__PROCESS_SCHED_BIT
:
7447 fputs (_("PROCESS_SCHED "), file
);
7449 case EIHVN__SYSGEN_BIT
:
7450 fputs (_("SYSGEN "), file
);
7452 case EIHVN__CLUSTERS_LOCKMGR_BIT
:
7453 fputs (_("CLUSTERS_LOCKMGR "), file
);
7455 case EIHVN__LOGICAL_NAMES_BIT
:
7456 fputs (_("LOGICAL_NAMES "), file
);
7458 case EIHVN__SECURITY_BIT
:
7459 fputs (_("SECURITY "), file
);
7461 case EIHVN__IMAGE_ACTIVATOR_BIT
:
7462 fputs (_("IMAGE_ACTIVATOR "), file
);
7464 case EIHVN__NETWORKS_BIT
:
7465 fputs (_("NETWORKS "), file
);
7467 case EIHVN__COUNTERS_BIT
:
7468 fputs (_("COUNTERS "), file
);
7470 case EIHVN__STABLE_BIT
:
7471 fputs (_("STABLE "), file
);
7473 case EIHVN__MISC_BIT
:
7474 fputs (_("MISC "), file
);
7476 case EIHVN__CPU_BIT
:
7477 fputs (_("CPU "), file
);
7479 case EIHVN__VOLATILE_BIT
:
7480 fputs (_("VOLATILE "), file
);
7482 case EIHVN__SHELL_BIT
:
7483 fputs (_("SHELL "), file
);
7485 case EIHVN__POSIX_BIT
:
7486 fputs (_("POSIX "), file
);
7488 case EIHVN__MULTI_PROCESSING_BIT
:
7489 fputs (_("MULTI_PROCESSING "), file
);
7491 case EIHVN__GALAXY_BIT
:
7492 fputs (_("GALAXY "), file
);
7495 fputs (_("*unknown* "), file
);
7498 fprintf (file
, _(": %u.%u\n"),
7499 (unsigned)bfd_getl16 (ver
.major
),
7500 (unsigned)bfd_getl16 (ver
.minor
));
7506 struct vms_eiha eiha
;
7508 if (bfd_seek (abfd
, (file_ptr
) eiha_off
, SEEK_SET
)
7509 || bfd_bread (&eiha
, sizeof (eiha
), abfd
) != sizeof (eiha
))
7511 fprintf (file
, _("cannot read EIHA\n"));
7514 fprintf (file
, _("Image activation: (size=%u)\n"),
7515 (unsigned)bfd_getl32 (eiha
.size
));
7516 fprintf (file
, _(" First address : 0x%08x 0x%08x\n"),
7517 (unsigned)bfd_getl32 (eiha
.tfradr1_h
),
7518 (unsigned)bfd_getl32 (eiha
.tfradr1
));
7519 fprintf (file
, _(" Second address: 0x%08x 0x%08x\n"),
7520 (unsigned)bfd_getl32 (eiha
.tfradr2_h
),
7521 (unsigned)bfd_getl32 (eiha
.tfradr2
));
7522 fprintf (file
, _(" Third address : 0x%08x 0x%08x\n"),
7523 (unsigned)bfd_getl32 (eiha
.tfradr3_h
),
7524 (unsigned)bfd_getl32 (eiha
.tfradr3
));
7525 fprintf (file
, _(" Fourth address: 0x%08x 0x%08x\n"),
7526 (unsigned)bfd_getl32 (eiha
.tfradr4_h
),
7527 (unsigned)bfd_getl32 (eiha
.tfradr4
));
7528 fprintf (file
, _(" Shared image : 0x%08x 0x%08x\n"),
7529 (unsigned)bfd_getl32 (eiha
.inishr_h
),
7530 (unsigned)bfd_getl32 (eiha
.inishr
));
7534 struct vms_eihi eihi
;
7536 if (bfd_seek (abfd
, (file_ptr
) eihi_off
, SEEK_SET
)
7537 || bfd_bread (&eihi
, sizeof (eihi
), abfd
) != sizeof (eihi
))
7539 fprintf (file
, _("cannot read EIHI\n"));
7542 fprintf (file
, _("Image identification: (major: %u, minor: %u)\n"),
7543 (unsigned)bfd_getl32 (eihi
.majorid
),
7544 (unsigned)bfd_getl32 (eihi
.minorid
));
7545 fprintf (file
, _(" image name : %.*s\n"),
7546 eihi
.imgnam
[0], eihi
.imgnam
+ 1);
7547 fprintf (file
, _(" link time : %s\n"),
7548 vms_time_to_str (eihi
.linktime
));
7549 fprintf (file
, _(" image ident : %.*s\n"),
7550 eihi
.imgid
[0], eihi
.imgid
+ 1);
7551 fprintf (file
, _(" linker ident : %.*s\n"),
7552 eihi
.linkid
[0], eihi
.linkid
+ 1);
7553 fprintf (file
, _(" image build ident: %.*s\n"),
7554 eihi
.imgbid
[0], eihi
.imgbid
+ 1);
7558 struct vms_eihs eihs
;
7560 if (bfd_seek (abfd
, (file_ptr
) eihs_off
, SEEK_SET
)
7561 || bfd_bread (&eihs
, sizeof (eihs
), abfd
) != sizeof (eihs
))
7563 fprintf (file
, _("cannot read EIHS\n"));
7566 fprintf (file
, _("Image symbol & debug table: (major: %u, minor: %u)\n"),
7567 (unsigned)bfd_getl32 (eihs
.majorid
),
7568 (unsigned)bfd_getl32 (eihs
.minorid
));
7569 dst_vbn
= bfd_getl32 (eihs
.dstvbn
);
7570 dst_size
= bfd_getl32 (eihs
.dstsize
);
7571 fprintf (file
, _(" debug symbol table : vbn: %u, size: %u (0x%x)\n"),
7572 dst_vbn
, dst_size
, dst_size
);
7573 gst_vbn
= bfd_getl32 (eihs
.gstvbn
);
7574 gst_size
= bfd_getl32 (eihs
.gstsize
);
7575 fprintf (file
, _(" global symbol table: vbn: %u, records: %u\n"),
7577 dmt_vbn
= bfd_getl32 (eihs
.dmtvbn
);
7578 dmt_size
= bfd_getl32 (eihs
.dmtsize
);
7579 fprintf (file
, _(" debug module table : vbn: %u, size: %u\n"),
7582 while (eisd_off
!= 0)
7584 struct vms_eisd eisd
;
7589 if (bfd_seek (abfd
, (file_ptr
) eisd_off
, SEEK_SET
)
7590 || bfd_bread (&eisd
, sizeof (eisd
), abfd
) != sizeof (eisd
))
7592 fprintf (file
, _("cannot read EISD\n"));
7595 len
= (unsigned)bfd_getl32 (eisd
.eisdsize
);
7596 if (len
!= (unsigned)-1)
7600 eisd_off
= (eisd_off
+ VMS_BLOCK_SIZE
) & ~(VMS_BLOCK_SIZE
- 1);
7602 fprintf (file
, _("Image section descriptor: (major: %u, minor: %u, "
7603 "size: %u, offset: %u)\n"),
7604 (unsigned)bfd_getl32 (eisd
.majorid
),
7605 (unsigned)bfd_getl32 (eisd
.minorid
),
7609 fprintf (file
, _(" section: base: 0x%08x%08x size: 0x%08x\n"),
7610 (unsigned)bfd_getl32 (eisd
.virt_addr
+ 4),
7611 (unsigned)bfd_getl32 (eisd
.virt_addr
+ 0),
7612 (unsigned)bfd_getl32 (eisd
.secsize
));
7613 val
= (unsigned)bfd_getl32 (eisd
.flags
);
7614 fprintf (file
, _(" flags: 0x%04x"), val
);
7615 if (val
& EISD__M_GBL
)
7616 fprintf (file
, " GBL");
7617 if (val
& EISD__M_CRF
)
7618 fprintf (file
, " CRF");
7619 if (val
& EISD__M_DZRO
)
7620 fprintf (file
, " DZRO");
7621 if (val
& EISD__M_WRT
)
7622 fprintf (file
, " WRT");
7623 if (val
& EISD__M_INITALCODE
)
7624 fprintf (file
, " INITALCODE");
7625 if (val
& EISD__M_BASED
)
7626 fprintf (file
, " BASED");
7627 if (val
& EISD__M_FIXUPVEC
)
7628 fprintf (file
, " FIXUPVEC");
7629 if (val
& EISD__M_RESIDENT
)
7630 fprintf (file
, " RESIDENT");
7631 if (val
& EISD__M_VECTOR
)
7632 fprintf (file
, " VECTOR");
7633 if (val
& EISD__M_PROTECT
)
7634 fprintf (file
, " PROTECT");
7635 if (val
& EISD__M_LASTCLU
)
7636 fprintf (file
, " LASTCLU");
7637 if (val
& EISD__M_EXE
)
7638 fprintf (file
, " EXE");
7639 if (val
& EISD__M_NONSHRADR
)
7640 fprintf (file
, " NONSHRADR");
7641 if (val
& EISD__M_QUAD_LENGTH
)
7642 fprintf (file
, " QUAD_LENGTH");
7643 if (val
& EISD__M_ALLOC_64BIT
)
7644 fprintf (file
, " ALLOC_64BIT");
7645 fprintf (file
, "\n");
7646 if (val
& EISD__M_FIXUPVEC
)
7648 eiaf_vbn
= bfd_getl32 (eisd
.vbn
);
7649 eiaf_size
= bfd_getl32 (eisd
.secsize
);
7651 fprintf (file
, _(" vbn: %u, pfc: %u, matchctl: %u type: %u ("),
7652 (unsigned)bfd_getl32 (eisd
.vbn
),
7653 eisd
.pfc
, eisd
.matchctl
, eisd
.type
);
7656 case EISD__K_NORMAL
:
7657 fputs (_("NORMAL"), file
);
7659 case EISD__K_SHRFXD
:
7660 fputs (_("SHRFXD"), file
);
7662 case EISD__K_PRVFXD
:
7663 fputs (_("PRVFXD"), file
);
7665 case EISD__K_SHRPIC
:
7666 fputs (_("SHRPIC"), file
);
7668 case EISD__K_PRVPIC
:
7669 fputs (_("PRVPIC"), file
);
7671 case EISD__K_USRSTACK
:
7672 fputs (_("USRSTACK"), file
);
7675 fputs (_("*unknown*"), file
);
7678 fputs (_(")\n"), file
);
7679 if (val
& EISD__M_GBL
)
7680 fprintf (file
, _(" ident: 0x%08x, name: %.*s\n"),
7681 (unsigned)bfd_getl32 (eisd
.ident
),
7682 eisd
.gblnam
[0], eisd
.gblnam
+ 1);
7688 if (bfd_seek (abfd
, (file_ptr
) (dmt_vbn
- 1) * VMS_BLOCK_SIZE
, SEEK_SET
))
7690 fprintf (file
, _("cannot read DMT\n"));
7694 fprintf (file
, _("Debug module table:\n"));
7696 while (dmt_size
> 0)
7698 struct vms_dmt_header dmth
;
7701 if (bfd_bread (&dmth
, sizeof (dmth
), abfd
) != sizeof (dmth
))
7703 fprintf (file
, _("cannot read DMT header\n"));
7706 count
= bfd_getl16 (dmth
.psect_count
);
7708 _(" module offset: 0x%08x, size: 0x%08x, (%u psects)\n"),
7709 (unsigned)bfd_getl32 (dmth
.modbeg
),
7710 (unsigned)bfd_getl32 (dmth
.size
), count
);
7711 dmt_size
-= sizeof (dmth
);
7714 struct vms_dmt_psect dmtp
;
7716 if (bfd_bread (&dmtp
, sizeof (dmtp
), abfd
) != sizeof (dmtp
))
7718 fprintf (file
, _("cannot read DMT psect\n"));
7721 fprintf (file
, _(" psect start: 0x%08x, length: %u\n"),
7722 (unsigned)bfd_getl32 (dmtp
.start
),
7723 (unsigned)bfd_getl32 (dmtp
.length
));
7725 dmt_size
-= sizeof (dmtp
);
7732 if (bfd_seek (abfd
, (file_ptr
) (dst_vbn
- 1) * VMS_BLOCK_SIZE
, SEEK_SET
))
7734 fprintf (file
, _("cannot read DST\n"));
7738 evax_bfd_print_dst (abfd
, dst_size
, file
);
7742 if (bfd_seek (abfd
, (file_ptr
) (gst_vbn
- 1) * VMS_BLOCK_SIZE
, SEEK_SET
))
7744 fprintf (file
, _("cannot read GST\n"));
7748 fprintf (file
, _("Global symbol table:\n"));
7749 evax_bfd_print_eobj (abfd
, file
);
7754 struct vms_eiaf
*eiaf
;
7755 unsigned int qrelfixoff
;
7756 unsigned int lrelfixoff
;
7757 unsigned int qdotadroff
;
7758 unsigned int ldotadroff
;
7759 unsigned int shrimgcnt
;
7760 unsigned int shlstoff
;
7761 unsigned int codeadroff
;
7762 unsigned int lpfixoff
;
7763 unsigned int chgprtoff
;
7765 buf
= bfd_malloc (eiaf_size
);
7767 if (bfd_seek (abfd
, (file_ptr
) (eiaf_vbn
- 1) * VMS_BLOCK_SIZE
, SEEK_SET
)
7768 || bfd_bread (buf
, eiaf_size
, abfd
) != eiaf_size
)
7770 fprintf (file
, _("cannot read EIHA\n"));
7774 eiaf
= (struct vms_eiaf
*)buf
;
7776 _("Image activator fixup: (major: %u, minor: %u)\n"),
7777 (unsigned)bfd_getl32 (eiaf
->majorid
),
7778 (unsigned)bfd_getl32 (eiaf
->minorid
));
7779 fprintf (file
, _(" iaflink : 0x%08x %08x\n"),
7780 (unsigned)bfd_getl32 (eiaf
->iaflink
+ 0),
7781 (unsigned)bfd_getl32 (eiaf
->iaflink
+ 4));
7782 fprintf (file
, _(" fixuplnk: 0x%08x %08x\n"),
7783 (unsigned)bfd_getl32 (eiaf
->fixuplnk
+ 0),
7784 (unsigned)bfd_getl32 (eiaf
->fixuplnk
+ 4));
7785 fprintf (file
, _(" size : %u\n"),
7786 (unsigned)bfd_getl32 (eiaf
->size
));
7787 fprintf (file
, _(" flags: 0x%08x\n"),
7788 (unsigned)bfd_getl32 (eiaf
->flags
));
7789 qrelfixoff
= bfd_getl32 (eiaf
->qrelfixoff
);
7790 lrelfixoff
= bfd_getl32 (eiaf
->lrelfixoff
);
7791 fprintf (file
, _(" qrelfixoff: %5u, lrelfixoff: %5u\n"),
7792 qrelfixoff
, lrelfixoff
);
7793 qdotadroff
= bfd_getl32 (eiaf
->qdotadroff
);
7794 ldotadroff
= bfd_getl32 (eiaf
->ldotadroff
);
7795 fprintf (file
, _(" qdotadroff: %5u, ldotadroff: %5u\n"),
7796 qdotadroff
, ldotadroff
);
7797 codeadroff
= bfd_getl32 (eiaf
->codeadroff
);
7798 lpfixoff
= bfd_getl32 (eiaf
->lpfixoff
);
7799 fprintf (file
, _(" codeadroff: %5u, lpfixoff : %5u\n"),
7800 codeadroff
, lpfixoff
);
7801 chgprtoff
= bfd_getl32 (eiaf
->chgprtoff
);
7802 fprintf (file
, _(" chgprtoff : %5u\n"), chgprtoff
);
7803 shrimgcnt
= bfd_getl32 (eiaf
->shrimgcnt
);
7804 shlstoff
= bfd_getl32 (eiaf
->shlstoff
);
7805 fprintf (file
, _(" shlstoff : %5u, shrimgcnt : %5u\n"),
7806 shlstoff
, shrimgcnt
);
7807 fprintf (file
, _(" shlextra : %5u, permctx : %5u\n"),
7808 (unsigned)bfd_getl32 (eiaf
->shlextra
),
7809 (unsigned)bfd_getl32 (eiaf
->permctx
));
7810 fprintf (file
, _(" base_va : 0x%08x\n"),
7811 (unsigned)bfd_getl32 (eiaf
->base_va
));
7812 fprintf (file
, _(" lppsbfixoff: %5u\n"),
7813 (unsigned)bfd_getl32 (eiaf
->lppsbfixoff
));
7817 struct vms_shl
*shl
= (struct vms_shl
*)(buf
+ shlstoff
);
7820 fprintf (file
, _(" Shareable images:\n"));
7821 for (j
= 0; j
< shrimgcnt
; j
++, shl
++)
7824 _(" %u: size: %u, flags: 0x%02x, name: %.*s\n"),
7825 j
, shl
->size
, shl
->flags
,
7826 shl
->imgnam
[0], shl
->imgnam
+ 1);
7829 if (qrelfixoff
!= 0)
7831 fprintf (file
, _(" quad-word relocation fixups:\n"));
7832 evax_bfd_print_relocation_records (file
, buf
+ qrelfixoff
, 8);
7834 if (lrelfixoff
!= 0)
7836 fprintf (file
, _(" long-word relocation fixups:\n"));
7837 evax_bfd_print_relocation_records (file
, buf
+ lrelfixoff
, 4);
7839 if (qdotadroff
!= 0)
7841 fprintf (file
, _(" quad-word .address reference fixups:\n"));
7842 evax_bfd_print_address_fixups (file
, buf
+ qdotadroff
);
7844 if (ldotadroff
!= 0)
7846 fprintf (file
, _(" long-word .address reference fixups:\n"));
7847 evax_bfd_print_address_fixups (file
, buf
+ ldotadroff
);
7849 if (codeadroff
!= 0)
7851 fprintf (file
, _(" Code Address Reference Fixups:\n"));
7852 evax_bfd_print_reference_fixups (file
, buf
+ codeadroff
);
7856 fprintf (file
, _(" Linkage Pairs Referece Fixups:\n"));
7857 evax_bfd_print_reference_fixups (file
, buf
+ lpfixoff
);
7861 unsigned int count
= (unsigned)bfd_getl32 (buf
+ chgprtoff
);
7862 struct vms_eicp
*eicp
= (struct vms_eicp
*)(buf
+ chgprtoff
+ 4);
7865 fprintf (file
, _(" Change Protection (%u entries):\n"), count
);
7866 for (j
= 0; j
< count
; j
++, eicp
++)
7868 unsigned int prot
= bfd_getl32 (eicp
->newprt
);
7870 _(" base: 0x%08x %08x, size: 0x%08x, prot: 0x%08x "),
7871 (unsigned)bfd_getl32 (eicp
->baseva
+ 4),
7872 (unsigned)bfd_getl32 (eicp
->baseva
+ 0),
7873 (unsigned)bfd_getl32 (eicp
->size
),
7874 (unsigned)bfd_getl32 (eicp
->newprt
));
7878 fprintf (file
, "NA");
7880 case PRT__C_RESERVED
:
7881 fprintf (file
, "RES");
7884 fprintf (file
, "KW");
7887 fprintf (file
, "KR");
7890 fprintf (file
, "UW");
7893 fprintf (file
, "EW");
7896 fprintf (file
, "ERKW");
7899 fprintf (file
, "ER");
7902 fprintf (file
, "SW");
7905 fprintf (file
, "SREW");
7908 fprintf (file
, "SRKW");
7911 fprintf (file
, "SR");
7914 fprintf (file
, "URSW");
7917 fprintf (file
, "UREW");
7920 fprintf (file
, "URKW");
7923 fprintf (file
, "UR");
7937 vms_bfd_print_private_bfd_data (bfd
*abfd
, void *ptr
)
7939 FILE *file
= (FILE *)ptr
;
7941 if (bfd_get_file_flags (abfd
) & (EXEC_P
| DYNAMIC
))
7942 evax_bfd_print_image (abfd
, file
);
7945 if (bfd_seek (abfd
, 0, SEEK_SET
))
7947 evax_bfd_print_eobj (abfd
, file
);
7954 /* Slurp ETIR/EDBG/ETBT VMS object records. */
7957 alpha_vms_read_sections_content (bfd
*abfd
, struct bfd_link_info
*info
)
7959 asection
*cur_section
;
7960 file_ptr cur_offset
;
7961 asection
*dst_section
;
7962 file_ptr dst_offset
;
7964 if (bfd_seek (abfd
, 0, SEEK_SET
) != 0)
7970 dst_section
= PRIV (dst_section
);
7974 if (info
->strip
== strip_all
|| info
->strip
== strip_debugger
)
7976 /* Discard the DST section. */
7980 else if (dst_section
)
7982 dst_offset
= dst_section
->output_offset
;
7983 dst_section
= dst_section
->output_section
;
7992 type
= _bfd_vms_get_object_record (abfd
);
7995 vms_debug2 ((2, "next_record failed\n"));
8001 PRIV (image_section
) = cur_section
;
8002 PRIV (image_offset
) = cur_offset
;
8003 res
= _bfd_vms_slurp_etir (abfd
, info
);
8004 cur_section
= PRIV (image_section
);
8005 cur_offset
= PRIV (image_offset
);
8009 if (dst_section
== NULL
)
8011 PRIV (image_section
) = dst_section
;
8012 PRIV (image_offset
) = dst_offset
;
8013 res
= _bfd_vms_slurp_etir (abfd
, info
);
8014 dst_offset
= PRIV (image_offset
);
8023 vms_debug2 ((2, "slurp eobj type %d failed\n", type
));
8030 alpha_vms_sizeof_headers (bfd
*abfd ATTRIBUTE_UNUSED
,
8031 struct bfd_link_info
*info ATTRIBUTE_UNUSED
)
8036 /* Add a linkage pair fixup at address SECT + OFFSET to SHLIB. */
8039 alpha_vms_add_fixup_lp (struct bfd_link_info
*info
, bfd
*src
, bfd
*shlib
)
8041 struct alpha_vms_shlib_el
*sl
;
8042 asection
*sect
= PRIV2 (src
, image_section
);
8043 file_ptr offset
= PRIV2 (src
, image_offset
);
8045 sl
= &VEC_EL (alpha_vms_link_hash (info
)->shrlibs
,
8046 struct alpha_vms_shlib_el
, PRIV2 (shlib
, shr_index
));
8047 sl
->has_fixups
= TRUE
;
8048 VEC_APPEND_EL (sl
->lp
, bfd_vma
,
8049 sect
->output_section
->vma
+ sect
->output_offset
+ offset
);
8050 sect
->output_section
->flags
|= SEC_RELOC
;
8053 /* Add a code address fixup at address SECT + OFFSET to SHLIB. */
8056 alpha_vms_add_fixup_ca (struct bfd_link_info
*info
, bfd
*src
, bfd
*shlib
)
8058 struct alpha_vms_shlib_el
*sl
;
8059 asection
*sect
= PRIV2 (src
, image_section
);
8060 file_ptr offset
= PRIV2 (src
, image_offset
);
8062 sl
= &VEC_EL (alpha_vms_link_hash (info
)->shrlibs
,
8063 struct alpha_vms_shlib_el
, PRIV2 (shlib
, shr_index
));
8064 sl
->has_fixups
= TRUE
;
8065 VEC_APPEND_EL (sl
->ca
, bfd_vma
,
8066 sect
->output_section
->vma
+ sect
->output_offset
+ offset
);
8067 sect
->output_section
->flags
|= SEC_RELOC
;
8070 /* Add a quad word relocation fixup at address SECT + OFFSET to SHLIB. */
8073 alpha_vms_add_fixup_qr (struct bfd_link_info
*info
, bfd
*src
,
8074 bfd
*shlib
, bfd_vma vec
)
8076 struct alpha_vms_shlib_el
*sl
;
8077 struct alpha_vms_vma_ref
*r
;
8078 asection
*sect
= PRIV2 (src
, image_section
);
8079 file_ptr offset
= PRIV2 (src
, image_offset
);
8081 sl
= &VEC_EL (alpha_vms_link_hash (info
)->shrlibs
,
8082 struct alpha_vms_shlib_el
, PRIV2 (shlib
, shr_index
));
8083 sl
->has_fixups
= TRUE
;
8084 r
= VEC_APPEND (sl
->qr
, struct alpha_vms_vma_ref
);
8085 r
->vma
= sect
->output_section
->vma
+ sect
->output_offset
+ offset
;
8087 sect
->output_section
->flags
|= SEC_RELOC
;
8091 alpha_vms_add_fixup_lr (struct bfd_link_info
*info ATTRIBUTE_UNUSED
,
8092 unsigned int shr ATTRIBUTE_UNUSED
,
8093 bfd_vma vec ATTRIBUTE_UNUSED
)
8095 /* Not yet supported. */
8099 /* Add relocation. FIXME: Not yet emitted. */
8102 alpha_vms_add_lw_reloc (struct bfd_link_info
*info ATTRIBUTE_UNUSED
)
8107 alpha_vms_add_qw_reloc (struct bfd_link_info
*info ATTRIBUTE_UNUSED
)
8111 static struct bfd_hash_entry
*
8112 alpha_vms_link_hash_newfunc (struct bfd_hash_entry
*entry
,
8113 struct bfd_hash_table
*table
,
8116 struct alpha_vms_link_hash_entry
*ret
=
8117 (struct alpha_vms_link_hash_entry
*) entry
;
8119 /* Allocate the structure if it has not already been allocated by a
8122 ret
= ((struct alpha_vms_link_hash_entry
*)
8123 bfd_hash_allocate (table
,
8124 sizeof (struct alpha_vms_link_hash_entry
)));
8128 /* Call the allocation method of the superclass. */
8129 ret
= ((struct alpha_vms_link_hash_entry
*)
8130 _bfd_link_hash_newfunc ((struct bfd_hash_entry
*) ret
,
8135 return (struct bfd_hash_entry
*) ret
;
8138 /* Create an Alpha/VMS link hash table. */
8140 static struct bfd_link_hash_table
*
8141 alpha_vms_bfd_link_hash_table_create (bfd
*abfd
)
8143 struct alpha_vms_link_hash_table
*ret
;
8144 bfd_size_type amt
= sizeof (struct alpha_vms_link_hash_table
);
8146 ret
= (struct alpha_vms_link_hash_table
*) bfd_malloc (amt
);
8149 if (!_bfd_link_hash_table_init (&ret
->root
, abfd
,
8150 alpha_vms_link_hash_newfunc
,
8151 sizeof (struct alpha_vms_link_hash_entry
)))
8157 VEC_INIT (ret
->shrlibs
);
8164 alpha_vms_link_add_object_symbols (bfd
*abfd
, struct bfd_link_info
*info
)
8168 for (i
= 0; i
< PRIV (gsd_sym_count
); i
++)
8170 struct vms_symbol_entry
*e
= PRIV (syms
)[i
];
8171 struct alpha_vms_link_hash_entry
*h
;
8172 struct bfd_link_hash_entry
*h_root
;
8175 if (!alpha_vms_convert_symbol (abfd
, e
, &sym
))
8178 if ((e
->flags
& EGSY__V_DEF
) && abfd
->selective_search
)
8180 /* In selective_search mode, only add definition that are
8182 h
= (struct alpha_vms_link_hash_entry
*)bfd_link_hash_lookup
8183 (info
->hash
, sym
.name
, FALSE
, FALSE
, FALSE
);
8184 if (h
== NULL
|| h
->root
.type
!= bfd_link_hash_undefined
)
8190 h_root
= (struct bfd_link_hash_entry
*) h
;
8191 if (_bfd_generic_link_add_one_symbol
8192 (info
, abfd
, sym
.name
, sym
.flags
, sym
.section
, sym
.value
,
8193 NULL
, FALSE
, FALSE
, &h_root
) == FALSE
)
8195 h
= (struct alpha_vms_link_hash_entry
*) h_root
;
8197 if ((e
->flags
& EGSY__V_DEF
)
8199 && abfd
->xvec
== info
->output_bfd
->xvec
)
8203 if (abfd
->flags
& DYNAMIC
)
8205 struct alpha_vms_shlib_el
*shlib
;
8207 /* We do not want to include any of the sections in a dynamic
8208 object in the output file. See comment in elflink.c. */
8209 bfd_section_list_clear (abfd
);
8211 shlib
= VEC_APPEND (alpha_vms_link_hash (info
)->shrlibs
,
8212 struct alpha_vms_shlib_el
);
8214 VEC_INIT (shlib
->ca
);
8215 VEC_INIT (shlib
->lp
);
8216 VEC_INIT (shlib
->qr
);
8217 PRIV (shr_index
) = VEC_COUNT (alpha_vms_link_hash (info
)->shrlibs
) - 1;
8224 alpha_vms_link_add_archive_symbols (bfd
*abfd
, struct bfd_link_info
*info
)
8227 struct bfd_link_hash_entry
**pundef
;
8228 struct bfd_link_hash_entry
**next_pundef
;
8230 /* We only accept VMS libraries. */
8231 if (info
->output_bfd
->xvec
!= abfd
->xvec
)
8233 bfd_set_error (bfd_error_wrong_format
);
8237 /* The archive_pass field in the archive itself is used to
8238 initialize PASS, since we may search the same archive multiple
8240 pass
= ++abfd
->archive_pass
;
8242 /* Look through the list of undefined symbols. */
8243 for (pundef
= &info
->hash
->undefs
; *pundef
!= NULL
; pundef
= next_pundef
)
8245 struct bfd_link_hash_entry
*h
;
8251 next_pundef
= &(*pundef
)->u
.undef
.next
;
8253 /* When a symbol is defined, it is not necessarily removed from
8255 if (h
->type
!= bfd_link_hash_undefined
8256 && h
->type
!= bfd_link_hash_common
)
8258 /* Remove this entry from the list, for general cleanliness
8259 and because we are going to look through the list again
8260 if we search any more libraries. We can't remove the
8261 entry if it is the tail, because that would lose any
8262 entries we add to the list later on. */
8263 if (*pundef
!= info
->hash
->undefs_tail
)
8265 *pundef
= *next_pundef
;
8266 next_pundef
= pundef
;
8271 /* Look for this symbol in the archive hash table. */
8272 symidx
= _bfd_vms_lib_find_symbol (abfd
, h
->root
.string
);
8273 if (symidx
== BFD_NO_MORE_SYMBOLS
)
8275 /* Nothing in this slot. */
8279 element
= bfd_get_elt_at_index (abfd
, symidx
);
8280 if (element
== NULL
)
8283 if (element
->archive_pass
== -1 || element
->archive_pass
== pass
)
8285 /* Next symbol if this archive is wrong or already handled. */
8289 if (! bfd_check_format (element
, bfd_object
))
8291 element
->archive_pass
= -1;
8295 orig_element
= element
;
8296 if (bfd_is_thin_archive (abfd
))
8298 element
= _bfd_vms_lib_get_imagelib_file (element
);
8299 if (element
== NULL
|| !bfd_check_format (element
, bfd_object
))
8301 orig_element
->archive_pass
= -1;
8306 /* Unlike the generic linker, we know that this element provides
8307 a definition for an undefined symbol and we know that we want
8308 to include it. We don't need to check anything. */
8309 if (!(*info
->callbacks
8310 ->add_archive_element
) (info
, element
, h
->root
.string
, &element
))
8312 if (!alpha_vms_link_add_object_symbols (element
, info
))
8315 orig_element
->archive_pass
= pass
;
8322 alpha_vms_bfd_link_add_symbols (bfd
*abfd
, struct bfd_link_info
*info
)
8324 switch (bfd_get_format (abfd
))
8327 vms_debug2 ((2, "vms_link_add_symbols for object %s\n",
8329 return alpha_vms_link_add_object_symbols (abfd
, info
);
8332 vms_debug2 ((2, "vms_link_add_symbols for archive %s\n",
8334 return alpha_vms_link_add_archive_symbols (abfd
, info
);
8337 bfd_set_error (bfd_error_wrong_format
);
8343 alpha_vms_build_fixups (struct bfd_link_info
*info
)
8345 struct alpha_vms_link_hash_table
*t
= alpha_vms_link_hash (info
);
8346 unsigned char *content
;
8348 unsigned int sz
= 0;
8349 unsigned int lp_sz
= 0;
8350 unsigned int ca_sz
= 0;
8351 unsigned int qr_sz
= 0;
8352 unsigned int shrimg_cnt
= 0;
8353 unsigned int chgprt_num
= 0;
8354 unsigned int chgprt_sz
= 0;
8355 struct vms_eiaf
*eiaf
;
8359 /* Shared libraries. */
8360 for (i
= 0; i
< VEC_COUNT (t
->shrlibs
); i
++)
8362 struct alpha_vms_shlib_el
*shlib
;
8364 shlib
= &VEC_EL (t
->shrlibs
, struct alpha_vms_shlib_el
, i
);
8366 if (!shlib
->has_fixups
)
8371 if (VEC_COUNT (shlib
->ca
) > 0)
8373 /* Header + entries. */
8375 ca_sz
+= VEC_COUNT (shlib
->ca
) * 4;
8377 if (VEC_COUNT (shlib
->lp
) > 0)
8379 /* Header + entries. */
8381 lp_sz
+= VEC_COUNT (shlib
->lp
) * 4;
8383 if (VEC_COUNT (shlib
->qr
) > 0)
8385 /* Header + entries. */
8387 qr_sz
+= VEC_COUNT (shlib
->qr
) * 8;
8398 /* Finish now if there is no content. */
8399 if (ca_sz
+ lp_sz
+ qr_sz
== 0)
8402 /* Add an eicp entry for the fixup itself. */
8404 for (sec
= info
->output_bfd
->sections
; sec
!= NULL
; sec
= sec
->next
)
8406 /* This isect could be made RO or EXE after relocations are applied. */
8407 if ((sec
->flags
& SEC_RELOC
) != 0
8408 && (sec
->flags
& (SEC_CODE
| SEC_READONLY
)) != 0)
8411 chgprt_sz
= 4 + chgprt_num
* sizeof (struct vms_eicp
);
8413 /* Allocate section content (round-up size) */
8414 sz
= sizeof (struct vms_eiaf
) + shrimg_cnt
* sizeof (struct vms_shl
)
8415 + ca_sz
+ lp_sz
+ qr_sz
+ chgprt_sz
;
8416 sz
= (sz
+ VMS_BLOCK_SIZE
- 1) & ~(VMS_BLOCK_SIZE
- 1);
8417 content
= bfd_zalloc (info
->output_bfd
, sz
);
8418 if (content
== NULL
)
8421 sec
= alpha_vms_link_hash (info
)->fixup
;
8422 sec
->contents
= content
;
8425 eiaf
= (struct vms_eiaf
*)content
;
8426 off
= sizeof (struct vms_eiaf
);
8427 bfd_putl32 (0, eiaf
->majorid
);
8428 bfd_putl32 (0, eiaf
->minorid
);
8429 bfd_putl32 (0, eiaf
->iaflink
);
8430 bfd_putl32 (0, eiaf
->fixuplnk
);
8431 bfd_putl32 (sizeof (struct vms_eiaf
), eiaf
->size
);
8432 bfd_putl32 (0, eiaf
->flags
);
8433 bfd_putl32 (0, eiaf
->qrelfixoff
);
8434 bfd_putl32 (0, eiaf
->lrelfixoff
);
8435 bfd_putl32 (0, eiaf
->qdotadroff
);
8436 bfd_putl32 (0, eiaf
->ldotadroff
);
8437 bfd_putl32 (0, eiaf
->codeadroff
);
8438 bfd_putl32 (0, eiaf
->lpfixoff
);
8439 bfd_putl32 (0, eiaf
->chgprtoff
);
8440 bfd_putl32 (shrimg_cnt
? off
: 0, eiaf
->shlstoff
);
8441 bfd_putl32 (shrimg_cnt
, eiaf
->shrimgcnt
);
8442 bfd_putl32 (0, eiaf
->shlextra
);
8443 bfd_putl32 (0, eiaf
->permctx
);
8444 bfd_putl32 (0, eiaf
->base_va
);
8445 bfd_putl32 (0, eiaf
->lppsbfixoff
);
8452 for (i
= 0; i
< VEC_COUNT (t
->shrlibs
); i
++)
8454 struct alpha_vms_shlib_el
*shlib
;
8455 struct vms_shl
*shl
;
8457 shlib
= &VEC_EL (t
->shrlibs
, struct alpha_vms_shlib_el
, i
);
8459 if (!shlib
->has_fixups
)
8462 /* Renumber shared images. */
8463 PRIV2 (shlib
->abfd
, shr_index
) = shrimg_cnt
++;
8465 shl
= (struct vms_shl
*)(content
+ off
);
8466 bfd_putl32 (0, shl
->baseva
);
8467 bfd_putl32 (0, shl
->shlptr
);
8468 bfd_putl32 (0, shl
->ident
);
8469 bfd_putl32 (0, shl
->permctx
);
8470 shl
->size
= sizeof (struct vms_shl
);
8471 bfd_putl16 (0, shl
->fill_1
);
8473 bfd_putl32 (0, shl
->icb
);
8474 shl
->imgnam
[0] = strlen (PRIV2 (shlib
->abfd
, hdr_data
.hdr_t_name
));
8475 memcpy (shl
->imgnam
+ 1, PRIV2 (shlib
->abfd
, hdr_data
.hdr_t_name
),
8478 off
+= sizeof (struct vms_shl
);
8484 bfd_putl32 (off
, eiaf
->codeadroff
);
8486 for (i
= 0; i
< VEC_COUNT (t
->shrlibs
); i
++)
8488 struct alpha_vms_shlib_el
*shlib
;
8491 shlib
= &VEC_EL (t
->shrlibs
, struct alpha_vms_shlib_el
, i
);
8493 if (VEC_COUNT (shlib
->ca
) == 0)
8496 bfd_putl32 (VEC_COUNT (shlib
->ca
), content
+ off
);
8497 bfd_putl32 (PRIV2 (shlib
->abfd
, shr_index
), content
+ off
+ 4);
8500 for (j
= 0; j
< VEC_COUNT (shlib
->ca
); j
++)
8502 bfd_putl32 (VEC_EL (shlib
->ca
, bfd_vma
, j
) - t
->base_addr
,
8508 bfd_putl32 (0, content
+ off
);
8509 bfd_putl32 (0, content
+ off
+ 4);
8516 bfd_putl32 (off
, eiaf
->lpfixoff
);
8518 for (i
= 0; i
< VEC_COUNT (t
->shrlibs
); i
++)
8520 struct alpha_vms_shlib_el
*shlib
;
8523 shlib
= &VEC_EL (t
->shrlibs
, struct alpha_vms_shlib_el
, i
);
8525 if (VEC_COUNT (shlib
->lp
) == 0)
8528 bfd_putl32 (VEC_COUNT (shlib
->lp
), content
+ off
);
8529 bfd_putl32 (PRIV2 (shlib
->abfd
, shr_index
), content
+ off
+ 4);
8532 for (j
= 0; j
< VEC_COUNT (shlib
->lp
); j
++)
8534 bfd_putl32 (VEC_EL (shlib
->lp
, bfd_vma
, j
) - t
->base_addr
,
8540 bfd_putl32 (0, content
+ off
);
8541 bfd_putl32 (0, content
+ off
+ 4);
8548 bfd_putl32 (off
, eiaf
->qdotadroff
);
8550 for (i
= 0; i
< VEC_COUNT (t
->shrlibs
); i
++)
8552 struct alpha_vms_shlib_el
*shlib
;
8555 shlib
= &VEC_EL (t
->shrlibs
, struct alpha_vms_shlib_el
, i
);
8557 if (VEC_COUNT (shlib
->qr
) == 0)
8560 bfd_putl32 (VEC_COUNT (shlib
->qr
), content
+ off
);
8561 bfd_putl32 (PRIV2 (shlib
->abfd
, shr_index
), content
+ off
+ 4);
8564 for (j
= 0; j
< VEC_COUNT (shlib
->qr
); j
++)
8566 struct alpha_vms_vma_ref
*r
;
8567 r
= &VEC_EL (shlib
->qr
, struct alpha_vms_vma_ref
, j
);
8568 bfd_putl32 (r
->vma
- t
->base_addr
, content
+ off
);
8569 bfd_putl32 (r
->ref
, content
+ off
+ 4);
8574 bfd_putl32 (0, content
+ off
);
8575 bfd_putl32 (0, content
+ off
+ 4);
8580 /* Write the change protection table. */
8581 bfd_putl32 (off
, eiaf
->chgprtoff
);
8582 bfd_putl32 (chgprt_num
, content
+ off
);
8585 for (sec
= info
->output_bfd
->sections
; sec
!= NULL
; sec
= sec
->next
)
8587 struct vms_eicp
*eicp
;
8590 if ((sec
->flags
& SEC_LINKER_CREATED
) != 0 &&
8591 strcmp (sec
->name
, "$FIXUP$") == 0)
8593 else if ((sec
->flags
& SEC_RELOC
) != 0
8594 && (sec
->flags
& (SEC_CODE
| SEC_READONLY
)) != 0)
8599 eicp
= (struct vms_eicp
*)(content
+ off
);
8600 bfd_putl64 (sec
->vma
- t
->base_addr
, eicp
->baseva
);
8601 bfd_putl32 ((sec
->size
+ VMS_BLOCK_SIZE
- 1) & ~(VMS_BLOCK_SIZE
- 1),
8603 bfd_putl32 (prot
, eicp
->newprt
);
8604 off
+= sizeof (struct vms_eicp
);
8610 /* Called by bfd_hash_traverse to fill the symbol table.
8611 Return FALSE in case of failure. */
8614 alpha_vms_link_output_symbol (struct bfd_hash_entry
*bh
, void *infov
)
8616 struct bfd_link_hash_entry
*hc
= (struct bfd_link_hash_entry
*) bh
;
8617 struct bfd_link_info
*info
= (struct bfd_link_info
*)infov
;
8618 struct alpha_vms_link_hash_entry
*h
;
8619 struct vms_symbol_entry
*sym
;
8621 if (hc
->type
== bfd_link_hash_warning
)
8624 if (hc
->type
== bfd_link_hash_new
)
8627 h
= (struct alpha_vms_link_hash_entry
*) hc
;
8629 switch (h
->root
.type
)
8631 case bfd_link_hash_undefined
:
8633 case bfd_link_hash_new
:
8634 case bfd_link_hash_warning
:
8636 case bfd_link_hash_undefweak
:
8638 case bfd_link_hash_defined
:
8639 case bfd_link_hash_defweak
:
8641 asection
*sec
= h
->root
.u
.def
.section
;
8643 /* FIXME: this is certainly a symbol from a dynamic library. */
8644 if (bfd_is_abs_section (sec
))
8647 if (sec
->owner
->flags
& DYNAMIC
)
8651 case bfd_link_hash_common
:
8653 case bfd_link_hash_indirect
:
8657 /* Do not write not kept symbols. */
8658 if (info
->strip
== strip_some
8659 && bfd_hash_lookup (info
->keep_hash
, h
->root
.root
.string
,
8660 FALSE
, FALSE
) != NULL
)
8665 /* This symbol doesn't come from a VMS object. So we suppose it is
8667 int len
= strlen (h
->root
.root
.string
);
8669 sym
= (struct vms_symbol_entry
*)bfd_zalloc (info
->output_bfd
,
8670 sizeof (*sym
) + len
);
8674 memcpy (sym
->name
, h
->root
.root
.string
, len
);
8676 sym
->owner
= info
->output_bfd
;
8678 sym
->typ
= EGSD__C_SYMG
;
8680 sym
->flags
= EGSY__V_DEF
| EGSY__V_REL
;
8681 sym
->symbol_vector
= h
->root
.u
.def
.value
;
8682 sym
->section
= h
->root
.u
.def
.section
;
8683 sym
->value
= h
->root
.u
.def
.value
;
8688 if (!add_symbol_entry (info
->output_bfd
, sym
))
8695 alpha_vms_bfd_final_link (bfd
*abfd
, struct bfd_link_info
*info
)
8698 struct bfd_link_order
*p
;
8706 if (info
->relocatable
)
8708 /* FIXME: we do not yet support relocatable link. It is not obvious
8709 how to do it for debug infos. */
8710 (*info
->callbacks
->einfo
)(_("%P: relocatable link is not supported\n"));
8714 bfd_get_outsymbols (abfd
) = NULL
;
8715 bfd_get_symcount (abfd
) = 0;
8717 /* Mark all sections which will be included in the output file. */
8718 for (o
= abfd
->sections
; o
!= NULL
; o
= o
->next
)
8719 for (p
= o
->map_head
.link_order
; p
!= NULL
; p
= p
->next
)
8720 if (p
->type
== bfd_indirect_link_order
)
8721 p
->u
.indirect
.section
->linker_mark
= TRUE
;
8724 /* Handle all the link order information for the sections. */
8725 for (o
= abfd
->sections
; o
!= NULL
; o
= o
->next
)
8727 printf ("For section %s (at 0x%08x, flags=0x%08x):\n",
8728 o
->name
, (unsigned)o
->vma
, (unsigned)o
->flags
);
8730 for (p
= o
->map_head
.link_order
; p
!= NULL
; p
= p
->next
)
8732 printf (" at 0x%08x - 0x%08x: ",
8733 (unsigned)p
->offset
, (unsigned)(p
->offset
+ p
->size
- 1));
8736 case bfd_section_reloc_link_order
:
8737 case bfd_symbol_reloc_link_order
:
8738 printf (" section/symbol reloc\n");
8740 case bfd_indirect_link_order
:
8741 printf (" section %s of %s\n",
8742 p
->u
.indirect
.section
->name
,
8743 p
->u
.indirect
.section
->owner
->filename
);
8745 case bfd_data_link_order
:
8746 printf (" explicit data\n");
8749 printf (" *unknown* type %u\n", p
->type
);
8756 /* Generate the symbol table. */
8757 BFD_ASSERT (PRIV (syms
) == NULL
);
8758 if (info
->strip
!= strip_all
)
8759 bfd_hash_traverse (&info
->hash
->table
, alpha_vms_link_output_symbol
, info
);
8761 /* Find the entry point. */
8762 if (bfd_get_start_address (abfd
) == 0)
8764 bfd
*startbfd
= NULL
;
8766 for (sub
= info
->input_bfds
; sub
!= NULL
; sub
= sub
->link_next
)
8768 /* Consider only VMS object files. */
8769 if (sub
->xvec
!= abfd
->xvec
)
8772 if (!PRIV2 (sub
, eom_data
).eom_has_transfer
)
8774 if ((PRIV2 (sub
, eom_data
).eom_b_tfrflg
& EEOM__M_WKTFR
) && startbfd
)
8776 if (startbfd
!= NULL
8777 && !(PRIV2 (sub
, eom_data
).eom_b_tfrflg
& EEOM__M_WKTFR
))
8779 (*info
->callbacks
->einfo
)
8780 (_("%P: multiple entry points: in modules %B and %B\n"),
8789 unsigned int ps_idx
= PRIV2 (startbfd
, eom_data
).eom_l_psindx
;
8790 bfd_vma tfradr
= PRIV2 (startbfd
, eom_data
).eom_l_tfradr
;
8793 sec
= PRIV2 (startbfd
, sections
)[ps_idx
];
8795 bfd_set_start_address
8796 (abfd
, sec
->output_section
->vma
+ sec
->output_offset
+ tfradr
);
8800 /* Set transfer addresses. */
8803 struct bfd_link_hash_entry
*h
;
8806 PRIV (transfer_address
[i
++]) = 0xffffffff00000340ULL
; /* SYS$IMGACT */
8807 h
= bfd_link_hash_lookup (info
->hash
, "LIB$INITIALIZE", FALSE
, FALSE
, TRUE
);
8808 if (h
!= NULL
&& h
->type
== bfd_link_hash_defined
)
8809 PRIV (transfer_address
[i
++]) =
8810 alpha_vms_get_sym_value (h
->u
.def
.section
, h
->u
.def
.value
);
8811 PRIV (transfer_address
[i
++]) = bfd_get_start_address (abfd
);
8813 PRIV (transfer_address
[i
++]) = 0;
8816 /* Allocate contents.
8817 Also compute the virtual base address. */
8818 base_addr
= (bfd_vma
)-1;
8820 for (o
= abfd
->sections
; o
!= NULL
; o
= o
->next
)
8822 if (o
->flags
& SEC_HAS_CONTENTS
)
8824 o
->contents
= bfd_alloc (abfd
, o
->size
);
8825 if (o
->contents
== NULL
)
8828 if (o
->flags
& SEC_LOAD
)
8830 if (o
->vma
< base_addr
)
8832 if (o
->vma
+ o
->size
> last_addr
)
8833 last_addr
= o
->vma
+ o
->size
;
8835 /* Clear the RELOC flags. Currently we don't support incremental
8836 linking. We use the RELOC flag for computing the eicp entries. */
8837 o
->flags
&= ~SEC_RELOC
;
8840 /* Create the fixup section. */
8841 fixupsec
= bfd_make_section_anyway_with_flags
8842 (info
->output_bfd
, "$FIXUP$",
8843 SEC_ALLOC
| SEC_LOAD
| SEC_HAS_CONTENTS
| SEC_LINKER_CREATED
);
8844 if (fixupsec
== NULL
)
8846 last_addr
= (last_addr
+ 0xffff) & ~0xffff;
8847 fixupsec
->vma
= last_addr
;
8849 alpha_vms_link_hash (info
)->fixup
= fixupsec
;
8850 alpha_vms_link_hash (info
)->base_addr
= base_addr
;
8852 /* Create the DMT section, if necessary. */
8853 BFD_ASSERT (PRIV (dst_section
) == NULL
);
8854 dst
= bfd_get_section_by_name (abfd
, "$DST$");
8855 if (dst
!= NULL
&& dst
->size
== 0)
8859 PRIV (dst_section
) = dst
;
8860 dmt
= bfd_make_section_anyway_with_flags
8861 (info
->output_bfd
, "$DMT$",
8862 SEC_DEBUGGING
| SEC_HAS_CONTENTS
| SEC_LINKER_CREATED
);
8869 /* Read all sections from the inputs. */
8870 for (sub
= info
->input_bfds
; sub
!= NULL
; sub
= sub
->link_next
)
8872 if (sub
->flags
& DYNAMIC
)
8874 alpha_vms_create_eisd_for_shared (abfd
, sub
);
8878 if (!alpha_vms_read_sections_content (sub
, info
))
8882 /* Handle all the link order information for the sections.
8883 Note: past this point, it is not possible to create new sections. */
8884 for (o
= abfd
->sections
; o
!= NULL
; o
= o
->next
)
8886 for (p
= o
->map_head
.link_order
; p
!= NULL
; p
= p
->next
)
8890 case bfd_section_reloc_link_order
:
8891 case bfd_symbol_reloc_link_order
:
8894 case bfd_indirect_link_order
:
8898 if (! _bfd_default_link_order (abfd
, info
, o
, p
))
8905 /* Compute fixups. */
8906 if (!alpha_vms_build_fixups (info
))
8909 /* Compute the DMT. */
8913 unsigned char *contents
= NULL
;
8915 /* In pass 1, compute the size. In pass 2, write the DMT contents. */
8916 for (pass
= 0; pass
< 2; pass
++)
8918 unsigned int off
= 0;
8920 /* For each object file (ie for each module). */
8921 for (sub
= info
->input_bfds
; sub
!= NULL
; sub
= sub
->link_next
)
8924 struct vms_dmt_header
*dmth
= NULL
;
8925 unsigned int psect_count
;
8927 /* Skip this module if it has no DST. */
8928 sub_dst
= PRIV2 (sub
, dst_section
);
8929 if (sub_dst
== NULL
|| sub_dst
->size
== 0)
8934 /* Write the header. */
8935 dmth
= (struct vms_dmt_header
*)(contents
+ off
);
8936 bfd_putl32 (sub_dst
->output_offset
, dmth
->modbeg
);
8937 bfd_putl32 (sub_dst
->size
, dmth
->size
);
8940 off
+= sizeof (struct vms_dmt_header
);
8943 /* For each section (ie for each psect). */
8944 for (o
= sub
->sections
; o
!= NULL
; o
= o
->next
)
8946 /* Only consider interesting sections. */
8947 if (!(o
->flags
& SEC_ALLOC
))
8949 if (o
->flags
& SEC_LINKER_CREATED
)
8954 /* Write an entry. */
8955 struct vms_dmt_psect
*dmtp
;
8957 dmtp
= (struct vms_dmt_psect
*)(contents
+ off
);
8958 bfd_putl32 (o
->output_offset
+ o
->output_section
->vma
,
8960 bfd_putl32 (o
->size
, dmtp
->length
);
8963 off
+= sizeof (struct vms_dmt_psect
);
8966 bfd_putl32 (psect_count
, dmth
->psect_count
);
8971 contents
= bfd_zalloc (info
->output_bfd
, off
);
8972 if (contents
== NULL
)
8974 dmt
->contents
= contents
;
8979 BFD_ASSERT (off
== dmt
->size
);
8987 /* Read the contents of a section.
8988 buf points to a buffer of buf_size bytes to be filled with
8989 section data (starting at offset into section) */
8992 alpha_vms_get_section_contents (bfd
*abfd
, asection
*section
,
8993 void *buf
, file_ptr offset
,
8994 bfd_size_type count
)
8998 /* Image are easy. */
8999 if (bfd_get_file_flags (abfd
) & (EXEC_P
| DYNAMIC
))
9000 return _bfd_generic_get_section_contents (abfd
, section
,
9001 buf
, offset
, count
);
9004 if (offset
+ count
< count
9005 || offset
+ count
> section
->size
)
9007 bfd_set_error (bfd_error_invalid_operation
);
9011 /* If the section is already in memory, just copy it. */
9012 if (section
->flags
& SEC_IN_MEMORY
)
9014 BFD_ASSERT (section
->contents
!= NULL
);
9015 memcpy (buf
, section
->contents
+ offset
, count
);
9018 if (section
->size
== 0)
9021 /* Alloc in memory and read ETIRs. */
9022 for (sec
= abfd
->sections
; sec
; sec
= sec
->next
)
9024 BFD_ASSERT (sec
->contents
== NULL
);
9026 if (sec
->size
!= 0 && (sec
->flags
& SEC_HAS_CONTENTS
))
9028 sec
->contents
= bfd_alloc (abfd
, sec
->size
);
9029 if (sec
->contents
== NULL
)
9033 if (!alpha_vms_read_sections_content (abfd
, NULL
))
9035 for (sec
= abfd
->sections
; sec
; sec
= sec
->next
)
9037 sec
->flags
|= SEC_IN_MEMORY
;
9038 memcpy (buf
, section
->contents
+ offset
, count
);
9043 /* Set the format of a file being written. */
9046 alpha_vms_mkobject (bfd
* abfd
)
9048 const bfd_arch_info_type
*arch
;
9050 vms_debug2 ((1, "alpha_vms_mkobject (%p)\n", abfd
));
9052 if (!vms_initialize (abfd
))
9055 PRIV (recwr
.buf
) = bfd_alloc (abfd
, MAX_OUTREC_SIZE
);
9056 if (PRIV (recwr
.buf
) == NULL
)
9059 arch
= bfd_scan_arch ("alpha");
9063 bfd_set_error (bfd_error_wrong_format
);
9067 abfd
->arch_info
= arch
;
9074 /* Called when the BFD is being closed to do any necessary cleanup. */
9077 vms_close_and_cleanup (bfd
* abfd
)
9079 vms_debug2 ((1, "vms_close_and_cleanup (%p)\n", abfd
));
9081 if (abfd
== NULL
|| abfd
->tdata
.any
== NULL
)
9084 if (abfd
->format
== bfd_archive
)
9086 bfd_release (abfd
, abfd
->tdata
.any
);
9087 abfd
->tdata
.any
= NULL
;
9091 if (PRIV (recrd
.buf
) != NULL
)
9092 free (PRIV (recrd
.buf
));
9094 if (PRIV (sections
) != NULL
)
9095 free (PRIV (sections
));
9097 bfd_release (abfd
, abfd
->tdata
.any
);
9098 abfd
->tdata
.any
= NULL
;
9101 if (abfd
->direction
== write_direction
)
9103 /* Last step on VMS is to convert the file to variable record length
9105 if (bfd_cache_close (abfd
) != TRUE
)
9107 if (_bfd_vms_convert_to_var_unix_filename (abfd
->filename
) != TRUE
)
9115 /* Called when a new section is created. */
9118 vms_new_section_hook (bfd
* abfd
, asection
*section
)
9122 vms_debug2 ((1, "vms_new_section_hook (%p, [%d]%s)\n",
9123 abfd
, section
->index
, section
->name
));
9125 bfd_set_section_alignment (abfd
, section
, 0);
9127 vms_debug2 ((7, "%d: %s\n", section
->index
, section
->name
));
9129 amt
= sizeof (struct vms_section_data_struct
);
9130 section
->used_by_bfd
= bfd_zalloc (abfd
, amt
);
9131 if (section
->used_by_bfd
== NULL
)
9134 /* Create the section symbol. */
9135 return _bfd_generic_new_section_hook (abfd
, section
);
9138 /* Part 4.5, symbols. */
9140 /* Print symbol to file according to how. how is one of
9141 bfd_print_symbol_name just print the name
9142 bfd_print_symbol_more print more (???)
9143 bfd_print_symbol_all print all we know, which is not much right now :-). */
9146 vms_print_symbol (bfd
* abfd
,
9149 bfd_print_symbol_type how
)
9151 vms_debug2 ((1, "vms_print_symbol (%p, %p, %p, %d)\n",
9152 abfd
, file
, symbol
, how
));
9156 case bfd_print_symbol_name
:
9157 case bfd_print_symbol_more
:
9158 fprintf ((FILE *)file
," %s", symbol
->name
);
9161 case bfd_print_symbol_all
:
9163 const char *section_name
= symbol
->section
->name
;
9165 bfd_print_symbol_vandf (abfd
, file
, symbol
);
9167 fprintf ((FILE *) file
," %-8s %s", section_name
, symbol
->name
);
9173 /* Return information about symbol in ret.
9175 fill type, value and name
9178 B bss segment symbol
9180 D data segment symbol
9182 t a static function symbol
9183 T text segment symbol
9188 vms_get_symbol_info (bfd
* abfd ATTRIBUTE_UNUSED
,
9194 vms_debug2 ((1, "vms_get_symbol_info (%p, %p, %p)\n", abfd
, symbol
, ret
));
9196 sec
= symbol
->section
;
9203 else if (bfd_is_com_section (sec
))
9205 else if (bfd_is_abs_section (sec
))
9207 else if (bfd_is_und_section (sec
))
9209 else if (bfd_is_ind_section (sec
))
9211 else if ((symbol
->flags
& BSF_FUNCTION
)
9212 || (bfd_get_section_flags (abfd
, sec
) & SEC_CODE
))
9214 else if (bfd_get_section_flags (abfd
, sec
) & SEC_DATA
)
9216 else if (bfd_get_section_flags (abfd
, sec
) & SEC_ALLOC
)
9221 if (ret
->type
!= 'U')
9222 ret
->value
= symbol
->value
+ symbol
->section
->vma
;
9225 ret
->name
= symbol
->name
;
9228 /* Return TRUE if the given symbol sym in the BFD abfd is
9229 a compiler generated local label, else return FALSE. */
9232 vms_bfd_is_local_label_name (bfd
* abfd ATTRIBUTE_UNUSED
,
9235 vms_debug2 ((1, "vms_bfd_is_local_label_name (%p, %s)\n", abfd
, name
));
9236 return name
[0] == '$';
9239 /* Part 4.7, writing an object file. */
9241 /* Sets the contents of the section section in BFD abfd to the data starting
9242 in memory at LOCATION. The data is written to the output section starting
9243 at offset offset for count bytes.
9245 Normally TRUE is returned, else FALSE. Possible error returns are:
9246 o bfd_error_no_contents - The output section does not have the
9247 SEC_HAS_CONTENTS attribute, so nothing can be written to it.
9248 o and some more too */
9251 _bfd_vms_set_section_contents (bfd
* abfd
,
9253 const void * location
,
9255 bfd_size_type count
)
9257 if (section
->contents
== NULL
)
9259 section
->contents
= bfd_alloc (abfd
, section
->size
);
9260 if (section
->contents
== NULL
)
9263 memcpy (section
->contents
+ offset
, location
, (size_t) count
);
9269 /* Set the architecture and machine type in BFD abfd to arch and mach.
9270 Find the correct pointer to a structure and insert it into the arch_info
9274 alpha_vms_set_arch_mach (bfd
*abfd
,
9275 enum bfd_architecture arch
, unsigned long mach
)
9277 if (arch
!= bfd_arch_alpha
9278 && arch
!= bfd_arch_unknown
)
9281 return bfd_default_set_arch_mach (abfd
, arch
, mach
);
9284 /* Set section VMS flags. Clear NO_FLAGS and set FLAGS. */
9287 bfd_vms_set_section_flags (bfd
*abfd ATTRIBUTE_UNUSED
,
9288 asection
*sec
, flagword no_flags
, flagword flags
)
9290 vms_section_data (sec
)->no_flags
= no_flags
;
9291 vms_section_data (sec
)->flags
= flags
;
9294 struct vms_private_data_struct
*
9295 bfd_vms_get_data (bfd
*abfd
)
9297 return (struct vms_private_data_struct
*)abfd
->tdata
.any
;
9300 #define vms_bfd_is_target_special_symbol ((bfd_boolean (*) (bfd *, asymbol *)) bfd_false)
9301 #define vms_bfd_link_just_syms _bfd_generic_link_just_syms
9302 #define vms_bfd_copy_link_hash_symbol_type \
9303 _bfd_generic_copy_link_hash_symbol_type
9304 #define vms_bfd_is_group_section bfd_generic_is_group_section
9305 #define vms_bfd_discard_group bfd_generic_discard_group
9306 #define vms_section_already_linked _bfd_generic_section_already_linked
9307 #define vms_bfd_define_common_symbol bfd_generic_define_common_symbol
9308 #define vms_bfd_copy_private_header_data _bfd_generic_bfd_copy_private_header_data
9310 #define vms_bfd_copy_private_bfd_data _bfd_generic_bfd_copy_private_bfd_data
9311 #define vms_bfd_free_cached_info _bfd_generic_bfd_free_cached_info
9312 #define vms_bfd_copy_private_section_data _bfd_generic_bfd_copy_private_section_data
9313 #define vms_bfd_copy_private_symbol_data _bfd_generic_bfd_copy_private_symbol_data
9314 #define vms_bfd_set_private_flags _bfd_generic_bfd_set_private_flags
9315 #define vms_bfd_merge_private_bfd_data _bfd_generic_bfd_merge_private_bfd_data
9317 /* Symbols table. */
9318 #define alpha_vms_make_empty_symbol _bfd_generic_make_empty_symbol
9319 #define alpha_vms_bfd_is_target_special_symbol \
9320 ((bfd_boolean (*) (bfd *, asymbol *)) bfd_false)
9321 #define alpha_vms_print_symbol vms_print_symbol
9322 #define alpha_vms_get_symbol_info vms_get_symbol_info
9323 #define alpha_vms_read_minisymbols _bfd_generic_read_minisymbols
9324 #define alpha_vms_minisymbol_to_symbol _bfd_generic_minisymbol_to_symbol
9325 #define alpha_vms_get_lineno _bfd_nosymbols_get_lineno
9326 #define alpha_vms_find_inliner_info _bfd_nosymbols_find_inliner_info
9327 #define alpha_vms_bfd_make_debug_symbol _bfd_nosymbols_bfd_make_debug_symbol
9328 #define alpha_vms_find_nearest_line _bfd_vms_find_nearest_dst_line
9329 #define alpha_vms_bfd_is_local_label_name vms_bfd_is_local_label_name
9331 /* Generic table. */
9332 #define alpha_vms_close_and_cleanup vms_close_and_cleanup
9333 #define alpha_vms_bfd_free_cached_info vms_bfd_free_cached_info
9334 #define alpha_vms_new_section_hook vms_new_section_hook
9335 #define alpha_vms_set_section_contents _bfd_vms_set_section_contents
9336 #define alpha_vms_get_section_contents_in_window _bfd_generic_get_section_contents_in_window
9338 #define alpha_vms_bfd_get_relocated_section_contents \
9339 bfd_generic_get_relocated_section_contents
9341 #define alpha_vms_bfd_relax_section bfd_generic_relax_section
9342 #define alpha_vms_bfd_gc_sections bfd_generic_gc_sections
9343 #define alpha_vms_bfd_merge_sections bfd_generic_merge_sections
9344 #define alpha_vms_bfd_is_group_section bfd_generic_is_group_section
9345 #define alpha_vms_bfd_discard_group bfd_generic_discard_group
9346 #define alpha_vms_section_already_linked \
9347 _bfd_generic_section_already_linked
9349 #define alpha_vms_bfd_define_common_symbol bfd_generic_define_common_symbol
9350 #define alpha_vms_bfd_link_hash_table_free _bfd_generic_link_hash_table_free
9351 #define alpha_vms_bfd_link_just_syms _bfd_generic_link_just_syms
9352 #define alpha_vms_bfd_copy_link_hash_symbol_type \
9353 _bfd_generic_copy_link_hash_symbol_type
9355 #define alpha_vms_bfd_link_split_section _bfd_generic_link_split_section
9357 #define alpha_vms_get_dynamic_symtab_upper_bound \
9358 _bfd_nodynamic_get_dynamic_symtab_upper_bound
9359 #define alpha_vms_canonicalize_dynamic_symtab \
9360 _bfd_nodynamic_canonicalize_dynamic_symtab
9361 #define alpha_vms_get_dynamic_reloc_upper_bound \
9362 _bfd_nodynamic_get_dynamic_reloc_upper_bound
9363 #define alpha_vms_canonicalize_dynamic_reloc \
9364 _bfd_nodynamic_canonicalize_dynamic_reloc
9366 const bfd_target vms_alpha_vec
=
9368 "vms-alpha", /* Name. */
9369 bfd_target_evax_flavour
,
9370 BFD_ENDIAN_LITTLE
, /* Data byte order is little. */
9371 BFD_ENDIAN_LITTLE
, /* Header byte order is little. */
9373 (HAS_RELOC
| EXEC_P
| HAS_LINENO
| HAS_DEBUG
| HAS_SYMS
| HAS_LOCALS
9374 | WP_TEXT
| D_PAGED
), /* Object flags. */
9375 (SEC_ALLOC
| SEC_LOAD
| SEC_RELOC
9376 | SEC_READONLY
| SEC_CODE
| SEC_DATA
9377 | SEC_HAS_CONTENTS
| SEC_IN_MEMORY
), /* Sect flags. */
9378 0, /* symbol_leading_char. */
9379 ' ', /* ar_pad_char. */
9380 15, /* ar_max_namelen. */
9381 0, /* match priority. */
9382 bfd_getl64
, bfd_getl_signed_64
, bfd_putl64
,
9383 bfd_getl32
, bfd_getl_signed_32
, bfd_putl32
,
9384 bfd_getl16
, bfd_getl_signed_16
, bfd_putl16
,
9385 bfd_getl64
, bfd_getl_signed_64
, bfd_putl64
,
9386 bfd_getl32
, bfd_getl_signed_32
, bfd_putl32
,
9387 bfd_getl16
, bfd_getl_signed_16
, bfd_putl16
,
9389 {_bfd_dummy_target
, alpha_vms_object_p
, /* bfd_check_format. */
9390 _bfd_vms_lib_alpha_archive_p
, _bfd_dummy_target
},
9391 {bfd_false
, alpha_vms_mkobject
, /* bfd_set_format. */
9392 _bfd_vms_lib_alpha_mkarchive
, bfd_false
},
9393 {bfd_false
, alpha_vms_write_object_contents
, /* bfd_write_contents. */
9394 _bfd_vms_lib_write_archive_contents
, bfd_false
},
9396 BFD_JUMP_TABLE_GENERIC (alpha_vms
),
9397 BFD_JUMP_TABLE_COPY (vms
),
9398 BFD_JUMP_TABLE_CORE (_bfd_nocore
),
9399 BFD_JUMP_TABLE_ARCHIVE (_bfd_vms_lib
),
9400 BFD_JUMP_TABLE_SYMBOLS (alpha_vms
),
9401 BFD_JUMP_TABLE_RELOCS (alpha_vms
),
9402 BFD_JUMP_TABLE_WRITE (alpha_vms
),
9403 BFD_JUMP_TABLE_LINK (alpha_vms
),
9404 BFD_JUMP_TABLE_DYNAMIC (alpha_vms
),