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 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 asection
*dst_section
;
309 unsigned int dst_ptr_offsets_count
; /* # of offsets in following array */
310 unsigned int *dst_ptr_offsets
; /* array of saved image_ptr offsets */
312 /* Shared library support */
313 bfd_vma symvva
; /* relative virtual address of symbol vector */
315 unsigned char matchctl
;
317 /* Shared library index. This is used for input bfd while linking. */
318 unsigned int shr_index
;
320 /* Used to place structures in the file. */
323 /* Simply linked list of eisd. */
324 struct vms_internal_eisd_map
*eisd_head
;
325 struct vms_internal_eisd_map
*eisd_tail
;
327 /* Simply linked list of eisd for shared libraries. */
328 struct vms_internal_eisd_map
*gbl_eisd_head
;
329 struct vms_internal_eisd_map
*gbl_eisd_tail
;
331 /* linkage index counter used by conditional store commands */
332 int vms_linkage_index
;
334 /* see tc-alpha.c of gas for a description. */
335 int flag_hash_long_names
; /* -+, hash instead of truncate */
336 int flag_show_after_trunc
; /* -H, show hashing/truncation */
339 #define PRIV2(abfd, name) \
340 (((struct vms_private_data_struct *)(abfd)->tdata.any)->name)
341 #define PRIV(name) PRIV2(abfd,name)
344 /* Used to keep extra VMS specific information for a given section.
346 reloc_size holds the size of the relocation stream, note this
347 is very different from the number of relocations as VMS relocations
350 reloc_stream is the actual stream of relocation entries. */
352 struct vms_section_data_struct
354 /* Maximnum number of entries in sec->relocation. */
357 /* Corresponding eisd. Used only while generating executables. */
358 struct vms_internal_eisd_map
*eisd
;
360 /* PSC flags to be clear. */
363 /* PSC flags to be set. */
367 #define vms_section_data(sec) \
368 ((struct vms_section_data_struct *)sec->used_by_bfd)
370 /* To be called from the debugger. */
371 struct vms_private_data_struct
*bfd_vms_get_data (bfd
*abfd
);
373 static int vms_get_remaining_object_record (bfd
*abfd
, int read_so_far
);
374 static bfd_boolean
_bfd_vms_slurp_object_records (bfd
* abfd
);
375 static void alpha_vms_add_fixup_lp (struct bfd_link_info
*, bfd
*, bfd
*);
376 static void alpha_vms_add_fixup_ca (struct bfd_link_info
*, bfd
*, bfd
*);
377 static void alpha_vms_add_fixup_qr (struct bfd_link_info
*, bfd
*, bfd
*,
379 static void alpha_vms_add_lw_reloc (struct bfd_link_info
*info
);
380 static void alpha_vms_add_qw_reloc (struct bfd_link_info
*info
);
381 static void alpha_vms_add_lw_fixup (struct bfd_link_info
*, unsigned int,
391 /* Number of elements in VEC. */
393 #define VEC_COUNT(VEC) ((VEC).nbr_el)
395 /* Get the address of the Nth element. */
397 #define VEC_EL(VEC, TYPE, N) (((TYPE *)((VEC).els))[N])
399 #define VEC_INIT(VEC) \
406 /* Be sure there is room for a new element. */
408 static void vector_grow1 (struct vector_type
*vec
, size_t elsz
);
410 /* Allocate room for a new element and return its address. */
412 #define VEC_APPEND(VEC, TYPE) \
413 (vector_grow1 (&VEC, sizeof (TYPE)), &VEC_EL(VEC, TYPE, (VEC).nbr_el++))
415 /* Append an element. */
417 #define VEC_APPEND_EL(VEC, TYPE, EL) \
418 (*(VEC_APPEND (VEC, TYPE)) = EL)
420 struct alpha_vms_vma_ref
422 bfd_vma vma
; /* Vma in the output. */
423 bfd_vma ref
; /* Reference in the input. */
426 struct alpha_vms_shlib_el
429 bfd_boolean has_fixups
;
431 struct vector_type lp
; /* Vector of bfd_vma. */
432 struct vector_type ca
; /* Vector of bfd_vma. */
433 struct vector_type qr
; /* Vector of struct alpha_vms_vma_ref. */
436 /* Alpha VMS linker hash table. */
438 struct alpha_vms_link_hash_table
440 struct bfd_link_hash_table root
;
442 /* Vector of shared libaries. */
443 struct vector_type shrlibs
;
448 /* Base address. Used by fixups. */
452 #define alpha_vms_link_hash(INFO) \
453 ((struct alpha_vms_link_hash_table *)(INFO->hash))
455 /* Alpha VMS linker hash table entry. */
457 struct alpha_vms_link_hash_entry
459 struct bfd_link_hash_entry root
;
461 /* Pointer to the original vms symbol. */
462 struct vms_symbol_entry
*sym
;
467 /* Read & process EIHD record.
468 Return TRUE on success, FALSE on error. */
471 _bfd_vms_slurp_eihd (bfd
*abfd
, unsigned int *eisd_offset
,
472 unsigned int *eihs_offset
)
474 unsigned int imgtype
, size
;
476 struct vms_eihd
*eihd
= (struct vms_eihd
*)PRIV (recrd
.rec
);
478 vms_debug2 ((8, "_bfd_vms_slurp_eihd\n"));
480 size
= bfd_getl32 (eihd
->size
);
481 imgtype
= bfd_getl32 (eihd
->imgtype
);
483 if (imgtype
== EIHD__K_EXE
|| imgtype
== EIHD__K_LIM
)
484 abfd
->flags
|= EXEC_P
;
486 symvva
= bfd_getl64 (eihd
->symvva
);
489 PRIV (symvva
) = symvva
;
490 abfd
->flags
|= DYNAMIC
;
493 PRIV (ident
) = bfd_getl32 (eihd
->ident
);
494 PRIV (matchctl
) = eihd
->matchctl
;
496 *eisd_offset
= bfd_getl32 (eihd
->isdoff
);
497 *eihs_offset
= bfd_getl32 (eihd
->symdbgoff
);
499 vms_debug2 ((4, "EIHD size %d imgtype %d symvva 0x%lx eisd %d eihs %d\n",
500 size
, imgtype
, (unsigned long)symvva
,
501 *eisd_offset
, *eihs_offset
));
506 /* Read & process EISD record.
507 Return TRUE on success, FALSE on error. */
510 _bfd_vms_slurp_eisd (bfd
*abfd
, unsigned int offset
)
512 int section_count
= 0;
514 vms_debug2 ((8, "_bfd_vms_slurp_eisd\n"));
518 struct vms_eisd
*eisd
;
519 unsigned int rec_size
;
521 unsigned long long vaddr
;
528 eisd
= (struct vms_eisd
*)(PRIV (recrd
.rec
) + offset
);
529 rec_size
= bfd_getl32 (eisd
->eisdsize
);
534 /* Skip to next block if pad. */
535 if (rec_size
== 0xffffffff)
537 offset
= (offset
+ VMS_BLOCK_SIZE
) & ~(VMS_BLOCK_SIZE
- 1);
543 size
= bfd_getl32 (eisd
->secsize
);
544 vaddr
= bfd_getl64 (eisd
->virt_addr
);
545 flags
= bfd_getl32 (eisd
->flags
);
546 vbn
= bfd_getl32 (eisd
->vbn
);
548 vms_debug2 ((4, "EISD at 0x%x size 0x%x addr 0x%lx flags 0x%x blk %d\n",
549 offset
, size
, (unsigned long)vaddr
, flags
, vbn
));
551 /* VMS combines psects from .obj files into isects in the .exe. This
552 process doesn't preserve enough information to reliably determine
553 what's in each section without examining the data. This is
554 especially true of DWARF debug sections. */
555 bfd_flags
= SEC_ALLOC
;
557 bfd_flags
|= SEC_HAS_CONTENTS
| SEC_LOAD
;
559 if (flags
& EISD__M_EXE
)
560 bfd_flags
|= SEC_CODE
;
562 if (flags
& EISD__M_NONSHRADR
)
563 bfd_flags
|= SEC_DATA
;
565 if (!(flags
& EISD__M_WRT
))
566 bfd_flags
|= SEC_READONLY
;
568 if (flags
& EISD__M_DZRO
)
569 bfd_flags
|= SEC_DATA
;
571 if (flags
& EISD__M_FIXUPVEC
)
572 bfd_flags
|= SEC_DATA
;
574 if (flags
& EISD__M_CRF
)
575 bfd_flags
|= SEC_DATA
;
577 if (flags
& EISD__M_GBL
)
579 name
= _bfd_vms_save_counted_string (eisd
->gblnam
);
580 bfd_flags
|= SEC_COFF_SHARED_LIBRARY
;
581 bfd_flags
&= ~(SEC_ALLOC
| SEC_LOAD
);
583 else if (flags
& EISD__M_FIXUPVEC
)
585 else if (eisd
->type
== EISD__K_USRSTACK
)
591 name
= (char*) bfd_alloc (abfd
, 32);
592 if (flags
& EISD__M_DZRO
)
594 else if (flags
& EISD__M_EXE
)
596 else if (!(flags
& EISD__M_WRT
))
600 BFD_ASSERT (section_count
< 999);
601 sprintf (name
, "$%s_%03d$", pfx
, section_count
++);
604 section
= bfd_make_section (abfd
, name
);
609 section
->filepos
= vbn
? VMS_BLOCK_SIZE
* (vbn
- 1) : 0;
610 section
->size
= size
;
611 section
->vma
= vaddr
;
613 if (!bfd_set_section_flags (abfd
, section
, bfd_flags
))
620 /* Read & process EIHS record.
621 Return TRUE on success, FALSE on error. */
624 _bfd_vms_slurp_eihs (bfd
*abfd
, unsigned int offset
)
626 unsigned char *p
= PRIV (recrd
.rec
) + offset
;
627 unsigned int gstvbn
= bfd_getl32 (p
+ EIHS__L_GSTVBN
);
628 unsigned int gstsize ATTRIBUTE_UNUSED
= bfd_getl32 (p
+ EIHS__L_GSTSIZE
);
629 unsigned int dstvbn
= bfd_getl32 (p
+ EIHS__L_DSTVBN
);
630 unsigned int dstsize
= bfd_getl32 (p
+ EIHS__L_DSTSIZE
);
631 unsigned int dmtvbn
= bfd_getl32 (p
+ EIHS__L_DMTVBN
);
632 unsigned int dmtbytes
= bfd_getl32 (p
+ EIHS__L_DMTBYTES
);
636 vms_debug (8, "_bfd_vms_slurp_ihs\n");
637 vms_debug (4, "EIHS record gstvbn %d gstsize %d dstvbn %d dstsize %d dmtvbn %d dmtbytes %d\n",
638 gstvbn
, gstsize
, dstvbn
, dstsize
, dmtvbn
, dmtbytes
);
643 flagword bfd_flags
= SEC_HAS_CONTENTS
| SEC_DEBUGGING
;
645 section
= bfd_make_section (abfd
, "$DST$");
649 section
->size
= dstsize
;
650 section
->filepos
= VMS_BLOCK_SIZE
* (dstvbn
- 1);
652 if (!bfd_set_section_flags (abfd
, section
, bfd_flags
))
655 PRIV (dst_section
) = section
;
656 abfd
->flags
|= (HAS_DEBUG
| HAS_LINENO
);
661 flagword bfd_flags
= SEC_HAS_CONTENTS
| SEC_DEBUGGING
;
663 section
= bfd_make_section (abfd
, "$DMT$");
667 section
->size
= dmtbytes
;
668 section
->filepos
= VMS_BLOCK_SIZE
* (dmtvbn
- 1);
670 if (!bfd_set_section_flags (abfd
, section
, bfd_flags
))
676 if (bfd_seek (abfd
, VMS_BLOCK_SIZE
* (gstvbn
- 1), SEEK_SET
))
678 bfd_set_error (bfd_error_file_truncated
);
682 if (_bfd_vms_slurp_object_records (abfd
) != TRUE
)
685 abfd
->flags
|= HAS_SYMS
;
691 /* Object file reading. */
693 /* Object file input functions. */
695 /* Get next record from object file to vms_buf.
696 Set PRIV(buf_size) and return it
698 This is a little tricky since it should be portable.
700 The openVMS object file has 'variable length' which means that
701 read() returns data in chunks of (hopefully) correct and expected
702 size. The linker (and other tools on VMS) depend on that. Unix
703 doesn't know about 'formatted' files, so reading and writing such
704 an object file in a Unix environment is not trivial.
706 With the tool 'file' (available on all VMS FTP sites), one
707 can view and change the attributes of a file. Changing from
708 'variable length' to 'fixed length, 512 bytes' reveals the
709 record size at the first 2 bytes of every record. The same
710 may happen during the transfer of object files from VMS to Unix,
711 at least with UCX, the DEC implementation of TCP/IP.
713 The VMS format repeats the size at bytes 2 & 3 of every record.
715 On the first call (file_format == FF_UNKNOWN) we check if
716 the first and the third byte pair (!) of the record match.
717 If they do it's an object file in an Unix environment or with
718 wrong attributes (FF_FOREIGN), else we should be in a VMS
719 environment where read() returns the record size (FF_NATIVE).
721 Reading is always done in 2 steps:
722 1. first just the record header is read and the size extracted,
723 2. then the read buffer is adjusted and the remaining bytes are
726 All file I/O is done on even file positions. */
728 #define VMS_OBJECT_ADJUSTMENT 2
731 maybe_adjust_record_pointer_for_object (bfd
*abfd
)
733 /* Set the file format once for all on the first invocation. */
734 if (PRIV (recrd
.file_format
) == FF_UNKNOWN
)
736 if (PRIV (recrd
.rec
)[0] == PRIV (recrd
.rec
)[4]
737 && PRIV (recrd
.rec
)[1] == PRIV (recrd
.rec
)[5])
738 PRIV (recrd
.file_format
) = FF_FOREIGN
;
740 PRIV (recrd
.file_format
) = FF_NATIVE
;
743 /* The adjustment is needed only in an Unix environment. */
744 if (PRIV (recrd
.file_format
) == FF_FOREIGN
)
745 PRIV (recrd
.rec
) += VMS_OBJECT_ADJUSTMENT
;
748 /* Implement step #1 of the object record reading procedure.
749 Return the record type or -1 on failure. */
752 _bfd_vms_get_object_record (bfd
*abfd
)
754 unsigned int test_len
= 6;
757 vms_debug2 ((8, "_bfd_vms_get_obj_record\n"));
759 /* Skip alignment byte if the current position is odd. */
760 if (PRIV (recrd
.file_format
) == FF_FOREIGN
&& (bfd_tell (abfd
) & 1))
762 if (bfd_bread (PRIV (recrd
.buf
), 1, abfd
) != 1)
764 bfd_set_error (bfd_error_file_truncated
);
769 /* Read the record header */
770 if (bfd_bread (PRIV (recrd
.buf
), test_len
, abfd
) != test_len
)
772 bfd_set_error (bfd_error_file_truncated
);
776 /* Reset the record pointer. */
777 PRIV (recrd
.rec
) = PRIV (recrd
.buf
);
778 maybe_adjust_record_pointer_for_object (abfd
);
780 if (vms_get_remaining_object_record (abfd
, test_len
) <= 0)
783 type
= bfd_getl16 (PRIV (recrd
.rec
));
785 vms_debug2 ((8, "_bfd_vms_get_obj_record: rec %p, size %d, type %d\n",
786 PRIV (recrd
.rec
), PRIV (recrd
.rec_size
), type
));
791 /* Implement step #2 of the object record reading procedure.
792 Return the size of the record or 0 on failure. */
795 vms_get_remaining_object_record (bfd
*abfd
, int read_so_far
)
797 unsigned int to_read
;
799 vms_debug2 ((8, "vms_get_remaining_obj_record\n"));
801 /* Extract record size. */
802 PRIV (recrd
.rec_size
) = bfd_getl16 (PRIV (recrd
.rec
) + 2);
804 if (PRIV (recrd
.rec_size
) <= 0)
806 bfd_set_error (bfd_error_file_truncated
);
810 /* That's what the linker manual says. */
811 if (PRIV (recrd
.rec_size
) > EOBJ__C_MAXRECSIZ
)
813 bfd_set_error (bfd_error_file_truncated
);
817 /* Take into account object adjustment. */
818 to_read
= PRIV (recrd
.rec_size
);
819 if (PRIV (recrd
.file_format
) == FF_FOREIGN
)
820 to_read
+= VMS_OBJECT_ADJUSTMENT
;
822 /* Adjust the buffer. */
823 if (to_read
> PRIV (recrd
.buf_size
))
826 = (unsigned char *) bfd_realloc (PRIV (recrd
.buf
), to_read
);
827 if (PRIV (recrd
.buf
) == NULL
)
829 PRIV (recrd
.buf_size
) = to_read
;
832 /* Read the remaining record. */
833 to_read
-= read_so_far
;
835 vms_debug2 ((8, "vms_get_remaining_obj_record: to_read %d\n", to_read
));
837 if (bfd_bread (PRIV (recrd
.buf
) + read_so_far
, to_read
, abfd
) != to_read
)
839 bfd_set_error (bfd_error_file_truncated
);
843 /* Reset the record pointer. */
844 PRIV (recrd
.rec
) = PRIV (recrd
.buf
);
845 maybe_adjust_record_pointer_for_object (abfd
);
847 vms_debug2 ((8, "vms_get_remaining_obj_record: size %d\n",
848 PRIV (recrd
.rec_size
)));
850 return PRIV (recrd
.rec_size
);
853 /* Read and process emh record.
854 Return TRUE on success, FALSE on error. */
857 _bfd_vms_slurp_ehdr (bfd
*abfd
)
860 unsigned char *vms_rec
;
863 vms_rec
= PRIV (recrd
.rec
);
865 vms_debug2 ((2, "HDR/EMH\n"));
867 subtype
= bfd_getl16 (vms_rec
+ 4);
869 vms_debug2 ((3, "subtype %d\n", subtype
));
875 PRIV (hdr_data
).hdr_b_strlvl
= vms_rec
[6];
876 PRIV (hdr_data
).hdr_l_arch1
= bfd_getl32 (vms_rec
+ 8);
877 PRIV (hdr_data
).hdr_l_arch2
= bfd_getl32 (vms_rec
+ 12);
878 PRIV (hdr_data
).hdr_l_recsiz
= bfd_getl32 (vms_rec
+ 16);
879 PRIV (hdr_data
).hdr_t_name
= _bfd_vms_save_counted_string (vms_rec
+ 20);
880 ptr
= vms_rec
+ 20 + vms_rec
[20] + 1;
881 PRIV (hdr_data
).hdr_t_version
=_bfd_vms_save_counted_string (ptr
);
883 PRIV (hdr_data
).hdr_t_date
= _bfd_vms_save_sized_string (ptr
, 17);
887 PRIV (hdr_data
).hdr_c_lnm
=
888 _bfd_vms_save_sized_string (vms_rec
, PRIV (recrd
.rec_size
- 6));
892 PRIV (hdr_data
).hdr_c_src
=
893 _bfd_vms_save_sized_string (vms_rec
, PRIV (recrd
.rec_size
- 6));
897 PRIV (hdr_data
).hdr_c_ttl
=
898 _bfd_vms_save_sized_string (vms_rec
, PRIV (recrd
.rec_size
- 6));
907 bfd_set_error (bfd_error_wrong_format
);
914 /* Typical sections for evax object files. */
916 #define EVAX_ABS_NAME "$ABS$"
917 #define EVAX_CODE_NAME "$CODE$"
918 #define EVAX_LINK_NAME "$LINK$"
919 #define EVAX_DATA_NAME "$DATA$"
920 #define EVAX_BSS_NAME "$BSS$"
921 #define EVAX_READONLYADDR_NAME "$READONLY_ADDR$"
922 #define EVAX_READONLY_NAME "$READONLY$"
923 #define EVAX_LITERAL_NAME "$LITERAL$"
924 #define EVAX_LITERALS_NAME "$LITERALS"
925 #define EVAX_COMMON_NAME "$COMMON$"
926 #define EVAX_LOCAL_NAME "$LOCAL$"
928 struct sec_flags_struct
930 const char *name
; /* Name of section. */
932 flagword flags_always
; /* Flags we set always. */
934 flagword flags_hassize
; /* Flags we set if the section has a size > 0. */
937 /* These flags are deccrtl/vaxcrtl (openVMS 6.2 Alpha) compatible. */
939 static const struct sec_flags_struct evax_section_flags
[] =
945 (SEC_DATA
| SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_LOAD
) },
947 (EGPS__V_PIC
| EGPS__V_REL
| EGPS__V_SHR
| EGPS__V_EXE
),
949 (EGPS__V_PIC
| EGPS__V_REL
| EGPS__V_SHR
| EGPS__V_EXE
),
950 (SEC_CODE
| SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_LOAD
) },
952 (EGPS__V_PIC
| EGPS__V_REL
| EGPS__V_SHR
| EGPS__V_RD
| EGPS__V_NOMOD
),
953 (SEC_DATA
| SEC_READONLY
),
954 (EGPS__V_PIC
| EGPS__V_REL
| EGPS__V_SHR
| EGPS__V_RD
),
955 (SEC_DATA
| SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_READONLY
| SEC_LOAD
) },
957 (EGPS__V_REL
| EGPS__V_RD
),
958 (SEC_DATA
| SEC_READONLY
),
959 (EGPS__V_REL
| EGPS__V_RD
),
960 (SEC_DATA
| SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_READONLY
| SEC_LOAD
) },
962 (EGPS__V_REL
| EGPS__V_RD
| EGPS__V_WRT
| EGPS__V_NOMOD
),
964 (EGPS__V_REL
| EGPS__V_RD
| EGPS__V_WRT
),
965 (SEC_DATA
| SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_LOAD
) },
967 (EGPS__V_REL
| EGPS__V_RD
| EGPS__V_WRT
| EGPS__V_NOMOD
),
969 (EGPS__V_REL
| EGPS__V_RD
| EGPS__V_WRT
| EGPS__V_NOMOD
),
971 { EVAX_READONLYADDR_NAME
,
972 (EGPS__V_PIC
| EGPS__V_REL
| EGPS__V_RD
),
973 (SEC_DATA
| SEC_READONLY
),
974 (EGPS__V_PIC
| EGPS__V_REL
| EGPS__V_RD
),
975 (SEC_DATA
| SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_READONLY
| SEC_LOAD
) },
976 { EVAX_READONLY_NAME
,
977 (EGPS__V_PIC
| EGPS__V_REL
| EGPS__V_SHR
| EGPS__V_RD
| EGPS__V_NOMOD
),
978 (SEC_DATA
| SEC_READONLY
),
979 (EGPS__V_PIC
| EGPS__V_REL
| EGPS__V_SHR
| EGPS__V_RD
),
980 (SEC_DATA
| SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_READONLY
| SEC_LOAD
) },
982 (EGPS__V_REL
| EGPS__V_RD
| EGPS__V_WRT
),
984 (EGPS__V_REL
| EGPS__V_RD
| EGPS__V_WRT
),
985 (SEC_DATA
| SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_LOAD
) },
986 { EVAX_LITERALS_NAME
,
987 (EGPS__V_PIC
| EGPS__V_OVR
),
988 (SEC_DATA
| SEC_READONLY
),
989 (EGPS__V_PIC
| EGPS__V_OVR
),
990 (SEC_DATA
| SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_READONLY
| SEC_LOAD
) },
992 (EGPS__V_REL
| EGPS__V_RD
| EGPS__V_WRT
),
994 (EGPS__V_REL
| EGPS__V_RD
| EGPS__V_WRT
),
995 (SEC_IN_MEMORY
| SEC_DATA
| SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_LOAD
) }
998 /* Retrieve BFD section flags by name and size. */
1001 vms_secflag_by_name (const struct sec_flags_struct
*section_flags
,
1007 while (section_flags
[i
].name
!= NULL
)
1009 if (strcmp (name
, section_flags
[i
].name
) == 0)
1012 return section_flags
[i
].flags_hassize
;
1014 return section_flags
[i
].flags_always
;
1019 return section_flags
[i
].flags_hassize
;
1020 return section_flags
[i
].flags_always
;
1023 /* Retrieve VMS section flags by name and size. */
1026 vms_esecflag_by_name (const struct sec_flags_struct
*section_flags
,
1032 while (section_flags
[i
].name
!= NULL
)
1034 if (strcmp (name
, section_flags
[i
].name
) == 0)
1037 return section_flags
[i
].vflags_hassize
;
1039 return section_flags
[i
].vflags_always
;
1044 return section_flags
[i
].vflags_hassize
;
1045 return section_flags
[i
].vflags_always
;
1048 /* Add SYM to the symbol table of ABFD.
1049 Return FALSE in case of error. */
1052 add_symbol_entry (bfd
*abfd
, struct vms_symbol_entry
*sym
)
1054 if (PRIV (gsd_sym_count
) >= PRIV (max_sym_count
))
1056 if (PRIV (max_sym_count
) == 0)
1058 PRIV (max_sym_count
) = 128;
1059 PRIV (syms
) = bfd_malloc
1060 (PRIV (max_sym_count
) * sizeof (struct vms_symbol_entry
*));
1064 PRIV (max_sym_count
) *= 2;
1065 PRIV (syms
) = bfd_realloc
1067 (PRIV (max_sym_count
) * sizeof (struct vms_symbol_entry
*)));
1069 if (PRIV (syms
) == NULL
)
1073 PRIV (syms
)[PRIV (gsd_sym_count
)++] = sym
;
1077 /* Create a symbol whose name is ASCIC and add it to ABFD.
1078 Return NULL in case of error. */
1080 static struct vms_symbol_entry
*
1081 add_symbol (bfd
*abfd
, const unsigned char *ascic
)
1083 struct vms_symbol_entry
*entry
;
1087 entry
= (struct vms_symbol_entry
*)bfd_zalloc (abfd
, sizeof (*entry
) + len
);
1090 entry
->namelen
= len
;
1091 memcpy (entry
->name
, ascic
, len
);
1092 entry
->name
[len
] = 0;
1093 entry
->owner
= abfd
;
1095 if (!add_symbol_entry (abfd
, entry
))
1100 /* Read and process EGSD. Return FALSE on failure. */
1103 _bfd_vms_slurp_egsd (bfd
*abfd
)
1105 int gsd_type
, gsd_size
;
1107 unsigned char *vms_rec
;
1108 flagword new_flags
, old_flags
;
1110 unsigned long base_addr
;
1111 unsigned long align_addr
;
1113 vms_debug2 ((2, "EGSD\n"));
1115 PRIV (recrd
.rec
) += 8; /* Skip type, size, align pad. */
1116 PRIV (recrd
.rec_size
) -= 8;
1118 /* Calculate base address for each section. */
1121 while (PRIV (recrd
.rec_size
) > 0)
1123 vms_rec
= PRIV (recrd
.rec
);
1125 gsd_type
= bfd_getl16 (vms_rec
);
1126 gsd_size
= bfd_getl16 (vms_rec
+ 2);
1128 vms_debug2 ((3, "egsd_type %d\n", gsd_type
));
1134 /* Program section definition. */
1135 struct vms_egps
*egps
= (struct vms_egps
*)vms_rec
;
1137 name
= _bfd_vms_save_counted_string (&egps
->namlng
);
1138 section
= bfd_make_section (abfd
, name
);
1142 old_flags
= bfd_getl16 (egps
->flags
);
1143 vms_section_data (section
)->flags
= old_flags
;
1144 vms_section_data (section
)->no_flags
= 0;
1145 section
->size
= bfd_getl32 (egps
->alloc
);
1146 new_flags
= vms_secflag_by_name (evax_section_flags
, name
,
1148 if (!(old_flags
& EGPS__V_NOMOD
))
1150 new_flags
|= SEC_HAS_CONTENTS
;
1151 if (old_flags
& EGPS__V_REL
)
1152 new_flags
|= SEC_RELOC
;
1154 if (!bfd_set_section_flags (abfd
, section
, new_flags
))
1156 section
->alignment_power
= egps
->align
;
1157 if ((old_flags
& EGPS__V_REL
) != 0)
1159 /* Give a non-overlapping vma to non absolute sections. */
1160 align_addr
= (1 << section
->alignment_power
);
1161 if ((base_addr
% align_addr
) != 0)
1162 base_addr
+= (align_addr
- (base_addr
% align_addr
));
1163 section
->vma
= (bfd_vma
)base_addr
;
1164 base_addr
+= section
->size
;
1168 section
->filepos
= 0;
1170 /* Append it to the section array. */
1171 if (PRIV (section_count
) >= PRIV (section_max
))
1173 if (PRIV (section_max
) == 0)
1174 PRIV (section_max
) = 16;
1176 PRIV (section_max
) *= 2;
1177 PRIV (sections
) = bfd_realloc_or_free
1178 (PRIV (sections
), PRIV (section_max
) * sizeof (asection
*));
1179 if (PRIV (sections
) == NULL
)
1183 PRIV (sections
)[PRIV (section_count
)] = section
;
1184 PRIV (section_count
)++;
1187 vms_debug (4, "EGSD P-section %d (%s, flags %04x) ",
1188 section
->index
, name
, old_flags
);
1189 vms_debug (4, "%lu bytes at 0x%08lx (mem %p)\n",
1190 (unsigned long)section
->size
,
1191 (unsigned long)section
->vma
, section
->contents
);
1199 struct vms_symbol_entry
*entry
;
1200 struct vms_egsy
*egsy
= (struct vms_egsy
*) vms_rec
;
1202 old_flags
= bfd_getl16 (egsy
->flags
);
1203 if (old_flags
& EGSY__V_DEF
)
1204 nameoff
= ESDF__B_NAMLNG
;
1206 nameoff
= ESRF__B_NAMLNG
;
1208 entry
= add_symbol (abfd
, vms_rec
+ nameoff
);
1212 /* Allow only duplicate reference. */
1213 if ((entry
->flags
& EGSY__V_DEF
) && (old_flags
& EGSY__V_DEF
))
1216 if (entry
->typ
== 0)
1218 entry
->typ
= gsd_type
;
1219 entry
->data_type
= egsy
->datyp
;
1220 entry
->flags
= old_flags
;
1223 if (old_flags
& EGSY__V_DEF
)
1225 struct vms_esdf
*esdf
= (struct vms_esdf
*)vms_rec
;
1227 entry
->value
= bfd_getl64 (esdf
->value
);
1228 entry
->section
= PRIV (sections
)[bfd_getl32 (esdf
->psindx
)];
1230 if (old_flags
& EGSY__V_NORM
)
1232 PRIV (norm_sym_count
)++;
1234 entry
->code_value
= bfd_getl64 (esdf
->code_address
);
1235 entry
->code_section
=
1236 PRIV (sections
)[bfd_getl32 (esdf
->ca_psindx
)];
1245 struct vms_symbol_entry
*entry
;
1246 struct vms_egst
*egst
= (struct vms_egst
*)vms_rec
;
1248 old_flags
= bfd_getl16 (egst
->header
.flags
);
1249 if (old_flags
& EGSY__V_DEF
)
1250 nameoff
= ESDF__B_NAMLNG
;
1252 nameoff
= ESRF__B_NAMLNG
;
1254 entry
= add_symbol (abfd
, &egst
->namlng
);
1259 entry
->typ
= gsd_type
;
1260 entry
->data_type
= egst
->header
.datyp
;
1261 entry
->flags
= old_flags
;
1263 entry
->symbol_vector
= bfd_getl32 (egst
->value
);
1265 if (old_flags
& EGSY__V_REL
)
1266 entry
->section
= PRIV (sections
)[bfd_getl32 (egst
->psindx
)];
1268 entry
->section
= bfd_abs_section_ptr
;
1270 entry
->value
= bfd_getl64 (egst
->lp_2
);
1272 if (old_flags
& EGSY__V_NORM
)
1274 PRIV (norm_sym_count
)++;
1276 entry
->code_value
= bfd_getl64 (egst
->lp_1
);
1277 entry
->code_section
= bfd_abs_section_ptr
;
1284 /* Currently ignored. */
1289 (*_bfd_error_handler
) (_("Unknown EGSD subtype %d"), gsd_type
);
1290 bfd_set_error (bfd_error_bad_value
);
1294 PRIV (recrd
.rec_size
) -= gsd_size
;
1295 PRIV (recrd
.rec
) += gsd_size
;
1298 if (PRIV (gsd_sym_count
) > 0)
1299 abfd
->flags
|= HAS_SYMS
;
1304 /* Stack routines for vms ETIR commands. */
1306 /* Push value and section index. */
1309 _bfd_vms_push (bfd
*abfd
, bfd_vma val
, unsigned int reloc
)
1311 vms_debug2 ((4, "<push %08lx (0x%08x) at %d>\n",
1312 (unsigned long)val
, reloc
, PRIV (stackptr
)));
1314 PRIV (stack
[PRIV (stackptr
)]).value
= val
;
1315 PRIV (stack
[PRIV (stackptr
)]).reloc
= reloc
;
1317 if (PRIV (stackptr
) >= STACKSIZE
)
1319 bfd_set_error (bfd_error_bad_value
);
1320 (*_bfd_error_handler
) (_("Stack overflow (%d) in _bfd_vms_push"), PRIV (stackptr
));
1325 /* Pop value and section index. */
1328 _bfd_vms_pop (bfd
*abfd
, bfd_vma
*val
, unsigned int *rel
)
1330 if (PRIV (stackptr
) == 0)
1332 bfd_set_error (bfd_error_bad_value
);
1333 (*_bfd_error_handler
) (_("Stack underflow in _bfd_vms_pop"));
1337 *val
= PRIV (stack
[PRIV (stackptr
)]).value
;
1338 *rel
= PRIV (stack
[PRIV (stackptr
)]).reloc
;
1340 vms_debug2 ((4, "<pop %08lx (0x%08x)>\n", (unsigned long)*val
, *rel
));
1343 /* Routines to fill sections contents during tir/etir read. */
1345 /* Initialize image buffer pointer to be filled. */
1348 image_set_ptr (bfd
*abfd
, bfd_vma vma
, int sect
, struct bfd_link_info
*info
)
1352 vms_debug2 ((4, "image_set_ptr (0x%08x, sect=%d)\n", (unsigned)vma
, sect
));
1354 sec
= PRIV (sections
)[sect
];
1358 /* Reading contents to an output bfd. */
1360 if (sec
->output_section
== NULL
)
1362 /* Section discarded. */
1363 vms_debug2 ((5, " section %s discarded\n", sec
->name
));
1365 /* This is not used. */
1366 PRIV (image_section
) = NULL
;
1367 PRIV (image_offset
) = 0;
1370 PRIV (image_offset
) = sec
->output_offset
+ vma
;
1371 PRIV (image_section
) = sec
->output_section
;
1375 PRIV (image_offset
) = vma
;
1376 PRIV (image_section
) = sec
;
1380 /* Increment image buffer pointer by offset. */
1383 image_inc_ptr (bfd
*abfd
, bfd_vma offset
)
1385 vms_debug2 ((4, "image_inc_ptr (%u)\n", (unsigned)offset
));
1387 PRIV (image_offset
) += offset
;
1390 /* Save current DST location counter under specified index. */
1393 dst_define_location (bfd
*abfd
, unsigned int loc
)
1395 vms_debug2 ((4, "dst_define_location (%d)\n", (int)loc
));
1397 /* Grow the ptr offset table if necessary. */
1398 if (loc
+ 1 > PRIV (dst_ptr_offsets_count
))
1400 PRIV (dst_ptr_offsets
) = bfd_realloc (PRIV (dst_ptr_offsets
),
1401 (loc
+ 1) * sizeof (unsigned int));
1402 PRIV (dst_ptr_offsets_count
) = loc
+ 1;
1405 PRIV (dst_ptr_offsets
)[loc
] = PRIV (image_offset
);
1408 /* Restore saved DST location counter from specified index. */
1411 dst_restore_location (bfd
*abfd
, unsigned int loc
)
1413 vms_debug2 ((4, "dst_restore_location (%d)\n", (int)loc
));
1415 PRIV (image_offset
) = PRIV (dst_ptr_offsets
)[loc
];
1418 /* Retrieve saved DST location counter from specified index. */
1421 dst_retrieve_location (bfd
*abfd
, unsigned int loc
)
1423 vms_debug2 ((4, "dst_retrieve_location (%d)\n", (int)loc
));
1425 return PRIV (dst_ptr_offsets
)[loc
];
1428 /* Write multiple bytes to section image. */
1431 image_write (bfd
*abfd
, unsigned char *ptr
, int size
)
1434 _bfd_vms_debug (8, "image_write from (%p, %d) to (%ld)\n", ptr
, size
,
1435 (long)PRIV (image_offset
));
1436 _bfd_hexdump (9, ptr
, size
, 0);
1439 if (PRIV (image_section
)->contents
!= NULL
)
1441 asection
*sec
= PRIV (image_section
);
1442 file_ptr off
= PRIV (image_offset
);
1445 if (off
> (file_ptr
)sec
->size
1446 || size
> (file_ptr
)sec
->size
1447 || off
+ size
> (file_ptr
)sec
->size
)
1449 bfd_set_error (bfd_error_bad_value
);
1453 memcpy (sec
->contents
+ off
, ptr
, size
);
1456 PRIV (image_offset
) += size
;
1460 /* Write byte to section image. */
1463 image_write_b (bfd
* abfd
, unsigned int value
)
1465 unsigned char data
[1];
1467 vms_debug2 ((6, "image_write_b (%02x)\n", (int) value
));
1471 return image_write (abfd
, data
, sizeof (data
));
1474 /* Write 2-byte word to image. */
1477 image_write_w (bfd
* abfd
, unsigned int value
)
1479 unsigned char data
[2];
1481 vms_debug2 ((6, "image_write_w (%04x)\n", (int) value
));
1483 bfd_putl16 (value
, data
);
1484 return image_write (abfd
, data
, sizeof (data
));
1487 /* Write 4-byte long to image. */
1490 image_write_l (bfd
* abfd
, unsigned long value
)
1492 unsigned char data
[4];
1494 vms_debug2 ((6, "image_write_l (%08lx)\n", value
));
1496 bfd_putl32 (value
, data
);
1497 return image_write (abfd
, data
, sizeof (data
));
1500 /* Write 8-byte quad to image. */
1503 image_write_q (bfd
* abfd
, bfd_vma value
)
1505 unsigned char data
[8];
1507 vms_debug2 ((6, "image_write_q (%08lx)\n", (unsigned long)value
));
1509 bfd_putl64 (value
, data
);
1510 return image_write (abfd
, data
, sizeof (data
));
1514 _bfd_vms_etir_name (int cmd
)
1518 case ETIR__C_STA_GBL
: return "ETIR__C_STA_GBL";
1519 case ETIR__C_STA_LW
: return "ETIR__C_STA_LW";
1520 case ETIR__C_STA_QW
: return "ETIR__C_STA_QW";
1521 case ETIR__C_STA_PQ
: return "ETIR__C_STA_PQ";
1522 case ETIR__C_STA_LI
: return "ETIR__C_STA_LI";
1523 case ETIR__C_STA_MOD
: return "ETIR__C_STA_MOD";
1524 case ETIR__C_STA_CKARG
: return "ETIR__C_STA_CKARG";
1525 case ETIR__C_STO_B
: return "ETIR__C_STO_B";
1526 case ETIR__C_STO_W
: return "ETIR__C_STO_W";
1527 case ETIR__C_STO_GBL
: return "ETIR__C_STO_GBL";
1528 case ETIR__C_STO_CA
: return "ETIR__C_STO_CA";
1529 case ETIR__C_STO_RB
: return "ETIR__C_STO_RB";
1530 case ETIR__C_STO_AB
: return "ETIR__C_STO_AB";
1531 case ETIR__C_STO_OFF
: return "ETIR__C_STO_OFF";
1532 case ETIR__C_STO_IMM
: return "ETIR__C_STO_IMM";
1533 case ETIR__C_STO_IMMR
: return "ETIR__C_STO_IMMR";
1534 case ETIR__C_STO_LW
: return "ETIR__C_STO_LW";
1535 case ETIR__C_STO_QW
: return "ETIR__C_STO_QW";
1536 case ETIR__C_STO_GBL_LW
: return "ETIR__C_STO_GBL_LW";
1537 case ETIR__C_STO_LP_PSB
: return "ETIR__C_STO_LP_PSB";
1538 case ETIR__C_STO_HINT_GBL
: return "ETIR__C_STO_HINT_GBL";
1539 case ETIR__C_STO_HINT_PS
: return "ETIR__C_STO_HINT_PS";
1540 case ETIR__C_OPR_ADD
: return "ETIR__C_OPR_ADD";
1541 case ETIR__C_OPR_SUB
: return "ETIR__C_OPR_SUB";
1542 case ETIR__C_OPR_INSV
: return "ETIR__C_OPR_INSV";
1543 case ETIR__C_OPR_USH
: return "ETIR__C_OPR_USH";
1544 case ETIR__C_OPR_ROT
: return "ETIR__C_OPR_ROT";
1545 case ETIR__C_OPR_REDEF
: return "ETIR__C_OPR_REDEF";
1546 case ETIR__C_OPR_DFLIT
: return "ETIR__C_OPR_DFLIT";
1547 case ETIR__C_STC_LP
: return "ETIR__C_STC_LP";
1548 case ETIR__C_STC_GBL
: return "ETIR__C_STC_GBL";
1549 case ETIR__C_STC_GCA
: return "ETIR__C_STC_GCA";
1550 case ETIR__C_STC_PS
: return "ETIR__C_STC_PS";
1551 case ETIR__C_STC_NBH_PS
: return "ETIR__C_STC_NBH_PS";
1552 case ETIR__C_STC_NOP_GBL
: return "ETIR__C_STC_NOP_GBL";
1553 case ETIR__C_STC_NOP_PS
: return "ETIR__C_STC_NOP_PS";
1554 case ETIR__C_STC_BSR_GBL
: return "ETIR__C_STC_BSR_GBL";
1555 case ETIR__C_STC_BSR_PS
: return "ETIR__C_STC_BSR_PS";
1556 case ETIR__C_STC_LDA_GBL
: return "ETIR__C_STC_LDA_GBL";
1557 case ETIR__C_STC_LDA_PS
: return "ETIR__C_STC_LDA_PS";
1558 case ETIR__C_STC_BOH_GBL
: return "ETIR__C_STC_BOH_GBL";
1559 case ETIR__C_STC_BOH_PS
: return "ETIR__C_STC_BOH_PS";
1560 case ETIR__C_STC_NBH_GBL
: return "ETIR__C_STC_NBH_GBL";
1561 case ETIR__C_STC_LP_PSB
: return "ETIR__C_STC_LP_PSB";
1562 case ETIR__C_CTL_SETRB
: return "ETIR__C_CTL_SETRB";
1563 case ETIR__C_CTL_AUGRB
: return "ETIR__C_CTL_AUGRB";
1564 case ETIR__C_CTL_DFLOC
: return "ETIR__C_CTL_DFLOC";
1565 case ETIR__C_CTL_STLOC
: return "ETIR__C_CTL_STLOC";
1566 case ETIR__C_CTL_STKDL
: return "ETIR__C_CTL_STKDL";
1569 /* These names have not yet been added to this switch statement. */
1570 (*_bfd_error_handler
) (_("unknown ETIR command %d"), cmd
);
1575 #define HIGHBIT(op) ((op & 0x80000000L) == 0x80000000L)
1578 _bfd_vms_get_value (bfd
*abfd
, const unsigned char *ascic
,
1579 struct bfd_link_info
*info
,
1581 struct alpha_vms_link_hash_entry
**hp
)
1586 struct alpha_vms_link_hash_entry
*h
;
1588 /* Not linking. Do not try to resolve the symbol. */
1597 for (i
= 0; i
< len
; i
++)
1598 name
[i
] = ascic
[i
+ 1];
1601 h
= (struct alpha_vms_link_hash_entry
*)
1602 bfd_link_hash_lookup (info
->hash
, name
, FALSE
, FALSE
, TRUE
);
1607 && (h
->root
.type
== bfd_link_hash_defined
1608 || h
->root
.type
== bfd_link_hash_defweak
))
1609 *vma
= h
->root
.u
.def
.value
1610 + h
->root
.u
.def
.section
->output_offset
1611 + h
->root
.u
.def
.section
->output_section
->vma
;
1612 else if (h
&& h
->root
.type
== bfd_link_hash_undefweak
)
1616 if (!(*info
->callbacks
->undefined_symbol
)
1617 (info
, name
, abfd
, PRIV (image_section
), PRIV (image_offset
), TRUE
))
1625 #define RELC_SHR_BASE 0x10000
1626 #define RELC_SEC_BASE 0x20000
1627 #define RELC_MASK 0x0ffff
1630 alpha_vms_sym_to_ctxt (struct alpha_vms_link_hash_entry
*h
)
1632 /* Handle undefined symbols. */
1633 if (h
== NULL
|| h
->sym
== NULL
)
1636 if (h
->sym
->typ
== EGSD__C_SYMG
)
1638 if (h
->sym
->flags
& EGSY__V_REL
)
1639 return RELC_SHR_BASE
+ PRIV2 (h
->sym
->owner
, shr_index
);
1642 /* Can this happen (non-relocatable symg) ? I'd like to see
1647 if (h
->sym
->typ
== EGSD__C_SYM
)
1649 if (h
->sym
->flags
& EGSY__V_REL
)
1658 alpha_vms_get_sym_value (asection
*sect
, bfd_vma addr
)
1660 return sect
->output_section
->vma
+ sect
->output_offset
+ addr
;
1664 alpha_vms_fix_sec_rel (bfd
*abfd
, struct bfd_link_info
*info
,
1665 unsigned int rel
, bfd_vma vma
)
1667 asection
*sec
= PRIV (sections
)[rel
& RELC_MASK
];
1671 if (sec
->output_section
== NULL
)
1673 return vma
+ sec
->output_section
->vma
+ sec
->output_offset
;
1676 return vma
+ sec
->vma
;
1679 /* Read an ETIR record from ABFD. If INFO is not null, put the content into
1680 the output section (used during linking).
1681 Return FALSE in case of error. */
1684 _bfd_vms_slurp_etir (bfd
*abfd
, struct bfd_link_info
*info
)
1687 unsigned int length
;
1688 unsigned char *maxptr
;
1693 struct alpha_vms_link_hash_entry
*h
;
1695 PRIV (recrd
.rec
) += ETIR__C_HEADER_SIZE
;
1696 PRIV (recrd
.rec_size
) -= ETIR__C_HEADER_SIZE
;
1698 ptr
= PRIV (recrd
.rec
);
1699 length
= PRIV (recrd
.rec_size
);
1700 maxptr
= ptr
+ length
;
1702 vms_debug2 ((2, "ETIR: %d bytes\n", length
));
1704 while (ptr
< maxptr
)
1706 int cmd
= bfd_getl16 (ptr
);
1707 int cmd_length
= bfd_getl16 (ptr
+ 2);
1712 _bfd_vms_debug (4, "etir: %s(%d)\n",
1713 _bfd_vms_etir_name (cmd
), cmd
);
1714 _bfd_hexdump (8, ptr
, cmd_length
- 4, (long) ptr
);
1722 stack 32 bit value of symbol (high bits set to 0). */
1723 case ETIR__C_STA_GBL
:
1724 _bfd_vms_get_value (abfd
, ptr
, info
, &op1
, &h
);
1725 _bfd_vms_push (abfd
, op1
, alpha_vms_sym_to_ctxt (h
));
1731 stack 32 bit value, sign extend to 64 bit. */
1732 case ETIR__C_STA_LW
:
1733 _bfd_vms_push (abfd
, bfd_getl32 (ptr
), RELC_NONE
);
1739 stack 64 bit value of symbol. */
1740 case ETIR__C_STA_QW
:
1741 _bfd_vms_push (abfd
, bfd_getl64 (ptr
), RELC_NONE
);
1744 /* Stack psect base plus quadword offset
1745 arg: lw section index
1746 qw signed quadword offset (low 32 bits)
1748 Stack qw argument and section index
1749 (see ETIR__C_STO_OFF, ETIR__C_CTL_SETRB). */
1750 case ETIR__C_STA_PQ
:
1754 psect
= bfd_getl32 (ptr
);
1755 if ((unsigned int) psect
>= PRIV (section_count
))
1757 (*_bfd_error_handler
) (_("bad section index in %s"),
1758 _bfd_vms_etir_name (cmd
));
1759 bfd_set_error (bfd_error_bad_value
);
1762 op1
= bfd_getl64 (ptr
+ 4);
1763 _bfd_vms_push (abfd
, op1
, psect
| RELC_SEC_BASE
);
1767 case ETIR__C_STA_LI
:
1768 case ETIR__C_STA_MOD
:
1769 case ETIR__C_STA_CKARG
:
1770 (*_bfd_error_handler
) (_("unsupported STA cmd %s"),
1771 _bfd_vms_etir_name (cmd
));
1775 /* Store byte: pop stack, write byte
1778 _bfd_vms_pop (abfd
, &op1
, &rel1
);
1779 if (rel1
!= RELC_NONE
)
1781 image_write_b (abfd
, (unsigned int) op1
& 0xff);
1784 /* Store word: pop stack, write word
1787 _bfd_vms_pop (abfd
, &op1
, &rel1
);
1788 if (rel1
!= RELC_NONE
)
1790 image_write_w (abfd
, (unsigned int) op1
& 0xffff);
1793 /* Store longword: pop stack, write longword
1795 case ETIR__C_STO_LW
:
1796 _bfd_vms_pop (abfd
, &op1
, &rel1
);
1797 if (rel1
& RELC_SEC_BASE
)
1799 op1
= alpha_vms_fix_sec_rel (abfd
, info
, rel1
, op1
);
1802 else if (rel1
& RELC_SHR_BASE
)
1804 alpha_vms_add_lw_fixup (info
, rel1
& RELC_MASK
, op1
);
1807 if (rel1
!= RELC_NONE
)
1809 if (rel1
!= RELC_REL
)
1811 alpha_vms_add_lw_reloc (info
);
1813 image_write_l (abfd
, op1
);
1816 /* Store quadword: pop stack, write quadword
1818 case ETIR__C_STO_QW
:
1819 _bfd_vms_pop (abfd
, &op1
, &rel1
);
1820 if (rel1
& RELC_SEC_BASE
)
1822 op1
= alpha_vms_fix_sec_rel (abfd
, info
, rel1
, op1
);
1825 else if (rel1
& RELC_SHR_BASE
)
1827 if (rel1
!= RELC_NONE
)
1829 if (rel1
!= RELC_REL
)
1831 alpha_vms_add_qw_reloc (info
);
1833 image_write_q (abfd
, op1
);
1836 /* Store immediate repeated: pop stack for repeat count
1839 case ETIR__C_STO_IMMR
:
1843 size
= bfd_getl32 (ptr
);
1844 _bfd_vms_pop (abfd
, &op1
, &rel1
);
1845 if (rel1
!= RELC_NONE
)
1848 image_write (abfd
, ptr
+ 4, size
);
1852 /* Store global: write symbol value
1853 arg: cs global symbol name. */
1854 case ETIR__C_STO_GBL
:
1855 _bfd_vms_get_value (abfd
, ptr
, info
, &op1
, &h
);
1858 if (h
->sym
->typ
== EGSD__C_SYMG
)
1860 alpha_vms_add_fixup_qr
1861 (info
, abfd
, h
->sym
->owner
, h
->sym
->symbol_vector
);
1866 op1
= alpha_vms_get_sym_value (h
->sym
->section
,
1868 alpha_vms_add_qw_reloc (info
);
1871 image_write_q (abfd
, op1
);
1874 /* Store code address: write address of entry point
1875 arg: cs global symbol name (procedure). */
1876 case ETIR__C_STO_CA
:
1877 _bfd_vms_get_value (abfd
, ptr
, info
, &op1
, &h
);
1880 if (h
->sym
->flags
& EGSY__V_NORM
)
1882 /* That's really a procedure. */
1883 if (h
->sym
->typ
== EGSD__C_SYMG
)
1885 alpha_vms_add_fixup_ca (info
, abfd
, h
->sym
->owner
);
1886 op1
= h
->sym
->symbol_vector
;
1890 op1
= alpha_vms_get_sym_value (h
->sym
->code_section
,
1891 h
->sym
->code_value
);
1892 alpha_vms_add_qw_reloc (info
);
1897 /* Symbol is not a procedure. */
1901 image_write_q (abfd
, op1
);
1904 /* Store offset to psect: pop stack, add low 32 bits to base of psect
1906 case ETIR__C_STO_OFF
:
1907 _bfd_vms_pop (abfd
, &op1
, &rel1
);
1909 if (!(rel1
& RELC_SEC_BASE
))
1912 op1
= alpha_vms_fix_sec_rel (abfd
, info
, rel1
, op1
);
1914 image_write_q (abfd
, op1
);
1918 arg: lw count of bytes
1920 case ETIR__C_STO_IMM
:
1924 size
= bfd_getl32 (ptr
);
1925 image_write (abfd
, ptr
+ 4, size
);
1929 /* This code is 'reserved to digital' according to the openVMS
1930 linker manual, however it is generated by the DEC C compiler
1931 and defined in the include file.
1932 FIXME, since the following is just a guess
1933 store global longword: store 32bit value of symbol
1934 arg: cs symbol name. */
1935 case ETIR__C_STO_GBL_LW
:
1936 _bfd_vms_get_value (abfd
, ptr
, info
, &op1
, &h
);
1940 image_write_l (abfd
, op1
);
1943 case ETIR__C_STO_RB
:
1944 case ETIR__C_STO_AB
:
1945 case ETIR__C_STO_LP_PSB
:
1946 (*_bfd_error_handler
) (_("%s: not supported"),
1947 _bfd_vms_etir_name (cmd
));
1950 case ETIR__C_STO_HINT_GBL
:
1951 case ETIR__C_STO_HINT_PS
:
1952 (*_bfd_error_handler
) (_("%s: not implemented"),
1953 _bfd_vms_etir_name (cmd
));
1957 /* 200 Store-conditional Linkage Pair
1959 case ETIR__C_STC_LP
:
1961 /* 202 Store-conditional Address at global address
1965 case ETIR__C_STC_GBL
:
1967 /* 203 Store-conditional Code Address at global address
1969 cs procedure name. */
1970 case ETIR__C_STC_GCA
:
1972 /* 204 Store-conditional Address at psect + offset
1976 case ETIR__C_STC_PS
:
1977 (*_bfd_error_handler
) (_("%s: not supported"),
1978 _bfd_vms_etir_name (cmd
));
1982 /* 201 Store-conditional Linkage Pair with Procedure Signature
1988 case ETIR__C_STC_LP_PSB
:
1989 _bfd_vms_get_value (abfd
, ptr
+ 4, info
, &op1
, &h
);
1992 if (h
->sym
->typ
== EGSD__C_SYMG
)
1994 alpha_vms_add_fixup_lp (info
, abfd
, h
->sym
->owner
);
1995 op1
= h
->sym
->symbol_vector
;
2000 op1
= alpha_vms_get_sym_value (h
->sym
->code_section
,
2001 h
->sym
->code_value
);
2002 op2
= alpha_vms_get_sym_value (h
->sym
->section
,
2008 /* Undefined symbol. */
2012 image_write_q (abfd
, op1
);
2013 image_write_q (abfd
, op2
);
2016 /* 205 Store-conditional NOP at address of global
2018 case ETIR__C_STC_NOP_GBL
:
2021 /* 207 Store-conditional BSR at global address
2024 case ETIR__C_STC_BSR_GBL
:
2027 /* 209 Store-conditional LDA at global address
2030 case ETIR__C_STC_LDA_GBL
:
2033 /* 211 Store-conditional BSR or Hint at global address
2036 case ETIR__C_STC_BOH_GBL
:
2037 /* Currentl ignored. */
2040 /* 213 Store-conditional NOP,BSR or HINT at global address
2043 case ETIR__C_STC_NBH_GBL
:
2045 /* 206 Store-conditional NOP at pect + offset
2048 case ETIR__C_STC_NOP_PS
:
2050 /* 208 Store-conditional BSR at pect + offset
2053 case ETIR__C_STC_BSR_PS
:
2055 /* 210 Store-conditional LDA at psect + offset
2058 case ETIR__C_STC_LDA_PS
:
2060 /* 212 Store-conditional BSR or Hint at pect + offset
2063 case ETIR__C_STC_BOH_PS
:
2065 /* 214 Store-conditional NOP, BSR or HINT at psect + offset
2067 case ETIR__C_STC_NBH_PS
:
2068 (*_bfd_error_handler
) ("%s: not supported",
2069 _bfd_vms_etir_name (cmd
));
2073 /* Det relocation base: pop stack, set image location counter
2075 case ETIR__C_CTL_SETRB
:
2076 _bfd_vms_pop (abfd
, &op1
, &rel1
);
2077 if (!(rel1
& RELC_SEC_BASE
))
2079 image_set_ptr (abfd
, op1
, rel1
& RELC_MASK
, info
);
2082 /* Augment relocation base: increment image location counter by offset
2083 arg: lw offset value. */
2084 case ETIR__C_CTL_AUGRB
:
2085 op1
= bfd_getl32 (ptr
);
2086 image_inc_ptr (abfd
, op1
);
2089 /* Define location: pop index, save location counter under index
2091 case ETIR__C_CTL_DFLOC
:
2092 _bfd_vms_pop (abfd
, &op1
, &rel1
);
2093 if (rel1
!= RELC_NONE
)
2095 dst_define_location (abfd
, op1
);
2098 /* Set location: pop index, restore location counter from index
2100 case ETIR__C_CTL_STLOC
:
2101 _bfd_vms_pop (abfd
, &op1
, &rel1
);
2102 if (rel1
!= RELC_NONE
)
2104 dst_restore_location (abfd
, op1
);
2107 /* Stack defined location: pop index, push location counter from index
2109 case ETIR__C_CTL_STKDL
:
2110 _bfd_vms_pop (abfd
, &op1
, &rel1
);
2111 if (rel1
!= RELC_NONE
)
2113 _bfd_vms_push (abfd
, dst_retrieve_location (abfd
, op1
), RELC_NONE
);
2116 case ETIR__C_OPR_NOP
: /* No-op. */
2119 case ETIR__C_OPR_ADD
: /* Add. */
2120 _bfd_vms_pop (abfd
, &op1
, &rel1
);
2121 _bfd_vms_pop (abfd
, &op2
, &rel2
);
2122 if (rel1
== RELC_NONE
&& rel2
!= RELC_NONE
)
2124 else if (rel1
!= RELC_NONE
&& rel2
!= RELC_NONE
)
2126 _bfd_vms_push (abfd
, op1
+ op2
, rel1
);
2129 case ETIR__C_OPR_SUB
: /* Subtract. */
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_SEC_BASE
) && (rel2
& RELC_SEC_BASE
))
2136 op1
= alpha_vms_fix_sec_rel (abfd
, info
, rel1
, op1
);
2137 op2
= alpha_vms_fix_sec_rel (abfd
, info
, rel2
, op2
);
2140 else if (rel1
!= RELC_NONE
&& rel2
!= RELC_NONE
)
2142 _bfd_vms_push (abfd
, op2
- op1
, rel1
);
2145 case ETIR__C_OPR_MUL
: /* Multiply. */
2146 _bfd_vms_pop (abfd
, &op1
, &rel1
);
2147 _bfd_vms_pop (abfd
, &op2
, &rel2
);
2148 if (rel1
!= RELC_NONE
|| rel2
!= RELC_NONE
)
2150 _bfd_vms_push (abfd
, op1
* op2
, RELC_NONE
);
2153 case ETIR__C_OPR_DIV
: /* Divide. */
2154 _bfd_vms_pop (abfd
, &op1
, &rel1
);
2155 _bfd_vms_pop (abfd
, &op2
, &rel2
);
2156 if (rel1
!= RELC_NONE
|| rel2
!= RELC_NONE
)
2159 _bfd_vms_push (abfd
, 0, RELC_NONE
);
2161 _bfd_vms_push (abfd
, op2
/ op1
, RELC_NONE
);
2164 case ETIR__C_OPR_AND
: /* Logical AND. */
2165 _bfd_vms_pop (abfd
, &op1
, &rel1
);
2166 _bfd_vms_pop (abfd
, &op2
, &rel2
);
2167 if (rel1
!= RELC_NONE
|| rel2
!= RELC_NONE
)
2169 _bfd_vms_push (abfd
, op1
& op2
, RELC_NONE
);
2172 case ETIR__C_OPR_IOR
: /* Logical inclusive OR. */
2173 _bfd_vms_pop (abfd
, &op1
, &rel1
);
2174 _bfd_vms_pop (abfd
, &op2
, &rel2
);
2175 if (rel1
!= RELC_NONE
|| rel2
!= RELC_NONE
)
2177 _bfd_vms_push (abfd
, op1
| op2
, RELC_NONE
);
2180 case ETIR__C_OPR_EOR
: /* Logical exclusive OR. */
2181 _bfd_vms_pop (abfd
, &op1
, &rel1
);
2182 _bfd_vms_pop (abfd
, &op2
, &rel2
);
2183 if (rel1
!= RELC_NONE
|| rel2
!= RELC_NONE
)
2185 _bfd_vms_push (abfd
, op1
^ op2
, RELC_NONE
);
2188 case ETIR__C_OPR_NEG
: /* Negate. */
2189 _bfd_vms_pop (abfd
, &op1
, &rel1
);
2190 if (rel1
!= RELC_NONE
)
2192 _bfd_vms_push (abfd
, -op1
, RELC_NONE
);
2195 case ETIR__C_OPR_COM
: /* Complement. */
2196 _bfd_vms_pop (abfd
, &op1
, &rel1
);
2197 if (rel1
!= RELC_NONE
)
2199 _bfd_vms_push (abfd
, ~op1
, RELC_NONE
);
2202 case ETIR__C_OPR_ASH
: /* Arithmetic shift. */
2203 _bfd_vms_pop (abfd
, &op1
, &rel1
);
2204 _bfd_vms_pop (abfd
, &op2
, &rel2
);
2205 if (rel1
!= RELC_NONE
|| rel2
!= RELC_NONE
)
2208 (*_bfd_error_handler
) (_("invalid use of %s with contexts"),
2209 _bfd_vms_etir_name (cmd
));
2212 if ((int)op2
< 0) /* Shift right. */
2214 else /* Shift left. */
2216 _bfd_vms_push (abfd
, op1
, RELC_NONE
); /* FIXME: sym. */
2219 case ETIR__C_OPR_INSV
: /* Insert field. */
2220 case ETIR__C_OPR_USH
: /* Unsigned shift. */
2221 case ETIR__C_OPR_ROT
: /* Rotate. */
2222 case ETIR__C_OPR_REDEF
: /* Redefine symbol to current location. */
2223 case ETIR__C_OPR_DFLIT
: /* Define a literal. */
2224 (*_bfd_error_handler
) (_("%s: not supported"),
2225 _bfd_vms_etir_name (cmd
));
2229 case ETIR__C_OPR_SEL
: /* Select. */
2230 _bfd_vms_pop (abfd
, &op1
, &rel1
);
2232 _bfd_vms_pop (abfd
, &op1
, &rel1
);
2235 _bfd_vms_pop (abfd
, &op1
, &rel1
);
2236 _bfd_vms_pop (abfd
, &op2
, &rel2
);
2237 _bfd_vms_push (abfd
, op1
, rel1
);
2242 (*_bfd_error_handler
) (_("reserved cmd %d"), cmd
);
2247 ptr
+= cmd_length
- 4;
2253 /* Process EDBG/ETBT record.
2254 Return TRUE on success, FALSE on error */
2257 vms_slurp_debug (bfd
*abfd
)
2259 asection
*section
= PRIV (dst_section
);
2261 if (section
== NULL
)
2263 /* We have no way to find out beforehand how much debug info there
2264 is in an object file, so pick an initial amount and grow it as
2266 flagword flags
= SEC_HAS_CONTENTS
| SEC_DEBUGGING
| SEC_RELOC
2269 section
= bfd_make_section (abfd
, "$DST$");
2272 if (!bfd_set_section_flags (abfd
, section
, flags
))
2274 PRIV (dst_section
) = section
;
2277 PRIV (image_section
) = section
;
2278 PRIV (image_offset
) = section
->size
;
2280 if (!_bfd_vms_slurp_etir (abfd
, NULL
))
2283 section
->size
= PRIV (image_offset
);
2287 /* Process EDBG record.
2288 Return TRUE on success, FALSE on error. */
2291 _bfd_vms_slurp_edbg (bfd
*abfd
)
2293 vms_debug2 ((2, "EDBG\n"));
2295 abfd
->flags
|= HAS_DEBUG
| HAS_LINENO
;
2297 return vms_slurp_debug (abfd
);
2300 /* Process ETBT record.
2301 Return TRUE on success, FALSE on error. */
2304 _bfd_vms_slurp_etbt (bfd
*abfd
)
2306 vms_debug2 ((2, "ETBT\n"));
2308 abfd
->flags
|= HAS_LINENO
;
2310 return vms_slurp_debug (abfd
);
2313 /* Process EEOM record.
2314 Return TRUE on success, FALSE on error. */
2317 _bfd_vms_slurp_eeom (bfd
*abfd
)
2319 struct vms_eeom
*eeom
= (struct vms_eeom
*) PRIV (recrd
.rec
);
2321 vms_debug2 ((2, "EEOM\n"));
2323 PRIV (eom_data
).eom_l_total_lps
= bfd_getl32 (eeom
->total_lps
);
2324 PRIV (eom_data
).eom_w_comcod
= bfd_getl16 (eeom
->comcod
);
2325 if (PRIV (eom_data
).eom_w_comcod
> 1)
2327 (*_bfd_error_handler
) (_("Object module NOT error-free !\n"));
2328 bfd_set_error (bfd_error_bad_value
);
2332 PRIV (eom_data
).eom_has_transfer
= FALSE
;
2333 if (PRIV (recrd
.rec_size
) > 10)
2335 PRIV (eom_data
).eom_has_transfer
= TRUE
;
2336 PRIV (eom_data
).eom_b_tfrflg
= eeom
->tfrflg
;
2337 PRIV (eom_data
).eom_l_psindx
= bfd_getl32 (eeom
->psindx
);
2338 PRIV (eom_data
).eom_l_tfradr
= bfd_getl32 (eeom
->tfradr
);
2340 abfd
->start_address
= PRIV (eom_data
).eom_l_tfradr
;
2345 /* Slurp an ordered set of VMS object records. Return FALSE on error. */
2348 _bfd_vms_slurp_object_records (bfd
* abfd
)
2355 vms_debug2 ((7, "reading at %08lx\n", (unsigned long)bfd_tell (abfd
)));
2357 type
= _bfd_vms_get_object_record (abfd
);
2360 vms_debug2 ((2, "next_record failed\n"));
2367 err
= _bfd_vms_slurp_ehdr (abfd
);
2370 err
= _bfd_vms_slurp_eeom (abfd
);
2373 err
= _bfd_vms_slurp_egsd (abfd
);
2376 err
= TRUE
; /* _bfd_vms_slurp_etir (abfd); */
2379 err
= _bfd_vms_slurp_edbg (abfd
);
2382 err
= _bfd_vms_slurp_etbt (abfd
);
2389 vms_debug2 ((2, "slurp type %d failed\n", type
));
2393 while (type
!= EOBJ__C_EEOM
);
2398 /* Initialize private data */
2400 vms_initialize (bfd
* abfd
)
2404 amt
= sizeof (struct vms_private_data_struct
);
2405 abfd
->tdata
.any
= bfd_zalloc (abfd
, amt
);
2406 if (abfd
->tdata
.any
== NULL
)
2409 PRIV (recrd
.file_format
) = FF_UNKNOWN
;
2411 amt
= sizeof (struct stack_struct
) * STACKSIZE
;
2412 PRIV (stack
) = bfd_alloc (abfd
, amt
);
2413 if (PRIV (stack
) == NULL
)
2419 bfd_release (abfd
, abfd
->tdata
.any
);
2420 abfd
->tdata
.any
= NULL
;
2424 /* Check the format for a file being read.
2425 Return a (bfd_target *) if it's an object file or zero if not. */
2427 static const struct bfd_target
*
2428 alpha_vms_object_p (bfd
*abfd
)
2430 PTR tdata_save
= abfd
->tdata
.any
;
2431 unsigned int test_len
;
2434 vms_debug2 ((1, "vms_object_p(%p)\n", abfd
));
2436 /* Allocate alpha-vms specific data. */
2437 if (!vms_initialize (abfd
))
2440 if (bfd_seek (abfd
, (file_ptr
) 0, SEEK_SET
))
2441 goto err_wrong_format
;
2443 /* The first challenge with VMS is to discover the kind of the file.
2445 Image files (executable or shared images) are stored as a raw
2446 stream of bytes (like on UNIX), but there is no magic number.
2448 Object files are written with RMS (record management service), ie
2449 each records are preceeded by its length (on a word - 2 bytes), and
2450 padded for word-alignment. That would be simple but when files
2451 are transfered to a UNIX filesystem (using ftp), records are lost.
2452 Only the raw content of the records are transfered. Fortunately,
2453 the Alpha Object file format also store the length of the record
2454 in the records. Is that clear ? */
2456 /* Minimum is 6 bytes for objects (2 bytes size, 2 bytes record id,
2457 2 bytes size repeated) and 12 bytes for images (4 bytes major id,
2458 4 bytes minor id, 4 bytes length). */
2461 /* Size the main buffer. */
2462 buf
= (unsigned char *) bfd_malloc (test_len
);
2465 PRIV (recrd
.buf
) = buf
;
2466 PRIV (recrd
.buf_size
) = test_len
;
2468 /* Initialize the record pointer. */
2469 PRIV (recrd
.rec
) = buf
;
2471 if (bfd_bread (buf
, test_len
, abfd
) != test_len
)
2473 bfd_set_error (bfd_error_file_truncated
);
2477 /* Is it an image? */
2478 if ((bfd_getl32 (buf
) == EIHD__K_MAJORID
)
2479 && (bfd_getl32 (buf
+ 4) == EIHD__K_MINORID
))
2481 unsigned int to_read
;
2482 unsigned int read_so_far
;
2483 unsigned int remaining
;
2484 unsigned int eisd_offset
, eihs_offset
;
2486 /* Extract the header size. */
2487 PRIV (recrd
.rec_size
) = bfd_getl32 (buf
+ EIHD__L_SIZE
);
2489 /* The header size is 0 for DSF files. */
2490 if (PRIV (recrd
.rec_size
) == 0)
2491 PRIV (recrd
.rec_size
) = sizeof (struct vms_eihd
);
2493 if (PRIV (recrd
.rec_size
) > PRIV (recrd
.buf_size
))
2495 buf
= bfd_realloc_or_free (buf
, PRIV (recrd
.rec_size
));
2499 PRIV (recrd
.buf
) = NULL
;
2500 bfd_set_error (bfd_error_no_memory
);
2503 PRIV (recrd
.buf
) = buf
;
2504 PRIV (recrd
.buf_size
) = PRIV (recrd
.rec_size
);
2507 /* Read the remaining record. */
2508 remaining
= PRIV (recrd
.rec_size
) - test_len
;
2509 to_read
= MIN (VMS_BLOCK_SIZE
- test_len
, remaining
);
2510 read_so_far
= test_len
;
2512 while (remaining
> 0)
2514 if (bfd_bread (buf
+ read_so_far
, to_read
, abfd
) != to_read
)
2516 bfd_set_error (bfd_error_file_truncated
);
2517 goto err_wrong_format
;
2520 read_so_far
+= to_read
;
2521 remaining
-= to_read
;
2523 to_read
= MIN (VMS_BLOCK_SIZE
, remaining
);
2526 /* Reset the record pointer. */
2527 PRIV (recrd
.rec
) = buf
;
2529 vms_debug2 ((2, "file type is image\n"));
2531 if (_bfd_vms_slurp_eihd (abfd
, &eisd_offset
, &eihs_offset
) != TRUE
)
2532 goto err_wrong_format
;
2534 if (_bfd_vms_slurp_eisd (abfd
, eisd_offset
) != TRUE
)
2535 goto err_wrong_format
;
2537 /* EIHS is optional. */
2538 if (eihs_offset
!= 0 && _bfd_vms_slurp_eihs (abfd
, eihs_offset
) != TRUE
)
2539 goto err_wrong_format
;
2545 /* Assume it's a module and adjust record pointer if necessary. */
2546 maybe_adjust_record_pointer_for_object (abfd
);
2548 /* But is it really a module? */
2549 if (bfd_getl16 (PRIV (recrd
.rec
)) <= EOBJ__C_MAXRECTYP
2550 && bfd_getl16 (PRIV (recrd
.rec
) + 2) <= EOBJ__C_MAXRECSIZ
)
2552 if (vms_get_remaining_object_record (abfd
, test_len
) <= 0)
2553 goto err_wrong_format
;
2555 vms_debug2 ((2, "file type is module\n"));
2557 type
= bfd_getl16 (PRIV (recrd
.rec
));
2558 if (type
!= EOBJ__C_EMH
|| _bfd_vms_slurp_ehdr (abfd
) != TRUE
)
2559 goto err_wrong_format
;
2561 if (_bfd_vms_slurp_object_records (abfd
) != TRUE
)
2562 goto err_wrong_format
;
2565 goto err_wrong_format
;
2568 /* Set arch_info to alpha. */
2570 if (! bfd_default_set_arch_mach (abfd
, bfd_arch_alpha
, 0))
2571 goto err_wrong_format
;
2576 bfd_set_error (bfd_error_wrong_format
);
2579 if (PRIV (recrd
.buf
))
2580 free (PRIV (recrd
.buf
));
2581 if (abfd
->tdata
.any
!= tdata_save
&& abfd
->tdata
.any
!= NULL
)
2582 bfd_release (abfd
, abfd
->tdata
.any
);
2583 abfd
->tdata
.any
= tdata_save
;
2589 /* Write an EMH/MHD record. */
2592 _bfd_vms_write_emh (bfd
*abfd
)
2594 struct vms_rec_wr
*recwr
= &PRIV (recwr
);
2596 _bfd_vms_output_alignment (recwr
, 2);
2599 _bfd_vms_output_begin (recwr
, EOBJ__C_EMH
);
2600 _bfd_vms_output_short (recwr
, EMH__C_MHD
);
2601 _bfd_vms_output_short (recwr
, EOBJ__C_STRLVL
);
2602 _bfd_vms_output_long (recwr
, 0);
2603 _bfd_vms_output_long (recwr
, 0);
2604 _bfd_vms_output_long (recwr
, MAX_OUTREC_SIZE
);
2606 /* Create module name from filename. */
2607 if (bfd_get_filename (abfd
) != 0)
2609 char *module
= vms_get_module_name (bfd_get_filename (abfd
), TRUE
);
2610 _bfd_vms_output_counted (recwr
, module
);
2614 _bfd_vms_output_counted (recwr
, "NONAME");
2616 _bfd_vms_output_counted (recwr
, BFD_VERSION_STRING
);
2617 _bfd_vms_output_dump (recwr
, get_vms_time_string (), EMH_DATE_LENGTH
);
2618 _bfd_vms_output_fill (recwr
, 0, EMH_DATE_LENGTH
);
2619 _bfd_vms_output_end (abfd
, recwr
);
2622 /* Write an EMH/LMN record. */
2625 _bfd_vms_write_lmn (bfd
*abfd
, const char *name
)
2628 struct vms_rec_wr
*recwr
= &PRIV (recwr
);
2629 unsigned int ver
= BFD_VERSION
/ 10000;
2632 _bfd_vms_output_begin (recwr
, EOBJ__C_EMH
);
2633 _bfd_vms_output_short (recwr
, EMH__C_LNM
);
2634 snprintf (version
, sizeof (version
), "%s %d.%d.%d", name
,
2635 ver
/ 10000, (ver
/ 100) % 100, ver
% 100);
2636 _bfd_vms_output_dump (recwr
, (unsigned char *)version
, strlen (version
));
2637 _bfd_vms_output_end (abfd
, recwr
);
2641 /* Write eom record for bfd abfd. Return FALSE on error. */
2644 _bfd_vms_write_eeom (bfd
*abfd
)
2646 struct vms_rec_wr
*recwr
= &PRIV (recwr
);
2648 vms_debug2 ((2, "vms_write_eeom\n"));
2650 _bfd_vms_output_alignment (recwr
, 2);
2652 _bfd_vms_output_begin (recwr
, EOBJ__C_EEOM
);
2653 _bfd_vms_output_long (recwr
, (unsigned long) (PRIV (vms_linkage_index
) >> 1));
2654 _bfd_vms_output_byte (recwr
, 0); /* Completion code. */
2655 _bfd_vms_output_byte (recwr
, 0); /* Fill byte. */
2657 if ((abfd
->flags
& EXEC_P
) == 0
2658 && bfd_get_start_address (abfd
) != (bfd_vma
)-1)
2662 section
= bfd_get_section_by_name (abfd
, ".link");
2665 bfd_set_error (bfd_error_nonrepresentable_section
);
2668 _bfd_vms_output_short (recwr
, 0);
2669 _bfd_vms_output_long (recwr
, (unsigned long) section
->target_index
);
2670 _bfd_vms_output_long (recwr
,
2671 (unsigned long) bfd_get_start_address (abfd
));
2672 _bfd_vms_output_long (recwr
, 0);
2675 _bfd_vms_output_end (abfd
, recwr
);
2679 /* This hash routine borrowed from GNU-EMACS, and strengthened
2683 hash_string (const char *ptr
)
2685 const unsigned char *p
= (unsigned char *) ptr
;
2686 const unsigned char *end
= p
+ strlen (ptr
);
2693 hash
= ((hash
<< 3) + (hash
<< 15) + (hash
>> 28) + c
);
2698 /* Generate a length-hashed VMS symbol name (limited to maxlen chars). */
2701 _bfd_vms_length_hash_symbol (bfd
*abfd
, const char *in
, int maxlen
)
2703 unsigned long result
;
2706 const char *old_name
;
2708 static char outbuf
[EOBJ__C_SYMSIZ
+ 1];
2712 vms_debug (4, "_bfd_vms_length_hash_symbol \"%s\"\n", in
);
2715 if (maxlen
> EOBJ__C_SYMSIZ
)
2716 maxlen
= EOBJ__C_SYMSIZ
;
2718 /* Save this for later. */
2721 /* We may need to truncate the symbol, save the hash for later. */
2722 in_len
= strlen (in
);
2724 result
= (in_len
> maxlen
) ? hash_string (in
) : 0;
2728 /* Do the length checking. */
2729 if (in_len
<= maxlen
)
2733 if (PRIV (flag_hash_long_names
))
2739 strncpy (out
, in
, (size_t) i
);
2743 if ((in_len
> maxlen
)
2744 && PRIV (flag_hash_long_names
))
2745 sprintf (out
, "_%08lx", result
);
2750 vms_debug (4, "--> [%d]\"%s\"\n", (int)strlen (outbuf
), outbuf
);
2754 && PRIV (flag_hash_long_names
)
2755 && PRIV (flag_show_after_trunc
))
2756 printf (_("Symbol %s replaced by %s\n"), old_name
, new_name
);
2762 vector_grow1 (struct vector_type
*vec
, size_t elsz
)
2764 if (vec
->nbr_el
+ 1 < vec
->max_el
)
2767 if (vec
->max_el
== 0)
2770 vec
->els
= bfd_malloc2 (vec
->max_el
, elsz
);
2775 vec
->els
= bfd_realloc2 (vec
->els
, vec
->max_el
, elsz
);
2779 /* Bump ABFD file position to next block. */
2782 alpha_vms_file_position_block (bfd
*abfd
)
2785 PRIV (file_pos
) += VMS_BLOCK_SIZE
- 1;
2786 PRIV (file_pos
) -= (PRIV (file_pos
) % VMS_BLOCK_SIZE
);
2789 /* Convert from internal structure SRC to external structure DST. */
2792 alpha_vms_swap_eisd_out (struct vms_internal_eisd_map
*src
,
2793 struct vms_eisd
*dst
)
2795 bfd_putl32 (src
->u
.eisd
.majorid
, dst
->majorid
);
2796 bfd_putl32 (src
->u
.eisd
.minorid
, dst
->minorid
);
2797 bfd_putl32 (src
->u
.eisd
.eisdsize
, dst
->eisdsize
);
2798 if (src
->u
.eisd
.eisdsize
<= EISD__K_LENEND
)
2800 bfd_putl32 (src
->u
.eisd
.secsize
, dst
->secsize
);
2801 bfd_putl64 (src
->u
.eisd
.virt_addr
, dst
->virt_addr
);
2802 bfd_putl32 (src
->u
.eisd
.flags
, dst
->flags
);
2803 bfd_putl32 (src
->u
.eisd
.vbn
, dst
->vbn
);
2804 dst
->pfc
= src
->u
.eisd
.pfc
;
2805 dst
->matchctl
= src
->u
.eisd
.matchctl
;
2806 dst
->type
= src
->u
.eisd
.type
;
2808 if (src
->u
.eisd
.flags
& EISD__M_GBL
)
2810 bfd_putl32 (src
->u
.gbl_eisd
.ident
, dst
->ident
);
2811 memcpy (dst
->gblnam
, src
->u
.gbl_eisd
.gblnam
,
2812 src
->u
.gbl_eisd
.gblnam
[0] + 1);
2816 /* Append EISD to the list of extra eisd for ABFD. */
2819 alpha_vms_append_extra_eisd (bfd
*abfd
, struct vms_internal_eisd_map
*eisd
)
2822 if (PRIV (gbl_eisd_head
) == NULL
)
2823 PRIV (gbl_eisd_head
) = eisd
;
2825 PRIV (gbl_eisd_tail
)->next
= eisd
;
2826 PRIV (gbl_eisd_tail
) = eisd
;
2829 /* Create an EISD for shared image SHRIMG.
2830 Return FALSE in case of error. */
2833 alpha_vms_create_eisd_for_shared (bfd
*abfd
, bfd
*shrimg
)
2835 struct vms_internal_eisd_map
*eisd
;
2838 namlen
= strlen (PRIV2 (shrimg
, hdr_data
.hdr_t_name
));
2839 if (namlen
+ 5 > EISD__K_GBLNAMLEN
)
2845 eisd
= bfd_alloc (abfd
, sizeof (*eisd
));
2849 /* Fill the fields. */
2850 eisd
->u
.gbl_eisd
.common
.majorid
= EISD__K_MAJORID
;
2851 eisd
->u
.gbl_eisd
.common
.minorid
= EISD__K_MINORID
;
2852 eisd
->u
.gbl_eisd
.common
.eisdsize
= (EISD__K_LEN
+ 4 + namlen
+ 5 + 3) & ~3;
2853 eisd
->u
.gbl_eisd
.common
.secsize
= VMS_BLOCK_SIZE
; /* Must not be 0. */
2854 eisd
->u
.gbl_eisd
.common
.virt_addr
= 0;
2855 eisd
->u
.gbl_eisd
.common
.flags
= EISD__M_GBL
;
2856 eisd
->u
.gbl_eisd
.common
.vbn
= 0;
2857 eisd
->u
.gbl_eisd
.common
.pfc
= 0;
2858 eisd
->u
.gbl_eisd
.common
.matchctl
= PRIV2 (shrimg
, matchctl
);
2859 eisd
->u
.gbl_eisd
.common
.type
= EISD__K_SHRPIC
;
2861 eisd
->u
.gbl_eisd
.ident
= PRIV2 (shrimg
, ident
);
2862 eisd
->u
.gbl_eisd
.gblnam
[0] = namlen
+ 4;
2863 memcpy (eisd
->u
.gbl_eisd
.gblnam
+ 1, PRIV2 (shrimg
, hdr_data
.hdr_t_name
),
2865 memcpy (eisd
->u
.gbl_eisd
.gblnam
+ 1 + namlen
, "_001", 4);
2867 /* Append it to the list. */
2868 alpha_vms_append_extra_eisd (abfd
, eisd
);
2873 /* Create an EISD for section SEC.
2874 Return FALSE in case of failure. */
2877 alpha_vms_create_eisd_for_section (bfd
*abfd
, asection
*sec
)
2879 struct vms_internal_eisd_map
*eisd
;
2881 /* Only for allocating section. */
2882 if (!(sec
->flags
& SEC_ALLOC
))
2885 BFD_ASSERT (vms_section_data (sec
)->eisd
== NULL
);
2886 eisd
= bfd_alloc (abfd
, sizeof (*eisd
));
2889 vms_section_data (sec
)->eisd
= eisd
;
2891 /* Fill the fields. */
2892 eisd
->u
.eisd
.majorid
= EISD__K_MAJORID
;
2893 eisd
->u
.eisd
.minorid
= EISD__K_MINORID
;
2894 eisd
->u
.eisd
.eisdsize
= EISD__K_LEN
;
2895 eisd
->u
.eisd
.secsize
=
2896 (sec
->size
+ VMS_BLOCK_SIZE
- 1) & ~(VMS_BLOCK_SIZE
- 1);
2897 eisd
->u
.eisd
.virt_addr
= sec
->vma
;
2898 eisd
->u
.eisd
.flags
= 0;
2899 eisd
->u
.eisd
.vbn
= 0; /* To be later defined. */
2900 eisd
->u
.eisd
.pfc
= 0; /* Default. */
2901 eisd
->u
.eisd
.matchctl
= EISD__K_MATALL
;
2902 eisd
->u
.eisd
.type
= EISD__K_NORMAL
;
2904 if (sec
->flags
& SEC_CODE
)
2905 eisd
->u
.eisd
.flags
|= EISD__M_EXE
;
2906 if (!(sec
->flags
& SEC_READONLY
))
2907 eisd
->u
.eisd
.flags
|= EISD__M_WRT
| EISD__M_CRF
;
2909 if (!(sec
->flags
& SEC_LOAD
))
2911 eisd
->u
.eisd
.flags
|= EISD__M_DZRO
;
2912 eisd
->u
.eisd
.flags
&= ~EISD__M_CRF
;
2914 if (sec
->flags
& SEC_LINKER_CREATED
)
2916 if (strcmp (sec
->name
, "$FIXUP$") == 0)
2917 eisd
->u
.eisd
.flags
|= EISD__M_FIXUPVEC
;
2920 /* Append it to the list. */
2922 if (PRIV (eisd_head
) == NULL
)
2923 PRIV (eisd_head
) = eisd
;
2925 PRIV (eisd_tail
)->next
= eisd
;
2926 PRIV (eisd_tail
) = eisd
;
2931 /* Layout executable ABFD and write it to the disk.
2932 Return FALSE in case of failure. */
2935 alpha_vms_write_exec (bfd
*abfd
)
2937 struct vms_eihd eihd
;
2938 struct vms_eiha
*eiha
;
2939 struct vms_eihi
*eihi
;
2940 struct vms_eihs
*eihs
= NULL
;
2942 struct vms_internal_eisd_map
*first_eisd
;
2943 struct vms_internal_eisd_map
*eisd
;
2946 file_ptr gst_filepos
= 0;
2947 unsigned int lnkflags
= 0;
2949 /* Build the EIHD. */
2950 PRIV (file_pos
) = EIHD__C_LENGTH
;
2952 memset (&eihd
, 0, sizeof (eihd
));
2953 memset (eihd
.fill_2
, 0xff, sizeof (eihd
.fill_2
));
2955 bfd_putl32 (EIHD__K_MAJORID
, eihd
.majorid
);
2956 bfd_putl32 (EIHD__K_MINORID
, eihd
.minorid
);
2958 bfd_putl32 (sizeof (eihd
), eihd
.size
);
2959 bfd_putl32 (0, eihd
.isdoff
);
2960 bfd_putl32 (0, eihd
.activoff
);
2961 bfd_putl32 (0, eihd
.symdbgoff
);
2962 bfd_putl32 (0, eihd
.imgidoff
);
2963 bfd_putl32 (0, eihd
.patchoff
);
2964 bfd_putl64 (0, eihd
.iafva
);
2965 bfd_putl32 (0, eihd
.version_array_off
);
2967 bfd_putl32 (EIHD__K_EXE
, eihd
.imgtype
);
2968 bfd_putl32 (0, eihd
.subtype
);
2970 bfd_putl32 (0, eihd
.imgiocnt
);
2971 bfd_putl32 (-1, eihd
.privreqs
);
2972 bfd_putl32 (-1, eihd
.privreqs
+ 4);
2974 bfd_putl32 ((sizeof (eihd
) + VMS_BLOCK_SIZE
- 1) / VMS_BLOCK_SIZE
,
2976 bfd_putl32 (0, eihd
.ident
);
2977 bfd_putl32 (0, eihd
.sysver
);
2980 bfd_putl32 (0, eihd
.symvect_size
);
2981 bfd_putl32 (16, eihd
.virt_mem_block_size
);
2982 bfd_putl32 (0, eihd
.ext_fixup_off
);
2983 bfd_putl32 (0, eihd
.noopt_psect_off
);
2984 bfd_putl32 (-1, eihd
.alias
);
2987 eiha
= (struct vms_eiha
*)((char *) &eihd
+ PRIV (file_pos
));
2988 bfd_putl32 (PRIV (file_pos
), eihd
.activoff
);
2989 PRIV (file_pos
) += sizeof (struct vms_eiha
);
2991 bfd_putl32 (sizeof (struct vms_eiha
), eiha
->size
);
2992 bfd_putl32 (0, eiha
->spare
);
2993 bfd_putl64 (PRIV (transfer_address
[0]), eiha
->tfradr1
);
2994 bfd_putl64 (PRIV (transfer_address
[1]), eiha
->tfradr2
);
2995 bfd_putl64 (PRIV (transfer_address
[2]), eiha
->tfradr3
);
2996 bfd_putl64 (PRIV (transfer_address
[3]), eiha
->tfradr4
);
2997 bfd_putl64 (0, eiha
->inishr
);
3000 eihi
= (struct vms_eihi
*)((char *) &eihd
+ PRIV (file_pos
));
3001 bfd_putl32 (PRIV (file_pos
), eihd
.imgidoff
);
3002 PRIV (file_pos
) += sizeof (struct vms_eihi
);
3004 bfd_putl32 (EIHI__K_MAJORID
, eihi
->majorid
);
3005 bfd_putl32 (EIHI__K_MINORID
, eihi
->minorid
);
3010 /* Set module name. */
3011 module
= vms_get_module_name (bfd_get_filename (abfd
), TRUE
);
3012 len
= strlen (module
);
3013 if (len
> sizeof (eihi
->imgnam
) - 1)
3014 len
= sizeof (eihi
->imgnam
) - 1;
3015 eihi
->imgnam
[0] = len
;
3016 memcpy (eihi
->imgnam
+ 1, module
, len
);
3024 vms_get_time (&hi
, &lo
);
3025 bfd_putl32 (lo
, eihi
->linktime
+ 0);
3026 bfd_putl32 (hi
, eihi
->linktime
+ 4);
3029 eihi
->linkid
[0] = 0;
3030 eihi
->imgbid
[0] = 0;
3033 dst
= PRIV (dst_section
);
3034 dmt
= bfd_get_section_by_name (abfd
, "$DMT$");
3035 if (dst
!= NULL
&& dst
->size
!= 0)
3037 eihs
= (struct vms_eihs
*)((char *) &eihd
+ PRIV (file_pos
));
3038 bfd_putl32 (PRIV (file_pos
), eihd
.symdbgoff
);
3039 PRIV (file_pos
) += sizeof (struct vms_eihs
);
3041 bfd_putl32 (EIHS__K_MAJORID
, eihs
->majorid
);
3042 bfd_putl32 (EIHS__K_MINORID
, eihs
->minorid
);
3043 bfd_putl32 (0, eihs
->dstvbn
);
3044 bfd_putl32 (0, eihs
->dstsize
);
3045 bfd_putl32 (0, eihs
->gstvbn
);
3046 bfd_putl32 (0, eihs
->gstsize
);
3047 bfd_putl32 (0, eihs
->dmtvbn
);
3048 bfd_putl32 (0, eihs
->dmtsize
);
3051 /* One EISD per section. */
3052 for (sec
= abfd
->sections
; sec
; sec
= sec
->next
)
3054 if (!alpha_vms_create_eisd_for_section (abfd
, sec
))
3058 /* Merge section EIDS which extra ones. */
3059 if (PRIV (eisd_tail
))
3060 PRIV (eisd_tail
)->next
= PRIV (gbl_eisd_head
);
3062 PRIV (eisd_head
) = PRIV (gbl_eisd_head
);
3063 if (PRIV (gbl_eisd_tail
))
3064 PRIV (eisd_tail
) = PRIV (gbl_eisd_tail
);
3066 first_eisd
= PRIV (eisd_head
);
3068 /* Add end of eisd. */
3071 eisd
= bfd_zalloc (abfd
, sizeof (*eisd
));
3074 eisd
->u
.eisd
.majorid
= 0;
3075 eisd
->u
.eisd
.minorid
= 0;
3076 eisd
->u
.eisd
.eisdsize
= 0;
3077 alpha_vms_append_extra_eisd (abfd
, eisd
);
3080 /* Place EISD in the file. */
3081 for (eisd
= first_eisd
; eisd
; eisd
= eisd
->next
)
3083 file_ptr room
= VMS_BLOCK_SIZE
- (PRIV (file_pos
) % VMS_BLOCK_SIZE
);
3085 /* First block is a little bit special: there is a word at the end. */
3086 if (PRIV (file_pos
) < VMS_BLOCK_SIZE
&& room
> 2)
3088 if (room
< eisd
->u
.eisd
.eisdsize
+ EISD__K_LENEND
)
3089 alpha_vms_file_position_block (abfd
);
3091 eisd
->file_pos
= PRIV (file_pos
);
3092 PRIV (file_pos
) += eisd
->u
.eisd
.eisdsize
;
3094 if (eisd
->u
.eisd
.flags
& EISD__M_FIXUPVEC
)
3095 bfd_putl64 (eisd
->u
.eisd
.virt_addr
, eihd
.iafva
);
3098 if (first_eisd
!= NULL
)
3100 bfd_putl32 (first_eisd
->file_pos
, eihd
.isdoff
);
3101 /* Real size of end of eisd marker. */
3102 PRIV (file_pos
) += EISD__K_LENEND
;
3105 bfd_putl32 (PRIV (file_pos
), eihd
.size
);
3106 bfd_putl32 ((PRIV (file_pos
) + VMS_BLOCK_SIZE
- 1) / VMS_BLOCK_SIZE
,
3109 /* Place sections. */
3110 for (sec
= abfd
->sections
; sec
; sec
= sec
->next
)
3112 if (!(sec
->flags
& SEC_HAS_CONTENTS
))
3115 eisd
= vms_section_data (sec
)->eisd
;
3117 /* Align on a block. */
3118 alpha_vms_file_position_block (abfd
);
3119 sec
->filepos
= PRIV (file_pos
);
3122 eisd
->u
.eisd
.vbn
= (sec
->filepos
/ VMS_BLOCK_SIZE
) + 1;
3124 PRIV (file_pos
) += sec
->size
;
3128 if (eihs
!= NULL
&& dst
!= NULL
)
3130 bfd_putl32 ((dst
->filepos
/ VMS_BLOCK_SIZE
) + 1, eihs
->dstvbn
);
3131 bfd_putl32 (dst
->size
, eihs
->dstsize
);
3135 lnkflags
|= EIHD__M_DBGDMT
;
3136 bfd_putl32 ((dmt
->filepos
/ VMS_BLOCK_SIZE
) + 1, eihs
->dmtvbn
);
3137 bfd_putl32 (dmt
->size
, eihs
->dmtsize
);
3139 if (PRIV (gsd_sym_count
) != 0)
3141 alpha_vms_file_position_block (abfd
);
3142 gst_filepos
= PRIV (file_pos
);
3143 bfd_putl32 ((gst_filepos
/ VMS_BLOCK_SIZE
) + 1, eihs
->gstvbn
);
3144 bfd_putl32 ((PRIV (gsd_sym_count
) + 4) / 5 + 4, eihs
->gstsize
);
3148 /* Write EISD in hdr. */
3149 for (eisd
= first_eisd
; eisd
&& eisd
->file_pos
< VMS_BLOCK_SIZE
;
3151 alpha_vms_swap_eisd_out
3152 (eisd
, (struct vms_eisd
*)((char *)&eihd
+ eisd
->file_pos
));
3154 /* Write first block. */
3155 bfd_putl32 (lnkflags
, eihd
.lnkflags
);
3156 if (bfd_bwrite (&eihd
, sizeof (eihd
), abfd
) != sizeof (eihd
))
3159 /* Write remaining eisd. */
3162 unsigned char blk
[VMS_BLOCK_SIZE
];
3163 struct vms_internal_eisd_map
*next_eisd
;
3165 memset (blk
, 0xff, sizeof (blk
));
3166 while (eisd
!= NULL
)
3168 alpha_vms_swap_eisd_out
3170 (struct vms_eisd
*)(blk
+ (eisd
->file_pos
% VMS_BLOCK_SIZE
)));
3172 next_eisd
= eisd
->next
;
3173 if (next_eisd
== NULL
3174 || (next_eisd
->file_pos
/ VMS_BLOCK_SIZE
3175 != eisd
->file_pos
/ VMS_BLOCK_SIZE
))
3177 if (bfd_bwrite (blk
, sizeof (blk
), abfd
) != sizeof (blk
))
3180 memset (blk
, 0xff, sizeof (blk
));
3186 /* Write sections. */
3187 for (sec
= abfd
->sections
; sec
; sec
= sec
->next
)
3189 unsigned char blk
[VMS_BLOCK_SIZE
];
3192 if (sec
->size
== 0 || !(sec
->flags
& SEC_HAS_CONTENTS
))
3194 if (bfd_bwrite (sec
->contents
, sec
->size
, abfd
) != sec
->size
)
3198 len
= VMS_BLOCK_SIZE
- sec
->size
% VMS_BLOCK_SIZE
;
3199 if (len
!= VMS_BLOCK_SIZE
)
3201 memset (blk
, 0, len
);
3202 if (bfd_bwrite (blk
, len
, abfd
) != len
)
3208 if (gst_filepos
!= 0)
3210 struct vms_rec_wr
*recwr
= &PRIV (recwr
);
3213 _bfd_vms_write_emh (abfd
);
3214 _bfd_vms_write_lmn (abfd
, "GNU LD");
3216 /* PSC for the absolute section. */
3217 _bfd_vms_output_begin (recwr
, EOBJ__C_EGSD
);
3218 _bfd_vms_output_long (recwr
, 0);
3219 _bfd_vms_output_begin_subrec (recwr
, EGSD__C_PSC
);
3220 _bfd_vms_output_short (recwr
, 0);
3221 _bfd_vms_output_short (recwr
, EGPS__V_PIC
| EGPS__V_LIB
| EGPS__V_RD
);
3222 _bfd_vms_output_long (recwr
, 0);
3223 _bfd_vms_output_counted (recwr
, ".$$ABS$$.");
3224 _bfd_vms_output_end_subrec (recwr
);
3225 _bfd_vms_output_end (abfd
, recwr
);
3227 for (i
= 0; i
< PRIV (gsd_sym_count
); i
++)
3229 struct vms_symbol_entry
*sym
= PRIV (syms
)[i
];
3236 _bfd_vms_output_alignment (recwr
, 8);
3237 _bfd_vms_output_begin (recwr
, EOBJ__C_EGSD
);
3238 _bfd_vms_output_long (recwr
, 0);
3240 _bfd_vms_output_begin_subrec (recwr
, EGSD__C_SYMG
);
3241 _bfd_vms_output_short (recwr
, 0); /* Data type, alignment. */
3242 _bfd_vms_output_short (recwr
, sym
->flags
);
3244 if (sym
->code_section
)
3245 ep
= alpha_vms_get_sym_value (sym
->code_section
, sym
->code_value
);
3248 BFD_ASSERT (sym
->code_value
== 0);
3251 val
= alpha_vms_get_sym_value (sym
->section
, sym
->value
);
3252 _bfd_vms_output_quad
3253 (recwr
, sym
->typ
== EGSD__C_SYMG
? sym
->symbol_vector
: val
);
3254 _bfd_vms_output_quad (recwr
, ep
);
3255 _bfd_vms_output_quad (recwr
, val
);
3256 _bfd_vms_output_long (recwr
, 0);
3257 hash
= _bfd_vms_length_hash_symbol (abfd
, sym
->name
, EOBJ__C_SYMSIZ
);
3258 _bfd_vms_output_counted (recwr
, hash
);
3259 _bfd_vms_output_end_subrec (recwr
);
3261 _bfd_vms_output_end (abfd
, recwr
);
3264 _bfd_vms_output_end (abfd
, recwr
);
3266 if (!_bfd_vms_write_eeom (abfd
))
3274 /* Write section and symbol directory of bfd abfd. Return FALSE on error. */
3277 _bfd_vms_write_egsd (bfd
*abfd
)
3281 unsigned int symnum
;
3283 flagword new_flags
, old_flags
;
3284 int abs_section_index
= -1;
3285 unsigned int target_index
= 0;
3286 struct vms_rec_wr
*recwr
= &PRIV (recwr
);
3288 vms_debug2 ((2, "vms_write_egsd\n"));
3290 /* Egsd is quadword aligned. */
3291 _bfd_vms_output_alignment (recwr
, 8);
3293 _bfd_vms_output_begin (recwr
, EOBJ__C_EGSD
);
3294 _bfd_vms_output_long (recwr
, 0);
3296 /* Number sections. */
3297 for (section
= abfd
->sections
; section
!= NULL
; section
= section
->next
)
3299 if (section
->flags
& SEC_DEBUGGING
)
3301 if (!strcmp (section
->name
, ".vmsdebug"))
3303 section
->flags
|= SEC_DEBUGGING
;
3306 section
->target_index
= target_index
++;
3309 for (section
= abfd
->sections
; section
!= NULL
; section
= section
->next
)
3311 vms_debug2 ((3, "Section #%d %s, %d bytes\n",
3312 section
->target_index
, section
->name
, (int)section
->size
));
3314 /* Don't write out the VMS debug info section since it is in the
3315 ETBT and EDBG sections in etir. */
3316 if (section
->flags
& SEC_DEBUGGING
)
3319 /* 13 bytes egsd, max 31 chars name -> should be 44 bytes. */
3320 if (_bfd_vms_output_check (recwr
, 64) < 0)
3322 _bfd_vms_output_end (abfd
, recwr
);
3323 _bfd_vms_output_begin (recwr
, EOBJ__C_EGSD
);
3324 _bfd_vms_output_long (recwr
, 0);
3327 /* Don't know if this is necessary for the linker but for now it keeps
3328 vms_slurp_gsd happy. */
3329 sname
= section
->name
;
3332 /* Remove leading dot. */
3334 if ((*sname
== 't') && (strcmp (sname
, "text") == 0))
3335 sname
= EVAX_CODE_NAME
;
3336 else if ((*sname
== 'd') && (strcmp (sname
, "data") == 0))
3337 sname
= EVAX_DATA_NAME
;
3338 else if ((*sname
== 'b') && (strcmp (sname
, "bss") == 0))
3339 sname
= EVAX_BSS_NAME
;
3340 else if ((*sname
== 'l') && (strcmp (sname
, "link") == 0))
3341 sname
= EVAX_LINK_NAME
;
3342 else if ((*sname
== 'r') && (strcmp (sname
, "rdata") == 0))
3343 sname
= EVAX_READONLY_NAME
;
3344 else if ((*sname
== 'l') && (strcmp (sname
, "literal") == 0))
3345 sname
= EVAX_LITERAL_NAME
;
3346 else if ((*sname
== 'l') && (strcmp (sname
, "literals") == 0))
3347 sname
= EVAX_LITERALS_NAME
;
3348 else if ((*sname
== 'c') && (strcmp (sname
, "comm") == 0))
3349 sname
= EVAX_COMMON_NAME
;
3350 else if ((*sname
== 'l') && (strcmp (sname
, "lcomm") == 0))
3351 sname
= EVAX_LOCAL_NAME
;
3354 sname
= _bfd_vms_length_hash_symbol (abfd
, sname
, EOBJ__C_SECSIZ
);
3356 if (bfd_is_com_section (section
))
3357 new_flags
= (EGPS__V_OVR
| EGPS__V_REL
| EGPS__V_GBL
| EGPS__V_RD
3358 | EGPS__V_WRT
| EGPS__V_NOMOD
| EGPS__V_COM
);
3360 new_flags
= vms_esecflag_by_name (evax_section_flags
, sname
,
3363 /* Modify them as directed. */
3364 if (section
->flags
& SEC_READONLY
)
3365 new_flags
&= ~EGPS__V_WRT
;
3367 new_flags
&= ~vms_section_data (section
)->no_flags
;
3368 new_flags
|= vms_section_data (section
)->flags
;
3370 vms_debug2 ((3, "sec flags %x\n", section
->flags
));
3371 vms_debug2 ((3, "new_flags %x, _raw_size %lu\n",
3372 new_flags
, (unsigned long)section
->size
));
3374 _bfd_vms_output_begin_subrec (recwr
, EGSD__C_PSC
);
3375 _bfd_vms_output_short (recwr
, section
->alignment_power
& 0xff);
3376 _bfd_vms_output_short (recwr
, new_flags
);
3377 _bfd_vms_output_long (recwr
, (unsigned long) section
->size
);
3378 _bfd_vms_output_counted (recwr
, sname
);
3379 _bfd_vms_output_end_subrec (recwr
);
3381 /* If the section is an obsolute one, remind its index as it will be
3382 used later for absolute symbols. */
3383 if ((new_flags
& EGPS__V_REL
) == 0 && abs_section_index
< 0)
3384 abs_section_index
= section
->target_index
;
3387 /* Output symbols. */
3388 vms_debug2 ((3, "%d symbols found\n", abfd
->symcount
));
3390 bfd_set_start_address (abfd
, (bfd_vma
) -1);
3392 for (symnum
= 0; symnum
< abfd
->symcount
; symnum
++)
3396 symbol
= abfd
->outsymbols
[symnum
];
3397 old_flags
= symbol
->flags
;
3399 /* Work-around a missing feature: consider __main as the main entry
3401 if (*(symbol
->name
) == '_')
3403 if (strcmp (symbol
->name
, "__main") == 0)
3404 bfd_set_start_address (abfd
, (bfd_vma
)symbol
->value
);
3407 /* Only put in the GSD the global and the undefined symbols. */
3408 if (old_flags
& BSF_FILE
)
3411 if ((old_flags
& BSF_GLOBAL
) == 0 && !bfd_is_und_section (symbol
->section
))
3413 /* If the LIB$INITIIALIZE section is present, add a reference to
3414 LIB$INITIALIZE symbol. FIXME: this should be done explicitely
3415 in the assembly file. */
3416 if (!((old_flags
& BSF_SECTION_SYM
) != 0
3417 && strcmp (symbol
->section
->name
, "LIB$INITIALIZE") == 0))
3421 /* 13 bytes egsd, max 64 chars name -> should be 77 bytes. Add 16 more
3422 bytes for a possible ABS section. */
3423 if (_bfd_vms_output_check (recwr
, 80 + 16) < 0)
3425 _bfd_vms_output_end (abfd
, recwr
);
3426 _bfd_vms_output_begin (recwr
, EOBJ__C_EGSD
);
3427 _bfd_vms_output_long (recwr
, 0);
3430 if ((old_flags
& BSF_GLOBAL
) != 0
3431 && bfd_is_abs_section (symbol
->section
)
3432 && abs_section_index
<= 0)
3434 /* Create an absolute section if none was defined. It is highly
3435 unlikely that the name $ABS$ clashes with a user defined
3436 non-absolute section name. */
3437 _bfd_vms_output_begin_subrec (recwr
, EGSD__C_PSC
);
3438 _bfd_vms_output_short (recwr
, 4);
3439 _bfd_vms_output_short (recwr
, EGPS__V_SHR
);
3440 _bfd_vms_output_long (recwr
, 0);
3441 _bfd_vms_output_counted (recwr
, "$ABS$");
3442 _bfd_vms_output_end_subrec (recwr
);
3444 abs_section_index
= target_index
++;
3447 _bfd_vms_output_begin_subrec (recwr
, EGSD__C_SYM
);
3449 /* Data type, alignment. */
3450 _bfd_vms_output_short (recwr
, 0);
3454 if (old_flags
& BSF_WEAK
)
3455 new_flags
|= EGSY__V_WEAK
;
3456 if (bfd_is_com_section (symbol
->section
)) /* .comm */
3457 new_flags
|= (EGSY__V_WEAK
| EGSY__V_COMM
);
3459 if (old_flags
& BSF_FUNCTION
)
3461 new_flags
|= EGSY__V_NORM
;
3462 new_flags
|= EGSY__V_REL
;
3464 if (old_flags
& BSF_GLOBAL
)
3466 new_flags
|= EGSY__V_DEF
;
3467 if (!bfd_is_abs_section (symbol
->section
))
3468 new_flags
|= EGSY__V_REL
;
3470 _bfd_vms_output_short (recwr
, new_flags
);
3472 if (old_flags
& BSF_GLOBAL
)
3474 /* Symbol definition. */
3475 bfd_vma code_address
= 0;
3476 unsigned long ca_psindx
= 0;
3477 unsigned long psindx
;
3479 if ((old_flags
& BSF_FUNCTION
) && symbol
->udata
.p
!= NULL
)
3484 ((struct evax_private_udata_struct
*)symbol
->udata
.p
)->enbsym
;
3485 code_address
= sym
->value
;
3486 ca_psindx
= sym
->section
->target_index
;
3488 if (bfd_is_abs_section (symbol
->section
))
3489 psindx
= abs_section_index
;
3491 psindx
= symbol
->section
->target_index
;
3493 _bfd_vms_output_quad (recwr
, symbol
->value
);
3494 _bfd_vms_output_quad (recwr
, code_address
);
3495 _bfd_vms_output_long (recwr
, ca_psindx
);
3496 _bfd_vms_output_long (recwr
, psindx
);
3498 hash
= _bfd_vms_length_hash_symbol (abfd
, symbol
->name
, EOBJ__C_SYMSIZ
);
3499 _bfd_vms_output_counted (recwr
, hash
);
3501 _bfd_vms_output_end_subrec (recwr
);
3504 _bfd_vms_output_alignment (recwr
, 8);
3505 _bfd_vms_output_end (abfd
, recwr
);
3510 /* Write object header for bfd abfd. Return FALSE on error. */
3513 _bfd_vms_write_ehdr (bfd
*abfd
)
3516 unsigned int symnum
;
3519 struct vms_rec_wr
*recwr
= &PRIV (recwr
);
3521 vms_debug2 ((2, "vms_write_ehdr (%p)\n", abfd
));
3523 _bfd_vms_output_alignment (recwr
, 2);
3525 _bfd_vms_write_emh (abfd
);
3526 _bfd_vms_write_lmn (abfd
, "GNU AS");
3529 _bfd_vms_output_begin (recwr
, EOBJ__C_EMH
);
3530 _bfd_vms_output_short (recwr
, EMH__C_SRC
);
3532 for (symnum
= 0; symnum
< abfd
->symcount
; symnum
++)
3534 symbol
= abfd
->outsymbols
[symnum
];
3536 if (symbol
->flags
& BSF_FILE
)
3538 if (CONST_STRNEQ ((char *)symbol
->name
, "<CASE:"))
3540 PRIV (flag_hash_long_names
) = symbol
->name
[6] - '0';
3541 PRIV (flag_show_after_trunc
) = symbol
->name
[7] - '0';
3549 _bfd_vms_output_dump (recwr
, (unsigned char *) symbol
->name
,
3550 (int) strlen (symbol
->name
));
3557 if (symnum
== abfd
->symcount
)
3558 _bfd_vms_output_dump (recwr
, (unsigned char *) STRING_COMMA_LEN ("noname"));
3560 _bfd_vms_output_end (abfd
, recwr
);
3563 _bfd_vms_output_begin (recwr
, EOBJ__C_EMH
);
3564 _bfd_vms_output_short (recwr
, EMH__C_TTL
);
3565 _bfd_vms_output_dump (recwr
, (unsigned char *) STRING_COMMA_LEN ("TTL"));
3566 _bfd_vms_output_end (abfd
, recwr
);
3569 _bfd_vms_output_begin (recwr
, EOBJ__C_EMH
);
3570 _bfd_vms_output_short (recwr
, EMH__C_CPR
);
3571 _bfd_vms_output_dump (recwr
,
3572 (unsigned char *)"GNU BFD ported by Klaus Kämpf 1994-1996",
3574 _bfd_vms_output_end (abfd
, recwr
);
3579 /* Part 4.6, relocations. */
3582 /* WRITE ETIR SECTION
3584 This is still under construction and therefore not documented. */
3586 /* Close the etir/etbt record. */
3589 end_etir_record (bfd
* abfd
)
3591 struct vms_rec_wr
*recwr
= &PRIV (recwr
);
3593 _bfd_vms_output_end (abfd
, recwr
);
3597 start_etir_or_etbt_record (bfd
*abfd
, asection
*section
, bfd_vma offset
)
3599 struct vms_rec_wr
*recwr
= &PRIV (recwr
);
3601 if (section
->flags
& SEC_DEBUGGING
)
3603 _bfd_vms_output_begin (recwr
, EOBJ__C_ETBT
);
3607 /* Push start offset. */
3608 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STA_LW
);
3609 _bfd_vms_output_long (recwr
, (unsigned long) 0);
3610 _bfd_vms_output_end_subrec (recwr
);
3613 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_CTL_DFLOC
);
3614 _bfd_vms_output_end_subrec (recwr
);
3619 _bfd_vms_output_begin (recwr
, EOBJ__C_ETIR
);
3623 /* Push start offset. */
3624 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STA_PQ
);
3625 _bfd_vms_output_long (recwr
, (unsigned long) section
->target_index
);
3626 _bfd_vms_output_quad (recwr
, offset
);
3627 _bfd_vms_output_end_subrec (recwr
);
3629 /* Start = pop (). */
3630 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_CTL_SETRB
);
3631 _bfd_vms_output_end_subrec (recwr
);
3636 /* Output a STO_IMM command for SSIZE bytes of data from CPR at virtual
3637 address VADDR in section specified by SEC_INDEX and NAME. */
3640 sto_imm (bfd
*abfd
, asection
*section
,
3641 bfd_size_type ssize
, unsigned char *cptr
, bfd_vma vaddr
)
3644 struct vms_rec_wr
*recwr
= &PRIV (recwr
);
3647 _bfd_vms_debug (8, "sto_imm %d bytes\n", (int) ssize
);
3648 _bfd_hexdump (9, cptr
, (int) ssize
, (int) vaddr
);
3653 /* Try all the rest. */
3656 if (_bfd_vms_output_check (recwr
, size
) < 0)
3658 /* Doesn't fit, split ! */
3659 end_etir_record (abfd
);
3661 start_etir_or_etbt_record (abfd
, section
, vaddr
);
3663 size
= _bfd_vms_output_check (recwr
, 0); /* get max size */
3664 if (size
> ssize
) /* more than what's left ? */
3668 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STO_IMM
);
3669 _bfd_vms_output_long (recwr
, (unsigned long) (size
));
3670 _bfd_vms_output_dump (recwr
, cptr
, size
);
3671 _bfd_vms_output_end_subrec (recwr
);
3674 _bfd_vms_debug (10, "dumped %d bytes\n", (int) size
);
3675 _bfd_hexdump (10, cptr
, (int) size
, (int) vaddr
);
3685 etir_output_check (bfd
*abfd
, asection
*section
, bfd_vma vaddr
, int checklen
)
3687 if (_bfd_vms_output_check (&PRIV (recwr
), checklen
) < 0)
3689 /* Not enough room in this record. Close it and open a new one. */
3690 end_etir_record (abfd
);
3691 start_etir_or_etbt_record (abfd
, section
, vaddr
);
3695 /* Return whether RELOC must be deferred till the end. */
3698 defer_reloc_p (arelent
*reloc
)
3700 switch (reloc
->howto
->type
)
3713 /* Write section contents for bfd abfd. Return FALSE on error. */
3716 _bfd_vms_write_etir (bfd
* abfd
, int objtype ATTRIBUTE_UNUSED
)
3719 struct vms_rec_wr
*recwr
= &PRIV (recwr
);
3721 vms_debug2 ((2, "vms_write_tir (%p, %d)\n", abfd
, objtype
));
3723 _bfd_vms_output_alignment (recwr
, 4);
3725 PRIV (vms_linkage_index
) = 1;
3727 for (section
= abfd
->sections
; section
; section
= section
->next
)
3729 vms_debug2 ((4, "writing %d. section '%s' (%d bytes)\n",
3730 section
->target_index
, section
->name
, (int) (section
->size
)));
3732 if (!(section
->flags
& SEC_HAS_CONTENTS
)
3733 || bfd_is_com_section (section
))
3736 if (!section
->contents
)
3738 bfd_set_error (bfd_error_no_contents
);
3742 start_etir_or_etbt_record (abfd
, section
, 0);
3744 if (section
->flags
& SEC_RELOC
)
3746 bfd_vma curr_addr
= 0;
3747 unsigned char *curr_data
= section
->contents
;
3749 int pass2_needed
= 0;
3750 int pass2_in_progress
= 0;
3753 if (section
->reloc_count
<= 0)
3754 (*_bfd_error_handler
)
3755 (_("SEC_RELOC with no relocs in section %s"), section
->name
);
3760 int i
= section
->reloc_count
;
3761 arelent
**rptr
= section
->orelocation
;
3762 _bfd_vms_debug (4, "%d relocations:\n", i
);
3765 _bfd_vms_debug (4, "sym %s in sec %s, value %08lx, "
3766 "addr %08lx, off %08lx, len %d: %s\n",
3767 (*(*rptr
)->sym_ptr_ptr
)->name
,
3768 (*(*rptr
)->sym_ptr_ptr
)->section
->name
,
3769 (long) (*(*rptr
)->sym_ptr_ptr
)->value
,
3770 (unsigned long)(*rptr
)->address
,
3771 (unsigned long)(*rptr
)->addend
,
3772 bfd_get_reloc_size ((*rptr
)->howto
),
3773 ( *rptr
)->howto
->name
);
3780 for (irel
= 0; irel
< section
->reloc_count
; irel
++)
3782 struct evax_private_udata_struct
*udata
;
3783 arelent
*rptr
= section
->orelocation
[irel
];
3784 bfd_vma addr
= rptr
->address
;
3785 asymbol
*sym
= *rptr
->sym_ptr_ptr
;
3786 asection
*sec
= sym
->section
;
3787 bfd_boolean defer
= defer_reloc_p (rptr
);
3791 if (pass2_in_progress
)
3793 /* Non-deferred relocs have already been output. */
3799 /* Deferred relocs must be output at the very end. */
3806 /* Regular relocs are intertwined with binary data. */
3807 if (curr_addr
> addr
)
3808 (*_bfd_error_handler
) (_("Size error in section %s"),
3810 size
= addr
- curr_addr
;
3811 sto_imm (abfd
, section
, size
, curr_data
, curr_addr
);
3816 size
= bfd_get_reloc_size (rptr
->howto
);
3818 switch (rptr
->howto
->type
)
3820 case ALPHA_R_IGNORE
:
3823 case ALPHA_R_REFLONG
:
3824 if (bfd_is_und_section (sym
->section
))
3826 bfd_vma addend
= rptr
->addend
;
3827 slen
= strlen ((char *) sym
->name
);
3828 hash
= _bfd_vms_length_hash_symbol
3829 (abfd
, sym
->name
, EOBJ__C_SYMSIZ
);
3830 etir_output_check (abfd
, section
, curr_addr
, slen
);
3833 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STA_GBL
);
3834 _bfd_vms_output_counted (recwr
, hash
);
3835 _bfd_vms_output_end_subrec (recwr
);
3836 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STA_LW
);
3837 _bfd_vms_output_long (recwr
, (unsigned long) addend
);
3838 _bfd_vms_output_end_subrec (recwr
);
3839 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_OPR_ADD
);
3840 _bfd_vms_output_end_subrec (recwr
);
3841 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STO_LW
);
3842 _bfd_vms_output_end_subrec (recwr
);
3846 _bfd_vms_output_begin_subrec
3847 (recwr
, ETIR__C_STO_GBL_LW
);
3848 _bfd_vms_output_counted (recwr
, hash
);
3849 _bfd_vms_output_end_subrec (recwr
);
3852 else if (bfd_is_abs_section (sym
->section
))
3854 etir_output_check (abfd
, section
, curr_addr
, 16);
3855 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STA_LW
);
3856 _bfd_vms_output_long (recwr
, (unsigned long) sym
->value
);
3857 _bfd_vms_output_end_subrec (recwr
);
3858 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STO_LW
);
3859 _bfd_vms_output_end_subrec (recwr
);
3863 etir_output_check (abfd
, section
, curr_addr
, 32);
3864 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STA_PQ
);
3865 _bfd_vms_output_long (recwr
,
3866 (unsigned long) sec
->target_index
);
3867 _bfd_vms_output_quad (recwr
, rptr
->addend
+ sym
->value
);
3868 _bfd_vms_output_end_subrec (recwr
);
3869 /* ??? Table B-8 of the OpenVMS Linker Utilily Manual
3870 says that we should have a ETIR__C_STO_OFF here.
3871 But the relocation would not be BFD_RELOC_32 then.
3872 This case is very likely unreachable. */
3873 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STO_LW
);
3874 _bfd_vms_output_end_subrec (recwr
);
3878 case ALPHA_R_REFQUAD
:
3879 if (bfd_is_und_section (sym
->section
))
3881 bfd_vma addend
= rptr
->addend
;
3882 slen
= strlen ((char *) sym
->name
);
3883 hash
= _bfd_vms_length_hash_symbol
3884 (abfd
, sym
->name
, EOBJ__C_SYMSIZ
);
3885 etir_output_check (abfd
, section
, curr_addr
, slen
);
3888 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STA_GBL
);
3889 _bfd_vms_output_counted (recwr
, hash
);
3890 _bfd_vms_output_end_subrec (recwr
);
3891 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STA_QW
);
3892 _bfd_vms_output_quad (recwr
, addend
);
3893 _bfd_vms_output_end_subrec (recwr
);
3894 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_OPR_ADD
);
3895 _bfd_vms_output_end_subrec (recwr
);
3896 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STO_QW
);
3897 _bfd_vms_output_end_subrec (recwr
);
3901 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STO_GBL
);
3902 _bfd_vms_output_counted (recwr
, hash
);
3903 _bfd_vms_output_end_subrec (recwr
);
3906 else if (bfd_is_abs_section (sym
->section
))
3908 etir_output_check (abfd
, section
, curr_addr
, 16);
3909 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STA_QW
);
3910 _bfd_vms_output_quad (recwr
, sym
->value
);
3911 _bfd_vms_output_end_subrec (recwr
);
3912 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STO_QW
);
3913 _bfd_vms_output_end_subrec (recwr
);
3917 etir_output_check (abfd
, section
, curr_addr
, 32);
3918 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STA_PQ
);
3919 _bfd_vms_output_long (recwr
,
3920 (unsigned long) sec
->target_index
);
3921 _bfd_vms_output_quad (recwr
, rptr
->addend
+ sym
->value
);
3922 _bfd_vms_output_end_subrec (recwr
);
3923 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STO_OFF
);
3924 _bfd_vms_output_end_subrec (recwr
);
3929 sto_imm (abfd
, section
, size
, curr_data
, curr_addr
);
3932 case ALPHA_R_LINKAGE
:
3933 etir_output_check (abfd
, section
, curr_addr
, 64);
3934 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STC_LP_PSB
);
3935 _bfd_vms_output_long
3936 (recwr
, (unsigned long) PRIV (vms_linkage_index
));
3937 PRIV (vms_linkage_index
) += 2;
3938 hash
= _bfd_vms_length_hash_symbol
3939 (abfd
, sym
->name
, EOBJ__C_SYMSIZ
);
3940 _bfd_vms_output_counted (recwr
, hash
);
3941 _bfd_vms_output_byte (recwr
, 0);
3942 _bfd_vms_output_end_subrec (recwr
);
3945 case ALPHA_R_CODEADDR
:
3946 slen
= strlen ((char *) sym
->name
);
3947 hash
= _bfd_vms_length_hash_symbol
3948 (abfd
, sym
->name
, EOBJ__C_SYMSIZ
);
3949 etir_output_check (abfd
, section
, curr_addr
, slen
);
3950 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STO_CA
);
3951 _bfd_vms_output_counted (recwr
, hash
);
3952 _bfd_vms_output_end_subrec (recwr
);
3957 = (struct evax_private_udata_struct
*) rptr
->sym_ptr_ptr
;
3958 etir_output_check (abfd
, section
, curr_addr
,
3959 32 + 1 + strlen (udata
->origname
));
3960 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STC_NOP_GBL
);
3961 _bfd_vms_output_long (recwr
, (unsigned long) udata
->lkindex
);
3962 _bfd_vms_output_long
3964 (unsigned long) udata
->enbsym
->section
->target_index
);
3965 _bfd_vms_output_quad (recwr
, rptr
->address
);
3966 _bfd_vms_output_long (recwr
, (unsigned long) 0x47ff041f);
3967 _bfd_vms_output_long
3969 (unsigned long) udata
->enbsym
->section
->target_index
);
3970 _bfd_vms_output_quad (recwr
, rptr
->addend
);
3971 _bfd_vms_output_counted
3972 (recwr
, _bfd_vms_length_hash_symbol
3973 (abfd
, udata
->origname
, EOBJ__C_SYMSIZ
));
3974 _bfd_vms_output_end_subrec (recwr
);
3978 (*_bfd_error_handler
) (_("Spurious ALPHA_R_BSR reloc"));
3983 = (struct evax_private_udata_struct
*) rptr
->sym_ptr_ptr
;
3984 etir_output_check (abfd
, section
, curr_addr
,
3985 32 + 1 + strlen (udata
->origname
));
3986 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STC_LDA_GBL
);
3987 _bfd_vms_output_long
3988 (recwr
, (unsigned long) udata
->lkindex
+ 1);
3989 _bfd_vms_output_long
3991 (unsigned long) udata
->enbsym
->section
->target_index
);
3992 _bfd_vms_output_quad (recwr
, rptr
->address
);
3993 _bfd_vms_output_long (recwr
, (unsigned long) 0x237B0000);
3994 _bfd_vms_output_long
3995 (recwr
, (unsigned long) udata
->bsym
->section
->target_index
);
3996 _bfd_vms_output_quad (recwr
, rptr
->addend
);
3997 _bfd_vms_output_counted
3998 (recwr
, _bfd_vms_length_hash_symbol
3999 (abfd
, udata
->origname
, EOBJ__C_SYMSIZ
));
4000 _bfd_vms_output_end_subrec (recwr
);
4005 = (struct evax_private_udata_struct
*) rptr
->sym_ptr_ptr
;
4006 etir_output_check (abfd
, section
, curr_addr
,
4007 32 + 1 + strlen (udata
->origname
));
4008 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STC_BOH_GBL
);
4009 _bfd_vms_output_long (recwr
, (unsigned long) udata
->lkindex
);
4010 _bfd_vms_output_long
4012 (unsigned long) udata
->enbsym
->section
->target_index
);
4013 _bfd_vms_output_quad (recwr
, rptr
->address
);
4014 _bfd_vms_output_long (recwr
, (unsigned long) 0xD3400000);
4015 _bfd_vms_output_long
4017 (unsigned long) udata
->enbsym
->section
->target_index
);
4018 _bfd_vms_output_quad (recwr
, rptr
->addend
);
4019 _bfd_vms_output_counted
4020 (recwr
, _bfd_vms_length_hash_symbol
4021 (abfd
, udata
->origname
, EOBJ__C_SYMSIZ
));
4022 _bfd_vms_output_end_subrec (recwr
);
4026 (*_bfd_error_handler
) (_("Unhandled relocation %s"),
4033 } /* End of relocs loop. */
4035 if (!pass2_in_progress
)
4037 /* Output rest of section. */
4038 if (curr_addr
> section
->size
)
4039 (*_bfd_error_handler
) (_("Size error in section %s"),
4041 size
= section
->size
- curr_addr
;
4042 sto_imm (abfd
, section
, size
, curr_data
, curr_addr
);
4048 pass2_in_progress
= 1;
4054 else /* (section->flags & SEC_RELOC) */
4055 sto_imm (abfd
, section
, section
->size
, section
->contents
, 0);
4057 end_etir_record (abfd
);
4060 _bfd_vms_output_alignment (recwr
, 2);
4064 /* Write cached information into a file being written, at bfd_close. */
4067 alpha_vms_write_object_contents (bfd
*abfd
)
4069 vms_debug2 ((1, "vms_write_object_contents (%p)\n", abfd
));
4071 if (abfd
->flags
& (EXEC_P
| DYNAMIC
))
4073 return alpha_vms_write_exec (abfd
);
4077 if (abfd
->section_count
> 0) /* we have sections */
4079 if (_bfd_vms_write_ehdr (abfd
) != TRUE
)
4081 if (_bfd_vms_write_egsd (abfd
) != TRUE
)
4083 if (_bfd_vms_write_etir (abfd
, EOBJ__C_ETIR
) != TRUE
)
4085 if (_bfd_vms_write_eeom (abfd
) != TRUE
)
4092 /* Debug stuff: nearest line. */
4094 #define SET_MODULE_PARSED(m) \
4095 do { if ((m)->name == NULL) (m)->name = ""; } while (0)
4096 #define IS_MODULE_PARSED(m) ((m)->name != NULL)
4098 /* Build a new module for the specified BFD. */
4100 static struct module
*
4101 new_module (bfd
*abfd
)
4103 struct module
*module
4104 = (struct module
*) bfd_zalloc (abfd
, sizeof (struct module
));
4105 module
->file_table_count
= 16; /* Arbitrary. */
4107 = bfd_malloc (module
->file_table_count
* sizeof (struct fileinfo
));
4111 /* Parse debug info for a module and internalize it. */
4114 parse_module (bfd
*abfd
, struct module
*module
, unsigned char *ptr
,
4117 unsigned char *maxptr
= ptr
+ length
;
4118 unsigned char *src_ptr
, *pcl_ptr
;
4119 unsigned int prev_linum
= 0, curr_linenum
= 0;
4120 bfd_vma prev_pc
= 0, curr_pc
= 0;
4121 struct srecinfo
*curr_srec
, *srec
;
4122 struct lineinfo
*curr_line
, *line
;
4123 struct funcinfo
*funcinfo
;
4125 /* Initialize tables with zero element. */
4126 curr_srec
= (struct srecinfo
*) bfd_zalloc (abfd
, sizeof (struct srecinfo
));
4127 module
->srec_table
= curr_srec
;
4129 curr_line
= (struct lineinfo
*) bfd_zalloc (abfd
, sizeof (struct lineinfo
));
4130 module
->line_table
= curr_line
;
4132 while (length
== -1 || ptr
< maxptr
)
4134 /* The first byte is not counted in the recorded length. */
4135 int rec_length
= bfd_getl16 (ptr
) + 1;
4136 int rec_type
= bfd_getl16 (ptr
+ 2);
4138 vms_debug2 ((2, "DST record: leng %d, type %d\n", rec_length
, rec_type
));
4140 if (length
== -1 && rec_type
== DST__K_MODEND
)
4147 = _bfd_vms_save_counted_string (ptr
+ DST_S_B_MODBEG_NAME
);
4154 vms_debug2 ((3, "module: %s\n", module
->name
));
4161 funcinfo
= (struct funcinfo
*)
4162 bfd_zalloc (abfd
, sizeof (struct funcinfo
));
4164 = _bfd_vms_save_counted_string (ptr
+ DST_S_B_RTNBEG_NAME
);
4165 funcinfo
->low
= bfd_getl32 (ptr
+ DST_S_L_RTNBEG_ADDRESS
);
4166 funcinfo
->next
= module
->func_table
;
4167 module
->func_table
= funcinfo
;
4169 vms_debug2 ((3, "routine: %s at 0x%lx\n",
4170 funcinfo
->name
, (unsigned long) funcinfo
->low
));
4174 module
->func_table
->high
= module
->func_table
->low
4175 + bfd_getl32 (ptr
+ DST_S_L_RTNEND_SIZE
) - 1;
4177 if (module
->func_table
->high
> module
->high
)
4178 module
->high
= module
->func_table
->high
;
4180 vms_debug2 ((3, "end routine\n"));
4184 vms_debug2 ((3, "prologue\n"));
4188 vms_debug2 ((3, "epilog\n"));
4192 vms_debug2 ((3, "block\n"));
4196 vms_debug2 ((3, "end block\n"));
4200 src_ptr
= ptr
+ DST_S_C_SOURCE_HEADER_SIZE
;
4202 vms_debug2 ((3, "source info\n"));
4204 while (src_ptr
< ptr
+ rec_length
)
4206 int cmd
= src_ptr
[0], cmd_length
, data
;
4210 case DST__K_SRC_DECLFILE
:
4213 = bfd_getl16 (src_ptr
+ DST_S_W_SRC_DF_FILEID
);
4215 = _bfd_vms_save_counted_string (src_ptr
4216 + DST_S_B_SRC_DF_FILENAME
);
4218 while (fileid
>= module
->file_table_count
)
4220 module
->file_table_count
*= 2;
4222 = bfd_realloc (module
->file_table
,
4223 module
->file_table_count
4224 * sizeof (struct fileinfo
));
4227 module
->file_table
[fileid
].name
= filename
;
4228 module
->file_table
[fileid
].srec
= 1;
4229 cmd_length
= src_ptr
[DST_S_B_SRC_DF_LENGTH
] + 2;
4230 vms_debug2 ((4, "DST_S_C_SRC_DECLFILE: %d, %s\n",
4231 fileid
, module
->file_table
[fileid
].name
));
4235 case DST__K_SRC_DEFLINES_B
:
4236 /* Perform the association and set the next higher index
4238 data
= src_ptr
[DST_S_B_SRC_UNSBYTE
];
4239 srec
= (struct srecinfo
*)
4240 bfd_zalloc (abfd
, sizeof (struct srecinfo
));
4241 srec
->line
= curr_srec
->line
+ data
;
4242 srec
->srec
= curr_srec
->srec
+ data
;
4243 srec
->sfile
= curr_srec
->sfile
;
4244 curr_srec
->next
= srec
;
4247 vms_debug2 ((4, "DST_S_C_SRC_DEFLINES_B: %d\n", data
));
4250 case DST__K_SRC_DEFLINES_W
:
4251 /* Perform the association and set the next higher index
4253 data
= bfd_getl16 (src_ptr
+ DST_S_W_SRC_UNSWORD
);
4254 srec
= (struct srecinfo
*)
4255 bfd_zalloc (abfd
, sizeof (struct srecinfo
));
4256 srec
->line
= curr_srec
->line
+ data
;
4257 srec
->srec
= curr_srec
->srec
+ data
,
4258 srec
->sfile
= curr_srec
->sfile
;
4259 curr_srec
->next
= srec
;
4262 vms_debug2 ((4, "DST_S_C_SRC_DEFLINES_W: %d\n", data
));
4265 case DST__K_SRC_INCRLNUM_B
:
4266 data
= src_ptr
[DST_S_B_SRC_UNSBYTE
];
4267 curr_srec
->line
+= data
;
4269 vms_debug2 ((4, "DST_S_C_SRC_INCRLNUM_B: %d\n", data
));
4272 case DST__K_SRC_SETFILE
:
4273 data
= bfd_getl16 (src_ptr
+ DST_S_W_SRC_UNSWORD
);
4274 curr_srec
->sfile
= data
;
4275 curr_srec
->srec
= module
->file_table
[data
].srec
;
4277 vms_debug2 ((4, "DST_S_C_SRC_SETFILE: %d\n", data
));
4280 case DST__K_SRC_SETLNUM_L
:
4281 data
= bfd_getl32 (src_ptr
+ DST_S_L_SRC_UNSLONG
);
4282 curr_srec
->line
= data
;
4284 vms_debug2 ((4, "DST_S_C_SRC_SETLNUM_L: %d\n", data
));
4287 case DST__K_SRC_SETLNUM_W
:
4288 data
= bfd_getl16 (src_ptr
+ DST_S_W_SRC_UNSWORD
);
4289 curr_srec
->line
= data
;
4291 vms_debug2 ((4, "DST_S_C_SRC_SETLNUM_W: %d\n", data
));
4294 case DST__K_SRC_SETREC_L
:
4295 data
= bfd_getl32 (src_ptr
+ DST_S_L_SRC_UNSLONG
);
4296 curr_srec
->srec
= data
;
4297 module
->file_table
[curr_srec
->sfile
].srec
= data
;
4299 vms_debug2 ((4, "DST_S_C_SRC_SETREC_L: %d\n", data
));
4302 case DST__K_SRC_SETREC_W
:
4303 data
= bfd_getl16 (src_ptr
+ DST_S_W_SRC_UNSWORD
);
4304 curr_srec
->srec
= data
;
4305 module
->file_table
[curr_srec
->sfile
].srec
= data
;
4307 vms_debug2 ((4, "DST_S_C_SRC_SETREC_W: %d\n", data
));
4310 case DST__K_SRC_FORMFEED
:
4312 vms_debug2 ((4, "DST_S_C_SRC_FORMFEED\n"));
4316 (*_bfd_error_handler
) (_("unknown source command %d"),
4322 src_ptr
+= cmd_length
;
4326 case DST__K_LINE_NUM
:
4327 pcl_ptr
= ptr
+ DST_S_C_LINE_NUM_HEADER_SIZE
;
4329 vms_debug2 ((3, "line info\n"));
4331 while (pcl_ptr
< ptr
+ rec_length
)
4333 /* The command byte is signed so we must sign-extend it. */
4334 int cmd
= ((signed char *)pcl_ptr
)[0], cmd_length
, data
;
4338 case DST__K_DELTA_PC_W
:
4339 data
= bfd_getl16 (pcl_ptr
+ DST_S_W_PCLINE_UNSWORD
);
4343 vms_debug2 ((4, "DST__K_DELTA_PC_W: %d\n", data
));
4346 case DST__K_DELTA_PC_L
:
4347 data
= bfd_getl32 (pcl_ptr
+ DST_S_L_PCLINE_UNSLONG
);
4351 vms_debug2 ((4, "DST__K_DELTA_PC_L: %d\n", data
));
4354 case DST__K_INCR_LINUM
:
4355 data
= pcl_ptr
[DST_S_B_PCLINE_UNSBYTE
];
4356 curr_linenum
+= data
;
4358 vms_debug2 ((4, "DST__K_INCR_LINUM: %d\n", data
));
4361 case DST__K_INCR_LINUM_W
:
4362 data
= bfd_getl16 (pcl_ptr
+ DST_S_W_PCLINE_UNSWORD
);
4363 curr_linenum
+= data
;
4365 vms_debug2 ((4, "DST__K_INCR_LINUM_W: %d\n", data
));
4368 case DST__K_INCR_LINUM_L
:
4369 data
= bfd_getl32 (pcl_ptr
+ DST_S_L_PCLINE_UNSLONG
);
4370 curr_linenum
+= data
;
4372 vms_debug2 ((4, "DST__K_INCR_LINUM_L: %d\n", data
));
4375 case DST__K_SET_LINUM_INCR
:
4376 (*_bfd_error_handler
)
4377 (_("DST__K_SET_LINUM_INCR not implemented"));
4381 case DST__K_SET_LINUM_INCR_W
:
4382 (*_bfd_error_handler
)
4383 (_("DST__K_SET_LINUM_INCR_W not implemented"));
4387 case DST__K_RESET_LINUM_INCR
:
4388 (*_bfd_error_handler
)
4389 (_("DST__K_RESET_LINUM_INCR not implemented"));
4393 case DST__K_BEG_STMT_MODE
:
4394 (*_bfd_error_handler
)
4395 (_("DST__K_BEG_STMT_MODE not implemented"));
4399 case DST__K_END_STMT_MODE
:
4400 (*_bfd_error_handler
)
4401 (_("DST__K_END_STMT_MODE not implemented"));
4405 case DST__K_SET_LINUM_B
:
4406 data
= pcl_ptr
[DST_S_B_PCLINE_UNSBYTE
];
4407 curr_linenum
= data
;
4409 vms_debug2 ((4, "DST__K_SET_LINUM_B: %d\n", data
));
4412 case DST__K_SET_LINUM
:
4413 data
= bfd_getl16 (pcl_ptr
+ DST_S_W_PCLINE_UNSWORD
);
4414 curr_linenum
= data
;
4416 vms_debug2 ((4, "DST__K_SET_LINE_NUM: %d\n", data
));
4419 case DST__K_SET_LINUM_L
:
4420 data
= bfd_getl32 (pcl_ptr
+ DST_S_L_PCLINE_UNSLONG
);
4421 curr_linenum
= data
;
4423 vms_debug2 ((4, "DST__K_SET_LINUM_L: %d\n", data
));
4427 (*_bfd_error_handler
)
4428 (_("DST__K_SET_PC not implemented"));
4432 case DST__K_SET_PC_W
:
4433 (*_bfd_error_handler
)
4434 (_("DST__K_SET_PC_W not implemented"));
4438 case DST__K_SET_PC_L
:
4439 (*_bfd_error_handler
)
4440 (_("DST__K_SET_PC_L not implemented"));
4444 case DST__K_SET_STMTNUM
:
4445 (*_bfd_error_handler
)
4446 (_("DST__K_SET_STMTNUM not implemented"));
4451 data
= pcl_ptr
[DST_S_B_PCLINE_UNSBYTE
];
4454 vms_debug2 ((4, "DST__K_TERM: %d\n", data
));
4458 data
= bfd_getl16 (pcl_ptr
+ DST_S_W_PCLINE_UNSWORD
);
4461 vms_debug2 ((4, "DST__K_TERM_W: %d\n", data
));
4465 data
= bfd_getl32 (pcl_ptr
+ DST_S_L_PCLINE_UNSLONG
);
4468 vms_debug2 ((4, "DST__K_TERM_L: %d\n", data
));
4471 case DST__K_SET_ABS_PC
:
4472 data
= bfd_getl32 (pcl_ptr
+ DST_S_L_PCLINE_UNSLONG
);
4475 vms_debug2 ((4, "DST__K_SET_ABS_PC: 0x%x\n", data
));
4484 vms_debug2 ((4, "bump pc to 0x%lx and line to %d\n",
4485 (unsigned long)curr_pc
, curr_linenum
));
4489 (*_bfd_error_handler
) (_("unknown line command %d"),
4496 if ((curr_linenum
!= prev_linum
&& curr_pc
!= prev_pc
)
4498 || cmd
== DST__K_DELTA_PC_L
4499 || cmd
== DST__K_DELTA_PC_W
)
4501 line
= (struct lineinfo
*)
4502 bfd_zalloc (abfd
, sizeof (struct lineinfo
));
4503 line
->address
= curr_pc
;
4504 line
->line
= curr_linenum
;
4506 curr_line
->next
= line
;
4509 prev_linum
= curr_linenum
;
4511 vms_debug2 ((4, "-> correlate pc 0x%lx with line %d\n",
4512 (unsigned long)curr_pc
, curr_linenum
));
4515 pcl_ptr
+= cmd_length
;
4519 case 0x17: /* Undocumented type used by DEC C to declare equates. */
4520 vms_debug2 ((3, "undocumented type 0x17\n"));
4524 vms_debug2 ((3, "ignoring record\n"));
4532 /* Finalize tables with EOL marker. */
4533 srec
= (struct srecinfo
*) bfd_zalloc (abfd
, sizeof (struct srecinfo
));
4534 srec
->line
= (unsigned int) -1;
4535 srec
->srec
= (unsigned int) -1;
4536 curr_srec
->next
= srec
;
4538 line
= (struct lineinfo
*) bfd_zalloc (abfd
, sizeof (struct lineinfo
));
4539 line
->line
= (unsigned int) -1;
4540 line
->address
= (bfd_vma
) -1;
4541 curr_line
->next
= line
;
4543 /* Advertise that this module has been parsed. This is needed
4544 because parsing can be either performed at module creation
4545 or deferred until debug info is consumed. */
4546 SET_MODULE_PARSED (module
);
4549 /* Build the list of modules for the specified BFD. */
4551 static struct module
*
4552 build_module_list (bfd
*abfd
)
4554 struct module
*module
, *list
= NULL
;
4557 if ((dmt
= bfd_get_section_by_name (abfd
, "$DMT$")))
4559 /* We have a DMT section so this must be an image. Parse the
4560 section and build the list of modules. This is sufficient
4561 since we can compute the start address and the end address
4562 of every module from the section contents. */
4563 bfd_size_type size
= bfd_get_section_size (dmt
);
4564 unsigned char *ptr
, *end
;
4566 ptr
= (unsigned char *) bfd_alloc (abfd
, size
);
4570 if (! bfd_get_section_contents (abfd
, dmt
, ptr
, 0, size
))
4573 vms_debug2 ((2, "DMT\n"));
4579 /* Each header declares a module with its start offset and size
4580 of debug info in the DST section, as well as the count of
4581 program sections (i.e. address spans) it contains. */
4582 int modbeg
= bfd_getl32 (ptr
+ DBG_S_L_DMT_MODBEG
);
4583 int msize
= bfd_getl32 (ptr
+ DBG_S_L_DST_SIZE
);
4584 int count
= bfd_getl16 (ptr
+ DBG_S_W_DMT_PSECT_COUNT
);
4585 ptr
+= DBG_S_C_DMT_HEADER_SIZE
;
4587 vms_debug2 ((3, "module: modbeg = %d, size = %d, count = %d\n",
4588 modbeg
, msize
, count
));
4590 /* We create a 'module' structure for each program section since
4591 we only support contiguous addresses in a 'module' structure.
4592 As a consequence, the actual debug info in the DST section is
4593 shared and can be parsed multiple times; that doesn't seem to
4594 cause problems in practice. */
4597 int start
= bfd_getl32 (ptr
+ DBG_S_L_DMT_PSECT_START
);
4598 int length
= bfd_getl32 (ptr
+ DBG_S_L_DMT_PSECT_LENGTH
);
4599 module
= new_module (abfd
);
4600 module
->modbeg
= modbeg
;
4601 module
->size
= msize
;
4602 module
->low
= start
;
4603 module
->high
= start
+ length
;
4604 module
->next
= list
;
4606 ptr
+= DBG_S_C_DMT_PSECT_SIZE
;
4608 vms_debug2 ((4, "section: start = 0x%x, length = %d\n",
4615 /* We don't have a DMT section so this must be an object. Parse
4616 the module right now in order to compute its start address and
4618 module
= new_module (abfd
);
4619 parse_module (abfd
, module
, PRIV (dst_section
)->contents
, -1);
4626 /* Calculate and return the name of the source file and the line nearest
4627 to the wanted location in the specified module. */
4630 module_find_nearest_line (bfd
*abfd
, struct module
*module
, bfd_vma addr
,
4631 const char **file
, const char **func
,
4634 struct funcinfo
*funcinfo
;
4635 struct lineinfo
*lineinfo
;
4636 struct srecinfo
*srecinfo
;
4637 bfd_boolean ret
= FALSE
;
4639 /* Parse this module if that was not done at module creation. */
4640 if (! IS_MODULE_PARSED (module
))
4642 unsigned int size
= module
->size
;
4643 unsigned int modbeg
= PRIV (dst_section
)->filepos
+ module
->modbeg
;
4644 unsigned char *buffer
= (unsigned char *) bfd_malloc (module
->size
);
4646 if (bfd_seek (abfd
, modbeg
, SEEK_SET
) != 0
4647 || bfd_bread (buffer
, size
, abfd
) != size
)
4649 bfd_set_error (bfd_error_no_debug_section
);
4653 parse_module (abfd
, module
, buffer
, size
);
4657 /* Find out the function (if any) that contains the address. */
4658 for (funcinfo
= module
->func_table
; funcinfo
; funcinfo
= funcinfo
->next
)
4659 if (addr
>= funcinfo
->low
&& addr
<= funcinfo
->high
)
4661 *func
= funcinfo
->name
;
4666 /* Find out the source file and the line nearest to the address. */
4667 for (lineinfo
= module
->line_table
; lineinfo
; lineinfo
= lineinfo
->next
)
4668 if (lineinfo
->next
&& addr
< lineinfo
->next
->address
)
4670 for (srecinfo
= module
->srec_table
; srecinfo
; srecinfo
= srecinfo
->next
)
4671 if (srecinfo
->next
&& lineinfo
->line
< srecinfo
->next
->line
)
4673 if (srecinfo
->sfile
> 0)
4675 *file
= module
->file_table
[srecinfo
->sfile
].name
;
4676 *line
= srecinfo
->srec
+ lineinfo
->line
- srecinfo
->line
;
4680 *file
= module
->name
;
4681 *line
= lineinfo
->line
;
4692 /* Provided a BFD, a section and an offset into the section, calculate and
4693 return the name of the source file and the line nearest to the wanted
4697 _bfd_vms_find_nearest_dst_line (bfd
*abfd
, asection
*section
,
4698 asymbol
**symbols ATTRIBUTE_UNUSED
,
4699 bfd_vma offset
, const char **file
,
4700 const char **func
, unsigned int *line
)
4702 struct module
*module
;
4704 /* What address are we looking for? */
4705 bfd_vma addr
= section
->vma
+ offset
;
4711 if (PRIV (dst_section
) == NULL
|| !(abfd
->flags
& (EXEC_P
| DYNAMIC
)))
4714 if (PRIV (modules
) == NULL
)
4716 PRIV (modules
) = build_module_list (abfd
);
4717 if (PRIV (modules
) == NULL
)
4721 for (module
= PRIV (modules
); module
; module
= module
->next
)
4722 if (addr
>= module
->low
&& addr
<= module
->high
)
4723 return module_find_nearest_line (abfd
, module
, addr
, file
, func
, line
);
4728 /* Canonicalizations. */
4729 /* Set name, value, section and flags of SYM from E. */
4732 alpha_vms_convert_symbol (bfd
*abfd
, struct vms_symbol_entry
*e
, asymbol
*sym
)
4741 flags
= BSF_NO_FLAGS
;
4747 if (e
->flags
& EGSY__V_WEAK
)
4750 if (e
->flags
& EGSY__V_DEF
)
4752 /* Symbol definition. */
4753 flags
|= BSF_GLOBAL
;
4754 if (e
->flags
& EGSY__V_NORM
)
4755 flags
|= BSF_FUNCTION
;
4761 /* Symbol reference. */
4762 sec
= bfd_und_section_ptr
;
4767 /* A universal symbol is by definition global... */
4768 flags
|= BSF_GLOBAL
;
4770 /* ...and dynamic in shared libraries. */
4771 if (abfd
->flags
& DYNAMIC
)
4772 flags
|= BSF_DYNAMIC
;
4774 if (e
->flags
& EGSY__V_WEAK
)
4777 if (!(e
->flags
& EGSY__V_DEF
))
4780 if (e
->flags
& EGSY__V_NORM
)
4781 flags
|= BSF_FUNCTION
;
4784 /* sec = e->section; */
4785 sec
= bfd_abs_section_ptr
;
4800 /* Return the number of bytes required to store a vector of pointers
4801 to asymbols for all the symbols in the BFD abfd, including a
4802 terminal NULL pointer. If there are no symbols in the BFD,
4803 then return 0. If an error occurs, return -1. */
4806 alpha_vms_get_symtab_upper_bound (bfd
*abfd
)
4808 vms_debug2 ((1, "alpha_vms_get_symtab_upper_bound (%p), %d symbols\n",
4809 abfd
, PRIV (gsd_sym_count
)));
4811 return (PRIV (gsd_sym_count
) + 1) * sizeof (asymbol
*);
4814 /* Read the symbols from the BFD abfd, and fills in the vector
4815 location with pointers to the symbols and a trailing NULL.
4817 Return number of symbols read. */
4820 alpha_vms_canonicalize_symtab (bfd
*abfd
, asymbol
**symbols
)
4824 vms_debug2 ((1, "alpha_vms_canonicalize_symtab (%p, <ret>)\n", abfd
));
4826 if (PRIV (csymbols
) == NULL
)
4828 PRIV (csymbols
) = (asymbol
**) bfd_alloc
4829 (abfd
, PRIV (gsd_sym_count
) * sizeof (asymbol
*));
4831 /* Traverse table and fill symbols vector. */
4832 for (i
= 0; i
< PRIV (gsd_sym_count
); i
++)
4834 struct vms_symbol_entry
*e
= PRIV (syms
)[i
];
4837 sym
= bfd_make_empty_symbol (abfd
);
4838 if (sym
== NULL
|| !alpha_vms_convert_symbol (abfd
, e
, sym
))
4840 bfd_release (abfd
, PRIV (csymbols
));
4841 PRIV (csymbols
) = NULL
;
4845 PRIV (csymbols
)[i
] = sym
;
4849 if (symbols
!= NULL
)
4851 for (i
= 0; i
< PRIV (gsd_sym_count
); i
++)
4852 symbols
[i
] = PRIV (csymbols
)[i
];
4856 return PRIV (gsd_sym_count
);
4859 /* Read and convert relocations from ETIR. We do it once for all sections. */
4862 alpha_vms_slurp_relocs (bfd
*abfd
)
4866 vms_debug2 ((3, "alpha_vms_slurp_relocs\n"));
4868 /* We slurp relocs only once, for all sections. */
4869 if (PRIV (reloc_done
))
4871 PRIV (reloc_done
) = TRUE
;
4873 if (alpha_vms_canonicalize_symtab (abfd
, NULL
) < 0)
4876 if (bfd_seek (abfd
, 0, SEEK_SET
) != 0)
4881 unsigned char *begin
;
4884 bfd_reloc_code_real_type reloc_code
;
4890 bfd_vma cur_address
;
4892 unsigned char *cur_sym
= NULL
;
4894 bfd_vma cur_addend
= 0;
4896 /* Skip non-ETIR records. */
4897 type
= _bfd_vms_get_object_record (abfd
);
4898 if (type
== EOBJ__C_EEOM
)
4900 if (type
!= EOBJ__C_ETIR
)
4903 begin
= PRIV (recrd
.rec
) + 4;
4904 end
= PRIV (recrd
.rec
) + PRIV (recrd
.rec_size
);
4906 for (ptr
= begin
; ptr
< end
; ptr
+= length
)
4910 cmd
= bfd_getl16 (ptr
);
4911 length
= bfd_getl16 (ptr
+ 2);
4913 cur_address
= vaddr
;
4915 vms_debug2 ((4, "alpha_vms_slurp_relocs: etir %s\n",
4916 _bfd_vms_etir_name (cmd
)));
4920 case ETIR__C_STA_GBL
: /* ALPHA_R_REFLONG und_section, step 1 */
4921 /* ALPHA_R_REFQUAD und_section, step 1 */
4926 case ETIR__C_STA_PQ
: /* ALPHA_R_REF{LONG|QUAD}, others part 1 */
4927 cur_psidx
= bfd_getl32 (ptr
+ 4);
4928 cur_addend
= bfd_getl64 (ptr
+ 8);
4932 case ETIR__C_CTL_SETRB
:
4933 if (prev_cmd
!= ETIR__C_STA_PQ
)
4935 (*_bfd_error_handler
)
4936 (_("Unknown reloc %s + %s"), _bfd_vms_etir_name (prev_cmd
),
4937 _bfd_vms_etir_name (cmd
));
4940 cur_psect
= cur_psidx
;
4946 case ETIR__C_STA_LW
: /* ALPHA_R_REFLONG abs_section, step 1 */
4947 /* ALPHA_R_REFLONG und_section, step 2 */
4950 if (prev_cmd
!= ETIR__C_STA_GBL
)
4952 (*_bfd_error_handler
)
4953 (_("Unknown reloc %s + %s"), _bfd_vms_etir_name (cmd
),
4954 _bfd_vms_etir_name (ETIR__C_STA_LW
));
4958 cur_addend
= bfd_getl32 (ptr
+ 4);
4962 case ETIR__C_STA_QW
: /* ALPHA_R_REFQUAD abs_section, step 1 */
4963 /* ALPHA_R_REFQUAD und_section, step 2 */
4964 if (prev_cmd
!= -1 && prev_cmd
!= ETIR__C_STA_GBL
)
4966 (*_bfd_error_handler
)
4967 (_("Unknown reloc %s + %s"), _bfd_vms_etir_name (cmd
),
4968 _bfd_vms_etir_name (ETIR__C_STA_QW
));
4971 cur_addend
= bfd_getl64 (ptr
+ 4);
4975 case ETIR__C_STO_LW
: /* ALPHA_R_REFLONG und_section, step 4 */
4976 /* ALPHA_R_REFLONG abs_section, step 2 */
4977 /* ALPHA_R_REFLONG others, step 2 */
4978 if (prev_cmd
!= ETIR__C_OPR_ADD
4979 && prev_cmd
!= ETIR__C_STA_LW
4980 && prev_cmd
!= ETIR__C_STA_PQ
)
4982 (*_bfd_error_handler
) (_("Unknown reloc %s + %s"),
4983 _bfd_vms_etir_name (prev_cmd
),
4984 _bfd_vms_etir_name (ETIR__C_STO_LW
));
4987 reloc_code
= BFD_RELOC_32
;
4990 case ETIR__C_STO_QW
: /* ALPHA_R_REFQUAD und_section, step 4 */
4991 /* ALPHA_R_REFQUAD abs_section, step 2 */
4992 if (prev_cmd
!= ETIR__C_OPR_ADD
&& prev_cmd
!= ETIR__C_STA_QW
)
4994 (*_bfd_error_handler
) (_("Unknown reloc %s + %s"),
4995 _bfd_vms_etir_name (prev_cmd
),
4996 _bfd_vms_etir_name (ETIR__C_STO_QW
));
4999 reloc_code
= BFD_RELOC_64
;
5002 case ETIR__C_STO_OFF
: /* ALPHA_R_REFQUAD others, step 2 */
5003 if (prev_cmd
!= ETIR__C_STA_PQ
)
5005 (*_bfd_error_handler
) (_("Unknown reloc %s + %s"),
5006 _bfd_vms_etir_name (prev_cmd
),
5007 _bfd_vms_etir_name (ETIR__C_STO_OFF
));
5010 reloc_code
= BFD_RELOC_64
;
5013 case ETIR__C_OPR_ADD
: /* ALPHA_R_REFLONG und_section, step 3 */
5014 /* ALPHA_R_REFQUAD und_section, step 3 */
5015 if (prev_cmd
!= ETIR__C_STA_LW
&& prev_cmd
!= ETIR__C_STA_QW
)
5017 (*_bfd_error_handler
) (_("Unknown reloc %s + %s"),
5018 _bfd_vms_etir_name (prev_cmd
),
5019 _bfd_vms_etir_name (ETIR__C_OPR_ADD
));
5022 prev_cmd
= ETIR__C_OPR_ADD
;
5025 case ETIR__C_STO_CA
: /* ALPHA_R_CODEADDR */
5026 reloc_code
= BFD_RELOC_ALPHA_CODEADDR
;
5030 case ETIR__C_STO_GBL
: /* ALPHA_R_REFQUAD und_section */
5031 reloc_code
= BFD_RELOC_64
;
5035 case ETIR__C_STO_GBL_LW
: /* ALPHA_R_REFLONG und_section */
5036 reloc_code
= BFD_RELOC_32
;
5040 case ETIR__C_STC_LP_PSB
: /* ALPHA_R_LINKAGE */
5041 reloc_code
= BFD_RELOC_ALPHA_LINKAGE
;
5045 case ETIR__C_STC_NOP_GBL
: /* ALPHA_R_NOP */
5046 reloc_code
= BFD_RELOC_ALPHA_NOP
;
5049 case ETIR__C_STC_BSR_GBL
: /* ALPHA_R_BSR */
5050 reloc_code
= BFD_RELOC_ALPHA_BSR
;
5053 case ETIR__C_STC_LDA_GBL
: /* ALPHA_R_LDA */
5054 reloc_code
= BFD_RELOC_ALPHA_LDA
;
5057 case ETIR__C_STC_BOH_GBL
: /* ALPHA_R_BOH */
5058 reloc_code
= BFD_RELOC_ALPHA_BOH
;
5062 cur_sym
= ptr
+ 4 + 32;
5063 cur_address
= bfd_getl64 (ptr
+ 4 + 8);
5064 cur_addend
= bfd_getl64 (ptr
+ 4 + 24);
5067 case ETIR__C_STO_IMM
:
5068 vaddr
+= bfd_getl32 (ptr
+ 4);
5072 (*_bfd_error_handler
) (_("Unknown reloc %s"),
5073 _bfd_vms_etir_name (cmd
));
5079 struct vms_section_data_struct
*vms_sec
;
5082 /* Get section to which the relocation applies. */
5083 if (cur_psect
< 0 || cur_psect
> (int)PRIV (section_count
))
5085 (*_bfd_error_handler
) (_("Invalid section index in ETIR"));
5088 sec
= PRIV (sections
)[cur_psect
];
5089 vms_sec
= vms_section_data (sec
);
5091 /* Allocate a reloc entry. */
5092 if (sec
->reloc_count
>= vms_sec
->reloc_max
)
5094 if (vms_sec
->reloc_max
== 0)
5096 vms_sec
->reloc_max
= 64;
5097 sec
->relocation
= bfd_zmalloc
5098 (vms_sec
->reloc_max
* sizeof (arelent
));
5102 vms_sec
->reloc_max
*= 2;
5103 sec
->relocation
= bfd_realloc
5104 (sec
->relocation
, vms_sec
->reloc_max
* sizeof (arelent
));
5107 reloc
= &sec
->relocation
[sec
->reloc_count
];
5110 reloc
->howto
= bfd_reloc_type_lookup (abfd
, reloc_code
);
5112 if (cur_sym
!= NULL
)
5115 unsigned int symlen
= *cur_sym
;
5118 /* Linear search. */
5123 for (j
= 0; j
< PRIV (gsd_sym_count
); j
++)
5124 if (PRIV (syms
)[j
]->namelen
== symlen
5125 && memcmp (PRIV (syms
)[j
]->name
, cur_sym
, symlen
) == 0)
5127 sym
= &PRIV (csymbols
)[j
];
5132 (*_bfd_error_handler
) (_("Unknown symbol in command %s"),
5133 _bfd_vms_etir_name (cmd
));
5134 reloc
->sym_ptr_ptr
= NULL
;
5137 reloc
->sym_ptr_ptr
= sym
;
5139 else if (cur_psidx
>= 0)
5140 reloc
->sym_ptr_ptr
=
5141 PRIV (sections
)[cur_psidx
]->symbol_ptr_ptr
;
5143 reloc
->sym_ptr_ptr
= NULL
;
5145 reloc
->address
= cur_address
;
5146 reloc
->addend
= cur_addend
;
5148 vaddr
+= bfd_get_reloc_size (reloc
->howto
);
5157 vms_debug2 ((3, "alpha_vms_slurp_relocs: result = TRUE\n"));
5162 /* Return the number of bytes required to store the relocation
5163 information associated with the given section. */
5166 alpha_vms_get_reloc_upper_bound (bfd
*abfd ATTRIBUTE_UNUSED
, asection
*section
)
5168 alpha_vms_slurp_relocs (abfd
);
5170 return (section
->reloc_count
+ 1) * sizeof (arelent
*);
5173 /* Convert relocations from VMS (external) form into BFD internal
5174 form. Return the number of relocations. */
5177 alpha_vms_canonicalize_reloc (bfd
*abfd
, asection
*section
, arelent
**relptr
,
5178 asymbol
**symbols ATTRIBUTE_UNUSED
)
5183 if (!alpha_vms_slurp_relocs (abfd
))
5186 count
= section
->reloc_count
;
5187 tblptr
= section
->relocation
;
5190 *relptr
++ = tblptr
++;
5192 *relptr
= (arelent
*) NULL
;
5193 return section
->reloc_count
;
5196 /* This is just copied from ecoff-alpha, needs to be fixed probably. */
5198 /* How to process the various reloc types. */
5200 static bfd_reloc_status_type
5201 reloc_nil (bfd
* abfd ATTRIBUTE_UNUSED
,
5202 arelent
*reloc ATTRIBUTE_UNUSED
,
5203 asymbol
*sym ATTRIBUTE_UNUSED
,
5204 void * data ATTRIBUTE_UNUSED
,
5205 asection
*sec ATTRIBUTE_UNUSED
,
5206 bfd
*output_bfd ATTRIBUTE_UNUSED
,
5207 char **error_message ATTRIBUTE_UNUSED
)
5210 vms_debug (1, "reloc_nil (abfd %p, output_bfd %p)\n", abfd
, output_bfd
);
5211 vms_debug (2, "In section %s, symbol %s\n",
5212 sec
->name
, sym
->name
);
5213 vms_debug (2, "reloc sym %s, addr %08lx, addend %08lx, reloc is a %s\n",
5214 reloc
->sym_ptr_ptr
[0]->name
,
5215 (unsigned long)reloc
->address
,
5216 (unsigned long)reloc
->addend
, reloc
->howto
->name
);
5217 vms_debug (2, "data at %p\n", data
);
5218 /* _bfd_hexdump (2, data, bfd_get_reloc_size (reloc->howto), 0); */
5221 return bfd_reloc_ok
;
5224 /* In case we're on a 32-bit machine, construct a 64-bit "-1" value
5225 from smaller values. Start with zero, widen, *then* decrement. */
5226 #define MINUS_ONE (((bfd_vma)0) - 1)
5228 static reloc_howto_type alpha_howto_table
[] =
5230 HOWTO (ALPHA_R_IGNORE
, /* Type. */
5231 0, /* Rightshift. */
5232 0, /* Size (0 = byte, 1 = short, 2 = long). */
5234 TRUE
, /* PC relative. */
5236 complain_overflow_dont
,/* Complain_on_overflow. */
5237 reloc_nil
, /* Special_function. */
5238 "IGNORE", /* Name. */
5239 TRUE
, /* Partial_inplace. */
5240 0, /* Source mask */
5242 TRUE
), /* PC rel offset. */
5244 /* A 64 bit reference to a symbol. */
5245 HOWTO (ALPHA_R_REFQUAD
, /* Type. */
5246 0, /* Rightshift. */
5247 4, /* Size (0 = byte, 1 = short, 2 = long). */
5249 FALSE
, /* PC relative. */
5251 complain_overflow_bitfield
, /* Complain_on_overflow. */
5252 reloc_nil
, /* Special_function. */
5253 "REFQUAD", /* Name. */
5254 TRUE
, /* Partial_inplace. */
5255 MINUS_ONE
, /* Source mask. */
5256 MINUS_ONE
, /* Dest mask. */
5257 FALSE
), /* PC rel offset. */
5259 /* A 21 bit branch. The native assembler generates these for
5260 branches within the text segment, and also fills in the PC
5261 relative offset in the instruction. */
5262 HOWTO (ALPHA_R_BRADDR
, /* Type. */
5263 2, /* Rightshift. */
5264 2, /* Size (0 = byte, 1 = short, 2 = long). */
5266 TRUE
, /* PC relative. */
5268 complain_overflow_signed
, /* Complain_on_overflow. */
5269 reloc_nil
, /* Special_function. */
5270 "BRADDR", /* Name. */
5271 TRUE
, /* Partial_inplace. */
5272 0x1fffff, /* Source mask. */
5273 0x1fffff, /* Dest mask. */
5274 FALSE
), /* PC rel offset. */
5276 /* A hint for a jump to a register. */
5277 HOWTO (ALPHA_R_HINT
, /* Type. */
5278 2, /* Rightshift. */
5279 1, /* Size (0 = byte, 1 = short, 2 = long). */
5281 TRUE
, /* PC relative. */
5283 complain_overflow_dont
,/* Complain_on_overflow. */
5284 reloc_nil
, /* Special_function. */
5286 TRUE
, /* Partial_inplace. */
5287 0x3fff, /* Source mask. */
5288 0x3fff, /* Dest mask. */
5289 FALSE
), /* PC rel offset. */
5291 /* 16 bit PC relative offset. */
5292 HOWTO (ALPHA_R_SREL16
, /* Type. */
5293 0, /* Rightshift. */
5294 1, /* Size (0 = byte, 1 = short, 2 = long). */
5296 TRUE
, /* PC relative. */
5298 complain_overflow_signed
, /* Complain_on_overflow. */
5299 reloc_nil
, /* Special_function. */
5300 "SREL16", /* Name. */
5301 TRUE
, /* Partial_inplace. */
5302 0xffff, /* Source mask. */
5303 0xffff, /* Dest mask. */
5304 FALSE
), /* PC rel offset. */
5306 /* 32 bit PC relative offset. */
5307 HOWTO (ALPHA_R_SREL32
, /* Type. */
5308 0, /* Rightshift. */
5309 2, /* Size (0 = byte, 1 = short, 2 = long). */
5311 TRUE
, /* PC relative. */
5313 complain_overflow_signed
, /* Complain_on_overflow. */
5314 reloc_nil
, /* Special_function. */
5315 "SREL32", /* Name. */
5316 TRUE
, /* Partial_inplace. */
5317 0xffffffff, /* Source mask. */
5318 0xffffffff, /* Dest mask. */
5319 FALSE
), /* PC rel offset. */
5321 /* A 64 bit PC relative offset. */
5322 HOWTO (ALPHA_R_SREL64
, /* Type. */
5323 0, /* Rightshift. */
5324 4, /* Size (0 = byte, 1 = short, 2 = long). */
5326 TRUE
, /* PC relative. */
5328 complain_overflow_signed
, /* Complain_on_overflow. */
5329 reloc_nil
, /* Special_function. */
5330 "SREL64", /* Name. */
5331 TRUE
, /* Partial_inplace. */
5332 MINUS_ONE
, /* Source mask. */
5333 MINUS_ONE
, /* Dest mask. */
5334 FALSE
), /* PC rel offset. */
5336 /* Push a value on the reloc evaluation stack. */
5337 HOWTO (ALPHA_R_OP_PUSH
, /* Type. */
5338 0, /* Rightshift. */
5339 0, /* Size (0 = byte, 1 = short, 2 = long). */
5341 FALSE
, /* PC relative. */
5343 complain_overflow_dont
,/* Complain_on_overflow. */
5344 reloc_nil
, /* Special_function. */
5345 "OP_PUSH", /* Name. */
5346 FALSE
, /* Partial_inplace. */
5347 0, /* Source mask. */
5349 FALSE
), /* PC rel offset. */
5351 /* Store the value from the stack at the given address. Store it in
5352 a bitfield of size r_size starting at bit position r_offset. */
5353 HOWTO (ALPHA_R_OP_STORE
, /* Type. */
5354 0, /* Rightshift. */
5355 4, /* Size (0 = byte, 1 = short, 2 = long). */
5357 FALSE
, /* PC relative. */
5359 complain_overflow_dont
,/* Complain_on_overflow. */
5360 reloc_nil
, /* Special_function. */
5361 "OP_STORE", /* Name. */
5362 FALSE
, /* Partial_inplace. */
5363 0, /* Source mask. */
5364 MINUS_ONE
, /* Dest mask. */
5365 FALSE
), /* PC rel offset. */
5367 /* Subtract the reloc address from the value on the top of the
5368 relocation stack. */
5369 HOWTO (ALPHA_R_OP_PSUB
, /* Type. */
5370 0, /* Rightshift. */
5371 0, /* Size (0 = byte, 1 = short, 2 = long). */
5373 FALSE
, /* PC relative. */
5375 complain_overflow_dont
,/* Complain_on_overflow. */
5376 reloc_nil
, /* Special_function. */
5377 "OP_PSUB", /* Name. */
5378 FALSE
, /* Partial_inplace. */
5379 0, /* Source mask. */
5381 FALSE
), /* PC rel offset. */
5383 /* Shift the value on the top of the relocation stack right by the
5385 HOWTO (ALPHA_R_OP_PRSHIFT
, /* Type. */
5386 0, /* Rightshift. */
5387 0, /* Size (0 = byte, 1 = short, 2 = long). */
5389 FALSE
, /* PC relative. */
5391 complain_overflow_dont
,/* Complain_on_overflow. */
5392 reloc_nil
, /* Special_function. */
5393 "OP_PRSHIFT", /* Name. */
5394 FALSE
, /* Partial_inplace. */
5395 0, /* Source mask. */
5397 FALSE
), /* PC rel offset. */
5399 /* Hack. Linkage is done by linker. */
5400 HOWTO (ALPHA_R_LINKAGE
, /* Type. */
5401 0, /* Rightshift. */
5402 8, /* Size (0 = byte, 1 = short, 2 = long). */
5404 FALSE
, /* PC relative. */
5406 complain_overflow_dont
,/* Complain_on_overflow. */
5407 reloc_nil
, /* Special_function. */
5408 "LINKAGE", /* Name. */
5409 FALSE
, /* Partial_inplace. */
5410 0, /* Source mask. */
5412 FALSE
), /* PC rel offset. */
5414 /* A 32 bit reference to a symbol. */
5415 HOWTO (ALPHA_R_REFLONG
, /* Type. */
5416 0, /* Rightshift. */
5417 2, /* Size (0 = byte, 1 = short, 2 = long). */
5419 FALSE
, /* PC relative. */
5421 complain_overflow_bitfield
, /* Complain_on_overflow. */
5422 reloc_nil
, /* Special_function. */
5423 "REFLONG", /* Name. */
5424 TRUE
, /* Partial_inplace. */
5425 0xffffffff, /* Source mask. */
5426 0xffffffff, /* Dest mask. */
5427 FALSE
), /* PC rel offset. */
5429 /* A 64 bit reference to a procedure, written as 32 bit value. */
5430 HOWTO (ALPHA_R_CODEADDR
, /* Type. */
5431 0, /* Rightshift. */
5432 4, /* Size (0 = byte, 1 = short, 2 = long). */
5434 FALSE
, /* PC relative. */
5436 complain_overflow_signed
,/* Complain_on_overflow. */
5437 reloc_nil
, /* Special_function. */
5438 "CODEADDR", /* Name. */
5439 FALSE
, /* Partial_inplace. */
5440 0xffffffff, /* Source mask. */
5441 0xffffffff, /* Dest mask. */
5442 FALSE
), /* PC rel offset. */
5444 HOWTO (ALPHA_R_NOP
, /* Type. */
5445 0, /* Rightshift. */
5446 3, /* Size (0 = byte, 1 = short, 2 = long). */
5448 /* The following value must match that of ALPHA_R_BSR/ALPHA_R_BOH
5449 because the calculations for the 3 relocations are the same.
5450 See B.4.5.2 of the OpenVMS Linker Utility Manual. */
5451 TRUE
, /* PC relative. */
5453 complain_overflow_dont
,/* Complain_on_overflow. */
5454 reloc_nil
, /* Special_function. */
5456 FALSE
, /* Partial_inplace. */
5457 0xffffffff, /* Source mask. */
5458 0xffffffff, /* Dest mask. */
5459 FALSE
), /* PC rel offset. */
5461 HOWTO (ALPHA_R_BSR
, /* Type. */
5462 0, /* Rightshift. */
5463 3, /* Size (0 = byte, 1 = short, 2 = long). */
5465 TRUE
, /* PC relative. */
5467 complain_overflow_dont
,/* Complain_on_overflow. */
5468 reloc_nil
, /* Special_function. */
5470 FALSE
, /* Partial_inplace. */
5471 0xffffffff, /* Source mask. */
5472 0xffffffff, /* Dest mask. */
5473 FALSE
), /* PC rel offset. */
5475 HOWTO (ALPHA_R_LDA
, /* Type. */
5476 0, /* Rightshift. */
5477 3, /* Size (0 = byte, 1 = short, 2 = long). */
5479 FALSE
, /* 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_BOH
, /* Type. */
5490 0, /* Rightshift. */
5491 3, /* Size (0 = byte, 1 = short, 2 = long, 3 = nil). */
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. */
5504 /* Return a pointer to a howto structure which, when invoked, will perform
5505 the relocation code on data from the architecture noted. */
5507 static const struct reloc_howto_struct
*
5508 alpha_vms_bfd_reloc_type_lookup (bfd
* abfd ATTRIBUTE_UNUSED
,
5509 bfd_reloc_code_real_type code
)
5513 vms_debug2 ((1, "vms_bfd_reloc_type_lookup (%p, %d)\t", abfd
, code
));
5517 case BFD_RELOC_16
: alpha_type
= ALPHA_R_SREL16
; break;
5518 case BFD_RELOC_32
: alpha_type
= ALPHA_R_REFLONG
; break;
5519 case BFD_RELOC_64
: alpha_type
= ALPHA_R_REFQUAD
; break;
5520 case BFD_RELOC_CTOR
: alpha_type
= ALPHA_R_REFQUAD
; break;
5521 case BFD_RELOC_23_PCREL_S2
: alpha_type
= ALPHA_R_BRADDR
; break;
5522 case BFD_RELOC_ALPHA_HINT
: alpha_type
= ALPHA_R_HINT
; break;
5523 case BFD_RELOC_16_PCREL
: alpha_type
= ALPHA_R_SREL16
; break;
5524 case BFD_RELOC_32_PCREL
: alpha_type
= ALPHA_R_SREL32
; break;
5525 case BFD_RELOC_64_PCREL
: alpha_type
= ALPHA_R_SREL64
; break;
5526 case BFD_RELOC_ALPHA_LINKAGE
: alpha_type
= ALPHA_R_LINKAGE
; break;
5527 case BFD_RELOC_ALPHA_CODEADDR
: alpha_type
= ALPHA_R_CODEADDR
; break;
5528 case BFD_RELOC_ALPHA_NOP
: alpha_type
= ALPHA_R_NOP
; break;
5529 case BFD_RELOC_ALPHA_BSR
: alpha_type
= ALPHA_R_BSR
; break;
5530 case BFD_RELOC_ALPHA_LDA
: alpha_type
= ALPHA_R_LDA
; break;
5531 case BFD_RELOC_ALPHA_BOH
: alpha_type
= ALPHA_R_BOH
; break;
5533 (*_bfd_error_handler
) ("reloc (%d) is *UNKNOWN*", code
);
5536 vms_debug2 ((2, "reloc is %s\n", alpha_howto_table
[alpha_type
].name
));
5537 return & alpha_howto_table
[alpha_type
];
5540 static reloc_howto_type
*
5541 alpha_vms_bfd_reloc_name_lookup (bfd
*abfd ATTRIBUTE_UNUSED
,
5547 i
< sizeof (alpha_howto_table
) / sizeof (alpha_howto_table
[0]);
5549 if (alpha_howto_table
[i
].name
!= NULL
5550 && strcasecmp (alpha_howto_table
[i
].name
, r_name
) == 0)
5551 return &alpha_howto_table
[i
];
5557 alpha_vms_get_synthetic_symtab (bfd
*abfd
,
5558 long symcount ATTRIBUTE_UNUSED
,
5559 asymbol
**usyms ATTRIBUTE_UNUSED
,
5560 long dynsymcount ATTRIBUTE_UNUSED
,
5561 asymbol
**dynsyms ATTRIBUTE_UNUSED
,
5568 syms
= (asymbol
*) bfd_malloc (PRIV (norm_sym_count
) * sizeof (asymbol
));
5573 for (i
= 0; i
< PRIV (gsd_sym_count
); i
++)
5575 struct vms_symbol_entry
*e
= PRIV (syms
)[i
];
5586 flags
= BSF_LOCAL
| BSF_SYNTHETIC
;
5593 if ((e
->flags
& EGSY__V_DEF
) && (e
->flags
& EGSY__V_NORM
))
5595 value
= e
->code_value
;
5596 sec
= e
->code_section
;
5607 sname
= bfd_alloc (abfd
, l
+ 5);
5610 memcpy (sname
, name
, l
);
5611 memcpy (sname
+ l
, "..en", 5);
5618 sym
->udata
.p
= NULL
;
5627 vms_time_to_str (unsigned char *buf
)
5629 time_t t
= vms_rawtime_to_time_t (buf
);
5630 char *res
= ctime (&t
);
5633 res
= "*invalid time*";
5640 evax_bfd_print_emh (FILE *file
, unsigned char *rec
, unsigned int rec_len
)
5642 struct vms_emh_common
*emh
= (struct vms_emh_common
*)rec
;
5643 unsigned int subtype
;
5645 subtype
= (unsigned)bfd_getl16 (emh
->subtyp
);
5647 fprintf (file
, _(" EMH %u (len=%u): "), subtype
, rec_len
);
5653 struct vms_emh_mhd
*mhd
= (struct vms_emh_mhd
*)rec
;
5656 fprintf (file
, _("Module header\n"));
5657 fprintf (file
, _(" structure level: %u\n"), mhd
->strlvl
);
5658 fprintf (file
, _(" max record size: %u\n"),
5659 (unsigned)bfd_getl32 (mhd
->recsiz
));
5660 name
= (char *)(mhd
+ 1);
5661 fprintf (file
, _(" module name : %.*s\n"), name
[0], name
+ 1);
5662 name
+= name
[0] + 1;
5663 fprintf (file
, _(" module version : %.*s\n"), name
[0], name
+ 1);
5664 name
+= name
[0] + 1;
5665 fprintf (file
, _(" compile date : %.17s\n"), name
);
5670 fprintf (file
, _("Language Processor Name\n"));
5671 fprintf (file
, _(" language name: %.*s\n"),
5672 (int)(rec_len
- sizeof (struct vms_emh_common
)),
5673 (char *)rec
+ sizeof (struct vms_emh_common
));
5678 fprintf (file
, _("Source Files Header\n"));
5679 fprintf (file
, _(" file: %.*s\n"),
5680 (int)(rec_len
- sizeof (struct vms_emh_common
)),
5681 (char *)rec
+ sizeof (struct vms_emh_common
));
5686 fprintf (file
, _("Title Text Header\n"));
5687 fprintf (file
, _(" title: %.*s\n"),
5688 (int)(rec_len
- sizeof (struct vms_emh_common
)),
5689 (char *)rec
+ sizeof (struct vms_emh_common
));
5694 fprintf (file
, _("Copyright Header\n"));
5695 fprintf (file
, _(" copyright: %.*s\n"),
5696 (int)(rec_len
- sizeof (struct vms_emh_common
)),
5697 (char *)rec
+ sizeof (struct vms_emh_common
));
5701 fprintf (file
, _("unhandled emh subtype %u\n"), subtype
);
5707 evax_bfd_print_eeom (FILE *file
, unsigned char *rec
, unsigned int rec_len
)
5709 struct vms_eeom
*eeom
= (struct vms_eeom
*)rec
;
5711 fprintf (file
, _(" EEOM (len=%u):\n"), rec_len
);
5712 fprintf (file
, _(" number of cond linkage pairs: %u\n"),
5713 (unsigned)bfd_getl32 (eeom
->total_lps
));
5714 fprintf (file
, _(" completion code: %u\n"),
5715 (unsigned)bfd_getl16 (eeom
->comcod
));
5718 fprintf (file
, _(" transfer addr flags: 0x%02x\n"), eeom
->tfrflg
);
5719 fprintf (file
, _(" transfer addr psect: %u\n"),
5720 (unsigned)bfd_getl32 (eeom
->psindx
));
5721 fprintf (file
, _(" transfer address : 0x%08x\n"),
5722 (unsigned)bfd_getl32 (eeom
->tfradr
));
5727 exav_bfd_print_egsy_flags (unsigned int flags
, FILE *file
)
5729 if (flags
& EGSY__V_WEAK
)
5730 fputs (_(" WEAK"), file
);
5731 if (flags
& EGSY__V_DEF
)
5732 fputs (_(" DEF"), file
);
5733 if (flags
& EGSY__V_UNI
)
5734 fputs (_(" UNI"), file
);
5735 if (flags
& EGSY__V_REL
)
5736 fputs (_(" REL"), file
);
5737 if (flags
& EGSY__V_COMM
)
5738 fputs (_(" COMM"), file
);
5739 if (flags
& EGSY__V_VECEP
)
5740 fputs (_(" VECEP"), file
);
5741 if (flags
& EGSY__V_NORM
)
5742 fputs (_(" NORM"), file
);
5743 if (flags
& EGSY__V_QUAD_VAL
)
5744 fputs (_(" QVAL"), file
);
5748 evax_bfd_print_egsd_flags (FILE *file
, unsigned int flags
)
5750 if (flags
& EGPS__V_PIC
)
5751 fputs (_(" PIC"), file
);
5752 if (flags
& EGPS__V_LIB
)
5753 fputs (_(" LIB"), file
);
5754 if (flags
& EGPS__V_OVR
)
5755 fputs (_(" OVR"), file
);
5756 if (flags
& EGPS__V_REL
)
5757 fputs (_(" REL"), file
);
5758 if (flags
& EGPS__V_GBL
)
5759 fputs (_(" GBL"), file
);
5760 if (flags
& EGPS__V_SHR
)
5761 fputs (_(" SHR"), file
);
5762 if (flags
& EGPS__V_EXE
)
5763 fputs (_(" EXE"), file
);
5764 if (flags
& EGPS__V_RD
)
5765 fputs (_(" RD"), file
);
5766 if (flags
& EGPS__V_WRT
)
5767 fputs (_(" WRT"), file
);
5768 if (flags
& EGPS__V_VEC
)
5769 fputs (_(" VEC"), file
);
5770 if (flags
& EGPS__V_NOMOD
)
5771 fputs (_(" NOMOD"), file
);
5772 if (flags
& EGPS__V_COM
)
5773 fputs (_(" COM"), file
);
5774 if (flags
& EGPS__V_ALLOC_64BIT
)
5775 fputs (_(" 64B"), file
);
5779 evax_bfd_print_egsd (FILE *file
, unsigned char *rec
, unsigned int rec_len
)
5781 unsigned int off
= sizeof (struct vms_egsd
);
5784 fprintf (file
, _(" EGSD (len=%u):\n"), rec_len
);
5787 for (off
= sizeof (struct vms_egsd
); off
< rec_len
; )
5789 struct vms_egsd_entry
*e
= (struct vms_egsd_entry
*)(rec
+ off
);
5793 type
= (unsigned)bfd_getl16 (e
->gsdtyp
);
5794 len
= (unsigned)bfd_getl16 (e
->gsdsiz
);
5796 fprintf (file
, _(" EGSD entry %2u (type: %u, len: %u): "),
5804 struct vms_egps
*egps
= (struct vms_egps
*)e
;
5805 unsigned int flags
= bfd_getl16 (egps
->flags
);
5808 fprintf (file
, _("PSC - Program section definition\n"));
5809 fprintf (file
, _(" alignment : 2**%u\n"), egps
->align
);
5810 fprintf (file
, _(" flags : 0x%04x"), flags
);
5811 evax_bfd_print_egsd_flags (file
, flags
);
5813 l
= bfd_getl32 (egps
->alloc
);
5814 fprintf (file
, _(" alloc (len): %u (0x%08x)\n"), l
, l
);
5815 fprintf (file
, _(" name : %.*s\n"),
5816 egps
->namlng
, egps
->name
);
5821 struct vms_esgps
*esgps
= (struct vms_esgps
*)e
;
5822 unsigned int flags
= bfd_getl16 (esgps
->flags
);
5825 fprintf (file
, _("SPSC - Shared Image Program section def\n"));
5826 fprintf (file
, _(" alignment : 2**%u\n"), esgps
->align
);
5827 fprintf (file
, _(" flags : 0x%04x"), flags
);
5828 evax_bfd_print_egsd_flags (file
, flags
);
5830 l
= bfd_getl32 (esgps
->alloc
);
5831 fprintf (file
, _(" alloc (len) : %u (0x%08x)\n"), l
, l
);
5832 fprintf (file
, _(" image offset : 0x%08x\n"),
5833 (unsigned int)bfd_getl32 (esgps
->base
));
5834 fprintf (file
, _(" symvec offset : 0x%08x\n"),
5835 (unsigned int)bfd_getl32 (esgps
->value
));
5836 fprintf (file
, _(" name : %.*s\n"),
5837 esgps
->namlng
, esgps
->name
);
5842 struct vms_egsy
*egsy
= (struct vms_egsy
*)e
;
5843 unsigned int flags
= bfd_getl16 (egsy
->flags
);
5845 if (flags
& EGSY__V_DEF
)
5847 struct vms_esdf
*esdf
= (struct vms_esdf
*)e
;
5849 fprintf (file
, _("SYM - Global symbol definition\n"));
5850 fprintf (file
, _(" flags: 0x%04x"), flags
);
5851 exav_bfd_print_egsy_flags (flags
, file
);
5853 fprintf (file
, _(" psect offset: 0x%08x\n"),
5854 (unsigned)bfd_getl32 (esdf
->value
));
5855 if (flags
& EGSY__V_NORM
)
5857 fprintf (file
, _(" code address: 0x%08x\n"),
5858 (unsigned)bfd_getl32 (esdf
->code_address
));
5859 fprintf (file
, _(" psect index for entry point : %u\n"),
5860 (unsigned)bfd_getl32 (esdf
->ca_psindx
));
5862 fprintf (file
, _(" psect index : %u\n"),
5863 (unsigned)bfd_getl32 (esdf
->psindx
));
5864 fprintf (file
, _(" name : %.*s\n"),
5865 esdf
->namlng
, esdf
->name
);
5869 struct vms_esrf
*esrf
= (struct vms_esrf
*)e
;
5871 fprintf (file
, _("SYM - Global symbol reference\n"));
5872 fprintf (file
, _(" name : %.*s\n"),
5873 esrf
->namlng
, esrf
->name
);
5879 struct vms_eidc
*eidc
= (struct vms_eidc
*)e
;
5880 unsigned int flags
= bfd_getl32 (eidc
->flags
);
5883 fprintf (file
, _("IDC - Ident Consistency check\n"));
5884 fprintf (file
, _(" flags : 0x%08x"), flags
);
5885 if (flags
& EIDC__V_BINIDENT
)
5886 fputs (" BINDENT", file
);
5888 fprintf (file
, _(" id match : %x\n"),
5889 (flags
>> EIDC__V_IDMATCH_SH
) & EIDC__V_IDMATCH_MASK
);
5890 fprintf (file
, _(" error severity: %x\n"),
5891 (flags
>> EIDC__V_ERRSEV_SH
) & EIDC__V_ERRSEV_MASK
);
5893 fprintf (file
, _(" entity name : %.*s\n"), p
[0], p
+ 1);
5895 fprintf (file
, _(" object name : %.*s\n"), p
[0], p
+ 1);
5897 if (flags
& EIDC__V_BINIDENT
)
5898 fprintf (file
, _(" binary ident : 0x%08x\n"),
5899 (unsigned)bfd_getl32 (p
+ 1));
5901 fprintf (file
, _(" ascii ident : %.*s\n"), p
[0], p
+ 1);
5906 struct vms_egst
*egst
= (struct vms_egst
*)e
;
5907 unsigned int flags
= bfd_getl16 (egst
->header
.flags
);
5909 fprintf (file
, _("SYMG - Universal symbol definition\n"));
5910 fprintf (file
, _(" flags: 0x%04x"), flags
);
5911 exav_bfd_print_egsy_flags (flags
, file
);
5913 fprintf (file
, _(" symbol vector offset: 0x%08x\n"),
5914 (unsigned)bfd_getl32 (egst
->value
));
5915 fprintf (file
, _(" entry point: 0x%08x\n"),
5916 (unsigned)bfd_getl32 (egst
->lp_1
));
5917 fprintf (file
, _(" proc descr : 0x%08x\n"),
5918 (unsigned)bfd_getl32 (egst
->lp_2
));
5919 fprintf (file
, _(" psect index: %u\n"),
5920 (unsigned)bfd_getl32 (egst
->psindx
));
5921 fprintf (file
, _(" name : %.*s\n"),
5922 egst
->namlng
, egst
->name
);
5927 struct vms_esdfv
*esdfv
= (struct vms_esdfv
*)e
;
5928 unsigned int flags
= bfd_getl16 (esdfv
->flags
);
5930 fprintf (file
, _("SYMV - Vectored symbol definition\n"));
5931 fprintf (file
, _(" flags: 0x%04x"), flags
);
5932 exav_bfd_print_egsy_flags (flags
, file
);
5934 fprintf (file
, _(" vector : 0x%08x\n"),
5935 (unsigned)bfd_getl32 (esdfv
->vector
));
5936 fprintf (file
, _(" psect offset: %u\n"),
5937 (unsigned)bfd_getl32 (esdfv
->value
));
5938 fprintf (file
, _(" psect index : %u\n"),
5939 (unsigned)bfd_getl32 (esdfv
->psindx
));
5940 fprintf (file
, _(" name : %.*s\n"),
5941 esdfv
->namlng
, esdfv
->name
);
5946 struct vms_esdfm
*esdfm
= (struct vms_esdfm
*)e
;
5947 unsigned int flags
= bfd_getl16 (esdfm
->flags
);
5949 fprintf (file
, _("SYMM - Global symbol definition with version\n"));
5950 fprintf (file
, _(" flags: 0x%04x"), flags
);
5951 exav_bfd_print_egsy_flags (flags
, file
);
5953 fprintf (file
, _(" version mask: 0x%08x\n"),
5954 (unsigned)bfd_getl32 (esdfm
->version_mask
));
5955 fprintf (file
, _(" psect offset: %u\n"),
5956 (unsigned)bfd_getl32 (esdfm
->value
));
5957 fprintf (file
, _(" psect index : %u\n"),
5958 (unsigned)bfd_getl32 (esdfm
->psindx
));
5959 fprintf (file
, _(" name : %.*s\n"),
5960 esdfm
->namlng
, esdfm
->name
);
5964 fprintf (file
, _("unhandled egsd entry type %u\n"), type
);
5972 evax_bfd_print_hex (FILE *file
, const char *pfx
,
5973 const unsigned char *buf
, unsigned int len
)
5979 for (i
= 0; i
< len
; i
++)
5983 fprintf (file
, " %02x", buf
[i
]);
5996 evax_bfd_print_etir_stc_ir (FILE *file
, const unsigned char *buf
, int is_ps
)
5998 fprintf (file
, _(" linkage index: %u, replacement insn: 0x%08x\n"),
5999 (unsigned)bfd_getl32 (buf
),
6000 (unsigned)bfd_getl32 (buf
+ 16));
6001 fprintf (file
, _(" psect idx 1: %u, offset 1: 0x%08x %08x\n"),
6002 (unsigned)bfd_getl32 (buf
+ 4),
6003 (unsigned)bfd_getl32 (buf
+ 12),
6004 (unsigned)bfd_getl32 (buf
+ 8));
6005 fprintf (file
, _(" psect idx 2: %u, offset 2: 0x%08x %08x\n"),
6006 (unsigned)bfd_getl32 (buf
+ 20),
6007 (unsigned)bfd_getl32 (buf
+ 28),
6008 (unsigned)bfd_getl32 (buf
+ 24));
6010 fprintf (file
, _(" psect idx 3: %u, offset 3: 0x%08x %08x\n"),
6011 (unsigned)bfd_getl32 (buf
+ 32),
6012 (unsigned)bfd_getl32 (buf
+ 40),
6013 (unsigned)bfd_getl32 (buf
+ 36));
6015 fprintf (file
, _(" global name: %.*s\n"), buf
[32], buf
+ 33);
6019 evax_bfd_print_etir (FILE *file
, const char *name
,
6020 unsigned char *rec
, unsigned int rec_len
)
6022 unsigned int off
= sizeof (struct vms_egsd
);
6023 unsigned int sec_len
;
6025 fprintf (file
, _(" %s (len=%u+%u):\n"), name
,
6026 (unsigned)(rec_len
- sizeof (struct vms_eobjrec
)),
6027 (unsigned)sizeof (struct vms_eobjrec
));
6029 for (off
= sizeof (struct vms_eobjrec
); off
< rec_len
; )
6031 struct vms_etir
*etir
= (struct vms_etir
*)(rec
+ off
);
6036 type
= bfd_getl16 (etir
->rectyp
);
6037 size
= bfd_getl16 (etir
->size
);
6038 buf
= rec
+ off
+ sizeof (struct vms_etir
);
6040 fprintf (file
, _(" (type: %3u, size: 4+%3u): "), type
, size
- 4);
6043 case ETIR__C_STA_GBL
:
6044 fprintf (file
, _("STA_GBL (stack global) %.*s\n"),
6047 case ETIR__C_STA_LW
:
6048 fprintf (file
, _("STA_LW (stack longword) 0x%08x\n"),
6049 (unsigned)bfd_getl32 (buf
));
6051 case ETIR__C_STA_QW
:
6052 fprintf (file
, _("STA_QW (stack quadword) 0x%08x %08x\n"),
6053 (unsigned)bfd_getl32 (buf
+ 4),
6054 (unsigned)bfd_getl32 (buf
+ 0));
6056 case ETIR__C_STA_PQ
:
6057 fprintf (file
, _("STA_PQ (stack psect base + offset)\n"));
6058 fprintf (file
, _(" psect: %u, offset: 0x%08x %08x\n"),
6059 (unsigned)bfd_getl32 (buf
+ 0),
6060 (unsigned)bfd_getl32 (buf
+ 8),
6061 (unsigned)bfd_getl32 (buf
+ 4));
6063 case ETIR__C_STA_LI
:
6064 fprintf (file
, _("STA_LI (stack literal)\n"));
6066 case ETIR__C_STA_MOD
:
6067 fprintf (file
, _("STA_MOD (stack module)\n"));
6069 case ETIR__C_STA_CKARG
:
6070 fprintf (file
, _("STA_CKARG (compare procedure argument)\n"));
6074 fprintf (file
, _("STO_B (store byte)\n"));
6077 fprintf (file
, _("STO_W (store word)\n"));
6079 case ETIR__C_STO_LW
:
6080 fprintf (file
, _("STO_LW (store longword)\n"));
6082 case ETIR__C_STO_QW
:
6083 fprintf (file
, _("STO_QW (store quadword)\n"));
6085 case ETIR__C_STO_IMMR
:
6087 unsigned int len
= bfd_getl32 (buf
);
6089 _("STO_IMMR (store immediate repeat) %u bytes\n"),
6091 evax_bfd_print_hex (file
, " ", buf
+ 4, len
);
6095 case ETIR__C_STO_GBL
:
6096 fprintf (file
, _("STO_GBL (store global) %.*s\n"),
6099 case ETIR__C_STO_CA
:
6100 fprintf (file
, _("STO_CA (store code address) %.*s\n"),
6103 case ETIR__C_STO_RB
:
6104 fprintf (file
, _("STO_RB (store relative branch)\n"));
6106 case ETIR__C_STO_AB
:
6107 fprintf (file
, _("STO_AB (store absolute branch)\n"));
6109 case ETIR__C_STO_OFF
:
6110 fprintf (file
, _("STO_OFF (store offset to psect)\n"));
6112 case ETIR__C_STO_IMM
:
6114 unsigned int len
= bfd_getl32 (buf
);
6116 _("STO_IMM (store immediate) %u bytes\n"),
6118 evax_bfd_print_hex (file
, " ", buf
+ 4, len
);
6122 case ETIR__C_STO_GBL_LW
:
6123 fprintf (file
, _("STO_GBL_LW (store global longword) %.*s\n"),
6126 case ETIR__C_STO_LP_PSB
:
6127 fprintf (file
, _("STO_OFF (store LP with procedure signature)\n"));
6129 case ETIR__C_STO_HINT_GBL
:
6130 fprintf (file
, _("STO_BR_GBL (store branch global) *todo*\n"));
6132 case ETIR__C_STO_HINT_PS
:
6133 fprintf (file
, _("STO_BR_PS (store branch psect + offset) *todo*\n"));
6136 case ETIR__C_OPR_NOP
:
6137 fprintf (file
, _("OPR_NOP (no-operation)\n"));
6139 case ETIR__C_OPR_ADD
:
6140 fprintf (file
, _("OPR_ADD (add)\n"));
6142 case ETIR__C_OPR_SUB
:
6143 fprintf (file
, _("OPR_SUB (substract)\n"));
6145 case ETIR__C_OPR_MUL
:
6146 fprintf (file
, _("OPR_MUL (multiply)\n"));
6148 case ETIR__C_OPR_DIV
:
6149 fprintf (file
, _("OPR_DIV (divide)\n"));
6151 case ETIR__C_OPR_AND
:
6152 fprintf (file
, _("OPR_AND (logical and)\n"));
6154 case ETIR__C_OPR_IOR
:
6155 fprintf (file
, _("OPR_IOR (logical inclusive or)\n"));
6157 case ETIR__C_OPR_EOR
:
6158 fprintf (file
, _("OPR_EOR (logical exclusive or)\n"));
6160 case ETIR__C_OPR_NEG
:
6161 fprintf (file
, _("OPR_NEG (negate)\n"));
6163 case ETIR__C_OPR_COM
:
6164 fprintf (file
, _("OPR_COM (complement)\n"));
6166 case ETIR__C_OPR_INSV
:
6167 fprintf (file
, _("OPR_INSV (insert field)\n"));
6169 case ETIR__C_OPR_ASH
:
6170 fprintf (file
, _("OPR_ASH (arithmetic shift)\n"));
6172 case ETIR__C_OPR_USH
:
6173 fprintf (file
, _("OPR_USH (unsigned shift)\n"));
6175 case ETIR__C_OPR_ROT
:
6176 fprintf (file
, _("OPR_ROT (rotate)\n"));
6178 case ETIR__C_OPR_SEL
:
6179 fprintf (file
, _("OPR_SEL (select)\n"));
6181 case ETIR__C_OPR_REDEF
:
6182 fprintf (file
, _("OPR_REDEF (redefine symbol to curr location)\n"));
6184 case ETIR__C_OPR_DFLIT
:
6185 fprintf (file
, _("OPR_REDEF (define a literal)\n"));
6188 case ETIR__C_STC_LP
:
6189 fprintf (file
, _("STC_LP (store cond linkage pair)\n"));
6191 case ETIR__C_STC_LP_PSB
:
6193 _("STC_LP_PSB (store cond linkage pair + signature)\n"));
6194 fprintf (file
, _(" linkage index: %u, procedure: %.*s\n"),
6195 (unsigned)bfd_getl32 (buf
), buf
[4], buf
+ 5);
6196 buf
+= 4 + 1 + buf
[4];
6197 fprintf (file
, _(" signature: %.*s\n"), buf
[0], buf
+ 1);
6199 case ETIR__C_STC_GBL
:
6200 fprintf (file
, _("STC_GBL (store cond global)\n"));
6201 fprintf (file
, _(" linkage index: %u, global: %.*s\n"),
6202 (unsigned)bfd_getl32 (buf
), buf
[4], buf
+ 5);
6204 case ETIR__C_STC_GCA
:
6205 fprintf (file
, _("STC_GCA (store cond code address)\n"));
6206 fprintf (file
, _(" linkage index: %u, procedure name: %.*s\n"),
6207 (unsigned)bfd_getl32 (buf
), buf
[4], buf
+ 5);
6209 case ETIR__C_STC_PS
:
6210 fprintf (file
, _("STC_PS (store cond psect + offset)\n"));
6212 _(" linkage index: %u, psect: %u, offset: 0x%08x %08x\n"),
6213 (unsigned)bfd_getl32 (buf
),
6214 (unsigned)bfd_getl32 (buf
+ 4),
6215 (unsigned)bfd_getl32 (buf
+ 12),
6216 (unsigned)bfd_getl32 (buf
+ 8));
6218 case ETIR__C_STC_NOP_GBL
:
6219 fprintf (file
, _("STC_NOP_GBL (store cond NOP at global addr)\n"));
6220 evax_bfd_print_etir_stc_ir (file
, buf
, 0);
6222 case ETIR__C_STC_NOP_PS
:
6223 fprintf (file
, _("STC_NOP_PS (store cond NOP at psect + offset)\n"));
6224 evax_bfd_print_etir_stc_ir (file
, buf
, 1);
6226 case ETIR__C_STC_BSR_GBL
:
6227 fprintf (file
, _("STC_BSR_GBL (store cond BSR at global addr)\n"));
6228 evax_bfd_print_etir_stc_ir (file
, buf
, 0);
6230 case ETIR__C_STC_BSR_PS
:
6231 fprintf (file
, _("STC_BSR_PS (store cond BSR at psect + offset)\n"));
6232 evax_bfd_print_etir_stc_ir (file
, buf
, 1);
6234 case ETIR__C_STC_LDA_GBL
:
6235 fprintf (file
, _("STC_LDA_GBL (store cond LDA at global addr)\n"));
6236 evax_bfd_print_etir_stc_ir (file
, buf
, 0);
6238 case ETIR__C_STC_LDA_PS
:
6239 fprintf (file
, _("STC_LDA_PS (store cond LDA at psect + offset)\n"));
6240 evax_bfd_print_etir_stc_ir (file
, buf
, 1);
6242 case ETIR__C_STC_BOH_GBL
:
6243 fprintf (file
, _("STC_BOH_GBL (store cond BOH at global addr)\n"));
6244 evax_bfd_print_etir_stc_ir (file
, buf
, 0);
6246 case ETIR__C_STC_BOH_PS
:
6247 fprintf (file
, _("STC_BOH_PS (store cond BOH at psect + offset)\n"));
6248 evax_bfd_print_etir_stc_ir (file
, buf
, 1);
6250 case ETIR__C_STC_NBH_GBL
:
6252 _("STC_NBH_GBL (store cond or hint at global addr)\n"));
6254 case ETIR__C_STC_NBH_PS
:
6256 _("STC_NBH_PS (store cond or hint at psect + offset)\n"));
6259 case ETIR__C_CTL_SETRB
:
6260 fprintf (file
, _("CTL_SETRB (set relocation base)\n"));
6263 case ETIR__C_CTL_AUGRB
:
6265 unsigned int val
= bfd_getl32 (buf
);
6266 fprintf (file
, _("CTL_AUGRB (augment relocation base) %u\n"), val
);
6269 case ETIR__C_CTL_DFLOC
:
6270 fprintf (file
, _("CTL_DFLOC (define location)\n"));
6272 case ETIR__C_CTL_STLOC
:
6273 fprintf (file
, _("CTL_STLOC (set location)\n"));
6275 case ETIR__C_CTL_STKDL
:
6276 fprintf (file
, _("CTL_STKDL (stack defined location)\n"));
6279 fprintf (file
, _("*unhandled*\n"));
6287 evax_bfd_print_eobj (struct bfd
*abfd
, FILE *file
)
6289 bfd_boolean is_first
= TRUE
;
6290 bfd_boolean has_records
= FALSE
;
6294 unsigned int rec_len
;
6295 unsigned int pad_len
;
6297 unsigned int hdr_size
;
6302 unsigned char buf
[6];
6307 if (bfd_bread (buf
, sizeof (buf
), abfd
) != sizeof (buf
))
6309 fprintf (file
, _("cannot read GST record length\n"));
6312 rec_len
= bfd_getl16 (buf
+ 0);
6313 if (rec_len
== bfd_getl16 (buf
+ 4)
6314 && bfd_getl16 (buf
+ 2) == EOBJ__C_EMH
)
6316 /* The format is raw: record-size, type, record-size. */
6318 pad_len
= (rec_len
+ 1) & ~1U;
6321 else if (rec_len
== EOBJ__C_EMH
)
6323 has_records
= FALSE
;
6324 pad_len
= bfd_getl16 (buf
+ 2);
6330 fprintf (file
, _("cannot find EMH in first GST record\n"));
6333 rec
= bfd_malloc (pad_len
);
6334 memcpy (rec
, buf
+ sizeof (buf
) - hdr_size
, hdr_size
);
6338 unsigned int rec_len2
= 0;
6339 unsigned char hdr
[4];
6343 unsigned char buf_len
[2];
6345 if (bfd_bread (buf_len
, sizeof (buf_len
), abfd
)
6346 != sizeof (buf_len
))
6348 fprintf (file
, _("cannot read GST record length\n"));
6351 rec_len2
= (unsigned)bfd_getl16 (buf_len
);
6354 if (bfd_bread (hdr
, sizeof (hdr
), abfd
) != sizeof (hdr
))
6356 fprintf (file
, _("cannot read GST record header\n"));
6359 rec_len
= (unsigned)bfd_getl16 (hdr
+ 2);
6361 pad_len
= (rec_len
+ 1) & ~1U;
6364 rec
= bfd_malloc (pad_len
);
6365 memcpy (rec
, hdr
, sizeof (hdr
));
6366 hdr_size
= sizeof (hdr
);
6367 if (has_records
&& rec_len2
!= rec_len
)
6369 fprintf (file
, _(" corrupted GST\n"));
6374 if (bfd_bread (rec
+ hdr_size
, pad_len
- hdr_size
, abfd
)
6375 != pad_len
- hdr_size
)
6377 fprintf (file
, _("cannot read GST record\n"));
6381 type
= (unsigned)bfd_getl16 (rec
);
6386 evax_bfd_print_emh (file
, rec
, rec_len
);
6389 evax_bfd_print_egsd (file
, rec
, rec_len
);
6392 evax_bfd_print_eeom (file
, rec
, rec_len
);
6397 evax_bfd_print_etir (file
, "ETIR", rec
, rec_len
);
6400 evax_bfd_print_etir (file
, "EDBG", rec
, rec_len
);
6403 evax_bfd_print_etir (file
, "ETBT", rec
, rec_len
);
6406 fprintf (file
, _(" unhandled EOBJ record type %u\n"), type
);
6414 evax_bfd_print_relocation_records (FILE *file
, const unsigned char *rel
,
6415 unsigned int stride
)
6423 count
= bfd_getl32 (rel
+ 0);
6427 base
= bfd_getl32 (rel
+ 4);
6429 fprintf (file
, _(" bitcount: %u, base addr: 0x%08x\n"),
6433 for (j
= 0; count
> 0; j
+= 4, count
-= 32)
6439 val
= bfd_getl32 (rel
);
6442 fprintf (file
, _(" bitmap: 0x%08x (count: %u):\n"), val
, count
);
6444 for (k
= 0; k
< 32; k
++)
6449 fprintf (file
, _(" %08x"), base
+ (j
* 8 + k
) * stride
);
6464 evax_bfd_print_address_fixups (FILE *file
, const unsigned char *rel
)
6471 count
= bfd_getl32 (rel
+ 0);
6474 fprintf (file
, _(" image %u (%u entries)\n"),
6475 (unsigned)bfd_getl32 (rel
+ 4), count
);
6477 for (j
= 0; j
< count
; j
++)
6479 fprintf (file
, _(" offset: 0x%08x, val: 0x%08x\n"),
6480 (unsigned)bfd_getl32 (rel
+ 0),
6481 (unsigned)bfd_getl32 (rel
+ 4));
6488 evax_bfd_print_reference_fixups (FILE *file
, const unsigned char *rel
)
6497 count
= bfd_getl32 (rel
+ 0);
6500 fprintf (file
, _(" image %u (%u entries), offsets:\n"),
6501 (unsigned)bfd_getl32 (rel
+ 4), count
);
6503 for (j
= 0; j
< count
; j
++)
6507 fprintf (file
, _(" 0x%08x"), (unsigned)bfd_getl32 (rel
));
6522 evax_bfd_print_indent (int indent
, FILE *file
)
6524 for (; indent
; indent
--)
6529 evax_bfd_get_dsc_name (unsigned int v
)
6533 case DSC__K_DTYPE_Z
:
6534 return "Z (Unspecified)";
6535 case DSC__K_DTYPE_V
:
6537 case DSC__K_DTYPE_BU
:
6538 return "BU (Byte logical)";
6539 case DSC__K_DTYPE_WU
:
6540 return "WU (Word logical)";
6541 case DSC__K_DTYPE_LU
:
6542 return "LU (Longword logical)";
6543 case DSC__K_DTYPE_QU
:
6544 return "QU (Quadword logical)";
6545 case DSC__K_DTYPE_B
:
6546 return "B (Byte integer)";
6547 case DSC__K_DTYPE_W
:
6548 return "W (Word integer)";
6549 case DSC__K_DTYPE_L
:
6550 return "L (Longword integer)";
6551 case DSC__K_DTYPE_Q
:
6552 return "Q (Quadword integer)";
6553 case DSC__K_DTYPE_F
:
6554 return "F (Single-precision floating)";
6555 case DSC__K_DTYPE_D
:
6556 return "D (Double-precision floating)";
6557 case DSC__K_DTYPE_FC
:
6558 return "FC (Complex)";
6559 case DSC__K_DTYPE_DC
:
6560 return "DC (Double-precision Complex)";
6561 case DSC__K_DTYPE_T
:
6562 return "T (ASCII text string)";
6563 case DSC__K_DTYPE_NU
:
6564 return "NU (Numeric string, unsigned)";
6565 case DSC__K_DTYPE_NL
:
6566 return "NL (Numeric string, left separate sign)";
6567 case DSC__K_DTYPE_NLO
:
6568 return "NLO (Numeric string, left overpunched sign)";
6569 case DSC__K_DTYPE_NR
:
6570 return "NR (Numeric string, right separate sign)";
6571 case DSC__K_DTYPE_NRO
:
6572 return "NRO (Numeric string, right overpunched sig)";
6573 case DSC__K_DTYPE_NZ
:
6574 return "NZ (Numeric string, zoned sign)";
6575 case DSC__K_DTYPE_P
:
6576 return "P (Packed decimal string)";
6577 case DSC__K_DTYPE_ZI
:
6578 return "ZI (Sequence of instructions)";
6579 case DSC__K_DTYPE_ZEM
:
6580 return "ZEM (Procedure entry mask)";
6581 case DSC__K_DTYPE_DSC
:
6582 return "DSC (Descriptor, used for arrays of dyn strings)";
6583 case DSC__K_DTYPE_OU
:
6584 return "OU (Octaword logical)";
6585 case DSC__K_DTYPE_O
:
6586 return "O (Octaword integer)";
6587 case DSC__K_DTYPE_G
:
6588 return "G (Double precision G floating, 64 bit)";
6589 case DSC__K_DTYPE_H
:
6590 return "H (Quadruple precision floating, 128 bit)";
6591 case DSC__K_DTYPE_GC
:
6592 return "GC (Double precision complex, G floating)";
6593 case DSC__K_DTYPE_HC
:
6594 return "HC (Quadruple precision complex, H floating)";
6595 case DSC__K_DTYPE_CIT
:
6596 return "CIT (COBOL intermediate temporary)";
6597 case DSC__K_DTYPE_BPV
:
6598 return "BPV (Bound Procedure Value)";
6599 case DSC__K_DTYPE_BLV
:
6600 return "BLV (Bound Label Value)";
6601 case DSC__K_DTYPE_VU
:
6602 return "VU (Bit Unaligned)";
6603 case DSC__K_DTYPE_ADT
:
6604 return "ADT (Absolute Date-Time)";
6605 case DSC__K_DTYPE_VT
:
6606 return "VT (Varying Text)";
6607 case DSC__K_DTYPE_T2
:
6608 return "T2 (16-bit char)";
6609 case DSC__K_DTYPE_VT2
:
6610 return "VT2 (16-bit varying char)";
6612 return "?? (unknown)";
6617 evax_bfd_print_desc (const unsigned char *buf
, int indent
, FILE *file
)
6619 unsigned char bclass
= buf
[3];
6620 unsigned char dtype
= buf
[2];
6621 unsigned int len
= (unsigned)bfd_getl16 (buf
);
6622 unsigned int pointer
= (unsigned)bfd_getl32 (buf
+ 4);
6624 evax_bfd_print_indent (indent
, file
);
6626 if (len
== 1 && pointer
== 0xffffffffUL
)
6629 fprintf (file
, _("64 bits *unhandled*\n"));
6633 fprintf (file
, _("class: %u, dtype: %u, length: %u, pointer: 0x%08x\n"),
6634 bclass
, dtype
, len
, pointer
);
6637 case DSC__K_CLASS_NCA
:
6639 const struct vms_dsc_nca
*dsc
= (const void *)buf
;
6641 const unsigned char *b
;
6643 evax_bfd_print_indent (indent
, file
);
6644 fprintf (file
, _("non-contiguous array of %s\n"),
6645 evax_bfd_get_dsc_name (dsc
->dtype
));
6646 evax_bfd_print_indent (indent
+ 1, file
);
6648 _("dimct: %u, aflags: 0x%02x, digits: %u, scale: %u\n"),
6649 dsc
->dimct
, dsc
->aflags
, dsc
->digits
, dsc
->scale
);
6650 evax_bfd_print_indent (indent
+ 1, file
);
6652 _("arsize: %u, a0: 0x%08x\n"),
6653 (unsigned)bfd_getl32 (dsc
->arsize
),
6654 (unsigned)bfd_getl32 (dsc
->a0
));
6655 evax_bfd_print_indent (indent
+ 1, file
);
6656 fprintf (file
, _("Strides:\n"));
6657 b
= buf
+ sizeof (*dsc
);
6658 for (i
= 0; i
< dsc
->dimct
; i
++)
6660 evax_bfd_print_indent (indent
+ 2, file
);
6661 fprintf (file
, _("[%u]: %u\n"), i
+ 1,
6662 (unsigned)bfd_getl32 (b
));
6665 evax_bfd_print_indent (indent
+ 1, file
);
6666 fprintf (file
, _("Bounds:\n"));
6667 b
= buf
+ sizeof (*dsc
);
6668 for (i
= 0; i
< dsc
->dimct
; i
++)
6670 evax_bfd_print_indent (indent
+ 2, file
);
6671 fprintf (file
, _("[%u]: Lower: %u, upper: %u\n"), i
+ 1,
6672 (unsigned)bfd_getl32 (b
+ 0),
6673 (unsigned)bfd_getl32 (b
+ 4));
6678 case DSC__K_CLASS_UBS
:
6680 const struct vms_dsc_ubs
*ubs
= (const void *)buf
;
6682 evax_bfd_print_indent (indent
, file
);
6683 fprintf (file
, _("unaligned bit-string of %s\n"),
6684 evax_bfd_get_dsc_name (ubs
->dtype
));
6685 evax_bfd_print_indent (indent
+ 1, file
);
6687 _("base: %u, pos: %u\n"),
6688 (unsigned)bfd_getl32 (ubs
->base
),
6689 (unsigned)bfd_getl32 (ubs
->pos
));
6693 fprintf (file
, _("*unhandled*\n"));
6700 evax_bfd_print_valspec (const unsigned char *buf
, int indent
, FILE *file
)
6702 unsigned int vflags
= buf
[0];
6703 unsigned int value
= (unsigned)bfd_getl32 (buf
+ 1);
6704 unsigned int len
= 5;
6706 evax_bfd_print_indent (indent
, file
);
6707 fprintf (file
, _("vflags: 0x%02x, value: 0x%08x "), vflags
, value
);
6712 case DST__K_VFLAGS_NOVAL
:
6713 fprintf (file
, _("(no value)\n"));
6715 case DST__K_VFLAGS_NOTACTIVE
:
6716 fprintf (file
, _("(not active)\n"));
6718 case DST__K_VFLAGS_UNALLOC
:
6719 fprintf (file
, _("(not allocated)\n"));
6721 case DST__K_VFLAGS_DSC
:
6722 fprintf (file
, _("(descriptor)\n"));
6723 evax_bfd_print_desc (buf
+ value
, indent
+ 1, file
);
6725 case DST__K_VFLAGS_TVS
:
6726 fprintf (file
, _("(trailing value)\n"));
6728 case DST__K_VS_FOLLOWS
:
6729 fprintf (file
, _("(value spec follows)\n"));
6731 case DST__K_VFLAGS_BITOFFS
:
6732 fprintf (file
, _("(at bit offset %u)\n"), value
);
6735 fprintf (file
, _("(reg: %u, disp: %u, indir: %u, kind: "),
6736 (vflags
& DST__K_REGNUM_MASK
) >> DST__K_REGNUM_SHIFT
,
6737 vflags
& DST__K_DISP
? 1 : 0,
6738 vflags
& DST__K_INDIR
? 1 : 0);
6739 switch (vflags
& DST__K_VALKIND_MASK
)
6741 case DST__K_VALKIND_LITERAL
:
6742 fputs (_("literal"), file
);
6744 case DST__K_VALKIND_ADDR
:
6745 fputs (_("address"), file
);
6747 case DST__K_VALKIND_DESC
:
6748 fputs (_("desc"), file
);
6750 case DST__K_VALKIND_REG
:
6751 fputs (_("reg"), file
);
6754 fputs (")\n", file
);
6761 evax_bfd_print_typspec (const unsigned char *buf
, int indent
, FILE *file
)
6763 unsigned char kind
= buf
[2];
6764 unsigned int len
= (unsigned)bfd_getl16 (buf
);
6766 evax_bfd_print_indent (indent
, file
);
6767 fprintf (file
, ("len: %2u, kind: %2u "), len
, kind
);
6771 case DST__K_TS_ATOM
:
6772 fprintf (file
, ("atomic, type=0x%02x %s\n"),
6773 buf
[0], evax_bfd_get_dsc_name (buf
[0]));
6776 fprintf (file
, ("indirect, defined at 0x%08x\n"),
6777 (unsigned)bfd_getl32 (buf
));
6779 case DST__K_TS_TPTR
:
6780 fprintf (file
, ("typed pointer\n"));
6781 evax_bfd_print_typspec (buf
, indent
+ 1, file
);
6784 fprintf (file
, ("pointer\n"));
6786 case DST__K_TS_ARRAY
:
6788 const unsigned char *vs
;
6789 unsigned int vec_len
;
6792 fprintf (file
, ("array, dim: %u, bitmap: "), buf
[0]);
6793 vec_len
= (buf
[0] + 1 + 7) / 8;
6794 for (i
= 0; i
< vec_len
; i
++)
6795 fprintf (file
, " %02x", buf
[i
+ 1]);
6797 vs
= buf
+ 1 + vec_len
;
6798 evax_bfd_print_indent (indent
, file
);
6799 fprintf (file
, ("array descriptor:\n"));
6800 vs
+= evax_bfd_print_valspec (vs
, indent
+ 1, file
);
6801 for (i
= 0; i
< buf
[0] + 1U; i
++)
6802 if (buf
[1 + i
/ 8] & (1 << (i
% 8)))
6804 evax_bfd_print_indent (indent
, file
);
6806 fprintf (file
, ("type spec for element:\n"));
6808 fprintf (file
, ("type spec for subscript %u:\n"), i
);
6809 evax_bfd_print_typspec (vs
, indent
+ 1, file
);
6810 vs
+= bfd_getl16 (vs
);
6815 fprintf (file
, ("*unhandled*\n"));
6820 evax_bfd_print_dst (struct bfd
*abfd
, unsigned int dst_size
, FILE *file
)
6822 unsigned int off
= 0;
6823 unsigned int pc
= 0;
6824 unsigned int line
= 0;
6826 fprintf (file
, _("Debug symbol table:\n"));
6828 while (dst_size
> 0)
6830 struct vms_dst_header dsth
;
6835 if (bfd_bread (&dsth
, sizeof (dsth
), abfd
) != sizeof (dsth
))
6837 fprintf (file
, _("cannot read DST header\n"));
6840 len
= bfd_getl16 (dsth
.length
);
6841 type
= bfd_getl16 (dsth
.type
);
6842 fprintf (file
, _(" type: %3u, len: %3u (at 0x%08x): "),
6852 len
-= sizeof (dsth
);
6853 buf
= bfd_malloc (len
);
6854 if (bfd_bread (buf
, len
, abfd
) != len
)
6856 fprintf (file
, _("cannot read DST symbol\n"));
6861 case DSC__K_DTYPE_V
:
6862 case DSC__K_DTYPE_BU
:
6863 case DSC__K_DTYPE_WU
:
6864 case DSC__K_DTYPE_LU
:
6865 case DSC__K_DTYPE_QU
:
6866 case DSC__K_DTYPE_B
:
6867 case DSC__K_DTYPE_W
:
6868 case DSC__K_DTYPE_L
:
6869 case DSC__K_DTYPE_Q
:
6870 case DSC__K_DTYPE_F
:
6871 case DSC__K_DTYPE_D
:
6872 case DSC__K_DTYPE_FC
:
6873 case DSC__K_DTYPE_DC
:
6874 case DSC__K_DTYPE_T
:
6875 case DSC__K_DTYPE_NU
:
6876 case DSC__K_DTYPE_NL
:
6877 case DSC__K_DTYPE_NLO
:
6878 case DSC__K_DTYPE_NR
:
6879 case DSC__K_DTYPE_NRO
:
6880 case DSC__K_DTYPE_NZ
:
6881 case DSC__K_DTYPE_P
:
6882 case DSC__K_DTYPE_ZI
:
6883 case DSC__K_DTYPE_ZEM
:
6884 case DSC__K_DTYPE_DSC
:
6885 case DSC__K_DTYPE_OU
:
6886 case DSC__K_DTYPE_O
:
6887 case DSC__K_DTYPE_G
:
6888 case DSC__K_DTYPE_H
:
6889 case DSC__K_DTYPE_GC
:
6890 case DSC__K_DTYPE_HC
:
6891 case DSC__K_DTYPE_CIT
:
6892 case DSC__K_DTYPE_BPV
:
6893 case DSC__K_DTYPE_BLV
:
6894 case DSC__K_DTYPE_VU
:
6895 case DSC__K_DTYPE_ADT
:
6896 case DSC__K_DTYPE_VT
:
6897 case DSC__K_DTYPE_T2
:
6898 case DSC__K_DTYPE_VT2
:
6899 fprintf (file
, _("standard data: %s\n"),
6900 evax_bfd_get_dsc_name (type
));
6901 evax_bfd_print_valspec (buf
, 4, file
);
6902 fprintf (file
, _(" name: %.*s\n"), buf
[5], buf
+ 6);
6906 struct vms_dst_modbeg
*dst
= (void *)buf
;
6907 const char *name
= (const char *)buf
+ sizeof (*dst
);
6909 fprintf (file
, _("modbeg\n"));
6910 fprintf (file
, _(" flags: %d, language: %u, "
6911 "major: %u, minor: %u\n"),
6913 (unsigned)bfd_getl32 (dst
->language
),
6914 (unsigned)bfd_getl16 (dst
->major
),
6915 (unsigned)bfd_getl16 (dst
->minor
));
6916 fprintf (file
, _(" module name: %.*s\n"),
6918 name
+= name
[0] + 1;
6919 fprintf (file
, _(" compiler : %.*s\n"),
6924 fprintf (file
, _("modend\n"));
6928 struct vms_dst_rtnbeg
*dst
= (void *)buf
;
6929 const char *name
= (const char *)buf
+ sizeof (*dst
);
6931 fputs (_("rtnbeg\n"), file
);
6932 fprintf (file
, _(" flags: %u, address: 0x%08x, "
6933 "pd-address: 0x%08x\n"),
6935 (unsigned)bfd_getl32 (dst
->address
),
6936 (unsigned)bfd_getl32 (dst
->pd_address
));
6937 fprintf (file
, _(" routine name: %.*s\n"),
6943 struct vms_dst_rtnend
*dst
= (void *)buf
;
6945 fprintf (file
, _("rtnend: size 0x%08x\n"),
6946 (unsigned)bfd_getl32 (dst
->size
));
6951 struct vms_dst_prolog
*dst
= (void *)buf
;
6953 fprintf (file
, _("prolog: bkpt address 0x%08x\n"),
6954 (unsigned)bfd_getl32 (dst
->bkpt_addr
));
6959 struct vms_dst_epilog
*dst
= (void *)buf
;
6961 fprintf (file
, _("epilog: flags: %u, count: %u\n"),
6962 dst
->flags
, (unsigned)bfd_getl32 (dst
->count
));
6967 struct vms_dst_blkbeg
*dst
= (void *)buf
;
6968 const char *name
= (const char *)buf
+ sizeof (*dst
);
6970 fprintf (file
, _("blkbeg: address: 0x%08x, name: %.*s\n"),
6971 (unsigned)bfd_getl32 (dst
->address
),
6977 struct vms_dst_blkend
*dst
= (void *)buf
;
6979 fprintf (file
, _("blkend: size: 0x%08x\n"),
6980 (unsigned)bfd_getl32 (dst
->size
));
6983 case DST__K_TYPSPEC
:
6985 fprintf (file
, _("typspec (len: %u)\n"), len
);
6986 fprintf (file
, _(" name: %.*s\n"), buf
[0], buf
+ 1);
6987 evax_bfd_print_typspec (buf
+ 1 + buf
[0], 5, file
);
6992 fprintf (file
, _("septyp, name: %.*s\n"), buf
[5], buf
+ 6);
6993 evax_bfd_print_valspec (buf
, 4, file
);
6998 struct vms_dst_recbeg
*recbeg
= (void *)buf
;
6999 const char *name
= (const char *)buf
+ sizeof (*recbeg
);
7001 fprintf (file
, _("recbeg: name: %.*s\n"), name
[0], name
+ 1);
7002 evax_bfd_print_valspec (buf
, 4, file
);
7003 fprintf (file
, (" len: %u bits\n"),
7004 (unsigned)bfd_getl32 (name
+ 1 + name
[0]));
7008 fprintf (file
, _("recend\n"));
7010 case DST__K_ENUMBEG
:
7011 fprintf (file
, _("enumbeg, len: %u, name: %.*s\n"),
7012 buf
[0], buf
[1], buf
+ 2);
7014 case DST__K_ENUMELT
:
7015 fprintf (file
, _("enumelt, name: %.*s\n"), buf
[5], buf
+ 6);
7016 evax_bfd_print_valspec (buf
, 4, file
);
7018 case DST__K_ENUMEND
:
7019 fprintf (file
, _("enumend\n"));
7023 struct vms_dst_label
*lab
= (void *)buf
;
7024 fprintf (file
, ("label, name: %.*s\n"),
7025 lab
->name
[0], lab
->name
+ 1);
7026 fprintf (file
, (" address: 0x%08x\n"),
7027 (unsigned)bfd_getl32 (lab
->value
));
7030 case DST__K_DIS_RANGE
:
7032 unsigned int cnt
= bfd_getl32 (buf
);
7033 unsigned char *rng
= buf
+ 4;
7036 fprintf (file
, _("discontiguous range (nbr: %u)\n"), cnt
);
7037 for (i
= 0; i
< cnt
; i
++, rng
+= 8)
7038 fprintf (file
, _(" address: 0x%08x, size: %u\n"),
7039 (unsigned)bfd_getl32 (rng
),
7040 (unsigned)bfd_getl32 (rng
+ 4));
7044 case DST__K_LINE_NUM
:
7046 unsigned char *buf_orig
= buf
;
7048 fprintf (file
, _("line num (len: %u)\n"), len
);
7053 unsigned char cmdlen
;
7063 case DST__K_DELTA_PC_W
:
7064 val
= bfd_getl16 (buf
+ 1);
7065 fprintf (file
, _("delta_pc_w %u\n"), val
);
7070 case DST__K_INCR_LINUM
:
7072 fprintf (file
, _("incr_linum(b): +%u\n"), val
);
7076 case DST__K_INCR_LINUM_W
:
7077 val
= bfd_getl16 (buf
+ 1);
7078 fprintf (file
, _("incr_linum_w: +%u\n"), val
);
7082 case DST__K_INCR_LINUM_L
:
7083 val
= bfd_getl32 (buf
+ 1);
7084 fprintf (file
, _("incr_linum_l: +%u\n"), val
);
7088 case DST__K_SET_LINUM
:
7089 line
= bfd_getl16 (buf
+ 1);
7090 fprintf (file
, _("set_line_num(w) %u\n"), line
);
7093 case DST__K_SET_LINUM_B
:
7095 fprintf (file
, _("set_line_num_b %u\n"), line
);
7098 case DST__K_SET_LINUM_L
:
7099 line
= bfd_getl32 (buf
+ 1);
7100 fprintf (file
, _("set_line_num_l %u\n"), line
);
7103 case DST__K_SET_ABS_PC
:
7104 pc
= bfd_getl32 (buf
+ 1);
7105 fprintf (file
, _("set_abs_pc: 0x%08x\n"), pc
);
7108 case DST__K_DELTA_PC_L
:
7109 fprintf (file
, _("delta_pc_l: +0x%08x\n"),
7110 (unsigned)bfd_getl32 (buf
+ 1));
7114 fprintf (file
, _("term(b): 0x%02x"), buf
[1]);
7116 fprintf (file
, _(" pc: 0x%08x\n"), pc
);
7120 val
= bfd_getl16 (buf
+ 1);
7121 fprintf (file
, _("term_w: 0x%04x"), val
);
7123 fprintf (file
, _(" pc: 0x%08x\n"), pc
);
7129 fprintf (file
, _("delta pc +%-4d"), -cmd
);
7130 line
++; /* FIXME: curr increment. */
7132 fprintf (file
, _(" pc: 0x%08x line: %5u\n"),
7137 fprintf (file
, _(" *unhandled* cmd %u\n"), cmd
);
7150 unsigned char *buf_orig
= buf
;
7152 fprintf (file
, _("source (len: %u)\n"), len
);
7156 signed char cmd
= buf
[0];
7157 unsigned char cmdlen
= 0;
7161 case DST__K_SRC_DECLFILE
:
7163 struct vms_dst_src_decl_src
*src
= (void *)(buf
+ 1);
7166 fprintf (file
, _(" declfile: len: %u, flags: %u, "
7168 src
->length
, src
->flags
,
7169 (unsigned)bfd_getl16 (src
->fileid
));
7170 fprintf (file
, _(" rms: cdt: 0x%08x %08x, "
7171 "ebk: 0x%08x, ffb: 0x%04x, "
7173 (unsigned)bfd_getl32 (src
->rms_cdt
+ 4),
7174 (unsigned)bfd_getl32 (src
->rms_cdt
+ 0),
7175 (unsigned)bfd_getl32 (src
->rms_ebk
),
7176 (unsigned)bfd_getl16 (src
->rms_ffb
),
7178 name
= (const char *)buf
+ 1 + sizeof (*src
);
7179 fprintf (file
, _(" filename : %.*s\n"),
7181 name
+= name
[0] + 1;
7182 fprintf (file
, _(" module name: %.*s\n"),
7184 cmdlen
= 2 + src
->length
;
7187 case DST__K_SRC_SETFILE
:
7188 fprintf (file
, _(" setfile %u\n"),
7189 (unsigned)bfd_getl16 (buf
+ 1));
7192 case DST__K_SRC_SETREC_W
:
7193 fprintf (file
, _(" setrec %u\n"),
7194 (unsigned)bfd_getl16 (buf
+ 1));
7197 case DST__K_SRC_SETREC_L
:
7198 fprintf (file
, _(" setrec %u\n"),
7199 (unsigned)bfd_getl32 (buf
+ 1));
7202 case DST__K_SRC_SETLNUM_W
:
7203 fprintf (file
, _(" setlnum %u\n"),
7204 (unsigned)bfd_getl16 (buf
+ 1));
7207 case DST__K_SRC_SETLNUM_L
:
7208 fprintf (file
, _(" setlnum %u\n"),
7209 (unsigned)bfd_getl32 (buf
+ 1));
7212 case DST__K_SRC_DEFLINES_W
:
7213 fprintf (file
, _(" deflines %u\n"),
7214 (unsigned)bfd_getl16 (buf
+ 1));
7217 case DST__K_SRC_DEFLINES_B
:
7218 fprintf (file
, _(" deflines %u\n"), buf
[1]);
7221 case DST__K_SRC_FORMFEED
:
7222 fprintf (file
, _(" formfeed\n"));
7226 fprintf (file
, _(" *unhandled* cmd %u\n"), cmd
);
7238 fprintf (file
, _("*unhandled* dst type %u\n"), type
);
7246 evax_bfd_print_image (bfd
*abfd
, FILE *file
)
7248 struct vms_eihd eihd
;
7251 unsigned int eiha_off
;
7252 unsigned int eihi_off
;
7253 unsigned int eihs_off
;
7254 unsigned int eisd_off
;
7255 unsigned int eihef_off
= 0;
7256 unsigned int eihnp_off
= 0;
7257 unsigned int dmt_vbn
= 0;
7258 unsigned int dmt_size
= 0;
7259 unsigned int dst_vbn
= 0;
7260 unsigned int dst_size
= 0;
7261 unsigned int gst_vbn
= 0;
7262 unsigned int gst_size
= 0;
7263 unsigned int eiaf_vbn
= 0;
7264 unsigned int eiaf_size
= 0;
7265 unsigned int eihvn_off
;
7267 if (bfd_seek (abfd
, (file_ptr
) 0, SEEK_SET
)
7268 || bfd_bread (&eihd
, sizeof (eihd
), abfd
) != sizeof (eihd
))
7270 fprintf (file
, _("cannot read EIHD\n"));
7273 fprintf (file
, _("EIHD: (size: %u, nbr blocks: %u)\n"),
7274 (unsigned)bfd_getl32 (eihd
.size
),
7275 (unsigned)bfd_getl32 (eihd
.hdrblkcnt
));
7276 fprintf (file
, _(" majorid: %u, minorid: %u\n"),
7277 (unsigned)bfd_getl32 (eihd
.majorid
),
7278 (unsigned)bfd_getl32 (eihd
.minorid
));
7280 val
= (unsigned)bfd_getl32 (eihd
.imgtype
);
7284 name
= _("executable");
7287 name
= _("linkable image");
7290 name
= _("unknown");
7293 fprintf (file
, _(" image type: %u (%s)"), val
, name
);
7295 val
= (unsigned)bfd_getl32 (eihd
.subtype
);
7298 case EIHD__C_NATIVE
:
7305 name
= _("unknown");
7308 fprintf (file
, _(", subtype: %u (%s)\n"), val
, name
);
7310 eisd_off
= bfd_getl32 (eihd
.isdoff
);
7311 eiha_off
= bfd_getl32 (eihd
.activoff
);
7312 eihi_off
= bfd_getl32 (eihd
.imgidoff
);
7313 eihs_off
= bfd_getl32 (eihd
.symdbgoff
);
7314 fprintf (file
, _(" offsets: isd: %u, activ: %u, symdbg: %u, "
7315 "imgid: %u, patch: %u\n"),
7316 eisd_off
, eiha_off
, eihs_off
, eihi_off
,
7317 (unsigned)bfd_getl32 (eihd
.patchoff
));
7318 fprintf (file
, _(" fixup info rva: "));
7319 bfd_fprintf_vma (abfd
, file
, bfd_getl64 (eihd
.iafva
));
7320 fprintf (file
, _(", symbol vector rva: "));
7321 bfd_fprintf_vma (abfd
, file
, bfd_getl64 (eihd
.symvva
));
7322 eihvn_off
= bfd_getl32 (eihd
.version_array_off
);
7323 fprintf (file
, _("\n"
7324 " version array off: %u\n"),
7327 _(" img I/O count: %u, nbr channels: %u, req pri: %08x%08x\n"),
7328 (unsigned)bfd_getl32 (eihd
.imgiocnt
),
7329 (unsigned)bfd_getl32 (eihd
.iochancnt
),
7330 (unsigned)bfd_getl32 (eihd
.privreqs
+ 4),
7331 (unsigned)bfd_getl32 (eihd
.privreqs
+ 0));
7332 val
= (unsigned)bfd_getl32 (eihd
.lnkflags
);
7333 fprintf (file
, _(" linker flags: %08x:"), val
);
7334 if (val
& EIHD__M_LNKDEBUG
)
7335 fprintf (file
, " LNKDEBUG");
7336 if (val
& EIHD__M_LNKNOTFR
)
7337 fprintf (file
, " LNKNOTFR");
7338 if (val
& EIHD__M_NOP0BUFS
)
7339 fprintf (file
, " NOP0BUFS");
7340 if (val
& EIHD__M_PICIMG
)
7341 fprintf (file
, " PICIMG");
7342 if (val
& EIHD__M_P0IMAGE
)
7343 fprintf (file
, " P0IMAGE");
7344 if (val
& EIHD__M_DBGDMT
)
7345 fprintf (file
, " DBGDMT");
7346 if (val
& EIHD__M_INISHR
)
7347 fprintf (file
, " INISHR");
7348 if (val
& EIHD__M_XLATED
)
7349 fprintf (file
, " XLATED");
7350 if (val
& EIHD__M_BIND_CODE_SEC
)
7351 fprintf (file
, " BIND_CODE_SEC");
7352 if (val
& EIHD__M_BIND_DATA_SEC
)
7353 fprintf (file
, " BIND_DATA_SEC");
7354 if (val
& EIHD__M_MKTHREADS
)
7355 fprintf (file
, " MKTHREADS");
7356 if (val
& EIHD__M_UPCALLS
)
7357 fprintf (file
, " UPCALLS");
7358 if (val
& EIHD__M_OMV_READY
)
7359 fprintf (file
, " OMV_READY");
7360 if (val
& EIHD__M_EXT_BIND_SECT
)
7361 fprintf (file
, " EXT_BIND_SECT");
7362 fprintf (file
, "\n");
7363 fprintf (file
, _(" ident: 0x%08x, sysver: 0x%08x, "
7364 "match ctrl: %u, symvect_size: %u\n"),
7365 (unsigned)bfd_getl32 (eihd
.ident
),
7366 (unsigned)bfd_getl32 (eihd
.sysver
),
7368 (unsigned)bfd_getl32 (eihd
.symvect_size
));
7369 fprintf (file
, _(" BPAGE: %u"),
7370 (unsigned)bfd_getl32 (eihd
.virt_mem_block_size
));
7371 if (val
& (EIHD__M_OMV_READY
| EIHD__M_EXT_BIND_SECT
))
7373 eihef_off
= bfd_getl32 (eihd
.ext_fixup_off
);
7374 eihnp_off
= bfd_getl32 (eihd
.noopt_psect_off
);
7375 fprintf (file
, _(", ext fixup offset: %u, no_opt psect off: %u"),
7376 eihef_off
, eihnp_off
);
7378 fprintf (file
, _(", alias: %u\n"), (unsigned)bfd_getl16 (eihd
.alias
));
7382 struct vms_eihvn eihvn
;
7386 fprintf (file
, _("system version array information:\n"));
7387 if (bfd_seek (abfd
, (file_ptr
) eihvn_off
, SEEK_SET
)
7388 || bfd_bread (&eihvn
, sizeof (eihvn
), abfd
) != sizeof (eihvn
))
7390 fprintf (file
, _("cannot read EIHVN header\n"));
7393 mask
= bfd_getl32 (eihvn
.subsystem_mask
);
7394 for (j
= 0; j
< 32; j
++)
7395 if (mask
& (1 << j
))
7397 struct vms_eihvn_subversion ver
;
7398 if (bfd_bread (&ver
, sizeof (ver
), abfd
) != sizeof (ver
))
7400 fprintf (file
, _("cannot read EIHVN version\n"));
7403 fprintf (file
, _(" %02u "), j
);
7406 case EIHVN__BASE_IMAGE_BIT
:
7407 fputs (_("BASE_IMAGE "), file
);
7409 case EIHVN__MEMORY_MANAGEMENT_BIT
:
7410 fputs (_("MEMORY_MANAGEMENT"), file
);
7413 fputs (_("IO "), file
);
7415 case EIHVN__FILES_VOLUMES_BIT
:
7416 fputs (_("FILES_VOLUMES "), file
);
7418 case EIHVN__PROCESS_SCHED_BIT
:
7419 fputs (_("PROCESS_SCHED "), file
);
7421 case EIHVN__SYSGEN_BIT
:
7422 fputs (_("SYSGEN "), file
);
7424 case EIHVN__CLUSTERS_LOCKMGR_BIT
:
7425 fputs (_("CLUSTERS_LOCKMGR "), file
);
7427 case EIHVN__LOGICAL_NAMES_BIT
:
7428 fputs (_("LOGICAL_NAMES "), file
);
7430 case EIHVN__SECURITY_BIT
:
7431 fputs (_("SECURITY "), file
);
7433 case EIHVN__IMAGE_ACTIVATOR_BIT
:
7434 fputs (_("IMAGE_ACTIVATOR "), file
);
7436 case EIHVN__NETWORKS_BIT
:
7437 fputs (_("NETWORKS "), file
);
7439 case EIHVN__COUNTERS_BIT
:
7440 fputs (_("COUNTERS "), file
);
7442 case EIHVN__STABLE_BIT
:
7443 fputs (_("STABLE "), file
);
7445 case EIHVN__MISC_BIT
:
7446 fputs (_("MISC "), file
);
7448 case EIHVN__CPU_BIT
:
7449 fputs (_("CPU "), file
);
7451 case EIHVN__VOLATILE_BIT
:
7452 fputs (_("VOLATILE "), file
);
7454 case EIHVN__SHELL_BIT
:
7455 fputs (_("SHELL "), file
);
7457 case EIHVN__POSIX_BIT
:
7458 fputs (_("POSIX "), file
);
7460 case EIHVN__MULTI_PROCESSING_BIT
:
7461 fputs (_("MULTI_PROCESSING "), file
);
7463 case EIHVN__GALAXY_BIT
:
7464 fputs (_("GALAXY "), file
);
7467 fputs (_("*unknown* "), file
);
7470 fprintf (file
, _(": %u.%u\n"),
7471 (unsigned)bfd_getl16 (ver
.major
),
7472 (unsigned)bfd_getl16 (ver
.minor
));
7478 struct vms_eiha eiha
;
7480 if (bfd_seek (abfd
, (file_ptr
) eiha_off
, SEEK_SET
)
7481 || bfd_bread (&eiha
, sizeof (eiha
), abfd
) != sizeof (eiha
))
7483 fprintf (file
, _("cannot read EIHA\n"));
7486 fprintf (file
, _("Image activation: (size=%u)\n"),
7487 (unsigned)bfd_getl32 (eiha
.size
));
7488 fprintf (file
, _(" First address : 0x%08x 0x%08x\n"),
7489 (unsigned)bfd_getl32 (eiha
.tfradr1_h
),
7490 (unsigned)bfd_getl32 (eiha
.tfradr1
));
7491 fprintf (file
, _(" Second address: 0x%08x 0x%08x\n"),
7492 (unsigned)bfd_getl32 (eiha
.tfradr2_h
),
7493 (unsigned)bfd_getl32 (eiha
.tfradr2
));
7494 fprintf (file
, _(" Third address : 0x%08x 0x%08x\n"),
7495 (unsigned)bfd_getl32 (eiha
.tfradr3_h
),
7496 (unsigned)bfd_getl32 (eiha
.tfradr3
));
7497 fprintf (file
, _(" Fourth address: 0x%08x 0x%08x\n"),
7498 (unsigned)bfd_getl32 (eiha
.tfradr4_h
),
7499 (unsigned)bfd_getl32 (eiha
.tfradr4
));
7500 fprintf (file
, _(" Shared image : 0x%08x 0x%08x\n"),
7501 (unsigned)bfd_getl32 (eiha
.inishr_h
),
7502 (unsigned)bfd_getl32 (eiha
.inishr
));
7506 struct vms_eihi eihi
;
7508 if (bfd_seek (abfd
, (file_ptr
) eihi_off
, SEEK_SET
)
7509 || bfd_bread (&eihi
, sizeof (eihi
), abfd
) != sizeof (eihi
))
7511 fprintf (file
, _("cannot read EIHI\n"));
7514 fprintf (file
, _("Image identification: (major: %u, minor: %u)\n"),
7515 (unsigned)bfd_getl32 (eihi
.majorid
),
7516 (unsigned)bfd_getl32 (eihi
.minorid
));
7517 fprintf (file
, _(" image name : %.*s\n"),
7518 eihi
.imgnam
[0], eihi
.imgnam
+ 1);
7519 fprintf (file
, _(" link time : %s\n"),
7520 vms_time_to_str (eihi
.linktime
));
7521 fprintf (file
, _(" image ident : %.*s\n"),
7522 eihi
.imgid
[0], eihi
.imgid
+ 1);
7523 fprintf (file
, _(" linker ident : %.*s\n"),
7524 eihi
.linkid
[0], eihi
.linkid
+ 1);
7525 fprintf (file
, _(" image build ident: %.*s\n"),
7526 eihi
.imgbid
[0], eihi
.imgbid
+ 1);
7530 struct vms_eihs eihs
;
7532 if (bfd_seek (abfd
, (file_ptr
) eihs_off
, SEEK_SET
)
7533 || bfd_bread (&eihs
, sizeof (eihs
), abfd
) != sizeof (eihs
))
7535 fprintf (file
, _("cannot read EIHS\n"));
7538 fprintf (file
, _("Image symbol & debug table: (major: %u, minor: %u)\n"),
7539 (unsigned)bfd_getl32 (eihs
.majorid
),
7540 (unsigned)bfd_getl32 (eihs
.minorid
));
7541 dst_vbn
= bfd_getl32 (eihs
.dstvbn
);
7542 dst_size
= bfd_getl32 (eihs
.dstsize
);
7543 fprintf (file
, _(" debug symbol table : vbn: %u, size: %u (0x%x)\n"),
7544 dst_vbn
, dst_size
, dst_size
);
7545 gst_vbn
= bfd_getl32 (eihs
.gstvbn
);
7546 gst_size
= bfd_getl32 (eihs
.gstsize
);
7547 fprintf (file
, _(" global symbol table: vbn: %u, records: %u\n"),
7549 dmt_vbn
= bfd_getl32 (eihs
.dmtvbn
);
7550 dmt_size
= bfd_getl32 (eihs
.dmtsize
);
7551 fprintf (file
, _(" debug module table : vbn: %u, size: %u\n"),
7554 while (eisd_off
!= 0)
7556 struct vms_eisd eisd
;
7561 if (bfd_seek (abfd
, (file_ptr
) eisd_off
, SEEK_SET
)
7562 || bfd_bread (&eisd
, sizeof (eisd
), abfd
) != sizeof (eisd
))
7564 fprintf (file
, _("cannot read EISD\n"));
7567 len
= (unsigned)bfd_getl32 (eisd
.eisdsize
);
7568 if (len
!= (unsigned)-1)
7572 eisd_off
= (eisd_off
+ VMS_BLOCK_SIZE
) & ~(VMS_BLOCK_SIZE
- 1);
7574 fprintf (file
, _("Image section descriptor: (major: %u, minor: %u, "
7575 "size: %u, offset: %u)\n"),
7576 (unsigned)bfd_getl32 (eisd
.majorid
),
7577 (unsigned)bfd_getl32 (eisd
.minorid
),
7581 fprintf (file
, _(" section: base: 0x%08x%08x size: 0x%08x\n"),
7582 (unsigned)bfd_getl32 (eisd
.virt_addr
+ 4),
7583 (unsigned)bfd_getl32 (eisd
.virt_addr
+ 0),
7584 (unsigned)bfd_getl32 (eisd
.secsize
));
7585 val
= (unsigned)bfd_getl32 (eisd
.flags
);
7586 fprintf (file
, _(" flags: 0x%04x"), val
);
7587 if (val
& EISD__M_GBL
)
7588 fprintf (file
, " GBL");
7589 if (val
& EISD__M_CRF
)
7590 fprintf (file
, " CRF");
7591 if (val
& EISD__M_DZRO
)
7592 fprintf (file
, " DZRO");
7593 if (val
& EISD__M_WRT
)
7594 fprintf (file
, " WRT");
7595 if (val
& EISD__M_INITALCODE
)
7596 fprintf (file
, " INITALCODE");
7597 if (val
& EISD__M_BASED
)
7598 fprintf (file
, " BASED");
7599 if (val
& EISD__M_FIXUPVEC
)
7600 fprintf (file
, " FIXUPVEC");
7601 if (val
& EISD__M_RESIDENT
)
7602 fprintf (file
, " RESIDENT");
7603 if (val
& EISD__M_VECTOR
)
7604 fprintf (file
, " VECTOR");
7605 if (val
& EISD__M_PROTECT
)
7606 fprintf (file
, " PROTECT");
7607 if (val
& EISD__M_LASTCLU
)
7608 fprintf (file
, " LASTCLU");
7609 if (val
& EISD__M_EXE
)
7610 fprintf (file
, " EXE");
7611 if (val
& EISD__M_NONSHRADR
)
7612 fprintf (file
, " NONSHRADR");
7613 if (val
& EISD__M_QUAD_LENGTH
)
7614 fprintf (file
, " QUAD_LENGTH");
7615 if (val
& EISD__M_ALLOC_64BIT
)
7616 fprintf (file
, " ALLOC_64BIT");
7617 fprintf (file
, "\n");
7618 if (val
& EISD__M_FIXUPVEC
)
7620 eiaf_vbn
= bfd_getl32 (eisd
.vbn
);
7621 eiaf_size
= bfd_getl32 (eisd
.secsize
);
7623 fprintf (file
, _(" vbn: %u, pfc: %u, matchctl: %u type: %u ("),
7624 (unsigned)bfd_getl32 (eisd
.vbn
),
7625 eisd
.pfc
, eisd
.matchctl
, eisd
.type
);
7628 case EISD__K_NORMAL
:
7629 fputs (_("NORMAL"), file
);
7631 case EISD__K_SHRFXD
:
7632 fputs (_("SHRFXD"), file
);
7634 case EISD__K_PRVFXD
:
7635 fputs (_("PRVFXD"), file
);
7637 case EISD__K_SHRPIC
:
7638 fputs (_("SHRPIC"), file
);
7640 case EISD__K_PRVPIC
:
7641 fputs (_("PRVPIC"), file
);
7643 case EISD__K_USRSTACK
:
7644 fputs (_("USRSTACK"), file
);
7647 fputs (_("*unknown*"), file
);
7650 fputs (_(")\n"), file
);
7651 if (val
& EISD__M_GBL
)
7652 fprintf (file
, _(" ident: 0x%08x, name: %.*s\n"),
7653 (unsigned)bfd_getl32 (eisd
.ident
),
7654 eisd
.gblnam
[0], eisd
.gblnam
+ 1);
7660 if (bfd_seek (abfd
, (file_ptr
) (dmt_vbn
- 1) * VMS_BLOCK_SIZE
, SEEK_SET
))
7662 fprintf (file
, _("cannot read DMT\n"));
7666 fprintf (file
, _("Debug module table:\n"));
7668 while (dmt_size
> 0)
7670 struct vms_dmt_header dmth
;
7673 if (bfd_bread (&dmth
, sizeof (dmth
), abfd
) != sizeof (dmth
))
7675 fprintf (file
, _("cannot read DMT header\n"));
7678 count
= bfd_getl16 (dmth
.psect_count
);
7680 _(" module offset: 0x%08x, size: 0x%08x, (%u psects)\n"),
7681 (unsigned)bfd_getl32 (dmth
.modbeg
),
7682 (unsigned)bfd_getl32 (dmth
.size
), count
);
7683 dmt_size
-= sizeof (dmth
);
7686 struct vms_dmt_psect dmtp
;
7688 if (bfd_bread (&dmtp
, sizeof (dmtp
), abfd
) != sizeof (dmtp
))
7690 fprintf (file
, _("cannot read DMT psect\n"));
7693 fprintf (file
, _(" psect start: 0x%08x, length: %u\n"),
7694 (unsigned)bfd_getl32 (dmtp
.start
),
7695 (unsigned)bfd_getl32 (dmtp
.length
));
7697 dmt_size
-= sizeof (dmtp
);
7704 if (bfd_seek (abfd
, (file_ptr
) (dst_vbn
- 1) * VMS_BLOCK_SIZE
, SEEK_SET
))
7706 fprintf (file
, _("cannot read DST\n"));
7710 evax_bfd_print_dst (abfd
, dst_size
, file
);
7714 if (bfd_seek (abfd
, (file_ptr
) (gst_vbn
- 1) * VMS_BLOCK_SIZE
, SEEK_SET
))
7716 fprintf (file
, _("cannot read GST\n"));
7720 fprintf (file
, _("Global symbol table:\n"));
7721 evax_bfd_print_eobj (abfd
, file
);
7726 struct vms_eiaf
*eiaf
;
7727 unsigned int qrelfixoff
;
7728 unsigned int lrelfixoff
;
7729 unsigned int qdotadroff
;
7730 unsigned int ldotadroff
;
7731 unsigned int shrimgcnt
;
7732 unsigned int shlstoff
;
7733 unsigned int codeadroff
;
7734 unsigned int lpfixoff
;
7735 unsigned int chgprtoff
;
7737 buf
= bfd_malloc (eiaf_size
);
7739 if (bfd_seek (abfd
, (file_ptr
) (eiaf_vbn
- 1) * VMS_BLOCK_SIZE
, SEEK_SET
)
7740 || bfd_bread (buf
, eiaf_size
, abfd
) != eiaf_size
)
7742 fprintf (file
, _("cannot read EIHA\n"));
7746 eiaf
= (struct vms_eiaf
*)buf
;
7748 _("Image activator fixup: (major: %u, minor: %u)\n"),
7749 (unsigned)bfd_getl32 (eiaf
->majorid
),
7750 (unsigned)bfd_getl32 (eiaf
->minorid
));
7751 fprintf (file
, _(" iaflink : 0x%08x %08x\n"),
7752 (unsigned)bfd_getl32 (eiaf
->iaflink
+ 0),
7753 (unsigned)bfd_getl32 (eiaf
->iaflink
+ 4));
7754 fprintf (file
, _(" fixuplnk: 0x%08x %08x\n"),
7755 (unsigned)bfd_getl32 (eiaf
->fixuplnk
+ 0),
7756 (unsigned)bfd_getl32 (eiaf
->fixuplnk
+ 4));
7757 fprintf (file
, _(" size : %u\n"),
7758 (unsigned)bfd_getl32 (eiaf
->size
));
7759 fprintf (file
, _(" flags: 0x%08x\n"),
7760 (unsigned)bfd_getl32 (eiaf
->flags
));
7761 qrelfixoff
= bfd_getl32 (eiaf
->qrelfixoff
);
7762 lrelfixoff
= bfd_getl32 (eiaf
->lrelfixoff
);
7763 fprintf (file
, _(" qrelfixoff: %5u, lrelfixoff: %5u\n"),
7764 qrelfixoff
, lrelfixoff
);
7765 qdotadroff
= bfd_getl32 (eiaf
->qdotadroff
);
7766 ldotadroff
= bfd_getl32 (eiaf
->ldotadroff
);
7767 fprintf (file
, _(" qdotadroff: %5u, ldotadroff: %5u\n"),
7768 qdotadroff
, ldotadroff
);
7769 codeadroff
= bfd_getl32 (eiaf
->codeadroff
);
7770 lpfixoff
= bfd_getl32 (eiaf
->lpfixoff
);
7771 fprintf (file
, _(" codeadroff: %5u, lpfixoff : %5u\n"),
7772 codeadroff
, lpfixoff
);
7773 chgprtoff
= bfd_getl32 (eiaf
->chgprtoff
);
7774 fprintf (file
, _(" chgprtoff : %5u\n"), chgprtoff
);
7775 shrimgcnt
= bfd_getl32 (eiaf
->shrimgcnt
);
7776 shlstoff
= bfd_getl32 (eiaf
->shlstoff
);
7777 fprintf (file
, _(" shlstoff : %5u, shrimgcnt : %5u\n"),
7778 shlstoff
, shrimgcnt
);
7779 fprintf (file
, _(" shlextra : %5u, permctx : %5u\n"),
7780 (unsigned)bfd_getl32 (eiaf
->shlextra
),
7781 (unsigned)bfd_getl32 (eiaf
->permctx
));
7782 fprintf (file
, _(" base_va : 0x%08x\n"),
7783 (unsigned)bfd_getl32 (eiaf
->base_va
));
7784 fprintf (file
, _(" lppsbfixoff: %5u\n"),
7785 (unsigned)bfd_getl32 (eiaf
->lppsbfixoff
));
7789 struct vms_shl
*shl
= (struct vms_shl
*)(buf
+ shlstoff
);
7792 fprintf (file
, _(" Shareable images:\n"));
7793 for (j
= 0; j
< shrimgcnt
; j
++, shl
++)
7796 _(" %u: size: %u, flags: 0x%02x, name: %.*s\n"),
7797 j
, shl
->size
, shl
->flags
,
7798 shl
->imgnam
[0], shl
->imgnam
+ 1);
7801 if (qrelfixoff
!= 0)
7803 fprintf (file
, _(" quad-word relocation fixups:\n"));
7804 evax_bfd_print_relocation_records (file
, buf
+ qrelfixoff
, 8);
7806 if (lrelfixoff
!= 0)
7808 fprintf (file
, _(" long-word relocation fixups:\n"));
7809 evax_bfd_print_relocation_records (file
, buf
+ lrelfixoff
, 4);
7811 if (qdotadroff
!= 0)
7813 fprintf (file
, _(" quad-word .address reference fixups:\n"));
7814 evax_bfd_print_address_fixups (file
, buf
+ qdotadroff
);
7816 if (ldotadroff
!= 0)
7818 fprintf (file
, _(" long-word .address reference fixups:\n"));
7819 evax_bfd_print_address_fixups (file
, buf
+ ldotadroff
);
7821 if (codeadroff
!= 0)
7823 fprintf (file
, _(" Code Address Reference Fixups:\n"));
7824 evax_bfd_print_reference_fixups (file
, buf
+ codeadroff
);
7828 fprintf (file
, _(" Linkage Pairs Referece Fixups:\n"));
7829 evax_bfd_print_reference_fixups (file
, buf
+ lpfixoff
);
7833 unsigned int count
= (unsigned)bfd_getl32 (buf
+ chgprtoff
);
7834 struct vms_eicp
*eicp
= (struct vms_eicp
*)(buf
+ chgprtoff
+ 4);
7837 fprintf (file
, _(" Change Protection (%u entries):\n"), count
);
7838 for (j
= 0; j
< count
; j
++, eicp
++)
7840 unsigned int prot
= bfd_getl32 (eicp
->newprt
);
7842 _(" base: 0x%08x %08x, size: 0x%08x, prot: 0x%08x "),
7843 (unsigned)bfd_getl32 (eicp
->baseva
+ 4),
7844 (unsigned)bfd_getl32 (eicp
->baseva
+ 0),
7845 (unsigned)bfd_getl32 (eicp
->size
),
7846 (unsigned)bfd_getl32 (eicp
->newprt
));
7850 fprintf (file
, "NA");
7852 case PRT__C_RESERVED
:
7853 fprintf (file
, "RES");
7856 fprintf (file
, "KW");
7859 fprintf (file
, "KR");
7862 fprintf (file
, "UW");
7865 fprintf (file
, "EW");
7868 fprintf (file
, "ERKW");
7871 fprintf (file
, "ER");
7874 fprintf (file
, "SW");
7877 fprintf (file
, "SREW");
7880 fprintf (file
, "SRKW");
7883 fprintf (file
, "SR");
7886 fprintf (file
, "URSW");
7889 fprintf (file
, "UREW");
7892 fprintf (file
, "URKW");
7895 fprintf (file
, "UR");
7909 vms_bfd_print_private_bfd_data (bfd
*abfd
, void *ptr
)
7911 FILE *file
= (FILE *)ptr
;
7913 if (bfd_get_file_flags (abfd
) & (EXEC_P
| DYNAMIC
))
7914 evax_bfd_print_image (abfd
, file
);
7917 if (bfd_seek (abfd
, 0, SEEK_SET
))
7919 evax_bfd_print_eobj (abfd
, file
);
7926 /* Slurp ETIR/EDBG/ETBT VMS object records. */
7929 alpha_vms_read_sections_content (bfd
*abfd
, struct bfd_link_info
*info
)
7931 asection
*cur_section
;
7932 file_ptr cur_offset
;
7933 asection
*dst_section
;
7934 file_ptr dst_offset
;
7936 if (bfd_seek (abfd
, 0, SEEK_SET
) != 0)
7942 dst_section
= PRIV (dst_section
);
7946 if (info
->strip
== strip_all
|| info
->strip
== strip_debugger
)
7948 /* Discard the DST section. */
7952 else if (dst_section
)
7954 dst_offset
= dst_section
->output_offset
;
7955 dst_section
= dst_section
->output_section
;
7964 type
= _bfd_vms_get_object_record (abfd
);
7967 vms_debug2 ((2, "next_record failed\n"));
7973 PRIV (image_section
) = cur_section
;
7974 PRIV (image_offset
) = cur_offset
;
7975 res
= _bfd_vms_slurp_etir (abfd
, info
);
7976 cur_section
= PRIV (image_section
);
7977 cur_offset
= PRIV (image_offset
);
7981 if (dst_section
== NULL
)
7983 PRIV (image_section
) = dst_section
;
7984 PRIV (image_offset
) = dst_offset
;
7985 res
= _bfd_vms_slurp_etir (abfd
, info
);
7986 dst_offset
= PRIV (image_offset
);
7995 vms_debug2 ((2, "slurp eobj type %d failed\n", type
));
8002 alpha_vms_sizeof_headers (bfd
*abfd ATTRIBUTE_UNUSED
,
8003 struct bfd_link_info
*info ATTRIBUTE_UNUSED
)
8008 /* Add a linkage pair fixup at address SECT + OFFSET to SHLIB. */
8011 alpha_vms_add_fixup_lp (struct bfd_link_info
*info
, bfd
*src
, bfd
*shlib
)
8013 struct alpha_vms_shlib_el
*sl
;
8014 asection
*sect
= PRIV2 (src
, image_section
);
8015 file_ptr offset
= PRIV2 (src
, image_offset
);
8017 sl
= &VEC_EL (alpha_vms_link_hash (info
)->shrlibs
,
8018 struct alpha_vms_shlib_el
, PRIV2 (shlib
, shr_index
));
8019 sl
->has_fixups
= TRUE
;
8020 VEC_APPEND_EL (sl
->lp
, bfd_vma
,
8021 sect
->output_section
->vma
+ sect
->output_offset
+ offset
);
8025 alpha_vms_add_fixup_ca (struct bfd_link_info
*info
, bfd
*src
, bfd
*shlib
)
8027 struct alpha_vms_shlib_el
*sl
;
8028 asection
*sect
= PRIV2 (src
, image_section
);
8029 file_ptr offset
= PRIV2 (src
, image_offset
);
8031 sl
= &VEC_EL (alpha_vms_link_hash (info
)->shrlibs
,
8032 struct alpha_vms_shlib_el
, PRIV2 (shlib
, shr_index
));
8033 sl
->has_fixups
= TRUE
;
8034 VEC_APPEND_EL (sl
->ca
, bfd_vma
,
8035 sect
->output_section
->vma
+ sect
->output_offset
+ offset
);
8039 alpha_vms_add_fixup_qr (struct bfd_link_info
*info
, bfd
*src
,
8040 bfd
*shlib
, bfd_vma vec
)
8042 struct alpha_vms_shlib_el
*sl
;
8043 struct alpha_vms_vma_ref
*r
;
8044 asection
*sect
= PRIV2 (src
, image_section
);
8045 file_ptr offset
= PRIV2 (src
, image_offset
);
8047 sl
= &VEC_EL (alpha_vms_link_hash (info
)->shrlibs
,
8048 struct alpha_vms_shlib_el
, PRIV2 (shlib
, shr_index
));
8049 sl
->has_fixups
= TRUE
;
8050 r
= VEC_APPEND (sl
->qr
, struct alpha_vms_vma_ref
);
8051 r
->vma
= sect
->output_section
->vma
+ sect
->output_offset
+ offset
;
8056 alpha_vms_add_lw_fixup (struct bfd_link_info
*info ATTRIBUTE_UNUSED
,
8057 unsigned int shr ATTRIBUTE_UNUSED
,
8058 bfd_vma vec ATTRIBUTE_UNUSED
)
8065 alpha_vms_add_qw_fixup (struct bfd_link_info
*info ATTRIBUTE_UNUSED
,
8066 unsigned int shr ATTRIBUTE_UNUSED
,
8067 bfd_vma vec ATTRIBUTE_UNUSED
)
8074 alpha_vms_add_lw_reloc (struct bfd_link_info
*info ATTRIBUTE_UNUSED
)
8079 alpha_vms_add_qw_reloc (struct bfd_link_info
*info ATTRIBUTE_UNUSED
)
8083 static struct bfd_hash_entry
*
8084 alpha_vms_link_hash_newfunc (struct bfd_hash_entry
*entry
,
8085 struct bfd_hash_table
*table
,
8088 struct alpha_vms_link_hash_entry
*ret
=
8089 (struct alpha_vms_link_hash_entry
*) entry
;
8091 /* Allocate the structure if it has not already been allocated by a
8094 ret
= ((struct alpha_vms_link_hash_entry
*)
8095 bfd_hash_allocate (table
,
8096 sizeof (struct alpha_vms_link_hash_entry
)));
8100 /* Call the allocation method of the superclass. */
8101 ret
= ((struct alpha_vms_link_hash_entry
*)
8102 _bfd_link_hash_newfunc ((struct bfd_hash_entry
*) ret
,
8107 return (struct bfd_hash_entry
*) ret
;
8110 /* Create an Alpha/VMS link hash table. */
8112 static struct bfd_link_hash_table
*
8113 alpha_vms_bfd_link_hash_table_create (bfd
*abfd
)
8115 struct alpha_vms_link_hash_table
*ret
;
8116 bfd_size_type amt
= sizeof (struct alpha_vms_link_hash_table
);
8118 ret
= (struct alpha_vms_link_hash_table
*) bfd_malloc (amt
);
8121 if (!_bfd_link_hash_table_init (&ret
->root
, abfd
,
8122 alpha_vms_link_hash_newfunc
,
8123 sizeof (struct alpha_vms_link_hash_entry
)))
8129 VEC_INIT (ret
->shrlibs
);
8136 alpha_vms_link_add_object_symbols (bfd
*abfd
, struct bfd_link_info
*info
)
8140 for (i
= 0; i
< PRIV (gsd_sym_count
); i
++)
8142 struct vms_symbol_entry
*e
= PRIV (syms
)[i
];
8143 struct alpha_vms_link_hash_entry
*h
;
8144 struct bfd_link_hash_entry
*h_root
;
8147 if (!alpha_vms_convert_symbol (abfd
, e
, &sym
))
8150 if ((e
->flags
& EGSY__V_DEF
) && abfd
->selective_search
)
8152 /* In selective_search mode, only add definition that are
8154 h
= (struct alpha_vms_link_hash_entry
*)bfd_link_hash_lookup
8155 (info
->hash
, sym
.name
, FALSE
, FALSE
, FALSE
);
8156 if (h
== NULL
|| h
->root
.type
!= bfd_link_hash_undefined
)
8162 h_root
= (struct bfd_link_hash_entry
*) h
;
8163 if (_bfd_generic_link_add_one_symbol
8164 (info
, abfd
, sym
.name
, sym
.flags
, sym
.section
, sym
.value
,
8165 NULL
, FALSE
, FALSE
, &h_root
) == FALSE
)
8167 h
= (struct alpha_vms_link_hash_entry
*) h_root
;
8169 if ((e
->flags
& EGSY__V_DEF
)
8171 && abfd
->xvec
== info
->output_bfd
->xvec
)
8175 if (abfd
->flags
& DYNAMIC
)
8177 struct alpha_vms_shlib_el
*shlib
;
8179 /* We do not want to include any of the sections in a dynamic
8180 object in the output file. See comment in elflink.c. */
8181 bfd_section_list_clear (abfd
);
8183 shlib
= VEC_APPEND (alpha_vms_link_hash (info
)->shrlibs
,
8184 struct alpha_vms_shlib_el
);
8186 VEC_INIT (shlib
->ca
);
8187 VEC_INIT (shlib
->lp
);
8188 VEC_INIT (shlib
->qr
);
8189 PRIV (shr_index
) = VEC_COUNT (alpha_vms_link_hash (info
)->shrlibs
) - 1;
8196 alpha_vms_link_add_archive_symbols (bfd
*abfd
, struct bfd_link_info
*info
)
8199 struct bfd_link_hash_entry
**pundef
;
8200 struct bfd_link_hash_entry
**next_pundef
;
8202 /* We only accept VMS libraries. */
8203 if (info
->output_bfd
->xvec
!= abfd
->xvec
)
8205 bfd_set_error (bfd_error_wrong_format
);
8209 /* The archive_pass field in the archive itself is used to
8210 initialize PASS, since we may search the same archive multiple
8212 pass
= ++abfd
->archive_pass
;
8214 /* Look through the list of undefined symbols. */
8215 for (pundef
= &info
->hash
->undefs
; *pundef
!= NULL
; pundef
= next_pundef
)
8217 struct bfd_link_hash_entry
*h
;
8223 next_pundef
= &(*pundef
)->u
.undef
.next
;
8225 /* When a symbol is defined, it is not necessarily removed from
8227 if (h
->type
!= bfd_link_hash_undefined
8228 && h
->type
!= bfd_link_hash_common
)
8230 /* Remove this entry from the list, for general cleanliness
8231 and because we are going to look through the list again
8232 if we search any more libraries. We can't remove the
8233 entry if it is the tail, because that would lose any
8234 entries we add to the list later on. */
8235 if (*pundef
!= info
->hash
->undefs_tail
)
8237 *pundef
= *next_pundef
;
8238 next_pundef
= pundef
;
8243 /* Look for this symbol in the archive hash table. */
8244 symidx
= _bfd_vms_lib_find_symbol (abfd
, h
->root
.string
);
8245 if (symidx
== BFD_NO_MORE_SYMBOLS
)
8247 /* Nothing in this slot. */
8251 element
= bfd_get_elt_at_index (abfd
, symidx
);
8252 if (element
== NULL
)
8255 if (element
->archive_pass
== -1 || element
->archive_pass
== pass
)
8258 if (! bfd_check_format (element
, bfd_object
))
8260 element
->archive_pass
= -1;
8264 orig_element
= element
;
8265 if (bfd_is_thin_archive (abfd
))
8267 element
= _bfd_vms_lib_get_imagelib_file (element
);
8268 if (element
== NULL
|| !bfd_check_format (element
, bfd_object
))
8270 orig_element
->archive_pass
= -1;
8275 /* Unlike the generic linker, we know that this element provides
8276 a definition for an undefined symbol and we know that we want
8277 to include it. We don't need to check anything. */
8278 if (! (*info
->callbacks
->add_archive_element
) (info
, element
,
8281 if (! alpha_vms_link_add_object_symbols (element
, info
))
8284 orig_element
->archive_pass
= pass
;
8291 alpha_vms_bfd_link_add_symbols (bfd
*abfd
, struct bfd_link_info
*info
)
8293 switch (bfd_get_format (abfd
))
8296 vms_debug2 ((2, "vms_link_add_symbols for object %s\n",
8298 return alpha_vms_link_add_object_symbols (abfd
, info
);
8301 vms_debug2 ((2, "vms_link_add_symbols for archive %s\n",
8303 return alpha_vms_link_add_archive_symbols (abfd
, info
);
8306 bfd_set_error (bfd_error_wrong_format
);
8312 alpha_vms_build_fixups (struct bfd_link_info
*info
)
8314 struct alpha_vms_link_hash_table
*t
= alpha_vms_link_hash (info
);
8315 unsigned char *content
;
8317 unsigned int sz
= 0;
8318 unsigned int lp_sz
= 0;
8319 unsigned int ca_sz
= 0;
8320 unsigned int qr_sz
= 0;
8321 unsigned int shrimg_cnt
= 0;
8322 struct vms_eiaf
*eiaf
;
8326 /* Shared libraries. */
8327 for (i
= 0; i
< VEC_COUNT (t
->shrlibs
); i
++)
8329 struct alpha_vms_shlib_el
*shlib
;
8331 shlib
= &VEC_EL (t
->shrlibs
, struct alpha_vms_shlib_el
, i
);
8333 if (!shlib
->has_fixups
)
8338 if (VEC_COUNT (shlib
->ca
) > 0)
8340 /* Header + entries. */
8342 ca_sz
+= VEC_COUNT (shlib
->ca
) * 4;
8344 if (VEC_COUNT (shlib
->lp
) > 0)
8346 /* Header + entries. */
8348 lp_sz
+= VEC_COUNT (shlib
->lp
) * 4;
8350 if (VEC_COUNT (shlib
->qr
) > 0)
8352 /* Header + entries. */
8354 qr_sz
+= VEC_COUNT (shlib
->qr
) * 8;
8365 /* Finish now if there is no content. */
8366 if (ca_sz
+ lp_sz
+ qr_sz
== 0)
8369 /* Allocate section content (round-up size) */
8370 sz
= sizeof (struct vms_eiaf
) + shrimg_cnt
* sizeof (struct vms_shl
)
8371 + ca_sz
+ lp_sz
+ qr_sz
;
8372 sz
= (sz
+ VMS_BLOCK_SIZE
- 1) & ~(VMS_BLOCK_SIZE
- 1);
8373 content
= bfd_zalloc (info
->output_bfd
, sz
);
8374 if (content
== NULL
)
8377 sec
= alpha_vms_link_hash (info
)->fixup
;
8378 sec
->contents
= content
;
8381 eiaf
= (struct vms_eiaf
*)content
;
8382 off
= sizeof (struct vms_eiaf
);
8383 bfd_putl32 (0, eiaf
->majorid
);
8384 bfd_putl32 (0, eiaf
->minorid
);
8385 bfd_putl32 (0, eiaf
->iaflink
);
8386 bfd_putl32 (0, eiaf
->fixuplnk
);
8387 bfd_putl32 (sizeof (struct vms_eiaf
), eiaf
->size
);
8388 bfd_putl32 (0, eiaf
->flags
);
8389 bfd_putl32 (0, eiaf
->qrelfixoff
);
8390 bfd_putl32 (0, eiaf
->lrelfixoff
);
8391 bfd_putl32 (0, eiaf
->qdotadroff
);
8392 bfd_putl32 (0, eiaf
->ldotadroff
);
8393 bfd_putl32 (0, eiaf
->codeadroff
);
8394 bfd_putl32 (0, eiaf
->lpfixoff
);
8395 bfd_putl32 (0, eiaf
->chgprtoff
);
8396 bfd_putl32 (shrimg_cnt
? off
: 0, eiaf
->shlstoff
);
8397 bfd_putl32 (shrimg_cnt
, eiaf
->shrimgcnt
);
8398 bfd_putl32 (0, eiaf
->shlextra
);
8399 bfd_putl32 (0, eiaf
->permctx
);
8400 bfd_putl32 (0, eiaf
->base_va
);
8401 bfd_putl32 (0, eiaf
->lppsbfixoff
);
8408 for (i
= 0; i
< VEC_COUNT (t
->shrlibs
); i
++)
8410 struct alpha_vms_shlib_el
*shlib
;
8411 struct vms_shl
*shl
;
8413 shlib
= &VEC_EL (t
->shrlibs
, struct alpha_vms_shlib_el
, i
);
8415 if (!shlib
->has_fixups
)
8418 /* Renumber shared images. */
8419 PRIV2 (shlib
->abfd
, shr_index
) = shrimg_cnt
++;
8421 shl
= (struct vms_shl
*)(content
+ off
);
8422 bfd_putl32 (0, shl
->baseva
);
8423 bfd_putl32 (0, shl
->shlptr
);
8424 bfd_putl32 (0, shl
->ident
);
8425 bfd_putl32 (0, shl
->permctx
);
8426 shl
->size
= sizeof (struct vms_shl
);
8427 bfd_putl16 (0, shl
->fill_1
);
8429 bfd_putl32 (0, shl
->icb
);
8430 shl
->imgnam
[0] = strlen (PRIV2 (shlib
->abfd
, hdr_data
.hdr_t_name
));
8431 memcpy (shl
->imgnam
+ 1, PRIV2 (shlib
->abfd
, hdr_data
.hdr_t_name
),
8434 off
+= sizeof (struct vms_shl
);
8440 bfd_putl32 (off
, eiaf
->codeadroff
);
8442 for (i
= 0; i
< VEC_COUNT (t
->shrlibs
); i
++)
8444 struct alpha_vms_shlib_el
*shlib
;
8447 shlib
= &VEC_EL (t
->shrlibs
, struct alpha_vms_shlib_el
, i
);
8449 if (VEC_COUNT (shlib
->ca
) == 0)
8452 bfd_putl32 (VEC_COUNT (shlib
->ca
), content
+ off
);
8453 bfd_putl32 (PRIV2 (shlib
->abfd
, shr_index
), content
+ off
+ 4);
8456 for (j
= 0; j
< VEC_COUNT (shlib
->ca
); j
++)
8458 bfd_putl32 (VEC_EL (shlib
->ca
, bfd_vma
, j
) - t
->base_addr
,
8464 bfd_putl32 (0, content
+ off
);
8465 bfd_putl32 (0, content
+ off
+ 4);
8472 bfd_putl32 (off
, eiaf
->lpfixoff
);
8474 for (i
= 0; i
< VEC_COUNT (t
->shrlibs
); i
++)
8476 struct alpha_vms_shlib_el
*shlib
;
8479 shlib
= &VEC_EL (t
->shrlibs
, struct alpha_vms_shlib_el
, i
);
8481 if (VEC_COUNT (shlib
->lp
) == 0)
8484 bfd_putl32 (VEC_COUNT (shlib
->lp
), content
+ off
);
8485 bfd_putl32 (PRIV2 (shlib
->abfd
, shr_index
), content
+ off
+ 4);
8488 for (j
= 0; j
< VEC_COUNT (shlib
->lp
); j
++)
8490 bfd_putl32 (VEC_EL (shlib
->lp
, bfd_vma
, j
) - t
->base_addr
,
8496 bfd_putl32 (0, content
+ off
);
8497 bfd_putl32 (0, content
+ off
+ 4);
8504 bfd_putl32 (off
, eiaf
->qdotadroff
);
8506 for (i
= 0; i
< VEC_COUNT (t
->shrlibs
); i
++)
8508 struct alpha_vms_shlib_el
*shlib
;
8511 shlib
= &VEC_EL (t
->shrlibs
, struct alpha_vms_shlib_el
, i
);
8513 if (VEC_COUNT (shlib
->qr
) == 0)
8516 bfd_putl32 (VEC_COUNT (shlib
->qr
), content
+ off
);
8517 bfd_putl32 (PRIV2 (shlib
->abfd
, shr_index
), content
+ off
+ 4);
8520 for (j
= 0; j
< VEC_COUNT (shlib
->qr
); j
++)
8522 struct alpha_vms_vma_ref
*r
;
8523 r
= &VEC_EL (shlib
->qr
, struct alpha_vms_vma_ref
, j
);
8524 bfd_putl32 (r
->vma
- t
->base_addr
, content
+ off
);
8525 bfd_putl32 (r
->ref
, content
+ off
+ 4);
8530 bfd_putl32 (0, content
+ off
);
8531 bfd_putl32 (0, content
+ off
+ 4);
8541 /* Called by bfd_link_hash_traverse to fill the symbol table.
8542 Return FALSE in case of failure. */
8545 alpha_vms_link_output_symbol (struct bfd_link_hash_entry
*hc
, void *infov
)
8547 struct bfd_link_info
*info
= (struct bfd_link_info
*)infov
;
8548 struct alpha_vms_link_hash_entry
*h
= (struct alpha_vms_link_hash_entry
*)hc
;
8549 struct vms_symbol_entry
*sym
;
8551 switch (h
->root
.type
)
8553 case bfd_link_hash_new
:
8554 case bfd_link_hash_undefined
:
8556 case bfd_link_hash_undefweak
:
8558 case bfd_link_hash_defined
:
8559 case bfd_link_hash_defweak
:
8561 asection
*sec
= h
->root
.u
.def
.section
;
8563 /* FIXME: this is certainly a symbol from a dynamic library. */
8564 if (bfd_is_abs_section (sec
))
8567 if (sec
->owner
->flags
& DYNAMIC
)
8571 case bfd_link_hash_common
:
8573 case bfd_link_hash_indirect
:
8574 case bfd_link_hash_warning
:
8578 /* Do not write not kept symbols. */
8579 if (info
->strip
== strip_some
8580 && bfd_hash_lookup (info
->keep_hash
, h
->root
.root
.string
,
8581 FALSE
, FALSE
) != NULL
)
8586 /* This symbol doesn't come from a VMS object. So we suppose it is
8588 int len
= strlen (h
->root
.root
.string
);
8590 sym
= (struct vms_symbol_entry
*)bfd_zalloc (info
->output_bfd
,
8591 sizeof (*sym
) + len
);
8595 memcpy (sym
->name
, h
->root
.root
.string
, len
);
8597 sym
->owner
= info
->output_bfd
;
8599 sym
->typ
= EGSD__C_SYMG
;
8601 sym
->flags
= EGSY__V_DEF
| EGSY__V_REL
;
8602 sym
->symbol_vector
= h
->root
.u
.def
.value
;
8603 sym
->section
= h
->root
.u
.def
.section
;
8604 sym
->value
= h
->root
.u
.def
.value
;
8609 if (!add_symbol_entry (info
->output_bfd
, sym
))
8616 alpha_vms_bfd_final_link (bfd
*abfd
, struct bfd_link_info
*info
)
8619 struct bfd_link_order
*p
;
8627 bfd_get_outsymbols (abfd
) = NULL
;
8628 bfd_get_symcount (abfd
) = 0;
8630 /* Mark all sections which will be included in the output file. */
8631 for (o
= abfd
->sections
; o
!= NULL
; o
= o
->next
)
8632 for (p
= o
->map_head
.link_order
; p
!= NULL
; p
= p
->next
)
8633 if (p
->type
== bfd_indirect_link_order
)
8634 p
->u
.indirect
.section
->linker_mark
= TRUE
;
8637 /* Handle all the link order information for the sections. */
8638 for (o
= abfd
->sections
; o
!= NULL
; o
= o
->next
)
8640 printf ("For section %s (at 0x%08x, flags=0x%08x):\n",
8641 o
->name
, (unsigned)o
->vma
, (unsigned)o
->flags
);
8643 for (p
= o
->map_head
.link_order
; p
!= NULL
; p
= p
->next
)
8645 printf (" at 0x%08x - 0x%08x: ",
8646 (unsigned)p
->offset
, (unsigned)(p
->offset
+ p
->size
- 1));
8649 case bfd_section_reloc_link_order
:
8650 case bfd_symbol_reloc_link_order
:
8651 printf (" section/symbol reloc\n");
8653 case bfd_indirect_link_order
:
8654 printf (" section %s of %s\n",
8655 p
->u
.indirect
.section
->name
,
8656 p
->u
.indirect
.section
->owner
->filename
);
8658 case bfd_data_link_order
:
8659 printf (" explicit data\n");
8662 printf (" *unknown* type %u\n", p
->type
);
8669 /* Generate the symbol table. */
8670 BFD_ASSERT (PRIV (syms
) == NULL
);
8671 if (info
->strip
!= strip_all
)
8672 bfd_link_hash_traverse (info
->hash
, alpha_vms_link_output_symbol
, info
);
8674 /* Find the entry point. */
8675 if (bfd_get_start_address (abfd
) == 0)
8677 bfd
*startbfd
= NULL
;
8679 for (sub
= info
->input_bfds
; sub
!= NULL
; sub
= sub
->link_next
)
8681 /* Consider only VMS object files. */
8682 if (sub
->xvec
!= abfd
->xvec
)
8685 if (!PRIV2 (sub
, eom_data
).eom_has_transfer
)
8687 if ((PRIV2 (sub
, eom_data
).eom_b_tfrflg
& EEOM__M_WKTFR
) && startbfd
)
8689 if (startbfd
!= NULL
8690 && !(PRIV2 (sub
, eom_data
).eom_b_tfrflg
& EEOM__M_WKTFR
))
8692 (*info
->callbacks
->einfo
)
8693 (_("%P: multiple entry points: in modules %B and %B\n"),
8702 unsigned int ps_idx
= PRIV2 (startbfd
, eom_data
).eom_l_psindx
;
8703 bfd_vma tfradr
= PRIV2 (startbfd
, eom_data
).eom_l_tfradr
;
8706 sec
= PRIV2 (startbfd
, sections
)[ps_idx
];
8708 bfd_set_start_address
8709 (abfd
, sec
->output_section
->vma
+ sec
->output_offset
+ tfradr
);
8713 /* Set transfer addresses. */
8716 struct bfd_link_hash_entry
*h
;
8719 PRIV (transfer_address
[i
++]) = 0xffffffff00000340ULL
; /* SYS$IMGACT */
8720 h
= bfd_link_hash_lookup (info
->hash
, "LIB$INITIALIZE", FALSE
, FALSE
, TRUE
);
8721 if (h
!= NULL
&& h
->type
== bfd_link_hash_defined
)
8722 PRIV (transfer_address
[i
++]) =
8723 alpha_vms_get_sym_value (h
->u
.def
.section
, h
->u
.def
.value
);
8724 PRIV (transfer_address
[i
++]) = bfd_get_start_address (abfd
);
8726 PRIV (transfer_address
[i
++]) = 0;
8729 /* Allocate contents. */
8730 base_addr
= (bfd_vma
)-1;
8732 for (o
= abfd
->sections
; o
!= NULL
; o
= o
->next
)
8734 if (o
->flags
& SEC_HAS_CONTENTS
)
8736 o
->contents
= bfd_alloc (abfd
, o
->size
);
8737 if (o
->contents
== NULL
)
8740 if (o
->flags
& SEC_LOAD
)
8742 if (o
->vma
< base_addr
)
8744 if (o
->vma
+ o
->size
> last_addr
)
8745 last_addr
= o
->vma
+ o
->size
;
8749 /* Create the fixup section. */
8750 fixupsec
= bfd_make_section_anyway_with_flags
8751 (info
->output_bfd
, "$FIXUP$",
8752 SEC_ALLOC
| SEC_LOAD
| SEC_HAS_CONTENTS
| SEC_LINKER_CREATED
);
8753 if (fixupsec
== NULL
)
8755 last_addr
= (last_addr
+ 0xffff) & ~0xffff;
8756 fixupsec
->vma
= last_addr
;
8758 alpha_vms_link_hash (info
)->fixup
= fixupsec
;
8759 alpha_vms_link_hash (info
)->base_addr
= base_addr
;
8761 /* Create the DMT section, if necessary. */
8762 BFD_ASSERT (PRIV (dst_section
) == NULL
);
8763 dst
= bfd_get_section_by_name (abfd
, "$DST$");
8764 if (dst
!= NULL
&& dst
->size
== 0)
8768 PRIV (dst_section
) = dst
;
8769 dmt
= bfd_make_section_anyway_with_flags
8770 (info
->output_bfd
, "$DMT$",
8771 SEC_DEBUGGING
| SEC_HAS_CONTENTS
| SEC_LINKER_CREATED
);
8778 /* Read all sections from the inputs. */
8779 for (sub
= info
->input_bfds
; sub
!= NULL
; sub
= sub
->link_next
)
8781 if (sub
->flags
& DYNAMIC
)
8783 alpha_vms_create_eisd_for_shared (abfd
, sub
);
8787 if (!alpha_vms_read_sections_content (sub
, info
))
8791 /* Handle all the link order information for the sections.
8792 Note: past this point, it is not possible to create new sections. */
8793 for (o
= abfd
->sections
; o
!= NULL
; o
= o
->next
)
8795 for (p
= o
->map_head
.link_order
; p
!= NULL
; p
= p
->next
)
8799 case bfd_section_reloc_link_order
:
8800 case bfd_symbol_reloc_link_order
:
8803 case bfd_indirect_link_order
:
8807 if (! _bfd_default_link_order (abfd
, info
, o
, p
))
8814 /* Compute fixups. */
8815 if (!alpha_vms_build_fixups (info
))
8818 /* Compute the DMT. */
8822 unsigned char *contents
= NULL
;
8824 /* In pass 1, compute the size. In pass 2, write the DMT contents. */
8825 for (pass
= 0; pass
< 2; pass
++)
8827 unsigned int off
= 0;
8829 /* For each object file (ie for each module). */
8830 for (sub
= info
->input_bfds
; sub
!= NULL
; sub
= sub
->link_next
)
8833 struct vms_dmt_header
*dmth
= NULL
;
8834 unsigned int psect_count
;
8836 /* Skip this module if it has no DST. */
8837 sub_dst
= PRIV2 (sub
, dst_section
);
8838 if (sub_dst
== NULL
|| sub_dst
->size
== 0)
8843 /* Write the header. */
8844 dmth
= (struct vms_dmt_header
*)(contents
+ off
);
8845 bfd_putl32 (sub_dst
->output_offset
, dmth
->modbeg
);
8846 bfd_putl32 (sub_dst
->size
, dmth
->size
);
8849 off
+= sizeof (struct vms_dmt_header
);
8852 /* For each section (ie for each psect). */
8853 for (o
= sub
->sections
; o
!= NULL
; o
= o
->next
)
8855 /* Only consider interesting sections. */
8856 if (!(o
->flags
& SEC_ALLOC
))
8858 if (o
->flags
& SEC_LINKER_CREATED
)
8863 /* Write an entry. */
8864 struct vms_dmt_psect
*dmtp
;
8866 dmtp
= (struct vms_dmt_psect
*)(contents
+ off
);
8867 bfd_putl32 (o
->output_offset
+ o
->output_section
->vma
,
8869 bfd_putl32 (o
->size
, dmtp
->length
);
8872 off
+= sizeof (struct vms_dmt_psect
);
8875 bfd_putl32 (psect_count
, dmth
->psect_count
);
8880 contents
= bfd_zalloc (info
->output_bfd
, off
);
8881 if (contents
== NULL
)
8883 dmt
->contents
= contents
;
8888 BFD_ASSERT (off
== dmt
->size
);
8896 /* Read the contents of a section.
8897 buf points to a buffer of buf_size bytes to be filled with
8898 section data (starting at offset into section) */
8901 alpha_vms_get_section_contents (bfd
*abfd
, asection
*section
,
8902 void *buf
, file_ptr offset
,
8903 bfd_size_type count
)
8907 /* Image are easy. */
8908 if (bfd_get_file_flags (abfd
) & (EXEC_P
| DYNAMIC
))
8909 return _bfd_generic_get_section_contents (abfd
, section
,
8910 buf
, offset
, count
);
8913 if (offset
+ count
< count
8914 || offset
+ count
> section
->size
)
8916 bfd_set_error (bfd_error_invalid_operation
);
8920 /* Alloc in memory and read ETIRs. */
8921 BFD_ASSERT (section
->contents
== NULL
);
8923 for (sec
= abfd
->sections
; sec
; sec
= sec
->next
)
8925 BFD_ASSERT (sec
->contents
== NULL
);
8927 if (sec
->size
!= 0 && (sec
->flags
& SEC_HAS_CONTENTS
))
8929 sec
->contents
= bfd_alloc (abfd
, sec
->size
);
8930 if (sec
->contents
== NULL
)
8934 if (!alpha_vms_read_sections_content (abfd
, NULL
))
8936 for (sec
= abfd
->sections
; sec
; sec
= sec
->next
)
8937 if (section
->contents
)
8938 section
->flags
|= SEC_IN_MEMORY
;
8939 memcpy (buf
, section
->contents
+ offset
, count
);
8944 /* Set the format of a file being written. */
8947 alpha_vms_mkobject (bfd
* abfd
)
8949 const bfd_arch_info_type
*arch
;
8951 vms_debug2 ((1, "alpha_vms_mkobject (%p)\n", abfd
));
8953 if (!vms_initialize (abfd
))
8956 PRIV (recwr
.buf
) = bfd_alloc (abfd
, MAX_OUTREC_SIZE
);
8957 if (PRIV (recwr
.buf
) == NULL
)
8960 arch
= bfd_scan_arch ("alpha");
8964 bfd_set_error (bfd_error_wrong_format
);
8968 abfd
->arch_info
= arch
;
8975 /* Called when the BFD is being closed to do any necessary cleanup. */
8978 vms_close_and_cleanup (bfd
* abfd
)
8980 vms_debug2 ((1, "vms_close_and_cleanup (%p)\n", abfd
));
8982 if (abfd
== NULL
|| abfd
->tdata
.any
== NULL
)
8985 if (abfd
->format
== bfd_archive
)
8987 bfd_release (abfd
, abfd
->tdata
.any
);
8988 abfd
->tdata
.any
= NULL
;
8992 if (PRIV (recrd
.buf
) != NULL
)
8993 free (PRIV (recrd
.buf
));
8995 if (PRIV (sections
) != NULL
)
8996 free (PRIV (sections
));
8998 bfd_release (abfd
, abfd
->tdata
.any
);
8999 abfd
->tdata
.any
= NULL
;
9002 if (abfd
->direction
== write_direction
)
9004 /* Last step on VMS is to convert the file to variable record length
9006 if (bfd_cache_close (abfd
) != TRUE
)
9008 if (_bfd_vms_convert_to_var_unix_filename (abfd
->filename
) != TRUE
)
9016 /* Called when a new section is created. */
9019 vms_new_section_hook (bfd
* abfd
, asection
*section
)
9023 vms_debug2 ((1, "vms_new_section_hook (%p, [%d]%s)\n",
9024 abfd
, section
->index
, section
->name
));
9026 bfd_set_section_alignment (abfd
, section
, 0);
9028 vms_debug2 ((7, "%d: %s\n", section
->index
, section
->name
));
9030 amt
= sizeof (struct vms_section_data_struct
);
9031 section
->used_by_bfd
= (PTR
) bfd_zalloc (abfd
, amt
);
9032 if (section
->used_by_bfd
== NULL
)
9035 /* Create the section symbol. */
9036 return _bfd_generic_new_section_hook (abfd
, section
);
9039 /* Part 4.5, symbols. */
9041 /* Print symbol to file according to how. how is one of
9042 bfd_print_symbol_name just print the name
9043 bfd_print_symbol_more print more (???)
9044 bfd_print_symbol_all print all we know, which is not much right now :-). */
9047 vms_print_symbol (bfd
* abfd
,
9050 bfd_print_symbol_type how
)
9052 vms_debug2 ((1, "vms_print_symbol (%p, %p, %p, %d)\n",
9053 abfd
, file
, symbol
, how
));
9057 case bfd_print_symbol_name
:
9058 case bfd_print_symbol_more
:
9059 fprintf ((FILE *)file
," %s", symbol
->name
);
9062 case bfd_print_symbol_all
:
9064 const char *section_name
= symbol
->section
->name
;
9066 bfd_print_symbol_vandf (abfd
, file
, symbol
);
9068 fprintf ((FILE *) file
," %-8s %s", section_name
, symbol
->name
);
9074 /* Return information about symbol in ret.
9076 fill type, value and name
9079 B bss segment symbol
9081 D data segment symbol
9083 t a static function symbol
9084 T text segment symbol
9089 vms_get_symbol_info (bfd
* abfd ATTRIBUTE_UNUSED
,
9095 vms_debug2 ((1, "vms_get_symbol_info (%p, %p, %p)\n", abfd
, symbol
, ret
));
9097 sec
= symbol
->section
;
9104 else if (bfd_is_com_section (sec
))
9106 else if (bfd_is_abs_section (sec
))
9108 else if (bfd_is_und_section (sec
))
9110 else if (bfd_is_ind_section (sec
))
9112 else if ((symbol
->flags
& BSF_FUNCTION
)
9113 || (bfd_get_section_flags (abfd
, sec
) & SEC_CODE
))
9115 else if (bfd_get_section_flags (abfd
, sec
) & SEC_DATA
)
9117 else if (bfd_get_section_flags (abfd
, sec
) & SEC_ALLOC
)
9122 if (ret
->type
!= 'U')
9123 ret
->value
= symbol
->value
+ symbol
->section
->vma
;
9126 ret
->name
= symbol
->name
;
9129 /* Return TRUE if the given symbol sym in the BFD abfd is
9130 a compiler generated local label, else return FALSE. */
9133 vms_bfd_is_local_label_name (bfd
* abfd ATTRIBUTE_UNUSED
,
9136 vms_debug2 ((1, "vms_bfd_is_local_label_name (%p, %s)\n", abfd
, name
));
9137 return name
[0] == '$';
9140 /* Part 4.7, writing an object file. */
9142 /* Sets the contents of the section section in BFD abfd to the data starting
9143 in memory at LOCATION. The data is written to the output section starting
9144 at offset offset for count bytes.
9146 Normally TRUE is returned, else FALSE. Possible error returns are:
9147 o bfd_error_no_contents - The output section does not have the
9148 SEC_HAS_CONTENTS attribute, so nothing can be written to it.
9149 o and some more too */
9152 _bfd_vms_set_section_contents (bfd
* abfd
,
9154 const void * location
,
9156 bfd_size_type count
)
9158 if (section
->contents
== NULL
)
9160 section
->contents
= bfd_alloc (abfd
, section
->size
);
9161 if (section
->contents
== NULL
)
9164 memcpy (section
->contents
+ offset
, location
, (size_t) count
);
9170 /* Set the architecture and machine type in BFD abfd to arch and mach.
9171 Find the correct pointer to a structure and insert it into the arch_info
9175 alpha_vms_set_arch_mach (bfd
*abfd
,
9176 enum bfd_architecture arch
, unsigned long mach
)
9178 if (arch
!= bfd_arch_alpha
9179 && arch
!= bfd_arch_unknown
)
9182 return bfd_default_set_arch_mach (abfd
, arch
, mach
);
9185 /* Set section VMS flags. Clear NO_FLAGS and set FLAGS. */
9188 bfd_vms_set_section_flags (bfd
*abfd ATTRIBUTE_UNUSED
,
9189 asection
*sec
, flagword no_flags
, flagword flags
)
9191 vms_section_data (sec
)->no_flags
= no_flags
;
9192 vms_section_data (sec
)->flags
= flags
;
9195 struct vms_private_data_struct
*
9196 bfd_vms_get_data (bfd
*abfd
)
9198 return (struct vms_private_data_struct
*)abfd
->tdata
.any
;
9201 #define vms_bfd_is_target_special_symbol ((bfd_boolean (*) (bfd *, asymbol *)) bfd_false)
9202 #define vms_bfd_link_just_syms _bfd_generic_link_just_syms
9203 #define vms_bfd_copy_link_hash_symbol_type \
9204 _bfd_generic_copy_link_hash_symbol_type
9205 #define vms_bfd_is_group_section bfd_generic_is_group_section
9206 #define vms_bfd_discard_group bfd_generic_discard_group
9207 #define vms_section_already_linked _bfd_generic_section_already_linked
9208 #define vms_bfd_define_common_symbol bfd_generic_define_common_symbol
9209 #define vms_bfd_copy_private_header_data _bfd_generic_bfd_copy_private_header_data
9211 #define vms_bfd_copy_private_bfd_data _bfd_generic_bfd_copy_private_bfd_data
9212 #define vms_bfd_free_cached_info _bfd_generic_bfd_free_cached_info
9213 #define vms_bfd_copy_private_section_data _bfd_generic_bfd_copy_private_section_data
9214 #define vms_bfd_copy_private_symbol_data _bfd_generic_bfd_copy_private_symbol_data
9215 #define vms_bfd_set_private_flags _bfd_generic_bfd_set_private_flags
9216 #define vms_bfd_merge_private_bfd_data _bfd_generic_bfd_merge_private_bfd_data
9218 /* Symbols table. */
9219 #define alpha_vms_make_empty_symbol _bfd_generic_make_empty_symbol
9220 #define alpha_vms_bfd_is_target_special_symbol \
9221 ((bfd_boolean (*) (bfd *, asymbol *)) bfd_false)
9222 #define alpha_vms_print_symbol vms_print_symbol
9223 #define alpha_vms_get_symbol_info vms_get_symbol_info
9224 #define alpha_vms_read_minisymbols _bfd_generic_read_minisymbols
9225 #define alpha_vms_minisymbol_to_symbol _bfd_generic_minisymbol_to_symbol
9226 #define alpha_vms_get_lineno _bfd_nosymbols_get_lineno
9227 #define alpha_vms_find_inliner_info _bfd_nosymbols_find_inliner_info
9228 #define alpha_vms_bfd_make_debug_symbol _bfd_nosymbols_bfd_make_debug_symbol
9229 #define alpha_vms_find_nearest_line _bfd_vms_find_nearest_dst_line
9230 #define alpha_vms_bfd_is_local_label_name vms_bfd_is_local_label_name
9232 /* Generic table. */
9233 #define alpha_vms_close_and_cleanup vms_close_and_cleanup
9234 #define alpha_vms_bfd_free_cached_info vms_bfd_free_cached_info
9235 #define alpha_vms_new_section_hook vms_new_section_hook
9236 #define alpha_vms_set_section_contents _bfd_vms_set_section_contents
9237 #define alpha_vms_get_section_contents_in_window _bfd_generic_get_section_contents_in_window
9239 #define alpha_vms_bfd_get_relocated_section_contents \
9240 bfd_generic_get_relocated_section_contents
9242 #define alpha_vms_bfd_relax_section bfd_generic_relax_section
9243 #define alpha_vms_bfd_gc_sections bfd_generic_gc_sections
9244 #define alpha_vms_bfd_merge_sections bfd_generic_merge_sections
9245 #define alpha_vms_bfd_is_group_section bfd_generic_is_group_section
9246 #define alpha_vms_bfd_discard_group bfd_generic_discard_group
9247 #define alpha_vms_section_already_linked \
9248 _bfd_generic_section_already_linked
9250 #define alpha_vms_bfd_define_common_symbol bfd_generic_define_common_symbol
9251 #define alpha_vms_bfd_link_hash_table_free _bfd_generic_link_hash_table_free
9252 #define alpha_vms_bfd_link_just_syms _bfd_generic_link_just_syms
9253 #define alpha_vms_bfd_copy_link_hash_symbol_type \
9254 _bfd_generic_copy_link_hash_symbol_type
9256 #define alpha_vms_bfd_link_split_section _bfd_generic_link_split_section
9258 #define alpha_vms_get_dynamic_symtab_upper_bound \
9259 _bfd_nodynamic_get_dynamic_symtab_upper_bound
9260 #define alpha_vms_canonicalize_dynamic_symtab \
9261 _bfd_nodynamic_canonicalize_dynamic_symtab
9262 #define alpha_vms_get_dynamic_reloc_upper_bound \
9263 _bfd_nodynamic_get_dynamic_reloc_upper_bound
9264 #define alpha_vms_canonicalize_dynamic_reloc \
9265 _bfd_nodynamic_canonicalize_dynamic_reloc
9267 const bfd_target vms_alpha_vec
=
9269 "vms-alpha", /* Name. */
9270 bfd_target_evax_flavour
,
9271 BFD_ENDIAN_LITTLE
, /* Data byte order is little. */
9272 BFD_ENDIAN_LITTLE
, /* Header byte order is little. */
9274 (HAS_RELOC
| EXEC_P
| HAS_LINENO
| HAS_DEBUG
| HAS_SYMS
| HAS_LOCALS
9275 | WP_TEXT
| D_PAGED
), /* Object flags. */
9276 (SEC_ALLOC
| SEC_LOAD
| SEC_RELOC
9277 | SEC_READONLY
| SEC_CODE
| SEC_DATA
9278 | SEC_HAS_CONTENTS
| SEC_IN_MEMORY
), /* Sect flags. */
9279 0, /* symbol_leading_char. */
9280 ' ', /* ar_pad_char. */
9281 15, /* ar_max_namelen. */
9282 bfd_getl64
, bfd_getl_signed_64
, bfd_putl64
,
9283 bfd_getl32
, bfd_getl_signed_32
, bfd_putl32
,
9284 bfd_getl16
, bfd_getl_signed_16
, bfd_putl16
,
9285 bfd_getl64
, bfd_getl_signed_64
, bfd_putl64
,
9286 bfd_getl32
, bfd_getl_signed_32
, bfd_putl32
,
9287 bfd_getl16
, bfd_getl_signed_16
, bfd_putl16
,
9289 {_bfd_dummy_target
, alpha_vms_object_p
, /* bfd_check_format. */
9290 _bfd_vms_lib_alpha_archive_p
, _bfd_dummy_target
},
9291 {bfd_false
, alpha_vms_mkobject
, /* bfd_set_format. */
9292 _bfd_vms_lib_alpha_mkarchive
, bfd_false
},
9293 {bfd_false
, alpha_vms_write_object_contents
, /* bfd_write_contents. */
9294 _bfd_vms_lib_write_archive_contents
, bfd_false
},
9296 BFD_JUMP_TABLE_GENERIC (alpha_vms
),
9297 BFD_JUMP_TABLE_COPY (vms
),
9298 BFD_JUMP_TABLE_CORE (_bfd_nocore
),
9299 BFD_JUMP_TABLE_ARCHIVE (_bfd_vms_lib
),
9300 BFD_JUMP_TABLE_SYMBOLS (alpha_vms
),
9301 BFD_JUMP_TABLE_RELOCS (alpha_vms
),
9302 BFD_JUMP_TABLE_WRITE (alpha_vms
),
9303 BFD_JUMP_TABLE_LINK (alpha_vms
),
9304 BFD_JUMP_TABLE_DYNAMIC (alpha_vms
),