1 /* vms.c -- BFD back-end for EVAX (openVMS/Alpha) files.
2 Copyright (C) 1996-2017 Free Software Foundation, Inc.
4 Initial version written by Klaus Kaempf (kkaempf@rmi.de)
5 Major rewrite by Adacore.
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 3 of the License, or
10 (at your option) any later version.
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with this program; if not, write to the Free Software
19 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
20 MA 02110-1301, USA. */
25 o Generation of shared image
26 o Relocation optimizations
32 o protected sections (for messages)
50 #include "vms/eihvn.h"
51 #include "vms/eobjrec.h"
54 #include "vms/esgps.h"
63 #include "vms/esdfm.h"
64 #include "vms/esdfv.h"
70 #include "vms/internal.h"
73 #define MIN(a,b) ((a) < (b) ? (a) : (b))
75 /* The r_type field in a reloc is one of the following values. */
76 #define ALPHA_R_IGNORE 0
77 #define ALPHA_R_REFQUAD 1
78 #define ALPHA_R_BRADDR 2
79 #define ALPHA_R_HINT 3
80 #define ALPHA_R_SREL16 4
81 #define ALPHA_R_SREL32 5
82 #define ALPHA_R_SREL64 6
83 #define ALPHA_R_OP_PUSH 7
84 #define ALPHA_R_OP_STORE 8
85 #define ALPHA_R_OP_PSUB 9
86 #define ALPHA_R_OP_PRSHIFT 10
87 #define ALPHA_R_LINKAGE 11
88 #define ALPHA_R_REFLONG 12
89 #define ALPHA_R_CODEADDR 13
90 #define ALPHA_R_NOP 14
91 #define ALPHA_R_BSR 15
92 #define ALPHA_R_LDA 16
93 #define ALPHA_R_BOH 17
95 /* These are used with DST_S_C_LINE_NUM. */
96 #define DST_S_C_LINE_NUM_HEADER_SIZE 4
98 /* These are used with DST_S_C_SOURCE */
100 #define DST_S_B_PCLINE_UNSBYTE 1
101 #define DST_S_W_PCLINE_UNSWORD 1
102 #define DST_S_L_PCLINE_UNSLONG 1
104 #define DST_S_B_MODBEG_NAME 14
105 #define DST_S_L_RTNBEG_ADDRESS 5
106 #define DST_S_B_RTNBEG_NAME 13
107 #define DST_S_L_RTNEND_SIZE 5
109 /* These are used with DST_S_C_SOURCE. */
110 #define DST_S_C_SOURCE_HEADER_SIZE 4
112 #define DST_S_B_SRC_DF_LENGTH 1
113 #define DST_S_W_SRC_DF_FILEID 3
114 #define DST_S_B_SRC_DF_FILENAME 20
115 #define DST_S_B_SRC_UNSBYTE 1
116 #define DST_S_W_SRC_UNSWORD 1
117 #define DST_S_L_SRC_UNSLONG 1
119 /* Debugger symbol definitions. */
121 #define DBG_S_L_DMT_MODBEG 0
122 #define DBG_S_L_DST_SIZE 4
123 #define DBG_S_W_DMT_PSECT_COUNT 8
124 #define DBG_S_C_DMT_HEADER_SIZE 12
126 #define DBG_S_L_DMT_PSECT_START 0
127 #define DBG_S_L_DMT_PSECT_LENGTH 4
128 #define DBG_S_C_DMT_PSECT_SIZE 8
130 /* VMS module header. */
146 #define EMH_DATE_LENGTH 17
148 /* VMS End-Of-Module records (EOM/EEOM). */
152 unsigned int eom_l_total_lps
;
153 unsigned short eom_w_comcod
;
154 bfd_boolean eom_has_transfer
;
155 unsigned char eom_b_tfrflg
;
156 unsigned int eom_l_psindx
;
157 unsigned int eom_l_tfradr
;
160 struct vms_symbol_entry
166 unsigned char data_type
;
167 unsigned short flags
;
169 /* Section and offset/value of the symbol. */
173 /* Section and offset/value for the entry point (only for subprg). */
174 asection
*code_section
;
175 unsigned int code_value
;
177 /* Symbol vector offset. */
178 unsigned int symbol_vector
;
180 /* Length of the name. */
181 unsigned char namelen
;
186 /* Stack value for push/pop commands. */
194 #define STACKSIZE 128
196 /* A minimal decoding of DST compilation units. We only decode
197 what's needed to get to the line number information. */
207 struct srecinfo
*next
;
215 struct lineinfo
*next
;
222 struct funcinfo
*next
;
230 /* Chain the previously read compilation unit. */
233 /* The module name. */
236 /* The start offset and size of debug info in the DST section. */
240 /* The lowest and highest addresses contained in this compilation
241 unit as specified in the compilation unit header. */
245 /* The listing line table. */
246 struct lineinfo
*line_table
;
248 /* The source record table. */
249 struct srecinfo
*srec_table
;
251 /* A list of the functions found in this module. */
252 struct funcinfo
*func_table
;
254 /* Current allocation of file_table. */
255 unsigned int file_table_count
;
257 /* An array of the files making up this module. */
258 struct fileinfo
*file_table
;
261 /* BFD private data for alpha-vms. */
263 struct vms_private_data_struct
265 /* If true, relocs have been read. */
266 bfd_boolean reloc_done
;
268 /* Record input buffer. */
269 struct vms_rec_rd recrd
;
270 struct vms_rec_wr recwr
;
272 struct hdr_struct hdr_data
; /* data from HDR/EMH record */
273 struct eom_struct eom_data
; /* data from EOM/EEOM record */
275 /* Transfer addresses (entry points). */
276 bfd_vma transfer_address
[4];
278 /* Array of GSD sections to get the correspond BFD one. */
279 unsigned int section_max
; /* Size of the sections array. */
280 unsigned int section_count
; /* Number of GSD sections. */
283 /* Array of raw symbols. */
284 struct vms_symbol_entry
**syms
;
286 /* Canonicalized symbols. */
289 /* Number of symbols. */
290 unsigned int gsd_sym_count
;
291 /* Size of the syms array. */
292 unsigned int max_sym_count
;
293 /* Number of procedure symbols. */
294 unsigned int norm_sym_count
;
296 /* Stack used to evaluate TIR/ETIR commands. */
297 struct stack_struct
*stack
;
300 /* Content reading. */
301 asection
*image_section
; /* section for image_ptr */
302 file_ptr image_offset
; /* Offset for image_ptr. */
304 struct module
*modules
; /* list of all compilation units */
306 /* The DST section. */
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 unsigned int vms_linkage_index
;
335 #define PRIV2(abfd, name) \
336 (((struct vms_private_data_struct *)(abfd)->tdata.any)->name)
337 #define PRIV(name) PRIV2(abfd,name)
340 /* Used to keep extra VMS specific information for a given section.
342 reloc_size holds the size of the relocation stream, note this
343 is very different from the number of relocations as VMS relocations
346 reloc_stream is the actual stream of relocation entries. */
348 struct vms_section_data_struct
350 /* Maximnum number of entries in sec->relocation. */
353 /* Corresponding eisd. Used only while generating executables. */
354 struct vms_internal_eisd_map
*eisd
;
356 /* PSC flags to be clear. */
359 /* PSC flags to be set. */
363 #define vms_section_data(sec) \
364 ((struct vms_section_data_struct *)sec->used_by_bfd)
366 /* To be called from the debugger. */
367 struct vms_private_data_struct
*bfd_vms_get_data (bfd
*);
369 static int vms_get_remaining_object_record (bfd
*, unsigned int);
370 static bfd_boolean
_bfd_vms_slurp_object_records (bfd
* abfd
);
371 static void alpha_vms_add_fixup_lp (struct bfd_link_info
*, bfd
*, bfd
*);
372 static void alpha_vms_add_fixup_ca (struct bfd_link_info
*, bfd
*, bfd
*);
373 static void alpha_vms_add_fixup_qr (struct bfd_link_info
*, bfd
*, bfd
*,
375 static void alpha_vms_add_fixup_lr (struct bfd_link_info
*, unsigned int,
377 static void alpha_vms_add_lw_reloc (struct bfd_link_info
*);
378 static void alpha_vms_add_qw_reloc (struct bfd_link_info
*);
387 /* Number of elements in VEC. */
389 #define VEC_COUNT(VEC) ((VEC).nbr_el)
391 /* Get the address of the Nth element. */
393 #define VEC_EL(VEC, TYPE, N) (((TYPE *)((VEC).els))[N])
395 #define VEC_INIT(VEC) \
402 /* Be sure there is room for a new element. */
404 static void vector_grow1 (struct vector_type
*vec
, size_t elsz
);
406 /* Allocate room for a new element and return its address. */
408 #define VEC_APPEND(VEC, TYPE) \
409 (vector_grow1 (&VEC, sizeof (TYPE)), &VEC_EL(VEC, TYPE, (VEC).nbr_el++))
411 /* Append an element. */
413 #define VEC_APPEND_EL(VEC, TYPE, EL) \
414 (*(VEC_APPEND (VEC, TYPE)) = EL)
416 struct alpha_vms_vma_ref
418 bfd_vma vma
; /* Vma in the output. */
419 bfd_vma ref
; /* Reference in the input. */
422 struct alpha_vms_shlib_el
425 bfd_boolean has_fixups
;
427 struct vector_type lp
; /* Vector of bfd_vma. */
428 struct vector_type ca
; /* Vector of bfd_vma. */
429 struct vector_type qr
; /* Vector of struct alpha_vms_vma_ref. */
432 /* Alpha VMS linker hash table. */
434 struct alpha_vms_link_hash_table
436 struct bfd_link_hash_table root
;
438 /* Vector of shared libraries. */
439 struct vector_type shrlibs
;
444 /* Base address. Used by fixups. */
448 #define alpha_vms_link_hash(INFO) \
449 ((struct alpha_vms_link_hash_table *)(INFO->hash))
451 /* Alpha VMS linker hash table entry. */
453 struct alpha_vms_link_hash_entry
455 struct bfd_link_hash_entry root
;
457 /* Pointer to the original vms symbol. */
458 struct vms_symbol_entry
*sym
;
463 /* Read & process EIHD record.
464 Return TRUE on success, FALSE on error. */
467 _bfd_vms_slurp_eihd (bfd
*abfd
, unsigned int *eisd_offset
,
468 unsigned int *eihs_offset
)
470 unsigned int imgtype
, size
;
472 struct vms_eihd
*eihd
= (struct vms_eihd
*)PRIV (recrd
.rec
);
474 vms_debug2 ((8, "_bfd_vms_slurp_eihd\n"));
476 size
= bfd_getl32 (eihd
->size
);
477 imgtype
= bfd_getl32 (eihd
->imgtype
);
479 if (imgtype
== EIHD__K_EXE
|| imgtype
== EIHD__K_LIM
)
480 abfd
->flags
|= EXEC_P
;
482 symvva
= bfd_getl64 (eihd
->symvva
);
485 PRIV (symvva
) = symvva
;
486 abfd
->flags
|= DYNAMIC
;
489 PRIV (ident
) = bfd_getl32 (eihd
->ident
);
490 PRIV (matchctl
) = eihd
->matchctl
;
492 *eisd_offset
= bfd_getl32 (eihd
->isdoff
);
493 *eihs_offset
= bfd_getl32 (eihd
->symdbgoff
);
495 vms_debug2 ((4, "EIHD size %d imgtype %d symvva 0x%lx eisd %d eihs %d\n",
496 size
, imgtype
, (unsigned long)symvva
,
497 *eisd_offset
, *eihs_offset
));
502 /* Read & process EISD record.
503 Return TRUE on success, FALSE on error. */
506 _bfd_vms_slurp_eisd (bfd
*abfd
, unsigned int offset
)
508 int section_count
= 0;
510 vms_debug2 ((8, "_bfd_vms_slurp_eisd\n"));
514 struct vms_eisd
*eisd
;
515 unsigned int rec_size
;
517 unsigned long long vaddr
;
524 /* PR 17512: file: 3d9e9fe9. */
525 if (offset
>= PRIV (recrd
.rec_size
))
527 eisd
= (struct vms_eisd
*)(PRIV (recrd
.rec
) + offset
);
528 rec_size
= bfd_getl32 (eisd
->eisdsize
);
532 /* Skip to next block if pad. */
533 if (rec_size
== 0xffffffff)
535 offset
= (offset
+ VMS_BLOCK_SIZE
) & ~(VMS_BLOCK_SIZE
- 1);
541 size
= bfd_getl32 (eisd
->secsize
);
542 vaddr
= bfd_getl64 (eisd
->virt_addr
);
543 flags
= bfd_getl32 (eisd
->flags
);
544 vbn
= bfd_getl32 (eisd
->vbn
);
546 vms_debug2 ((4, "EISD at 0x%x size 0x%x addr 0x%lx flags 0x%x blk %d\n",
547 offset
, size
, (unsigned long)vaddr
, flags
, vbn
));
549 /* VMS combines psects from .obj files into isects in the .exe. This
550 process doesn't preserve enough information to reliably determine
551 what's in each section without examining the data. This is
552 especially true of DWARF debug sections. */
553 bfd_flags
= SEC_ALLOC
;
555 bfd_flags
|= SEC_HAS_CONTENTS
| SEC_LOAD
;
557 if (flags
& EISD__M_EXE
)
558 bfd_flags
|= SEC_CODE
;
560 if (flags
& EISD__M_NONSHRADR
)
561 bfd_flags
|= SEC_DATA
;
563 if (!(flags
& EISD__M_WRT
))
564 bfd_flags
|= SEC_READONLY
;
566 if (flags
& EISD__M_DZRO
)
567 bfd_flags
|= SEC_DATA
;
569 if (flags
& EISD__M_FIXUPVEC
)
570 bfd_flags
|= SEC_DATA
;
572 if (flags
& EISD__M_CRF
)
573 bfd_flags
|= SEC_DATA
;
575 if (flags
& EISD__M_GBL
)
577 name
= _bfd_vms_save_counted_string (eisd
->gblnam
);
578 bfd_flags
|= SEC_COFF_SHARED_LIBRARY
;
579 bfd_flags
&= ~(SEC_ALLOC
| SEC_LOAD
);
581 else if (flags
& EISD__M_FIXUPVEC
)
583 else if (eisd
->type
== EISD__K_USRSTACK
)
589 name
= (char*) bfd_alloc (abfd
, 32);
590 if (flags
& EISD__M_DZRO
)
592 else if (flags
& EISD__M_EXE
)
594 else if (!(flags
& EISD__M_WRT
))
598 BFD_ASSERT (section_count
< 999);
599 sprintf (name
, "$%s_%03d$", pfx
, section_count
++);
602 section
= bfd_make_section (abfd
, name
);
607 section
->filepos
= vbn
? VMS_BLOCK_SIZE
* (vbn
- 1) : 0;
608 section
->size
= size
;
609 section
->vma
= vaddr
;
611 if (!bfd_set_section_flags (abfd
, section
, bfd_flags
))
618 /* Read & process EIHS record.
619 Return TRUE on success, FALSE on error. */
622 _bfd_vms_slurp_eihs (bfd
*abfd
, unsigned int offset
)
624 unsigned char *p
= PRIV (recrd
.rec
) + offset
;
625 unsigned int gstvbn
= bfd_getl32 (p
+ EIHS__L_GSTVBN
);
626 unsigned int gstsize ATTRIBUTE_UNUSED
= bfd_getl32 (p
+ EIHS__L_GSTSIZE
);
627 unsigned int dstvbn
= bfd_getl32 (p
+ EIHS__L_DSTVBN
);
628 unsigned int dstsize
= bfd_getl32 (p
+ EIHS__L_DSTSIZE
);
629 unsigned int dmtvbn
= bfd_getl32 (p
+ EIHS__L_DMTVBN
);
630 unsigned int dmtbytes
= bfd_getl32 (p
+ EIHS__L_DMTBYTES
);
634 vms_debug (8, "_bfd_vms_slurp_ihs\n");
635 vms_debug (4, "EIHS record gstvbn %d gstsize %d dstvbn %d dstsize %d dmtvbn %d dmtbytes %d\n",
636 gstvbn
, gstsize
, dstvbn
, dstsize
, dmtvbn
, dmtbytes
);
641 flagword bfd_flags
= SEC_HAS_CONTENTS
| SEC_DEBUGGING
;
643 section
= bfd_make_section (abfd
, "$DST$");
647 section
->size
= dstsize
;
648 section
->filepos
= VMS_BLOCK_SIZE
* (dstvbn
- 1);
650 if (!bfd_set_section_flags (abfd
, section
, bfd_flags
))
653 PRIV (dst_section
) = section
;
654 abfd
->flags
|= (HAS_DEBUG
| HAS_LINENO
);
659 flagword bfd_flags
= SEC_HAS_CONTENTS
| SEC_DEBUGGING
;
661 section
= bfd_make_section (abfd
, "$DMT$");
665 section
->size
= dmtbytes
;
666 section
->filepos
= VMS_BLOCK_SIZE
* (dmtvbn
- 1);
668 if (!bfd_set_section_flags (abfd
, section
, bfd_flags
))
674 if (bfd_seek (abfd
, VMS_BLOCK_SIZE
* (gstvbn
- 1), SEEK_SET
))
676 bfd_set_error (bfd_error_file_truncated
);
680 if (!_bfd_vms_slurp_object_records (abfd
))
683 abfd
->flags
|= HAS_SYMS
;
689 /* Object file reading. */
691 /* Object file input functions. */
693 /* Get next record from object file to vms_buf.
694 Set PRIV(buf_size) and return it
696 This is a little tricky since it should be portable.
698 The openVMS object file has 'variable length' which means that
699 read() returns data in chunks of (hopefully) correct and expected
700 size. The linker (and other tools on VMS) depend on that. Unix
701 doesn't know about 'formatted' files, so reading and writing such
702 an object file in a Unix environment is not trivial.
704 With the tool 'file' (available on all VMS FTP sites), one
705 can view and change the attributes of a file. Changing from
706 'variable length' to 'fixed length, 512 bytes' reveals the
707 record size at the first 2 bytes of every record. The same
708 may happen during the transfer of object files from VMS to Unix,
709 at least with UCX, the DEC implementation of TCP/IP.
711 The VMS format repeats the size at bytes 2 & 3 of every record.
713 On the first call (file_format == FF_UNKNOWN) we check if
714 the first and the third byte pair (!) of the record match.
715 If they do it's an object file in an Unix environment or with
716 wrong attributes (FF_FOREIGN), else we should be in a VMS
717 environment where read() returns the record size (FF_NATIVE).
719 Reading is always done in 2 steps:
720 1. first just the record header is read and the size extracted,
721 2. then the read buffer is adjusted and the remaining bytes are
724 All file I/O is done on even file positions. */
726 #define VMS_OBJECT_ADJUSTMENT 2
729 maybe_adjust_record_pointer_for_object (bfd
*abfd
)
731 /* Set the file format once for all on the first invocation. */
732 if (PRIV (recrd
.file_format
) == FF_UNKNOWN
)
734 if (PRIV (recrd
.rec
)[0] == PRIV (recrd
.rec
)[4]
735 && PRIV (recrd
.rec
)[1] == PRIV (recrd
.rec
)[5])
736 PRIV (recrd
.file_format
) = FF_FOREIGN
;
738 PRIV (recrd
.file_format
) = FF_NATIVE
;
741 /* The adjustment is needed only in an Unix environment. */
742 if (PRIV (recrd
.file_format
) == FF_FOREIGN
)
743 PRIV (recrd
.rec
) += VMS_OBJECT_ADJUSTMENT
;
746 /* Implement step #1 of the object record reading procedure.
747 Return the record type or -1 on failure. */
750 _bfd_vms_get_object_record (bfd
*abfd
)
752 unsigned int test_len
= 6;
755 vms_debug2 ((8, "_bfd_vms_get_obj_record\n"));
757 /* Skip alignment byte if the current position is odd. */
758 if (PRIV (recrd
.file_format
) == FF_FOREIGN
&& (bfd_tell (abfd
) & 1))
760 if (bfd_bread (PRIV (recrd
.buf
), 1, abfd
) != 1)
762 bfd_set_error (bfd_error_file_truncated
);
767 /* Read the record header */
768 if (bfd_bread (PRIV (recrd
.buf
), test_len
, abfd
) != test_len
)
770 bfd_set_error (bfd_error_file_truncated
);
774 /* Reset the record pointer. */
775 PRIV (recrd
.rec
) = PRIV (recrd
.buf
);
776 maybe_adjust_record_pointer_for_object (abfd
);
778 if (vms_get_remaining_object_record (abfd
, test_len
) <= 0)
781 type
= bfd_getl16 (PRIV (recrd
.rec
));
783 vms_debug2 ((8, "_bfd_vms_get_obj_record: rec %p, size %d, type %d\n",
784 PRIV (recrd
.rec
), PRIV (recrd
.rec_size
), type
));
789 /* Implement step #2 of the object record reading procedure.
790 Return the size of the record or 0 on failure. */
793 vms_get_remaining_object_record (bfd
*abfd
, unsigned int read_so_far
)
795 unsigned int to_read
;
797 vms_debug2 ((8, "vms_get_remaining_obj_record\n"));
799 /* Extract record size. */
800 PRIV (recrd
.rec_size
) = bfd_getl16 (PRIV (recrd
.rec
) + 2);
802 if (PRIV (recrd
.rec_size
) == 0)
804 bfd_set_error (bfd_error_file_truncated
);
808 /* That's what the linker manual says. */
809 if (PRIV (recrd
.rec_size
) > EOBJ__C_MAXRECSIZ
)
811 bfd_set_error (bfd_error_file_truncated
);
815 /* Take into account object adjustment. */
816 to_read
= PRIV (recrd
.rec_size
);
817 if (PRIV (recrd
.file_format
) == FF_FOREIGN
)
818 to_read
+= VMS_OBJECT_ADJUSTMENT
;
820 /* Adjust the buffer. */
821 if (to_read
> PRIV (recrd
.buf_size
))
824 = (unsigned char *) bfd_realloc (PRIV (recrd
.buf
), to_read
);
825 if (PRIV (recrd
.buf
) == NULL
)
827 PRIV (recrd
.buf_size
) = to_read
;
829 /* PR 17512: file: 025-1974-0.004. */
830 else if (to_read
<= read_so_far
)
833 /* Read the remaining record. */
834 to_read
-= read_so_far
;
836 vms_debug2 ((8, "vms_get_remaining_obj_record: to_read %d\n", to_read
));
838 if (bfd_bread (PRIV (recrd
.buf
) + read_so_far
, to_read
, abfd
) != to_read
)
840 bfd_set_error (bfd_error_file_truncated
);
844 /* Reset the record pointer. */
845 PRIV (recrd
.rec
) = PRIV (recrd
.buf
);
846 maybe_adjust_record_pointer_for_object (abfd
);
848 vms_debug2 ((8, "vms_get_remaining_obj_record: size %d\n",
849 PRIV (recrd
.rec_size
)));
851 return PRIV (recrd
.rec_size
);
854 /* Read and process emh record.
855 Return TRUE on success, FALSE on error. */
858 _bfd_vms_slurp_ehdr (bfd
*abfd
)
861 unsigned char *vms_rec
;
865 vms_rec
= PRIV (recrd
.rec
);
866 /* PR 17512: file: 62736583. */
867 end
= PRIV (recrd
.buf
) + PRIV (recrd
.buf_size
);
869 vms_debug2 ((2, "HDR/EMH\n"));
871 subtype
= bfd_getl16 (vms_rec
+ 4);
873 vms_debug2 ((3, "subtype %d\n", subtype
));
879 if (vms_rec
+ 21 >= end
)
881 PRIV (hdr_data
).hdr_b_strlvl
= vms_rec
[6];
882 PRIV (hdr_data
).hdr_l_arch1
= bfd_getl32 (vms_rec
+ 8);
883 PRIV (hdr_data
).hdr_l_arch2
= bfd_getl32 (vms_rec
+ 12);
884 PRIV (hdr_data
).hdr_l_recsiz
= bfd_getl32 (vms_rec
+ 16);
885 if ((vms_rec
+ 20 + vms_rec
[20] + 1) >= end
)
887 PRIV (hdr_data
).hdr_t_name
= _bfd_vms_save_counted_string (vms_rec
+ 20);
888 ptr
= vms_rec
+ 20 + vms_rec
[20] + 1;
889 if ((ptr
+ *ptr
+ 1) >= end
)
891 PRIV (hdr_data
).hdr_t_version
=_bfd_vms_save_counted_string (ptr
);
895 PRIV (hdr_data
).hdr_t_date
= _bfd_vms_save_sized_string (ptr
, 17);
899 if (vms_rec
+ PRIV (recrd
.rec_size
- 6) > end
)
901 PRIV (hdr_data
).hdr_c_lnm
=
902 _bfd_vms_save_sized_string (vms_rec
, PRIV (recrd
.rec_size
- 6));
906 if (vms_rec
+ PRIV (recrd
.rec_size
- 6) > end
)
908 PRIV (hdr_data
).hdr_c_src
=
909 _bfd_vms_save_sized_string (vms_rec
, PRIV (recrd
.rec_size
- 6));
913 if (vms_rec
+ PRIV (recrd
.rec_size
- 6) > end
)
915 PRIV (hdr_data
).hdr_c_ttl
=
916 _bfd_vms_save_sized_string (vms_rec
, PRIV (recrd
.rec_size
- 6));
926 bfd_set_error (bfd_error_wrong_format
);
933 /* Typical sections for evax object files. */
935 #define EVAX_ABS_NAME "$ABS$"
936 #define EVAX_CODE_NAME "$CODE$"
937 #define EVAX_LINK_NAME "$LINK$"
938 #define EVAX_DATA_NAME "$DATA$"
939 #define EVAX_BSS_NAME "$BSS$"
940 #define EVAX_READONLYADDR_NAME "$READONLY_ADDR$"
941 #define EVAX_READONLY_NAME "$READONLY$"
942 #define EVAX_LITERAL_NAME "$LITERAL$"
943 #define EVAX_LITERALS_NAME "$LITERALS"
944 #define EVAX_COMMON_NAME "$COMMON$"
945 #define EVAX_LOCAL_NAME "$LOCAL$"
947 struct sec_flags_struct
949 const char *name
; /* Name of section. */
951 flagword flags_always
; /* Flags we set always. */
953 flagword flags_hassize
; /* Flags we set if the section has a size > 0. */
956 /* These flags are deccrtl/vaxcrtl (openVMS 6.2 Alpha) compatible. */
958 static const struct sec_flags_struct evax_section_flags
[] =
966 EGPS__V_PIC
| EGPS__V_REL
| EGPS__V_SHR
| EGPS__V_EXE
,
967 SEC_CODE
| SEC_READONLY
,
968 EGPS__V_PIC
| EGPS__V_REL
| EGPS__V_SHR
| EGPS__V_EXE
,
969 SEC_CODE
| SEC_READONLY
| SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_LOAD
},
971 EGPS__V_PIC
| EGPS__V_REL
| EGPS__V_SHR
| EGPS__V_RD
| EGPS__V_NOMOD
,
972 SEC_DATA
| SEC_READONLY
,
973 EGPS__V_PIC
| EGPS__V_REL
| EGPS__V_SHR
| EGPS__V_RD
,
974 SEC_DATA
| SEC_READONLY
| SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_LOAD
},
976 EGPS__V_REL
| EGPS__V_RD
,
977 SEC_DATA
| SEC_READONLY
,
978 EGPS__V_REL
| EGPS__V_RD
,
979 SEC_DATA
| SEC_READONLY
| SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_LOAD
},
981 EGPS__V_REL
| EGPS__V_RD
| EGPS__V_WRT
| EGPS__V_NOMOD
,
983 EGPS__V_REL
| EGPS__V_RD
| EGPS__V_WRT
,
984 SEC_DATA
| SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_LOAD
},
986 EGPS__V_REL
| EGPS__V_RD
| EGPS__V_WRT
| EGPS__V_NOMOD
,
988 EGPS__V_REL
| EGPS__V_RD
| EGPS__V_WRT
| EGPS__V_NOMOD
,
990 { EVAX_READONLYADDR_NAME
,
991 EGPS__V_PIC
| EGPS__V_REL
| EGPS__V_RD
,
992 SEC_DATA
| SEC_READONLY
,
993 EGPS__V_PIC
| EGPS__V_REL
| EGPS__V_RD
,
994 SEC_DATA
| SEC_READONLY
| SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_LOAD
},
995 { EVAX_READONLY_NAME
,
996 EGPS__V_PIC
| EGPS__V_REL
| EGPS__V_SHR
| EGPS__V_RD
| EGPS__V_NOMOD
,
997 SEC_DATA
| SEC_READONLY
,
998 EGPS__V_PIC
| EGPS__V_REL
| EGPS__V_SHR
| EGPS__V_RD
,
999 SEC_DATA
| SEC_READONLY
| SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_LOAD
},
1001 EGPS__V_REL
| EGPS__V_RD
| EGPS__V_WRT
,
1003 EGPS__V_REL
| EGPS__V_RD
| EGPS__V_WRT
,
1004 SEC_DATA
| SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_LOAD
},
1005 { EVAX_LITERALS_NAME
,
1006 EGPS__V_PIC
| EGPS__V_OVR
,
1007 SEC_DATA
| SEC_READONLY
,
1008 EGPS__V_PIC
| EGPS__V_OVR
,
1009 SEC_DATA
| SEC_READONLY
| SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_LOAD
},
1011 EGPS__V_REL
| EGPS__V_RD
| EGPS__V_WRT
,
1013 EGPS__V_REL
| EGPS__V_RD
| EGPS__V_WRT
,
1014 SEC_DATA
| SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_LOAD
}
1017 /* Retrieve BFD section flags by name and size. */
1020 vms_secflag_by_name (const struct sec_flags_struct
*section_flags
,
1026 while (section_flags
[i
].name
!= NULL
)
1028 if (strcmp (name
, section_flags
[i
].name
) == 0)
1031 return section_flags
[i
].flags_hassize
;
1033 return section_flags
[i
].flags_always
;
1038 return section_flags
[i
].flags_hassize
;
1039 return section_flags
[i
].flags_always
;
1042 /* Retrieve VMS section flags by name and size. */
1045 vms_esecflag_by_name (const struct sec_flags_struct
*section_flags
,
1051 while (section_flags
[i
].name
!= NULL
)
1053 if (strcmp (name
, section_flags
[i
].name
) == 0)
1056 return section_flags
[i
].vflags_hassize
;
1058 return section_flags
[i
].vflags_always
;
1063 return section_flags
[i
].vflags_hassize
;
1064 return section_flags
[i
].vflags_always
;
1067 /* Add SYM to the symbol table of ABFD.
1068 Return FALSE in case of error. */
1071 add_symbol_entry (bfd
*abfd
, struct vms_symbol_entry
*sym
)
1073 if (PRIV (gsd_sym_count
) >= PRIV (max_sym_count
))
1075 if (PRIV (max_sym_count
) == 0)
1077 PRIV (max_sym_count
) = 128;
1078 PRIV (syms
) = bfd_malloc
1079 (PRIV (max_sym_count
) * sizeof (struct vms_symbol_entry
*));
1083 PRIV (max_sym_count
) *= 2;
1084 PRIV (syms
) = bfd_realloc
1086 (PRIV (max_sym_count
) * sizeof (struct vms_symbol_entry
*)));
1088 if (PRIV (syms
) == NULL
)
1092 PRIV (syms
)[PRIV (gsd_sym_count
)++] = sym
;
1096 /* Create a symbol whose name is ASCIC and add it to ABFD.
1097 Return NULL in case of error. */
1099 static struct vms_symbol_entry
*
1100 add_symbol (bfd
*abfd
, const unsigned char *ascic
)
1102 struct vms_symbol_entry
*entry
;
1106 entry
= (struct vms_symbol_entry
*)bfd_zalloc (abfd
, sizeof (*entry
) + len
);
1109 entry
->namelen
= len
;
1110 memcpy (entry
->name
, ascic
, len
);
1111 entry
->name
[len
] = 0;
1112 entry
->owner
= abfd
;
1114 if (!add_symbol_entry (abfd
, entry
))
1119 /* Read and process EGSD. Return FALSE on failure. */
1122 _bfd_vms_slurp_egsd (bfd
*abfd
)
1124 int gsd_type
, gsd_size
;
1125 unsigned char *vms_rec
;
1126 unsigned long base_addr
;
1128 vms_debug2 ((2, "EGSD\n"));
1130 PRIV (recrd
.rec
) += 8; /* Skip type, size, align pad. */
1131 PRIV (recrd
.rec_size
) -= 8;
1133 /* Calculate base address for each section. */
1136 while (PRIV (recrd
.rec_size
) > 0)
1138 vms_rec
= PRIV (recrd
.rec
);
1140 gsd_type
= bfd_getl16 (vms_rec
);
1141 gsd_size
= bfd_getl16 (vms_rec
+ 2);
1143 vms_debug2 ((3, "egsd_type %d\n", gsd_type
));
1148 /* Program section definition. */
1150 struct vms_egps
*egps
= (struct vms_egps
*)vms_rec
;
1151 flagword new_flags
, vms_flags
;
1154 vms_flags
= bfd_getl16 (egps
->flags
);
1156 if ((vms_flags
& EGPS__V_REL
) == 0)
1158 /* Use the global absolute section for all
1159 absolute sections. */
1160 section
= bfd_abs_section_ptr
;
1165 unsigned long align_addr
;
1167 name
= _bfd_vms_save_counted_string (&egps
->namlng
);
1169 section
= bfd_make_section (abfd
, name
);
1173 section
->filepos
= 0;
1174 section
->size
= bfd_getl32 (egps
->alloc
);
1175 section
->alignment_power
= egps
->align
;
1177 vms_section_data (section
)->flags
= vms_flags
;
1178 vms_section_data (section
)->no_flags
= 0;
1180 new_flags
= vms_secflag_by_name (evax_section_flags
, name
,
1182 if (section
->size
> 0)
1183 new_flags
|= SEC_LOAD
;
1184 if (!(vms_flags
& EGPS__V_NOMOD
) && section
->size
> 0)
1186 /* Set RELOC and HAS_CONTENTS if the section is not
1187 demand-zero and not empty. */
1188 new_flags
|= SEC_HAS_CONTENTS
;
1189 if (vms_flags
& EGPS__V_REL
)
1190 new_flags
|= SEC_RELOC
;
1192 if (vms_flags
& EGPS__V_EXE
)
1194 /* Set CODE if section is executable. */
1195 new_flags
|= SEC_CODE
;
1196 new_flags
&= ~SEC_DATA
;
1198 if (!bfd_set_section_flags (abfd
, section
, new_flags
))
1201 /* Give a non-overlapping vma to non absolute sections. */
1202 align_addr
= (1 << section
->alignment_power
);
1203 if ((base_addr
% align_addr
) != 0)
1204 base_addr
+= (align_addr
- (base_addr
% align_addr
));
1205 section
->vma
= (bfd_vma
)base_addr
;
1206 base_addr
+= section
->size
;
1209 /* Append it to the section array. */
1210 if (PRIV (section_count
) >= PRIV (section_max
))
1212 if (PRIV (section_max
) == 0)
1213 PRIV (section_max
) = 16;
1215 PRIV (section_max
) *= 2;
1216 PRIV (sections
) = bfd_realloc_or_free
1217 (PRIV (sections
), PRIV (section_max
) * sizeof (asection
*));
1218 if (PRIV (sections
) == NULL
)
1222 PRIV (sections
)[PRIV (section_count
)] = section
;
1223 PRIV (section_count
)++;
1230 struct vms_symbol_entry
*entry
;
1231 struct vms_egsy
*egsy
= (struct vms_egsy
*) vms_rec
;
1234 old_flags
= bfd_getl16 (egsy
->flags
);
1235 if (old_flags
& EGSY__V_DEF
)
1236 nameoff
= ESDF__B_NAMLNG
;
1238 nameoff
= ESRF__B_NAMLNG
;
1240 entry
= add_symbol (abfd
, vms_rec
+ nameoff
);
1244 /* Allow only duplicate reference. */
1245 if ((entry
->flags
& EGSY__V_DEF
) && (old_flags
& EGSY__V_DEF
))
1248 if (entry
->typ
== 0)
1250 entry
->typ
= gsd_type
;
1251 entry
->data_type
= egsy
->datyp
;
1252 entry
->flags
= old_flags
;
1255 if (old_flags
& EGSY__V_DEF
)
1257 struct vms_esdf
*esdf
= (struct vms_esdf
*)vms_rec
;
1259 entry
->value
= bfd_getl64 (esdf
->value
);
1260 entry
->section
= PRIV (sections
)[bfd_getl32 (esdf
->psindx
)];
1262 if (old_flags
& EGSY__V_NORM
)
1264 PRIV (norm_sym_count
)++;
1266 entry
->code_value
= bfd_getl64 (esdf
->code_address
);
1267 entry
->code_section
=
1268 PRIV (sections
)[bfd_getl32 (esdf
->ca_psindx
)];
1276 struct vms_symbol_entry
*entry
;
1277 struct vms_egst
*egst
= (struct vms_egst
*)vms_rec
;
1280 old_flags
= bfd_getl16 (egst
->header
.flags
);
1282 entry
= add_symbol (abfd
, &egst
->namlng
);
1287 entry
->typ
= gsd_type
;
1288 entry
->data_type
= egst
->header
.datyp
;
1289 entry
->flags
= old_flags
;
1291 entry
->symbol_vector
= bfd_getl32 (egst
->value
);
1293 if (old_flags
& EGSY__V_REL
)
1294 entry
->section
= PRIV (sections
)[bfd_getl32 (egst
->psindx
)];
1296 entry
->section
= bfd_abs_section_ptr
;
1298 entry
->value
= bfd_getl64 (egst
->lp_2
);
1300 if (old_flags
& EGSY__V_NORM
)
1302 PRIV (norm_sym_count
)++;
1304 entry
->code_value
= bfd_getl64 (egst
->lp_1
);
1305 entry
->code_section
= bfd_abs_section_ptr
;
1312 /* Currently ignored. */
1317 _bfd_error_handler (_("Unknown EGSD subtype %d"), gsd_type
);
1318 bfd_set_error (bfd_error_bad_value
);
1322 PRIV (recrd
.rec_size
) -= gsd_size
;
1323 PRIV (recrd
.rec
) += gsd_size
;
1326 if (PRIV (gsd_sym_count
) > 0)
1327 abfd
->flags
|= HAS_SYMS
;
1332 /* Stack routines for vms ETIR commands. */
1334 /* Push value and section index. */
1337 _bfd_vms_push (bfd
*abfd
, bfd_vma val
, unsigned int reloc
)
1339 vms_debug2 ((4, "<push %08lx (0x%08x) at %d>\n",
1340 (unsigned long)val
, reloc
, PRIV (stackptr
)));
1342 PRIV (stack
[PRIV (stackptr
)]).value
= val
;
1343 PRIV (stack
[PRIV (stackptr
)]).reloc
= reloc
;
1345 if (PRIV (stackptr
) >= STACKSIZE
)
1347 bfd_set_error (bfd_error_bad_value
);
1348 _bfd_error_handler (_("Stack overflow (%d) in _bfd_vms_push"), PRIV (stackptr
));
1353 /* Pop value and section index. */
1356 _bfd_vms_pop (bfd
*abfd
, bfd_vma
*val
, unsigned int *rel
)
1358 if (PRIV (stackptr
) == 0)
1360 bfd_set_error (bfd_error_bad_value
);
1361 _bfd_error_handler (_("Stack underflow in _bfd_vms_pop"));
1365 *val
= PRIV (stack
[PRIV (stackptr
)]).value
;
1366 *rel
= PRIV (stack
[PRIV (stackptr
)]).reloc
;
1368 vms_debug2 ((4, "<pop %08lx (0x%08x)>\n", (unsigned long)*val
, *rel
));
1371 /* Routines to fill sections contents during tir/etir read. */
1373 /* Initialize image buffer pointer to be filled. */
1376 image_set_ptr (bfd
*abfd
, bfd_vma vma
, int sect
, struct bfd_link_info
*info
)
1380 vms_debug2 ((4, "image_set_ptr (0x%08x, sect=%d)\n", (unsigned)vma
, sect
));
1382 sec
= PRIV (sections
)[sect
];
1386 /* Reading contents to an output bfd. */
1388 if (sec
->output_section
== NULL
)
1390 /* Section discarded. */
1391 vms_debug2 ((5, " section %s discarded\n", sec
->name
));
1393 /* This is not used. */
1394 PRIV (image_section
) = NULL
;
1395 PRIV (image_offset
) = 0;
1398 PRIV (image_offset
) = sec
->output_offset
+ vma
;
1399 PRIV (image_section
) = sec
->output_section
;
1403 PRIV (image_offset
) = vma
;
1404 PRIV (image_section
) = sec
;
1408 /* Increment image buffer pointer by offset. */
1411 image_inc_ptr (bfd
*abfd
, bfd_vma offset
)
1413 vms_debug2 ((4, "image_inc_ptr (%u)\n", (unsigned)offset
));
1415 PRIV (image_offset
) += offset
;
1418 /* Save current DST location counter under specified index. */
1421 dst_define_location (bfd
*abfd
, unsigned int loc
)
1423 vms_debug2 ((4, "dst_define_location (%d)\n", (int)loc
));
1425 /* Grow the ptr offset table if necessary. */
1426 if (loc
+ 1 > PRIV (dst_ptr_offsets_count
))
1428 PRIV (dst_ptr_offsets
) = bfd_realloc (PRIV (dst_ptr_offsets
),
1429 (loc
+ 1) * sizeof (unsigned int));
1430 PRIV (dst_ptr_offsets_count
) = loc
+ 1;
1433 PRIV (dst_ptr_offsets
)[loc
] = PRIV (image_offset
);
1436 /* Restore saved DST location counter from specified index. */
1439 dst_restore_location (bfd
*abfd
, unsigned int loc
)
1441 vms_debug2 ((4, "dst_restore_location (%d)\n", (int)loc
));
1443 PRIV (image_offset
) = PRIV (dst_ptr_offsets
)[loc
];
1446 /* Retrieve saved DST location counter from specified index. */
1449 dst_retrieve_location (bfd
*abfd
, unsigned int loc
)
1451 vms_debug2 ((4, "dst_retrieve_location (%d)\n", (int)loc
));
1453 return PRIV (dst_ptr_offsets
)[loc
];
1456 /* Write multiple bytes to section image. */
1459 image_write (bfd
*abfd
, unsigned char *ptr
, int size
)
1462 _bfd_vms_debug (8, "image_write from (%p, %d) to (%ld)\n", ptr
, size
,
1463 (long)PRIV (image_offset
));
1464 _bfd_hexdump (9, ptr
, size
, 0);
1467 if (PRIV (image_section
)->contents
!= NULL
)
1469 asection
*sec
= PRIV (image_section
);
1470 file_ptr off
= PRIV (image_offset
);
1473 if (off
> (file_ptr
)sec
->size
1474 || size
> (file_ptr
)sec
->size
1475 || off
+ size
> (file_ptr
)sec
->size
)
1477 bfd_set_error (bfd_error_bad_value
);
1481 memcpy (sec
->contents
+ off
, ptr
, size
);
1484 PRIV (image_offset
) += size
;
1488 /* Write byte to section image. */
1491 image_write_b (bfd
* abfd
, unsigned int value
)
1493 unsigned char data
[1];
1495 vms_debug2 ((6, "image_write_b (%02x)\n", (int) value
));
1499 return image_write (abfd
, data
, sizeof (data
));
1502 /* Write 2-byte word to image. */
1505 image_write_w (bfd
* abfd
, unsigned int value
)
1507 unsigned char data
[2];
1509 vms_debug2 ((6, "image_write_w (%04x)\n", (int) value
));
1511 bfd_putl16 (value
, data
);
1512 return image_write (abfd
, data
, sizeof (data
));
1515 /* Write 4-byte long to image. */
1518 image_write_l (bfd
* abfd
, unsigned long value
)
1520 unsigned char data
[4];
1522 vms_debug2 ((6, "image_write_l (%08lx)\n", value
));
1524 bfd_putl32 (value
, data
);
1525 return image_write (abfd
, data
, sizeof (data
));
1528 /* Write 8-byte quad to image. */
1531 image_write_q (bfd
* abfd
, bfd_vma value
)
1533 unsigned char data
[8];
1535 vms_debug2 ((6, "image_write_q (%08lx)\n", (unsigned long)value
));
1537 bfd_putl64 (value
, data
);
1538 return image_write (abfd
, data
, sizeof (data
));
1542 _bfd_vms_etir_name (int cmd
)
1546 case ETIR__C_STA_GBL
: return "ETIR__C_STA_GBL";
1547 case ETIR__C_STA_LW
: return "ETIR__C_STA_LW";
1548 case ETIR__C_STA_QW
: return "ETIR__C_STA_QW";
1549 case ETIR__C_STA_PQ
: return "ETIR__C_STA_PQ";
1550 case ETIR__C_STA_LI
: return "ETIR__C_STA_LI";
1551 case ETIR__C_STA_MOD
: return "ETIR__C_STA_MOD";
1552 case ETIR__C_STA_CKARG
: return "ETIR__C_STA_CKARG";
1553 case ETIR__C_STO_B
: return "ETIR__C_STO_B";
1554 case ETIR__C_STO_W
: return "ETIR__C_STO_W";
1555 case ETIR__C_STO_GBL
: return "ETIR__C_STO_GBL";
1556 case ETIR__C_STO_CA
: return "ETIR__C_STO_CA";
1557 case ETIR__C_STO_RB
: return "ETIR__C_STO_RB";
1558 case ETIR__C_STO_AB
: return "ETIR__C_STO_AB";
1559 case ETIR__C_STO_OFF
: return "ETIR__C_STO_OFF";
1560 case ETIR__C_STO_IMM
: return "ETIR__C_STO_IMM";
1561 case ETIR__C_STO_IMMR
: return "ETIR__C_STO_IMMR";
1562 case ETIR__C_STO_LW
: return "ETIR__C_STO_LW";
1563 case ETIR__C_STO_QW
: return "ETIR__C_STO_QW";
1564 case ETIR__C_STO_GBL_LW
: return "ETIR__C_STO_GBL_LW";
1565 case ETIR__C_STO_LP_PSB
: return "ETIR__C_STO_LP_PSB";
1566 case ETIR__C_STO_HINT_GBL
: return "ETIR__C_STO_HINT_GBL";
1567 case ETIR__C_STO_HINT_PS
: return "ETIR__C_STO_HINT_PS";
1568 case ETIR__C_OPR_ADD
: return "ETIR__C_OPR_ADD";
1569 case ETIR__C_OPR_SUB
: return "ETIR__C_OPR_SUB";
1570 case ETIR__C_OPR_INSV
: return "ETIR__C_OPR_INSV";
1571 case ETIR__C_OPR_USH
: return "ETIR__C_OPR_USH";
1572 case ETIR__C_OPR_ROT
: return "ETIR__C_OPR_ROT";
1573 case ETIR__C_OPR_REDEF
: return "ETIR__C_OPR_REDEF";
1574 case ETIR__C_OPR_DFLIT
: return "ETIR__C_OPR_DFLIT";
1575 case ETIR__C_STC_LP
: return "ETIR__C_STC_LP";
1576 case ETIR__C_STC_GBL
: return "ETIR__C_STC_GBL";
1577 case ETIR__C_STC_GCA
: return "ETIR__C_STC_GCA";
1578 case ETIR__C_STC_PS
: return "ETIR__C_STC_PS";
1579 case ETIR__C_STC_NBH_PS
: return "ETIR__C_STC_NBH_PS";
1580 case ETIR__C_STC_NOP_GBL
: return "ETIR__C_STC_NOP_GBL";
1581 case ETIR__C_STC_NOP_PS
: return "ETIR__C_STC_NOP_PS";
1582 case ETIR__C_STC_BSR_GBL
: return "ETIR__C_STC_BSR_GBL";
1583 case ETIR__C_STC_BSR_PS
: return "ETIR__C_STC_BSR_PS";
1584 case ETIR__C_STC_LDA_GBL
: return "ETIR__C_STC_LDA_GBL";
1585 case ETIR__C_STC_LDA_PS
: return "ETIR__C_STC_LDA_PS";
1586 case ETIR__C_STC_BOH_GBL
: return "ETIR__C_STC_BOH_GBL";
1587 case ETIR__C_STC_BOH_PS
: return "ETIR__C_STC_BOH_PS";
1588 case ETIR__C_STC_NBH_GBL
: return "ETIR__C_STC_NBH_GBL";
1589 case ETIR__C_STC_LP_PSB
: return "ETIR__C_STC_LP_PSB";
1590 case ETIR__C_CTL_SETRB
: return "ETIR__C_CTL_SETRB";
1591 case ETIR__C_CTL_AUGRB
: return "ETIR__C_CTL_AUGRB";
1592 case ETIR__C_CTL_DFLOC
: return "ETIR__C_CTL_DFLOC";
1593 case ETIR__C_CTL_STLOC
: return "ETIR__C_CTL_STLOC";
1594 case ETIR__C_CTL_STKDL
: return "ETIR__C_CTL_STKDL";
1597 /* These names have not yet been added to this switch statement. */
1598 _bfd_error_handler (_("unknown ETIR command %d"), cmd
);
1603 #define HIGHBIT(op) ((op & 0x80000000L) == 0x80000000L)
1606 _bfd_vms_get_value (bfd
*abfd
, const unsigned char *ascic
,
1607 struct bfd_link_info
*info
,
1609 struct alpha_vms_link_hash_entry
**hp
)
1614 struct alpha_vms_link_hash_entry
*h
;
1616 /* Not linking. Do not try to resolve the symbol. */
1625 for (i
= 0; i
< len
; i
++)
1626 name
[i
] = ascic
[i
+ 1];
1629 h
= (struct alpha_vms_link_hash_entry
*)
1630 bfd_link_hash_lookup (info
->hash
, name
, FALSE
, FALSE
, TRUE
);
1635 && (h
->root
.type
== bfd_link_hash_defined
1636 || h
->root
.type
== bfd_link_hash_defweak
))
1637 *vma
= h
->root
.u
.def
.value
1638 + h
->root
.u
.def
.section
->output_offset
1639 + h
->root
.u
.def
.section
->output_section
->vma
;
1640 else if (h
&& h
->root
.type
== bfd_link_hash_undefweak
)
1644 (*info
->callbacks
->undefined_symbol
)
1645 (info
, name
, abfd
, PRIV (image_section
), PRIV (image_offset
), TRUE
);
1652 #define RELC_SHR_BASE 0x10000
1653 #define RELC_SEC_BASE 0x20000
1654 #define RELC_MASK 0x0ffff
1657 alpha_vms_sym_to_ctxt (struct alpha_vms_link_hash_entry
*h
)
1659 /* Handle undefined symbols. */
1660 if (h
== NULL
|| h
->sym
== NULL
)
1663 if (h
->sym
->typ
== EGSD__C_SYMG
)
1665 if (h
->sym
->flags
& EGSY__V_REL
)
1666 return RELC_SHR_BASE
+ PRIV2 (h
->sym
->owner
, shr_index
);
1669 /* Can this happen (non-relocatable symg) ? I'd like to see
1674 if (h
->sym
->typ
== EGSD__C_SYM
)
1676 if (h
->sym
->flags
& EGSY__V_REL
)
1685 alpha_vms_get_sym_value (asection
*sect
, bfd_vma addr
)
1687 return sect
->output_section
->vma
+ sect
->output_offset
+ addr
;
1691 alpha_vms_fix_sec_rel (bfd
*abfd
, struct bfd_link_info
*info
,
1692 unsigned int rel
, bfd_vma vma
)
1694 asection
*sec
= PRIV (sections
)[rel
& RELC_MASK
];
1698 if (sec
->output_section
== NULL
)
1700 return vma
+ sec
->output_section
->vma
+ sec
->output_offset
;
1703 return vma
+ sec
->vma
;
1706 /* Read an ETIR record from ABFD. If INFO is not null, put the content into
1707 the output section (used during linking).
1708 Return FALSE in case of error. */
1711 _bfd_vms_slurp_etir (bfd
*abfd
, struct bfd_link_info
*info
)
1714 unsigned int length
;
1715 unsigned char *maxptr
;
1720 struct alpha_vms_link_hash_entry
*h
;
1722 PRIV (recrd
.rec
) += ETIR__C_HEADER_SIZE
;
1723 PRIV (recrd
.rec_size
) -= ETIR__C_HEADER_SIZE
;
1725 ptr
= PRIV (recrd
.rec
);
1726 length
= PRIV (recrd
.rec_size
);
1727 maxptr
= ptr
+ length
;
1729 vms_debug2 ((2, "ETIR: %d bytes\n", length
));
1731 while (ptr
< maxptr
)
1733 int cmd
= bfd_getl16 (ptr
);
1734 int cmd_length
= bfd_getl16 (ptr
+ 2);
1739 _bfd_vms_debug (4, "etir: %s(%d)\n",
1740 _bfd_vms_etir_name (cmd
), cmd
);
1741 _bfd_hexdump (8, ptr
, cmd_length
- 4, 0);
1749 stack 32 bit value of symbol (high bits set to 0). */
1750 case ETIR__C_STA_GBL
:
1751 _bfd_vms_get_value (abfd
, ptr
, info
, &op1
, &h
);
1752 _bfd_vms_push (abfd
, op1
, alpha_vms_sym_to_ctxt (h
));
1758 stack 32 bit value, sign extend to 64 bit. */
1759 case ETIR__C_STA_LW
:
1760 _bfd_vms_push (abfd
, bfd_getl32 (ptr
), RELC_NONE
);
1766 stack 64 bit value of symbol. */
1767 case ETIR__C_STA_QW
:
1768 _bfd_vms_push (abfd
, bfd_getl64 (ptr
), RELC_NONE
);
1771 /* Stack psect base plus quadword offset
1772 arg: lw section index
1773 qw signed quadword offset (low 32 bits)
1775 Stack qw argument and section index
1776 (see ETIR__C_STO_OFF, ETIR__C_CTL_SETRB). */
1777 case ETIR__C_STA_PQ
:
1781 psect
= bfd_getl32 (ptr
);
1782 if ((unsigned int) psect
>= PRIV (section_count
))
1784 _bfd_error_handler (_("bad section index in %s"),
1785 _bfd_vms_etir_name (cmd
));
1786 bfd_set_error (bfd_error_bad_value
);
1789 op1
= bfd_getl64 (ptr
+ 4);
1790 _bfd_vms_push (abfd
, op1
, psect
| RELC_SEC_BASE
);
1794 case ETIR__C_STA_LI
:
1795 case ETIR__C_STA_MOD
:
1796 case ETIR__C_STA_CKARG
:
1797 _bfd_error_handler (_("unsupported STA cmd %s"),
1798 _bfd_vms_etir_name (cmd
));
1802 /* Store byte: pop stack, write byte
1805 _bfd_vms_pop (abfd
, &op1
, &rel1
);
1806 if (rel1
!= RELC_NONE
)
1808 image_write_b (abfd
, (unsigned int) op1
& 0xff);
1811 /* Store word: pop stack, write word
1814 _bfd_vms_pop (abfd
, &op1
, &rel1
);
1815 if (rel1
!= RELC_NONE
)
1817 image_write_w (abfd
, (unsigned int) op1
& 0xffff);
1820 /* Store longword: pop stack, write longword
1822 case ETIR__C_STO_LW
:
1823 _bfd_vms_pop (abfd
, &op1
, &rel1
);
1824 if (rel1
& RELC_SEC_BASE
)
1826 op1
= alpha_vms_fix_sec_rel (abfd
, info
, rel1
, op1
);
1829 else if (rel1
& RELC_SHR_BASE
)
1831 alpha_vms_add_fixup_lr (info
, rel1
& RELC_MASK
, op1
);
1834 if (rel1
!= RELC_NONE
)
1836 if (rel1
!= RELC_REL
)
1838 alpha_vms_add_lw_reloc (info
);
1840 image_write_l (abfd
, op1
);
1843 /* Store quadword: pop stack, write quadword
1845 case ETIR__C_STO_QW
:
1846 _bfd_vms_pop (abfd
, &op1
, &rel1
);
1847 if (rel1
& RELC_SEC_BASE
)
1849 op1
= alpha_vms_fix_sec_rel (abfd
, info
, rel1
, op1
);
1852 else if (rel1
& RELC_SHR_BASE
)
1854 if (rel1
!= RELC_NONE
)
1856 if (rel1
!= RELC_REL
)
1858 alpha_vms_add_qw_reloc (info
);
1860 image_write_q (abfd
, op1
);
1863 /* Store immediate repeated: pop stack for repeat count
1866 case ETIR__C_STO_IMMR
:
1870 size
= bfd_getl32 (ptr
);
1871 _bfd_vms_pop (abfd
, &op1
, &rel1
);
1872 if (rel1
!= RELC_NONE
)
1875 image_write (abfd
, ptr
+ 4, size
);
1879 /* Store global: write symbol value
1880 arg: cs global symbol name. */
1881 case ETIR__C_STO_GBL
:
1882 _bfd_vms_get_value (abfd
, ptr
, info
, &op1
, &h
);
1885 if (h
->sym
->typ
== EGSD__C_SYMG
)
1887 alpha_vms_add_fixup_qr
1888 (info
, abfd
, h
->sym
->owner
, h
->sym
->symbol_vector
);
1893 op1
= alpha_vms_get_sym_value (h
->sym
->section
,
1895 alpha_vms_add_qw_reloc (info
);
1898 image_write_q (abfd
, op1
);
1901 /* Store code address: write address of entry point
1902 arg: cs global symbol name (procedure). */
1903 case ETIR__C_STO_CA
:
1904 _bfd_vms_get_value (abfd
, ptr
, info
, &op1
, &h
);
1907 if (h
->sym
->flags
& EGSY__V_NORM
)
1909 /* That's really a procedure. */
1910 if (h
->sym
->typ
== EGSD__C_SYMG
)
1912 alpha_vms_add_fixup_ca (info
, abfd
, h
->sym
->owner
);
1913 op1
= h
->sym
->symbol_vector
;
1917 op1
= alpha_vms_get_sym_value (h
->sym
->code_section
,
1918 h
->sym
->code_value
);
1919 alpha_vms_add_qw_reloc (info
);
1924 /* Symbol is not a procedure. */
1928 image_write_q (abfd
, op1
);
1931 /* Store offset to psect: pop stack, add low 32 bits to base of psect
1933 case ETIR__C_STO_OFF
:
1934 _bfd_vms_pop (abfd
, &op1
, &rel1
);
1936 if (!(rel1
& RELC_SEC_BASE
))
1939 op1
= alpha_vms_fix_sec_rel (abfd
, info
, rel1
, op1
);
1941 image_write_q (abfd
, op1
);
1945 arg: lw count of bytes
1947 case ETIR__C_STO_IMM
:
1951 size
= bfd_getl32 (ptr
);
1952 image_write (abfd
, ptr
+ 4, size
);
1956 /* This code is 'reserved to digital' according to the openVMS
1957 linker manual, however it is generated by the DEC C compiler
1958 and defined in the include file.
1959 FIXME, since the following is just a guess
1960 store global longword: store 32bit value of symbol
1961 arg: cs symbol name. */
1962 case ETIR__C_STO_GBL_LW
:
1963 _bfd_vms_get_value (abfd
, ptr
, info
, &op1
, &h
);
1967 image_write_l (abfd
, op1
);
1970 case ETIR__C_STO_RB
:
1971 case ETIR__C_STO_AB
:
1972 case ETIR__C_STO_LP_PSB
:
1973 _bfd_error_handler (_("%s: not supported"),
1974 _bfd_vms_etir_name (cmd
));
1977 case ETIR__C_STO_HINT_GBL
:
1978 case ETIR__C_STO_HINT_PS
:
1979 _bfd_error_handler (_("%s: not implemented"),
1980 _bfd_vms_etir_name (cmd
));
1984 /* 200 Store-conditional Linkage Pair
1986 case ETIR__C_STC_LP
:
1988 /* 202 Store-conditional Address at global address
1992 case ETIR__C_STC_GBL
:
1994 /* 203 Store-conditional Code Address at global address
1996 cs procedure name. */
1997 case ETIR__C_STC_GCA
:
1999 /* 204 Store-conditional Address at psect + offset
2003 case ETIR__C_STC_PS
:
2004 _bfd_error_handler (_("%s: not supported"),
2005 _bfd_vms_etir_name (cmd
));
2009 /* 201 Store-conditional Linkage Pair with Procedure Signature
2015 case ETIR__C_STC_LP_PSB
:
2016 _bfd_vms_get_value (abfd
, ptr
+ 4, info
, &op1
, &h
);
2019 if (h
->sym
->typ
== EGSD__C_SYMG
)
2021 alpha_vms_add_fixup_lp (info
, abfd
, h
->sym
->owner
);
2022 op1
= h
->sym
->symbol_vector
;
2027 op1
= alpha_vms_get_sym_value (h
->sym
->code_section
,
2028 h
->sym
->code_value
);
2029 op2
= alpha_vms_get_sym_value (h
->sym
->section
,
2035 /* Undefined symbol. */
2039 image_write_q (abfd
, op1
);
2040 image_write_q (abfd
, op2
);
2043 /* 205 Store-conditional NOP at address of global
2045 case ETIR__C_STC_NOP_GBL
:
2048 /* 207 Store-conditional BSR at global address
2051 case ETIR__C_STC_BSR_GBL
:
2054 /* 209 Store-conditional LDA at global address
2057 case ETIR__C_STC_LDA_GBL
:
2060 /* 211 Store-conditional BSR or Hint at global address
2063 case ETIR__C_STC_BOH_GBL
:
2064 /* Currentl ignored. */
2067 /* 213 Store-conditional NOP,BSR or HINT at global address
2070 case ETIR__C_STC_NBH_GBL
:
2072 /* 206 Store-conditional NOP at pect + offset
2075 case ETIR__C_STC_NOP_PS
:
2077 /* 208 Store-conditional BSR at pect + offset
2080 case ETIR__C_STC_BSR_PS
:
2082 /* 210 Store-conditional LDA at psect + offset
2085 case ETIR__C_STC_LDA_PS
:
2087 /* 212 Store-conditional BSR or Hint at pect + offset
2090 case ETIR__C_STC_BOH_PS
:
2092 /* 214 Store-conditional NOP, BSR or HINT at psect + offset
2094 case ETIR__C_STC_NBH_PS
:
2095 _bfd_error_handler (_("%s: not supported"),
2096 _bfd_vms_etir_name (cmd
));
2100 /* Det relocation base: pop stack, set image location counter
2102 case ETIR__C_CTL_SETRB
:
2103 _bfd_vms_pop (abfd
, &op1
, &rel1
);
2104 if (!(rel1
& RELC_SEC_BASE
))
2106 image_set_ptr (abfd
, op1
, rel1
& RELC_MASK
, info
);
2109 /* Augment relocation base: increment image location counter by offset
2110 arg: lw offset value. */
2111 case ETIR__C_CTL_AUGRB
:
2112 op1
= bfd_getl32 (ptr
);
2113 image_inc_ptr (abfd
, op1
);
2116 /* Define location: pop index, save location counter under index
2118 case ETIR__C_CTL_DFLOC
:
2119 _bfd_vms_pop (abfd
, &op1
, &rel1
);
2120 if (rel1
!= RELC_NONE
)
2122 dst_define_location (abfd
, op1
);
2125 /* Set location: pop index, restore location counter from index
2127 case ETIR__C_CTL_STLOC
:
2128 _bfd_vms_pop (abfd
, &op1
, &rel1
);
2129 if (rel1
!= RELC_NONE
)
2131 dst_restore_location (abfd
, op1
);
2134 /* Stack defined location: pop index, push location counter from index
2136 case ETIR__C_CTL_STKDL
:
2137 _bfd_vms_pop (abfd
, &op1
, &rel1
);
2138 if (rel1
!= RELC_NONE
)
2140 _bfd_vms_push (abfd
, dst_retrieve_location (abfd
, op1
), RELC_NONE
);
2143 case ETIR__C_OPR_NOP
: /* No-op. */
2146 case ETIR__C_OPR_ADD
: /* Add. */
2147 _bfd_vms_pop (abfd
, &op1
, &rel1
);
2148 _bfd_vms_pop (abfd
, &op2
, &rel2
);
2149 if (rel1
== RELC_NONE
&& rel2
!= RELC_NONE
)
2151 else if (rel1
!= RELC_NONE
&& rel2
!= RELC_NONE
)
2153 _bfd_vms_push (abfd
, op1
+ op2
, rel1
);
2156 case ETIR__C_OPR_SUB
: /* Subtract. */
2157 _bfd_vms_pop (abfd
, &op1
, &rel1
);
2158 _bfd_vms_pop (abfd
, &op2
, &rel2
);
2159 if (rel1
== RELC_NONE
&& rel2
!= RELC_NONE
)
2161 else if ((rel1
& RELC_SEC_BASE
) && (rel2
& RELC_SEC_BASE
))
2163 op1
= alpha_vms_fix_sec_rel (abfd
, info
, rel1
, op1
);
2164 op2
= alpha_vms_fix_sec_rel (abfd
, info
, rel2
, op2
);
2167 else if (rel1
!= RELC_NONE
&& rel2
!= RELC_NONE
)
2169 _bfd_vms_push (abfd
, op2
- op1
, rel1
);
2172 case ETIR__C_OPR_MUL
: /* Multiply. */
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_DIV
: /* Divide. */
2181 _bfd_vms_pop (abfd
, &op1
, &rel1
);
2182 _bfd_vms_pop (abfd
, &op2
, &rel2
);
2183 if (rel1
!= RELC_NONE
|| rel2
!= RELC_NONE
)
2186 _bfd_vms_push (abfd
, 0, RELC_NONE
);
2188 _bfd_vms_push (abfd
, op2
/ op1
, RELC_NONE
);
2191 case ETIR__C_OPR_AND
: /* Logical AND. */
2192 _bfd_vms_pop (abfd
, &op1
, &rel1
);
2193 _bfd_vms_pop (abfd
, &op2
, &rel2
);
2194 if (rel1
!= RELC_NONE
|| rel2
!= RELC_NONE
)
2196 _bfd_vms_push (abfd
, op1
& op2
, RELC_NONE
);
2199 case ETIR__C_OPR_IOR
: /* Logical inclusive OR. */
2200 _bfd_vms_pop (abfd
, &op1
, &rel1
);
2201 _bfd_vms_pop (abfd
, &op2
, &rel2
);
2202 if (rel1
!= RELC_NONE
|| rel2
!= RELC_NONE
)
2204 _bfd_vms_push (abfd
, op1
| op2
, RELC_NONE
);
2207 case ETIR__C_OPR_EOR
: /* Logical exclusive OR. */
2208 _bfd_vms_pop (abfd
, &op1
, &rel1
);
2209 _bfd_vms_pop (abfd
, &op2
, &rel2
);
2210 if (rel1
!= RELC_NONE
|| rel2
!= RELC_NONE
)
2212 _bfd_vms_push (abfd
, op1
^ op2
, RELC_NONE
);
2215 case ETIR__C_OPR_NEG
: /* Negate. */
2216 _bfd_vms_pop (abfd
, &op1
, &rel1
);
2217 if (rel1
!= RELC_NONE
)
2219 _bfd_vms_push (abfd
, -op1
, RELC_NONE
);
2222 case ETIR__C_OPR_COM
: /* Complement. */
2223 _bfd_vms_pop (abfd
, &op1
, &rel1
);
2224 if (rel1
!= RELC_NONE
)
2226 _bfd_vms_push (abfd
, ~op1
, RELC_NONE
);
2229 case ETIR__C_OPR_ASH
: /* Arithmetic shift. */
2230 _bfd_vms_pop (abfd
, &op1
, &rel1
);
2231 _bfd_vms_pop (abfd
, &op2
, &rel2
);
2232 if (rel1
!= RELC_NONE
|| rel2
!= RELC_NONE
)
2235 _bfd_error_handler (_("invalid use of %s with contexts"),
2236 _bfd_vms_etir_name (cmd
));
2239 if ((int)op2
< 0) /* Shift right. */
2241 else /* Shift left. */
2243 _bfd_vms_push (abfd
, op1
, RELC_NONE
); /* FIXME: sym. */
2246 case ETIR__C_OPR_INSV
: /* Insert field. */
2247 case ETIR__C_OPR_USH
: /* Unsigned shift. */
2248 case ETIR__C_OPR_ROT
: /* Rotate. */
2249 case ETIR__C_OPR_REDEF
: /* Redefine symbol to current location. */
2250 case ETIR__C_OPR_DFLIT
: /* Define a literal. */
2251 _bfd_error_handler (_("%s: not supported"),
2252 _bfd_vms_etir_name (cmd
));
2256 case ETIR__C_OPR_SEL
: /* Select. */
2257 _bfd_vms_pop (abfd
, &op1
, &rel1
);
2259 _bfd_vms_pop (abfd
, &op1
, &rel1
);
2262 _bfd_vms_pop (abfd
, &op1
, &rel1
);
2263 _bfd_vms_pop (abfd
, &op2
, &rel2
);
2264 _bfd_vms_push (abfd
, op1
, rel1
);
2269 _bfd_error_handler (_("reserved cmd %d"), cmd
);
2274 ptr
+= cmd_length
- 4;
2280 /* Process EDBG/ETBT record.
2281 Return TRUE on success, FALSE on error */
2284 vms_slurp_debug (bfd
*abfd
)
2286 asection
*section
= PRIV (dst_section
);
2288 if (section
== NULL
)
2290 /* We have no way to find out beforehand how much debug info there
2291 is in an object file, so pick an initial amount and grow it as
2293 flagword flags
= SEC_HAS_CONTENTS
| SEC_DEBUGGING
| SEC_RELOC
2296 section
= bfd_make_section (abfd
, "$DST$");
2299 if (!bfd_set_section_flags (abfd
, section
, flags
))
2301 PRIV (dst_section
) = section
;
2304 PRIV (image_section
) = section
;
2305 PRIV (image_offset
) = section
->size
;
2307 if (!_bfd_vms_slurp_etir (abfd
, NULL
))
2310 section
->size
= PRIV (image_offset
);
2314 /* Process EDBG record.
2315 Return TRUE on success, FALSE on error. */
2318 _bfd_vms_slurp_edbg (bfd
*abfd
)
2320 vms_debug2 ((2, "EDBG\n"));
2322 abfd
->flags
|= HAS_DEBUG
| HAS_LINENO
;
2324 return vms_slurp_debug (abfd
);
2327 /* Process ETBT record.
2328 Return TRUE on success, FALSE on error. */
2331 _bfd_vms_slurp_etbt (bfd
*abfd
)
2333 vms_debug2 ((2, "ETBT\n"));
2335 abfd
->flags
|= HAS_LINENO
;
2337 return vms_slurp_debug (abfd
);
2340 /* Process EEOM record.
2341 Return TRUE on success, FALSE on error. */
2344 _bfd_vms_slurp_eeom (bfd
*abfd
)
2346 struct vms_eeom
*eeom
= (struct vms_eeom
*) PRIV (recrd
.rec
);
2348 vms_debug2 ((2, "EEOM\n"));
2350 PRIV (eom_data
).eom_l_total_lps
= bfd_getl32 (eeom
->total_lps
);
2351 PRIV (eom_data
).eom_w_comcod
= bfd_getl16 (eeom
->comcod
);
2352 if (PRIV (eom_data
).eom_w_comcod
> 1)
2354 _bfd_error_handler (_("Object module NOT error-free !\n"));
2355 bfd_set_error (bfd_error_bad_value
);
2359 PRIV (eom_data
).eom_has_transfer
= FALSE
;
2360 if (PRIV (recrd
.rec_size
) > 10)
2362 PRIV (eom_data
).eom_has_transfer
= TRUE
;
2363 PRIV (eom_data
).eom_b_tfrflg
= eeom
->tfrflg
;
2364 PRIV (eom_data
).eom_l_psindx
= bfd_getl32 (eeom
->psindx
);
2365 PRIV (eom_data
).eom_l_tfradr
= bfd_getl32 (eeom
->tfradr
);
2367 abfd
->start_address
= PRIV (eom_data
).eom_l_tfradr
;
2372 /* Slurp an ordered set of VMS object records. Return FALSE on error. */
2375 _bfd_vms_slurp_object_records (bfd
* abfd
)
2382 vms_debug2 ((7, "reading at %08lx\n", (unsigned long)bfd_tell (abfd
)));
2384 type
= _bfd_vms_get_object_record (abfd
);
2387 vms_debug2 ((2, "next_record failed\n"));
2394 err
= _bfd_vms_slurp_ehdr (abfd
);
2397 err
= _bfd_vms_slurp_eeom (abfd
);
2400 err
= _bfd_vms_slurp_egsd (abfd
);
2403 err
= TRUE
; /* _bfd_vms_slurp_etir (abfd); */
2406 err
= _bfd_vms_slurp_edbg (abfd
);
2409 err
= _bfd_vms_slurp_etbt (abfd
);
2416 vms_debug2 ((2, "slurp type %d failed\n", type
));
2420 while (type
!= EOBJ__C_EEOM
);
2425 /* Initialize private data */
2427 vms_initialize (bfd
* abfd
)
2431 amt
= sizeof (struct vms_private_data_struct
);
2432 abfd
->tdata
.any
= bfd_zalloc (abfd
, amt
);
2433 if (abfd
->tdata
.any
== NULL
)
2436 PRIV (recrd
.file_format
) = FF_UNKNOWN
;
2438 amt
= sizeof (struct stack_struct
) * STACKSIZE
;
2439 PRIV (stack
) = bfd_alloc (abfd
, amt
);
2440 if (PRIV (stack
) == NULL
)
2446 bfd_release (abfd
, abfd
->tdata
.any
);
2447 abfd
->tdata
.any
= NULL
;
2451 /* Check the format for a file being read.
2452 Return a (bfd_target *) if it's an object file or zero if not. */
2454 static const struct bfd_target
*
2455 alpha_vms_object_p (bfd
*abfd
)
2457 void *tdata_save
= abfd
->tdata
.any
;
2458 unsigned int test_len
;
2461 vms_debug2 ((1, "vms_object_p(%p)\n", abfd
));
2463 /* Allocate alpha-vms specific data. */
2464 if (!vms_initialize (abfd
))
2467 if (bfd_seek (abfd
, (file_ptr
) 0, SEEK_SET
))
2468 goto err_wrong_format
;
2470 /* The first challenge with VMS is to discover the kind of the file.
2472 Image files (executable or shared images) are stored as a raw
2473 stream of bytes (like on UNIX), but there is no magic number.
2475 Object files are written with RMS (record management service), ie
2476 each records are preceeded by its length (on a word - 2 bytes), and
2477 padded for word-alignment. That would be simple but when files
2478 are transfered to a UNIX filesystem (using ftp), records are lost.
2479 Only the raw content of the records are transfered. Fortunately,
2480 the Alpha Object file format also store the length of the record
2481 in the records. Is that clear ? */
2483 /* Minimum is 6 bytes for objects (2 bytes size, 2 bytes record id,
2484 2 bytes size repeated) and 12 bytes for images (4 bytes major id,
2485 4 bytes minor id, 4 bytes length). */
2488 /* Size the main buffer. */
2489 buf
= (unsigned char *) bfd_malloc (test_len
);
2492 PRIV (recrd
.buf
) = buf
;
2493 PRIV (recrd
.buf_size
) = test_len
;
2495 /* Initialize the record pointer. */
2496 PRIV (recrd
.rec
) = buf
;
2498 if (bfd_bread (buf
, test_len
, abfd
) != test_len
)
2499 goto err_wrong_format
;
2501 /* Is it an image? */
2502 if ((bfd_getl32 (buf
) == EIHD__K_MAJORID
)
2503 && (bfd_getl32 (buf
+ 4) == EIHD__K_MINORID
))
2505 unsigned int to_read
;
2506 unsigned int read_so_far
;
2507 unsigned int remaining
;
2508 unsigned int eisd_offset
, eihs_offset
;
2510 /* Extract the header size. */
2511 PRIV (recrd
.rec_size
) = bfd_getl32 (buf
+ EIHD__L_SIZE
);
2513 /* The header size is 0 for DSF files. */
2514 if (PRIV (recrd
.rec_size
) == 0)
2515 PRIV (recrd
.rec_size
) = sizeof (struct vms_eihd
);
2517 if (PRIV (recrd
.rec_size
) > PRIV (recrd
.buf_size
))
2519 buf
= bfd_realloc_or_free (buf
, PRIV (recrd
.rec_size
));
2523 PRIV (recrd
.buf
) = NULL
;
2526 PRIV (recrd
.buf
) = buf
;
2527 PRIV (recrd
.buf_size
) = PRIV (recrd
.rec_size
);
2530 /* Read the remaining record. */
2531 remaining
= PRIV (recrd
.rec_size
) - test_len
;
2532 to_read
= MIN (VMS_BLOCK_SIZE
- test_len
, remaining
);
2533 read_so_far
= test_len
;
2535 while (remaining
> 0)
2537 if (bfd_bread (buf
+ read_so_far
, to_read
, abfd
) != to_read
)
2538 goto err_wrong_format
;
2540 read_so_far
+= to_read
;
2541 remaining
-= to_read
;
2543 to_read
= MIN (VMS_BLOCK_SIZE
, remaining
);
2546 /* Reset the record pointer. */
2547 PRIV (recrd
.rec
) = buf
;
2549 /* PR 17512: file: 7d7c57c2. */
2550 if (PRIV (recrd
.rec_size
) < sizeof (struct vms_eihd
))
2552 vms_debug2 ((2, "file type is image\n"));
2554 if (!_bfd_vms_slurp_eihd (abfd
, &eisd_offset
, &eihs_offset
))
2555 goto err_wrong_format
;
2557 if (!_bfd_vms_slurp_eisd (abfd
, eisd_offset
))
2558 goto err_wrong_format
;
2560 /* EIHS is optional. */
2561 if (eihs_offset
!= 0 && !_bfd_vms_slurp_eihs (abfd
, eihs_offset
))
2562 goto err_wrong_format
;
2568 /* Assume it's a module and adjust record pointer if necessary. */
2569 maybe_adjust_record_pointer_for_object (abfd
);
2571 /* But is it really a module? */
2572 if (bfd_getl16 (PRIV (recrd
.rec
)) <= EOBJ__C_MAXRECTYP
2573 && bfd_getl16 (PRIV (recrd
.rec
) + 2) <= EOBJ__C_MAXRECSIZ
)
2575 if (vms_get_remaining_object_record (abfd
, test_len
) <= 0)
2576 goto err_wrong_format
;
2578 vms_debug2 ((2, "file type is module\n"));
2580 type
= bfd_getl16 (PRIV (recrd
.rec
));
2581 if (type
!= EOBJ__C_EMH
|| !_bfd_vms_slurp_ehdr (abfd
))
2582 goto err_wrong_format
;
2584 if (!_bfd_vms_slurp_object_records (abfd
))
2585 goto err_wrong_format
;
2588 goto err_wrong_format
;
2591 /* Set arch_info to alpha. */
2593 if (! bfd_default_set_arch_mach (abfd
, bfd_arch_alpha
, 0))
2594 goto err_wrong_format
;
2599 bfd_set_error (bfd_error_wrong_format
);
2602 if (PRIV (recrd
.buf
))
2603 free (PRIV (recrd
.buf
));
2604 if (abfd
->tdata
.any
!= tdata_save
&& abfd
->tdata
.any
!= NULL
)
2605 bfd_release (abfd
, abfd
->tdata
.any
);
2606 abfd
->tdata
.any
= tdata_save
;
2612 /* Write an EMH/MHD record. */
2615 _bfd_vms_write_emh (bfd
*abfd
)
2617 struct vms_rec_wr
*recwr
= &PRIV (recwr
);
2619 _bfd_vms_output_alignment (recwr
, 2);
2622 _bfd_vms_output_begin (recwr
, EOBJ__C_EMH
);
2623 _bfd_vms_output_short (recwr
, EMH__C_MHD
);
2624 _bfd_vms_output_short (recwr
, EOBJ__C_STRLVL
);
2625 _bfd_vms_output_long (recwr
, 0);
2626 _bfd_vms_output_long (recwr
, 0);
2627 _bfd_vms_output_long (recwr
, MAX_OUTREC_SIZE
);
2629 /* Create module name from filename. */
2630 if (bfd_get_filename (abfd
) != 0)
2632 char *module
= vms_get_module_name (bfd_get_filename (abfd
), TRUE
);
2633 _bfd_vms_output_counted (recwr
, module
);
2637 _bfd_vms_output_counted (recwr
, "NONAME");
2639 _bfd_vms_output_counted (recwr
, BFD_VERSION_STRING
);
2640 _bfd_vms_output_dump (recwr
, get_vms_time_string (), EMH_DATE_LENGTH
);
2641 _bfd_vms_output_fill (recwr
, 0, EMH_DATE_LENGTH
);
2642 _bfd_vms_output_end (abfd
, recwr
);
2645 /* Write an EMH/LMN record. */
2648 _bfd_vms_write_lmn (bfd
*abfd
, const char *name
)
2651 struct vms_rec_wr
*recwr
= &PRIV (recwr
);
2652 unsigned int ver
= BFD_VERSION
/ 10000;
2655 _bfd_vms_output_begin (recwr
, EOBJ__C_EMH
);
2656 _bfd_vms_output_short (recwr
, EMH__C_LNM
);
2657 snprintf (version
, sizeof (version
), "%s %d.%d.%d", name
,
2658 ver
/ 10000, (ver
/ 100) % 100, ver
% 100);
2659 _bfd_vms_output_dump (recwr
, (unsigned char *)version
, strlen (version
));
2660 _bfd_vms_output_end (abfd
, recwr
);
2664 /* Write eom record for bfd abfd. Return FALSE on error. */
2667 _bfd_vms_write_eeom (bfd
*abfd
)
2669 struct vms_rec_wr
*recwr
= &PRIV (recwr
);
2671 vms_debug2 ((2, "vms_write_eeom\n"));
2673 _bfd_vms_output_alignment (recwr
, 2);
2675 _bfd_vms_output_begin (recwr
, EOBJ__C_EEOM
);
2676 _bfd_vms_output_long (recwr
, PRIV (vms_linkage_index
+ 1) >> 1);
2677 _bfd_vms_output_byte (recwr
, 0); /* Completion code. */
2678 _bfd_vms_output_byte (recwr
, 0); /* Fill byte. */
2680 if ((abfd
->flags
& EXEC_P
) == 0
2681 && bfd_get_start_address (abfd
) != (bfd_vma
)-1)
2685 section
= bfd_get_section_by_name (abfd
, ".link");
2688 bfd_set_error (bfd_error_nonrepresentable_section
);
2691 _bfd_vms_output_short (recwr
, 0);
2692 _bfd_vms_output_long (recwr
, (unsigned long) section
->target_index
);
2693 _bfd_vms_output_long (recwr
,
2694 (unsigned long) bfd_get_start_address (abfd
));
2695 _bfd_vms_output_long (recwr
, 0);
2698 _bfd_vms_output_end (abfd
, recwr
);
2703 vector_grow1 (struct vector_type
*vec
, size_t elsz
)
2705 if (vec
->nbr_el
+ 1 < vec
->max_el
)
2708 if (vec
->max_el
== 0)
2711 vec
->els
= bfd_malloc2 (vec
->max_el
, elsz
);
2716 vec
->els
= bfd_realloc2 (vec
->els
, vec
->max_el
, elsz
);
2720 /* Bump ABFD file position to next block. */
2723 alpha_vms_file_position_block (bfd
*abfd
)
2726 PRIV (file_pos
) += VMS_BLOCK_SIZE
- 1;
2727 PRIV (file_pos
) -= (PRIV (file_pos
) % VMS_BLOCK_SIZE
);
2730 /* Convert from internal structure SRC to external structure DST. */
2733 alpha_vms_swap_eisd_out (struct vms_internal_eisd_map
*src
,
2734 struct vms_eisd
*dst
)
2736 bfd_putl32 (src
->u
.eisd
.majorid
, dst
->majorid
);
2737 bfd_putl32 (src
->u
.eisd
.minorid
, dst
->minorid
);
2738 bfd_putl32 (src
->u
.eisd
.eisdsize
, dst
->eisdsize
);
2739 if (src
->u
.eisd
.eisdsize
<= EISD__K_LENEND
)
2741 bfd_putl32 (src
->u
.eisd
.secsize
, dst
->secsize
);
2742 bfd_putl64 (src
->u
.eisd
.virt_addr
, dst
->virt_addr
);
2743 bfd_putl32 (src
->u
.eisd
.flags
, dst
->flags
);
2744 bfd_putl32 (src
->u
.eisd
.vbn
, dst
->vbn
);
2745 dst
->pfc
= src
->u
.eisd
.pfc
;
2746 dst
->matchctl
= src
->u
.eisd
.matchctl
;
2747 dst
->type
= src
->u
.eisd
.type
;
2749 if (src
->u
.eisd
.flags
& EISD__M_GBL
)
2751 bfd_putl32 (src
->u
.gbl_eisd
.ident
, dst
->ident
);
2752 memcpy (dst
->gblnam
, src
->u
.gbl_eisd
.gblnam
,
2753 src
->u
.gbl_eisd
.gblnam
[0] + 1);
2757 /* Append EISD to the list of extra eisd for ABFD. */
2760 alpha_vms_append_extra_eisd (bfd
*abfd
, struct vms_internal_eisd_map
*eisd
)
2763 if (PRIV (gbl_eisd_head
) == NULL
)
2764 PRIV (gbl_eisd_head
) = eisd
;
2766 PRIV (gbl_eisd_tail
)->next
= eisd
;
2767 PRIV (gbl_eisd_tail
) = eisd
;
2770 /* Create an EISD for shared image SHRIMG.
2771 Return FALSE in case of error. */
2774 alpha_vms_create_eisd_for_shared (bfd
*abfd
, bfd
*shrimg
)
2776 struct vms_internal_eisd_map
*eisd
;
2779 namlen
= strlen (PRIV2 (shrimg
, hdr_data
.hdr_t_name
));
2780 if (namlen
+ 5 > EISD__K_GBLNAMLEN
)
2786 eisd
= bfd_alloc (abfd
, sizeof (*eisd
));
2790 /* Fill the fields. */
2791 eisd
->u
.gbl_eisd
.common
.majorid
= EISD__K_MAJORID
;
2792 eisd
->u
.gbl_eisd
.common
.minorid
= EISD__K_MINORID
;
2793 eisd
->u
.gbl_eisd
.common
.eisdsize
= (EISD__K_LEN
+ 4 + namlen
+ 5 + 3) & ~3;
2794 eisd
->u
.gbl_eisd
.common
.secsize
= VMS_BLOCK_SIZE
; /* Must not be 0. */
2795 eisd
->u
.gbl_eisd
.common
.virt_addr
= 0;
2796 eisd
->u
.gbl_eisd
.common
.flags
= EISD__M_GBL
;
2797 eisd
->u
.gbl_eisd
.common
.vbn
= 0;
2798 eisd
->u
.gbl_eisd
.common
.pfc
= 0;
2799 eisd
->u
.gbl_eisd
.common
.matchctl
= PRIV2 (shrimg
, matchctl
);
2800 eisd
->u
.gbl_eisd
.common
.type
= EISD__K_SHRPIC
;
2802 eisd
->u
.gbl_eisd
.ident
= PRIV2 (shrimg
, ident
);
2803 eisd
->u
.gbl_eisd
.gblnam
[0] = namlen
+ 4;
2804 memcpy (eisd
->u
.gbl_eisd
.gblnam
+ 1, PRIV2 (shrimg
, hdr_data
.hdr_t_name
),
2806 memcpy (eisd
->u
.gbl_eisd
.gblnam
+ 1 + namlen
, "_001", 4);
2808 /* Append it to the list. */
2809 alpha_vms_append_extra_eisd (abfd
, eisd
);
2814 /* Create an EISD for section SEC.
2815 Return FALSE in case of failure. */
2818 alpha_vms_create_eisd_for_section (bfd
*abfd
, asection
*sec
)
2820 struct vms_internal_eisd_map
*eisd
;
2822 /* Only for allocating section. */
2823 if (!(sec
->flags
& SEC_ALLOC
))
2826 BFD_ASSERT (vms_section_data (sec
)->eisd
== NULL
);
2827 eisd
= bfd_alloc (abfd
, sizeof (*eisd
));
2830 vms_section_data (sec
)->eisd
= eisd
;
2832 /* Fill the fields. */
2833 eisd
->u
.eisd
.majorid
= EISD__K_MAJORID
;
2834 eisd
->u
.eisd
.minorid
= EISD__K_MINORID
;
2835 eisd
->u
.eisd
.eisdsize
= EISD__K_LEN
;
2836 eisd
->u
.eisd
.secsize
=
2837 (sec
->size
+ VMS_BLOCK_SIZE
- 1) & ~(VMS_BLOCK_SIZE
- 1);
2838 eisd
->u
.eisd
.virt_addr
= sec
->vma
;
2839 eisd
->u
.eisd
.flags
= 0;
2840 eisd
->u
.eisd
.vbn
= 0; /* To be later defined. */
2841 eisd
->u
.eisd
.pfc
= 0; /* Default. */
2842 eisd
->u
.eisd
.matchctl
= EISD__K_MATALL
;
2843 eisd
->u
.eisd
.type
= EISD__K_NORMAL
;
2845 if (sec
->flags
& SEC_CODE
)
2846 eisd
->u
.eisd
.flags
|= EISD__M_EXE
;
2847 if (!(sec
->flags
& SEC_READONLY
))
2848 eisd
->u
.eisd
.flags
|= EISD__M_WRT
| EISD__M_CRF
;
2850 /* If relocations or fixup will be applied, make this isect writeable. */
2851 if (sec
->flags
& SEC_RELOC
)
2852 eisd
->u
.eisd
.flags
|= EISD__M_WRT
| EISD__M_CRF
;
2854 if (!(sec
->flags
& SEC_HAS_CONTENTS
))
2856 eisd
->u
.eisd
.flags
|= EISD__M_DZRO
;
2857 eisd
->u
.eisd
.flags
&= ~EISD__M_CRF
;
2859 if (sec
->flags
& SEC_LINKER_CREATED
)
2861 if (strcmp (sec
->name
, "$FIXUP$") == 0)
2862 eisd
->u
.eisd
.flags
|= EISD__M_FIXUPVEC
;
2865 /* Append it to the list. */
2867 if (PRIV (eisd_head
) == NULL
)
2868 PRIV (eisd_head
) = eisd
;
2870 PRIV (eisd_tail
)->next
= eisd
;
2871 PRIV (eisd_tail
) = eisd
;
2876 /* Layout executable ABFD and write it to the disk.
2877 Return FALSE in case of failure. */
2880 alpha_vms_write_exec (bfd
*abfd
)
2882 struct vms_eihd eihd
;
2883 struct vms_eiha
*eiha
;
2884 struct vms_eihi
*eihi
;
2885 struct vms_eihs
*eihs
= NULL
;
2887 struct vms_internal_eisd_map
*first_eisd
;
2888 struct vms_internal_eisd_map
*eisd
;
2891 file_ptr gst_filepos
= 0;
2892 unsigned int lnkflags
= 0;
2894 /* Build the EIHD. */
2895 PRIV (file_pos
) = EIHD__C_LENGTH
;
2897 memset (&eihd
, 0, sizeof (eihd
));
2898 memset (eihd
.fill_2
, 0xff, sizeof (eihd
.fill_2
));
2900 bfd_putl32 (EIHD__K_MAJORID
, eihd
.majorid
);
2901 bfd_putl32 (EIHD__K_MINORID
, eihd
.minorid
);
2903 bfd_putl32 (sizeof (eihd
), eihd
.size
);
2904 bfd_putl32 (0, eihd
.isdoff
);
2905 bfd_putl32 (0, eihd
.activoff
);
2906 bfd_putl32 (0, eihd
.symdbgoff
);
2907 bfd_putl32 (0, eihd
.imgidoff
);
2908 bfd_putl32 (0, eihd
.patchoff
);
2909 bfd_putl64 (0, eihd
.iafva
);
2910 bfd_putl32 (0, eihd
.version_array_off
);
2912 bfd_putl32 (EIHD__K_EXE
, eihd
.imgtype
);
2913 bfd_putl32 (0, eihd
.subtype
);
2915 bfd_putl32 (0, eihd
.imgiocnt
);
2916 bfd_putl32 (-1, eihd
.privreqs
);
2917 bfd_putl32 (-1, eihd
.privreqs
+ 4);
2919 bfd_putl32 ((sizeof (eihd
) + VMS_BLOCK_SIZE
- 1) / VMS_BLOCK_SIZE
,
2921 bfd_putl32 (0, eihd
.ident
);
2922 bfd_putl32 (0, eihd
.sysver
);
2925 bfd_putl32 (0, eihd
.symvect_size
);
2926 bfd_putl32 (16, eihd
.virt_mem_block_size
);
2927 bfd_putl32 (0, eihd
.ext_fixup_off
);
2928 bfd_putl32 (0, eihd
.noopt_psect_off
);
2929 bfd_putl32 (-1, eihd
.alias
);
2932 eiha
= (struct vms_eiha
*)((char *) &eihd
+ PRIV (file_pos
));
2933 bfd_putl32 (PRIV (file_pos
), eihd
.activoff
);
2934 PRIV (file_pos
) += sizeof (struct vms_eiha
);
2936 bfd_putl32 (sizeof (struct vms_eiha
), eiha
->size
);
2937 bfd_putl32 (0, eiha
->spare
);
2938 bfd_putl64 (PRIV (transfer_address
[0]), eiha
->tfradr1
);
2939 bfd_putl64 (PRIV (transfer_address
[1]), eiha
->tfradr2
);
2940 bfd_putl64 (PRIV (transfer_address
[2]), eiha
->tfradr3
);
2941 bfd_putl64 (PRIV (transfer_address
[3]), eiha
->tfradr4
);
2942 bfd_putl64 (0, eiha
->inishr
);
2945 eihi
= (struct vms_eihi
*)((char *) &eihd
+ PRIV (file_pos
));
2946 bfd_putl32 (PRIV (file_pos
), eihd
.imgidoff
);
2947 PRIV (file_pos
) += sizeof (struct vms_eihi
);
2949 bfd_putl32 (EIHI__K_MAJORID
, eihi
->majorid
);
2950 bfd_putl32 (EIHI__K_MINORID
, eihi
->minorid
);
2955 /* Set module name. */
2956 module
= vms_get_module_name (bfd_get_filename (abfd
), TRUE
);
2957 len
= strlen (module
);
2958 if (len
> sizeof (eihi
->imgnam
) - 1)
2959 len
= sizeof (eihi
->imgnam
) - 1;
2960 eihi
->imgnam
[0] = len
;
2961 memcpy (eihi
->imgnam
+ 1, module
, len
);
2969 vms_get_time (&hi
, &lo
);
2970 bfd_putl32 (lo
, eihi
->linktime
+ 0);
2971 bfd_putl32 (hi
, eihi
->linktime
+ 4);
2974 eihi
->linkid
[0] = 0;
2975 eihi
->imgbid
[0] = 0;
2978 dst
= PRIV (dst_section
);
2979 dmt
= bfd_get_section_by_name (abfd
, "$DMT$");
2980 if (dst
!= NULL
&& dst
->size
!= 0)
2982 eihs
= (struct vms_eihs
*)((char *) &eihd
+ PRIV (file_pos
));
2983 bfd_putl32 (PRIV (file_pos
), eihd
.symdbgoff
);
2984 PRIV (file_pos
) += sizeof (struct vms_eihs
);
2986 bfd_putl32 (EIHS__K_MAJORID
, eihs
->majorid
);
2987 bfd_putl32 (EIHS__K_MINORID
, eihs
->minorid
);
2988 bfd_putl32 (0, eihs
->dstvbn
);
2989 bfd_putl32 (0, eihs
->dstsize
);
2990 bfd_putl32 (0, eihs
->gstvbn
);
2991 bfd_putl32 (0, eihs
->gstsize
);
2992 bfd_putl32 (0, eihs
->dmtvbn
);
2993 bfd_putl32 (0, eihs
->dmtsize
);
2996 /* One EISD per section. */
2997 for (sec
= abfd
->sections
; sec
; sec
= sec
->next
)
2999 if (!alpha_vms_create_eisd_for_section (abfd
, sec
))
3003 /* Merge section EIDS which extra ones. */
3004 if (PRIV (eisd_tail
))
3005 PRIV (eisd_tail
)->next
= PRIV (gbl_eisd_head
);
3007 PRIV (eisd_head
) = PRIV (gbl_eisd_head
);
3008 if (PRIV (gbl_eisd_tail
))
3009 PRIV (eisd_tail
) = PRIV (gbl_eisd_tail
);
3011 first_eisd
= PRIV (eisd_head
);
3013 /* Add end of eisd. */
3016 eisd
= bfd_zalloc (abfd
, sizeof (*eisd
));
3019 eisd
->u
.eisd
.majorid
= 0;
3020 eisd
->u
.eisd
.minorid
= 0;
3021 eisd
->u
.eisd
.eisdsize
= 0;
3022 alpha_vms_append_extra_eisd (abfd
, eisd
);
3025 /* Place EISD in the file. */
3026 for (eisd
= first_eisd
; eisd
; eisd
= eisd
->next
)
3028 file_ptr room
= VMS_BLOCK_SIZE
- (PRIV (file_pos
) % VMS_BLOCK_SIZE
);
3030 /* First block is a little bit special: there is a word at the end. */
3031 if (PRIV (file_pos
) < VMS_BLOCK_SIZE
&& room
> 2)
3033 if (room
< eisd
->u
.eisd
.eisdsize
+ EISD__K_LENEND
)
3034 alpha_vms_file_position_block (abfd
);
3036 eisd
->file_pos
= PRIV (file_pos
);
3037 PRIV (file_pos
) += eisd
->u
.eisd
.eisdsize
;
3039 if (eisd
->u
.eisd
.flags
& EISD__M_FIXUPVEC
)
3040 bfd_putl64 (eisd
->u
.eisd
.virt_addr
, eihd
.iafva
);
3043 if (first_eisd
!= NULL
)
3045 bfd_putl32 (first_eisd
->file_pos
, eihd
.isdoff
);
3046 /* Real size of end of eisd marker. */
3047 PRIV (file_pos
) += EISD__K_LENEND
;
3050 bfd_putl32 (PRIV (file_pos
), eihd
.size
);
3051 bfd_putl32 ((PRIV (file_pos
) + VMS_BLOCK_SIZE
- 1) / VMS_BLOCK_SIZE
,
3054 /* Place sections. */
3055 for (sec
= abfd
->sections
; sec
; sec
= sec
->next
)
3057 if (!(sec
->flags
& SEC_HAS_CONTENTS
))
3060 eisd
= vms_section_data (sec
)->eisd
;
3062 /* Align on a block. */
3063 alpha_vms_file_position_block (abfd
);
3064 sec
->filepos
= PRIV (file_pos
);
3067 eisd
->u
.eisd
.vbn
= (sec
->filepos
/ VMS_BLOCK_SIZE
) + 1;
3069 PRIV (file_pos
) += sec
->size
;
3073 if (eihs
!= NULL
&& dst
!= NULL
)
3075 bfd_putl32 ((dst
->filepos
/ VMS_BLOCK_SIZE
) + 1, eihs
->dstvbn
);
3076 bfd_putl32 (dst
->size
, eihs
->dstsize
);
3080 lnkflags
|= EIHD__M_DBGDMT
;
3081 bfd_putl32 ((dmt
->filepos
/ VMS_BLOCK_SIZE
) + 1, eihs
->dmtvbn
);
3082 bfd_putl32 (dmt
->size
, eihs
->dmtsize
);
3084 if (PRIV (gsd_sym_count
) != 0)
3086 alpha_vms_file_position_block (abfd
);
3087 gst_filepos
= PRIV (file_pos
);
3088 bfd_putl32 ((gst_filepos
/ VMS_BLOCK_SIZE
) + 1, eihs
->gstvbn
);
3089 bfd_putl32 ((PRIV (gsd_sym_count
) + 4) / 5 + 4, eihs
->gstsize
);
3093 /* Write EISD in hdr. */
3094 for (eisd
= first_eisd
; eisd
&& eisd
->file_pos
< VMS_BLOCK_SIZE
;
3096 alpha_vms_swap_eisd_out
3097 (eisd
, (struct vms_eisd
*)((char *)&eihd
+ eisd
->file_pos
));
3099 /* Write first block. */
3100 bfd_putl32 (lnkflags
, eihd
.lnkflags
);
3101 if (bfd_bwrite (&eihd
, sizeof (eihd
), abfd
) != sizeof (eihd
))
3104 /* Write remaining eisd. */
3107 unsigned char blk
[VMS_BLOCK_SIZE
];
3108 struct vms_internal_eisd_map
*next_eisd
;
3110 memset (blk
, 0xff, sizeof (blk
));
3111 while (eisd
!= NULL
)
3113 alpha_vms_swap_eisd_out
3115 (struct vms_eisd
*)(blk
+ (eisd
->file_pos
% VMS_BLOCK_SIZE
)));
3117 next_eisd
= eisd
->next
;
3118 if (next_eisd
== NULL
3119 || (next_eisd
->file_pos
/ VMS_BLOCK_SIZE
3120 != eisd
->file_pos
/ VMS_BLOCK_SIZE
))
3122 if (bfd_bwrite (blk
, sizeof (blk
), abfd
) != sizeof (blk
))
3125 memset (blk
, 0xff, sizeof (blk
));
3131 /* Write sections. */
3132 for (sec
= abfd
->sections
; sec
; sec
= sec
->next
)
3134 unsigned char blk
[VMS_BLOCK_SIZE
];
3137 if (sec
->size
== 0 || !(sec
->flags
& SEC_HAS_CONTENTS
))
3139 if (bfd_bwrite (sec
->contents
, sec
->size
, abfd
) != sec
->size
)
3143 len
= VMS_BLOCK_SIZE
- sec
->size
% VMS_BLOCK_SIZE
;
3144 if (len
!= VMS_BLOCK_SIZE
)
3146 memset (blk
, 0, len
);
3147 if (bfd_bwrite (blk
, len
, abfd
) != len
)
3153 if (gst_filepos
!= 0)
3155 struct vms_rec_wr
*recwr
= &PRIV (recwr
);
3158 _bfd_vms_write_emh (abfd
);
3159 _bfd_vms_write_lmn (abfd
, "GNU LD");
3161 /* PSC for the absolute section. */
3162 _bfd_vms_output_begin (recwr
, EOBJ__C_EGSD
);
3163 _bfd_vms_output_long (recwr
, 0);
3164 _bfd_vms_output_begin_subrec (recwr
, EGSD__C_PSC
);
3165 _bfd_vms_output_short (recwr
, 0);
3166 _bfd_vms_output_short (recwr
, EGPS__V_PIC
| EGPS__V_LIB
| EGPS__V_RD
);
3167 _bfd_vms_output_long (recwr
, 0);
3168 _bfd_vms_output_counted (recwr
, ".$$ABS$$.");
3169 _bfd_vms_output_end_subrec (recwr
);
3170 _bfd_vms_output_end (abfd
, recwr
);
3172 for (i
= 0; i
< PRIV (gsd_sym_count
); i
++)
3174 struct vms_symbol_entry
*sym
= PRIV (syms
)[i
];
3180 _bfd_vms_output_alignment (recwr
, 8);
3181 _bfd_vms_output_begin (recwr
, EOBJ__C_EGSD
);
3182 _bfd_vms_output_long (recwr
, 0);
3184 _bfd_vms_output_begin_subrec (recwr
, EGSD__C_SYMG
);
3185 _bfd_vms_output_short (recwr
, 0); /* Data type, alignment. */
3186 _bfd_vms_output_short (recwr
, sym
->flags
);
3188 if (sym
->code_section
)
3189 ep
= alpha_vms_get_sym_value (sym
->code_section
, sym
->code_value
);
3192 BFD_ASSERT (sym
->code_value
== 0);
3195 val
= alpha_vms_get_sym_value (sym
->section
, sym
->value
);
3196 _bfd_vms_output_quad
3197 (recwr
, sym
->typ
== EGSD__C_SYMG
? sym
->symbol_vector
: val
);
3198 _bfd_vms_output_quad (recwr
, ep
);
3199 _bfd_vms_output_quad (recwr
, val
);
3200 _bfd_vms_output_long (recwr
, 0);
3201 _bfd_vms_output_counted (recwr
, sym
->name
);
3202 _bfd_vms_output_end_subrec (recwr
);
3204 _bfd_vms_output_end (abfd
, recwr
);
3207 _bfd_vms_output_end (abfd
, recwr
);
3209 if (!_bfd_vms_write_eeom (abfd
))
3217 /* Write section and symbol directory of bfd abfd. Return FALSE on error. */
3220 _bfd_vms_write_egsd (bfd
*abfd
)
3224 unsigned int symnum
;
3226 flagword new_flags
, old_flags
;
3227 int abs_section_index
= -1;
3228 unsigned int target_index
= 0;
3229 struct vms_rec_wr
*recwr
= &PRIV (recwr
);
3231 vms_debug2 ((2, "vms_write_egsd\n"));
3233 /* Egsd is quadword aligned. */
3234 _bfd_vms_output_alignment (recwr
, 8);
3236 _bfd_vms_output_begin (recwr
, EOBJ__C_EGSD
);
3237 _bfd_vms_output_long (recwr
, 0);
3239 /* Number sections. */
3240 for (section
= abfd
->sections
; section
!= NULL
; section
= section
->next
)
3242 if (section
->flags
& SEC_DEBUGGING
)
3244 if (!strcmp (section
->name
, ".vmsdebug"))
3246 section
->flags
|= SEC_DEBUGGING
;
3249 section
->target_index
= target_index
++;
3252 for (section
= abfd
->sections
; section
!= NULL
; section
= section
->next
)
3254 vms_debug2 ((3, "Section #%d %s, %d bytes\n",
3255 section
->target_index
, section
->name
, (int)section
->size
));
3257 /* Don't write out the VMS debug info section since it is in the
3258 ETBT and EDBG sections in etir. */
3259 if (section
->flags
& SEC_DEBUGGING
)
3262 /* 13 bytes egsd, max 31 chars name -> should be 44 bytes. */
3263 if (_bfd_vms_output_check (recwr
, 64) < 0)
3265 _bfd_vms_output_end (abfd
, recwr
);
3266 _bfd_vms_output_begin (recwr
, EOBJ__C_EGSD
);
3267 _bfd_vms_output_long (recwr
, 0);
3270 /* Don't know if this is necessary for the linker but for now it keeps
3271 vms_slurp_gsd happy. */
3272 sname
= section
->name
;
3275 /* Remove leading dot. */
3277 if ((*sname
== 't') && (strcmp (sname
, "text") == 0))
3278 sname
= EVAX_CODE_NAME
;
3279 else if ((*sname
== 'd') && (strcmp (sname
, "data") == 0))
3280 sname
= EVAX_DATA_NAME
;
3281 else if ((*sname
== 'b') && (strcmp (sname
, "bss") == 0))
3282 sname
= EVAX_BSS_NAME
;
3283 else if ((*sname
== 'l') && (strcmp (sname
, "link") == 0))
3284 sname
= EVAX_LINK_NAME
;
3285 else if ((*sname
== 'r') && (strcmp (sname
, "rdata") == 0))
3286 sname
= EVAX_READONLY_NAME
;
3287 else if ((*sname
== 'l') && (strcmp (sname
, "literal") == 0))
3288 sname
= EVAX_LITERAL_NAME
;
3289 else if ((*sname
== 'l') && (strcmp (sname
, "literals") == 0))
3290 sname
= EVAX_LITERALS_NAME
;
3291 else if ((*sname
== 'c') && (strcmp (sname
, "comm") == 0))
3292 sname
= EVAX_COMMON_NAME
;
3293 else if ((*sname
== 'l') && (strcmp (sname
, "lcomm") == 0))
3294 sname
= EVAX_LOCAL_NAME
;
3297 if (bfd_is_com_section (section
))
3298 new_flags
= (EGPS__V_OVR
| EGPS__V_REL
| EGPS__V_GBL
| EGPS__V_RD
3299 | EGPS__V_WRT
| EGPS__V_NOMOD
| EGPS__V_COM
);
3301 new_flags
= vms_esecflag_by_name (evax_section_flags
, sname
,
3304 /* Modify them as directed. */
3305 if (section
->flags
& SEC_READONLY
)
3306 new_flags
&= ~EGPS__V_WRT
;
3308 new_flags
&= ~vms_section_data (section
)->no_flags
;
3309 new_flags
|= vms_section_data (section
)->flags
;
3311 vms_debug2 ((3, "sec flags %x\n", section
->flags
));
3312 vms_debug2 ((3, "new_flags %x, _raw_size %lu\n",
3313 new_flags
, (unsigned long)section
->size
));
3315 _bfd_vms_output_begin_subrec (recwr
, EGSD__C_PSC
);
3316 _bfd_vms_output_short (recwr
, section
->alignment_power
& 0xff);
3317 _bfd_vms_output_short (recwr
, new_flags
);
3318 _bfd_vms_output_long (recwr
, (unsigned long) section
->size
);
3319 _bfd_vms_output_counted (recwr
, sname
);
3320 _bfd_vms_output_end_subrec (recwr
);
3322 /* If the section is an obsolute one, remind its index as it will be
3323 used later for absolute symbols. */
3324 if ((new_flags
& EGPS__V_REL
) == 0 && abs_section_index
< 0)
3325 abs_section_index
= section
->target_index
;
3328 /* Output symbols. */
3329 vms_debug2 ((3, "%d symbols found\n", abfd
->symcount
));
3331 bfd_set_start_address (abfd
, (bfd_vma
) -1);
3333 for (symnum
= 0; symnum
< abfd
->symcount
; symnum
++)
3335 symbol
= abfd
->outsymbols
[symnum
];
3336 old_flags
= symbol
->flags
;
3338 /* Work-around a missing feature: consider __main as the main entry
3340 if (symbol
->name
[0] == '_' && strcmp (symbol
->name
, "__main") == 0)
3341 bfd_set_start_address (abfd
, (bfd_vma
)symbol
->value
);
3343 /* Only put in the GSD the global and the undefined symbols. */
3344 if (old_flags
& BSF_FILE
)
3347 if ((old_flags
& BSF_GLOBAL
) == 0 && !bfd_is_und_section (symbol
->section
))
3349 /* If the LIB$INITIIALIZE section is present, add a reference to
3350 LIB$INITIALIZE symbol. FIXME: this should be done explicitely
3351 in the assembly file. */
3352 if (!((old_flags
& BSF_SECTION_SYM
) != 0
3353 && strcmp (symbol
->section
->name
, "LIB$INITIALIZE") == 0))
3357 /* 13 bytes egsd, max 64 chars name -> should be 77 bytes. Add 16 more
3358 bytes for a possible ABS section. */
3359 if (_bfd_vms_output_check (recwr
, 80 + 16) < 0)
3361 _bfd_vms_output_end (abfd
, recwr
);
3362 _bfd_vms_output_begin (recwr
, EOBJ__C_EGSD
);
3363 _bfd_vms_output_long (recwr
, 0);
3366 if ((old_flags
& BSF_GLOBAL
) != 0
3367 && bfd_is_abs_section (symbol
->section
)
3368 && abs_section_index
<= 0)
3370 /* Create an absolute section if none was defined. It is highly
3371 unlikely that the name $ABS$ clashes with a user defined
3372 non-absolute section name. */
3373 _bfd_vms_output_begin_subrec (recwr
, EGSD__C_PSC
);
3374 _bfd_vms_output_short (recwr
, 4);
3375 _bfd_vms_output_short (recwr
, EGPS__V_SHR
);
3376 _bfd_vms_output_long (recwr
, 0);
3377 _bfd_vms_output_counted (recwr
, "$ABS$");
3378 _bfd_vms_output_end_subrec (recwr
);
3380 abs_section_index
= target_index
++;
3383 _bfd_vms_output_begin_subrec (recwr
, EGSD__C_SYM
);
3385 /* Data type, alignment. */
3386 _bfd_vms_output_short (recwr
, 0);
3390 if (old_flags
& BSF_WEAK
)
3391 new_flags
|= EGSY__V_WEAK
;
3392 if (bfd_is_com_section (symbol
->section
)) /* .comm */
3393 new_flags
|= (EGSY__V_WEAK
| EGSY__V_COMM
);
3395 if (old_flags
& BSF_FUNCTION
)
3397 new_flags
|= EGSY__V_NORM
;
3398 new_flags
|= EGSY__V_REL
;
3400 if (old_flags
& BSF_GLOBAL
)
3402 new_flags
|= EGSY__V_DEF
;
3403 if (!bfd_is_abs_section (symbol
->section
))
3404 new_flags
|= EGSY__V_REL
;
3406 _bfd_vms_output_short (recwr
, new_flags
);
3408 if (old_flags
& BSF_GLOBAL
)
3410 /* Symbol definition. */
3411 bfd_vma code_address
= 0;
3412 unsigned long ca_psindx
= 0;
3413 unsigned long psindx
;
3415 if ((old_flags
& BSF_FUNCTION
) && symbol
->udata
.p
!= NULL
)
3420 ((struct evax_private_udata_struct
*)symbol
->udata
.p
)->enbsym
;
3421 code_address
= sym
->value
;
3422 ca_psindx
= sym
->section
->target_index
;
3424 if (bfd_is_abs_section (symbol
->section
))
3425 psindx
= abs_section_index
;
3427 psindx
= symbol
->section
->target_index
;
3429 _bfd_vms_output_quad (recwr
, symbol
->value
);
3430 _bfd_vms_output_quad (recwr
, code_address
);
3431 _bfd_vms_output_long (recwr
, ca_psindx
);
3432 _bfd_vms_output_long (recwr
, psindx
);
3434 _bfd_vms_output_counted (recwr
, symbol
->name
);
3436 _bfd_vms_output_end_subrec (recwr
);
3439 _bfd_vms_output_alignment (recwr
, 8);
3440 _bfd_vms_output_end (abfd
, recwr
);
3445 /* Write object header for bfd abfd. Return FALSE on error. */
3448 _bfd_vms_write_ehdr (bfd
*abfd
)
3451 unsigned int symnum
;
3452 struct vms_rec_wr
*recwr
= &PRIV (recwr
);
3454 vms_debug2 ((2, "vms_write_ehdr (%p)\n", abfd
));
3456 _bfd_vms_output_alignment (recwr
, 2);
3458 _bfd_vms_write_emh (abfd
);
3459 _bfd_vms_write_lmn (abfd
, "GNU AS");
3462 _bfd_vms_output_begin (recwr
, EOBJ__C_EMH
);
3463 _bfd_vms_output_short (recwr
, EMH__C_SRC
);
3465 for (symnum
= 0; symnum
< abfd
->symcount
; symnum
++)
3467 symbol
= abfd
->outsymbols
[symnum
];
3469 if (symbol
->flags
& BSF_FILE
)
3471 _bfd_vms_output_dump (recwr
, (unsigned char *) symbol
->name
,
3472 (int) strlen (symbol
->name
));
3477 if (symnum
== abfd
->symcount
)
3478 _bfd_vms_output_dump (recwr
, (unsigned char *) STRING_COMMA_LEN ("noname"));
3480 _bfd_vms_output_end (abfd
, recwr
);
3483 _bfd_vms_output_begin (recwr
, EOBJ__C_EMH
);
3484 _bfd_vms_output_short (recwr
, EMH__C_TTL
);
3485 _bfd_vms_output_dump (recwr
, (unsigned char *) STRING_COMMA_LEN ("TTL"));
3486 _bfd_vms_output_end (abfd
, recwr
);
3489 _bfd_vms_output_begin (recwr
, EOBJ__C_EMH
);
3490 _bfd_vms_output_short (recwr
, EMH__C_CPR
);
3491 _bfd_vms_output_dump (recwr
,
3492 (unsigned char *)"GNU BFD ported by Klaus Kämpf 1994-1996",
3494 _bfd_vms_output_end (abfd
, recwr
);
3499 /* Part 4.6, relocations. */
3502 /* WRITE ETIR SECTION
3504 This is still under construction and therefore not documented. */
3506 /* Close the etir/etbt record. */
3509 end_etir_record (bfd
* abfd
)
3511 struct vms_rec_wr
*recwr
= &PRIV (recwr
);
3513 _bfd_vms_output_end (abfd
, recwr
);
3517 start_etir_or_etbt_record (bfd
*abfd
, asection
*section
, bfd_vma offset
)
3519 struct vms_rec_wr
*recwr
= &PRIV (recwr
);
3521 if (section
->flags
& SEC_DEBUGGING
)
3523 _bfd_vms_output_begin (recwr
, EOBJ__C_ETBT
);
3527 /* Push start offset. */
3528 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STA_LW
);
3529 _bfd_vms_output_long (recwr
, (unsigned long) 0);
3530 _bfd_vms_output_end_subrec (recwr
);
3533 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_CTL_DFLOC
);
3534 _bfd_vms_output_end_subrec (recwr
);
3539 _bfd_vms_output_begin (recwr
, EOBJ__C_ETIR
);
3543 /* Push start offset. */
3544 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STA_PQ
);
3545 _bfd_vms_output_long (recwr
, (unsigned long) section
->target_index
);
3546 _bfd_vms_output_quad (recwr
, offset
);
3547 _bfd_vms_output_end_subrec (recwr
);
3549 /* Start = pop (). */
3550 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_CTL_SETRB
);
3551 _bfd_vms_output_end_subrec (recwr
);
3556 /* Output a STO_IMM command for SSIZE bytes of data from CPR at virtual
3557 address VADDR in section specified by SEC_INDEX and NAME. */
3560 sto_imm (bfd
*abfd
, asection
*section
,
3561 bfd_size_type ssize
, unsigned char *cptr
, bfd_vma vaddr
)
3564 struct vms_rec_wr
*recwr
= &PRIV (recwr
);
3567 _bfd_vms_debug (8, "sto_imm %d bytes\n", (int) ssize
);
3568 _bfd_hexdump (9, cptr
, (int) ssize
, (int) vaddr
);
3573 /* Try all the rest. */
3576 if (_bfd_vms_output_check (recwr
, size
) < 0)
3578 /* Doesn't fit, split ! */
3579 end_etir_record (abfd
);
3581 start_etir_or_etbt_record (abfd
, section
, vaddr
);
3583 size
= _bfd_vms_output_check (recwr
, 0); /* get max size */
3584 if (size
> ssize
) /* more than what's left ? */
3588 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STO_IMM
);
3589 _bfd_vms_output_long (recwr
, (unsigned long) (size
));
3590 _bfd_vms_output_dump (recwr
, cptr
, size
);
3591 _bfd_vms_output_end_subrec (recwr
);
3594 _bfd_vms_debug (10, "dumped %d bytes\n", (int) size
);
3595 _bfd_hexdump (10, cptr
, (int) size
, (int) vaddr
);
3605 etir_output_check (bfd
*abfd
, asection
*section
, bfd_vma vaddr
, int checklen
)
3607 if (_bfd_vms_output_check (&PRIV (recwr
), checklen
) < 0)
3609 /* Not enough room in this record. Close it and open a new one. */
3610 end_etir_record (abfd
);
3611 start_etir_or_etbt_record (abfd
, section
, vaddr
);
3615 /* Return whether RELOC must be deferred till the end. */
3618 defer_reloc_p (arelent
*reloc
)
3620 switch (reloc
->howto
->type
)
3633 /* Write section contents for bfd abfd. Return FALSE on error. */
3636 _bfd_vms_write_etir (bfd
* abfd
, int objtype ATTRIBUTE_UNUSED
)
3639 struct vms_rec_wr
*recwr
= &PRIV (recwr
);
3641 vms_debug2 ((2, "vms_write_tir (%p, %d)\n", abfd
, objtype
));
3643 _bfd_vms_output_alignment (recwr
, 4);
3645 PRIV (vms_linkage_index
) = 0;
3647 for (section
= abfd
->sections
; section
; section
= section
->next
)
3649 vms_debug2 ((4, "writing %d. section '%s' (%d bytes)\n",
3650 section
->target_index
, section
->name
, (int) (section
->size
)));
3652 if (!(section
->flags
& SEC_HAS_CONTENTS
)
3653 || bfd_is_com_section (section
))
3656 if (!section
->contents
)
3658 bfd_set_error (bfd_error_no_contents
);
3662 start_etir_or_etbt_record (abfd
, section
, 0);
3664 if (section
->flags
& SEC_RELOC
)
3666 bfd_vma curr_addr
= 0;
3667 unsigned char *curr_data
= section
->contents
;
3669 int pass2_needed
= 0;
3670 int pass2_in_progress
= 0;
3673 if (section
->reloc_count
== 0)
3675 (_("SEC_RELOC with no relocs in section %A"), section
);
3680 int i
= section
->reloc_count
;
3681 arelent
**rptr
= section
->orelocation
;
3682 _bfd_vms_debug (4, "%d relocations:\n", i
);
3685 _bfd_vms_debug (4, "sym %s in sec %s, value %08lx, "
3686 "addr %08lx, off %08lx, len %d: %s\n",
3687 (*(*rptr
)->sym_ptr_ptr
)->name
,
3688 (*(*rptr
)->sym_ptr_ptr
)->section
->name
,
3689 (long) (*(*rptr
)->sym_ptr_ptr
)->value
,
3690 (unsigned long)(*rptr
)->address
,
3691 (unsigned long)(*rptr
)->addend
,
3692 bfd_get_reloc_size ((*rptr
)->howto
),
3693 ( *rptr
)->howto
->name
);
3700 for (irel
= 0; irel
< section
->reloc_count
; irel
++)
3702 struct evax_private_udata_struct
*udata
;
3703 arelent
*rptr
= section
->orelocation
[irel
];
3704 bfd_vma addr
= rptr
->address
;
3705 asymbol
*sym
= *rptr
->sym_ptr_ptr
;
3706 asection
*sec
= sym
->section
;
3707 bfd_boolean defer
= defer_reloc_p (rptr
);
3710 if (pass2_in_progress
)
3712 /* Non-deferred relocs have already been output. */
3718 /* Deferred relocs must be output at the very end. */
3725 /* Regular relocs are intertwined with binary data. */
3726 if (curr_addr
> addr
)
3727 _bfd_error_handler (_("Size error in section %A"),
3729 size
= addr
- curr_addr
;
3730 sto_imm (abfd
, section
, size
, curr_data
, curr_addr
);
3735 size
= bfd_get_reloc_size (rptr
->howto
);
3737 switch (rptr
->howto
->type
)
3739 case ALPHA_R_IGNORE
:
3742 case ALPHA_R_REFLONG
:
3743 if (bfd_is_und_section (sym
->section
))
3745 bfd_vma addend
= rptr
->addend
;
3746 slen
= strlen ((char *) sym
->name
);
3747 etir_output_check (abfd
, section
, curr_addr
, slen
);
3750 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STA_GBL
);
3751 _bfd_vms_output_counted (recwr
, sym
->name
);
3752 _bfd_vms_output_end_subrec (recwr
);
3753 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STA_LW
);
3754 _bfd_vms_output_long (recwr
, (unsigned long) addend
);
3755 _bfd_vms_output_end_subrec (recwr
);
3756 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_OPR_ADD
);
3757 _bfd_vms_output_end_subrec (recwr
);
3758 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STO_LW
);
3759 _bfd_vms_output_end_subrec (recwr
);
3763 _bfd_vms_output_begin_subrec
3764 (recwr
, ETIR__C_STO_GBL_LW
);
3765 _bfd_vms_output_counted (recwr
, sym
->name
);
3766 _bfd_vms_output_end_subrec (recwr
);
3769 else if (bfd_is_abs_section (sym
->section
))
3771 etir_output_check (abfd
, section
, curr_addr
, 16);
3772 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STA_LW
);
3773 _bfd_vms_output_long (recwr
, (unsigned long) sym
->value
);
3774 _bfd_vms_output_end_subrec (recwr
);
3775 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STO_LW
);
3776 _bfd_vms_output_end_subrec (recwr
);
3780 etir_output_check (abfd
, section
, curr_addr
, 32);
3781 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STA_PQ
);
3782 _bfd_vms_output_long (recwr
,
3783 (unsigned long) sec
->target_index
);
3784 _bfd_vms_output_quad (recwr
, rptr
->addend
+ sym
->value
);
3785 _bfd_vms_output_end_subrec (recwr
);
3786 /* ??? Table B-8 of the OpenVMS Linker Utilily Manual
3787 says that we should have a ETIR__C_STO_OFF here.
3788 But the relocation would not be BFD_RELOC_32 then.
3789 This case is very likely unreachable. */
3790 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STO_LW
);
3791 _bfd_vms_output_end_subrec (recwr
);
3795 case ALPHA_R_REFQUAD
:
3796 if (bfd_is_und_section (sym
->section
))
3798 bfd_vma addend
= rptr
->addend
;
3799 slen
= strlen ((char *) sym
->name
);
3800 etir_output_check (abfd
, section
, curr_addr
, slen
);
3803 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STA_GBL
);
3804 _bfd_vms_output_counted (recwr
, sym
->name
);
3805 _bfd_vms_output_end_subrec (recwr
);
3806 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STA_QW
);
3807 _bfd_vms_output_quad (recwr
, addend
);
3808 _bfd_vms_output_end_subrec (recwr
);
3809 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_OPR_ADD
);
3810 _bfd_vms_output_end_subrec (recwr
);
3811 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STO_QW
);
3812 _bfd_vms_output_end_subrec (recwr
);
3816 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STO_GBL
);
3817 _bfd_vms_output_counted (recwr
, sym
->name
);
3818 _bfd_vms_output_end_subrec (recwr
);
3821 else if (bfd_is_abs_section (sym
->section
))
3823 etir_output_check (abfd
, section
, curr_addr
, 16);
3824 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STA_QW
);
3825 _bfd_vms_output_quad (recwr
, sym
->value
);
3826 _bfd_vms_output_end_subrec (recwr
);
3827 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STO_QW
);
3828 _bfd_vms_output_end_subrec (recwr
);
3832 etir_output_check (abfd
, section
, curr_addr
, 32);
3833 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STA_PQ
);
3834 _bfd_vms_output_long (recwr
,
3835 (unsigned long) sec
->target_index
);
3836 _bfd_vms_output_quad (recwr
, rptr
->addend
+ sym
->value
);
3837 _bfd_vms_output_end_subrec (recwr
);
3838 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STO_OFF
);
3839 _bfd_vms_output_end_subrec (recwr
);
3844 sto_imm (abfd
, section
, size
, curr_data
, curr_addr
);
3847 case ALPHA_R_LINKAGE
:
3848 etir_output_check (abfd
, section
, curr_addr
, 64);
3849 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STC_LP_PSB
);
3850 _bfd_vms_output_long
3851 (recwr
, (unsigned long) rptr
->addend
);
3852 if (rptr
->addend
> PRIV (vms_linkage_index
))
3853 PRIV (vms_linkage_index
) = rptr
->addend
;
3854 _bfd_vms_output_counted (recwr
, sym
->name
);
3855 _bfd_vms_output_byte (recwr
, 0);
3856 _bfd_vms_output_end_subrec (recwr
);
3859 case ALPHA_R_CODEADDR
:
3860 slen
= strlen ((char *) sym
->name
);
3861 etir_output_check (abfd
, section
, curr_addr
, slen
);
3862 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STO_CA
);
3863 _bfd_vms_output_counted (recwr
, sym
->name
);
3864 _bfd_vms_output_end_subrec (recwr
);
3869 = (struct evax_private_udata_struct
*) rptr
->sym_ptr_ptr
;
3870 etir_output_check (abfd
, section
, curr_addr
,
3871 32 + 1 + strlen (udata
->origname
));
3872 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STC_NOP_GBL
);
3873 _bfd_vms_output_long (recwr
, (unsigned long) udata
->lkindex
);
3874 _bfd_vms_output_long
3875 (recwr
, (unsigned long) section
->target_index
);
3876 _bfd_vms_output_quad (recwr
, rptr
->address
);
3877 _bfd_vms_output_long (recwr
, (unsigned long) 0x47ff041f);
3878 _bfd_vms_output_long
3879 (recwr
, (unsigned long) section
->target_index
);
3880 _bfd_vms_output_quad (recwr
, rptr
->addend
);
3881 _bfd_vms_output_counted (recwr
, udata
->origname
);
3882 _bfd_vms_output_end_subrec (recwr
);
3886 _bfd_error_handler (_("Spurious ALPHA_R_BSR reloc"));
3891 = (struct evax_private_udata_struct
*) rptr
->sym_ptr_ptr
;
3892 etir_output_check (abfd
, section
, curr_addr
,
3893 32 + 1 + strlen (udata
->origname
));
3894 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STC_LDA_GBL
);
3895 _bfd_vms_output_long
3896 (recwr
, (unsigned long) udata
->lkindex
+ 1);
3897 _bfd_vms_output_long
3898 (recwr
, (unsigned long) section
->target_index
);
3899 _bfd_vms_output_quad (recwr
, rptr
->address
);
3900 _bfd_vms_output_long (recwr
, (unsigned long) 0x237B0000);
3901 _bfd_vms_output_long
3902 (recwr
, (unsigned long) udata
->bsym
->section
->target_index
);
3903 _bfd_vms_output_quad (recwr
, rptr
->addend
);
3904 _bfd_vms_output_counted (recwr
, udata
->origname
);
3905 _bfd_vms_output_end_subrec (recwr
);
3910 = (struct evax_private_udata_struct
*) rptr
->sym_ptr_ptr
;
3911 etir_output_check (abfd
, section
, curr_addr
,
3912 32 + 1 + strlen (udata
->origname
));
3913 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STC_BOH_GBL
);
3914 _bfd_vms_output_long (recwr
, (unsigned long) udata
->lkindex
);
3915 _bfd_vms_output_long
3916 (recwr
, (unsigned long) section
->target_index
);
3917 _bfd_vms_output_quad (recwr
, rptr
->address
);
3918 _bfd_vms_output_long (recwr
, (unsigned long) 0xD3400000);
3919 _bfd_vms_output_long
3920 (recwr
, (unsigned long) section
->target_index
);
3921 _bfd_vms_output_quad (recwr
, rptr
->addend
);
3922 _bfd_vms_output_counted (recwr
, udata
->origname
);
3923 _bfd_vms_output_end_subrec (recwr
);
3927 _bfd_error_handler (_("Unhandled relocation %s"),
3934 } /* End of relocs loop. */
3936 if (!pass2_in_progress
)
3938 /* Output rest of section. */
3939 if (curr_addr
> section
->size
)
3940 _bfd_error_handler (_("Size error in section %A"), section
);
3941 size
= section
->size
- curr_addr
;
3942 sto_imm (abfd
, section
, size
, curr_data
, curr_addr
);
3948 pass2_in_progress
= 1;
3954 else /* (section->flags & SEC_RELOC) */
3955 sto_imm (abfd
, section
, section
->size
, section
->contents
, 0);
3957 end_etir_record (abfd
);
3960 _bfd_vms_output_alignment (recwr
, 2);
3964 /* Write cached information into a file being written, at bfd_close. */
3967 alpha_vms_write_object_contents (bfd
*abfd
)
3969 vms_debug2 ((1, "vms_write_object_contents (%p)\n", abfd
));
3971 if (abfd
->flags
& (EXEC_P
| DYNAMIC
))
3973 return alpha_vms_write_exec (abfd
);
3977 if (abfd
->section_count
> 0) /* we have sections */
3979 if (!_bfd_vms_write_ehdr (abfd
))
3981 if (!_bfd_vms_write_egsd (abfd
))
3983 if (!_bfd_vms_write_etir (abfd
, EOBJ__C_ETIR
))
3985 if (!_bfd_vms_write_eeom (abfd
))
3992 /* Debug stuff: nearest line. */
3994 #define SET_MODULE_PARSED(m) \
3995 do { if ((m)->name == NULL) (m)->name = ""; } while (0)
3996 #define IS_MODULE_PARSED(m) ((m)->name != NULL)
3998 /* Build a new module for the specified BFD. */
4000 static struct module
*
4001 new_module (bfd
*abfd
)
4003 struct module
*module
4004 = (struct module
*) bfd_zalloc (abfd
, sizeof (struct module
));
4005 module
->file_table_count
= 16; /* Arbitrary. */
4007 = bfd_malloc (module
->file_table_count
* sizeof (struct fileinfo
));
4011 /* Parse debug info for a module and internalize it. */
4014 parse_module (bfd
*abfd
, struct module
*module
, unsigned char *ptr
,
4017 unsigned char *maxptr
= ptr
+ length
;
4018 unsigned char *src_ptr
, *pcl_ptr
;
4019 unsigned int prev_linum
= 0, curr_linenum
= 0;
4020 bfd_vma prev_pc
= 0, curr_pc
= 0;
4021 struct srecinfo
*curr_srec
, *srec
;
4022 struct lineinfo
*curr_line
, *line
;
4023 struct funcinfo
*funcinfo
;
4025 /* Initialize tables with zero element. */
4026 curr_srec
= (struct srecinfo
*) bfd_zalloc (abfd
, sizeof (struct srecinfo
));
4027 module
->srec_table
= curr_srec
;
4029 curr_line
= (struct lineinfo
*) bfd_zalloc (abfd
, sizeof (struct lineinfo
));
4030 module
->line_table
= curr_line
;
4032 while (length
== -1 || ptr
< maxptr
)
4034 /* The first byte is not counted in the recorded length. */
4035 int rec_length
= bfd_getl16 (ptr
) + 1;
4036 int rec_type
= bfd_getl16 (ptr
+ 2);
4038 vms_debug2 ((2, "DST record: leng %d, type %d\n", rec_length
, rec_type
));
4040 if (length
== -1 && rec_type
== DST__K_MODEND
)
4047 = _bfd_vms_save_counted_string (ptr
+ DST_S_B_MODBEG_NAME
);
4054 vms_debug2 ((3, "module: %s\n", module
->name
));
4061 funcinfo
= (struct funcinfo
*)
4062 bfd_zalloc (abfd
, sizeof (struct funcinfo
));
4064 = _bfd_vms_save_counted_string (ptr
+ DST_S_B_RTNBEG_NAME
);
4065 funcinfo
->low
= bfd_getl32 (ptr
+ DST_S_L_RTNBEG_ADDRESS
);
4066 funcinfo
->next
= module
->func_table
;
4067 module
->func_table
= funcinfo
;
4069 vms_debug2 ((3, "routine: %s at 0x%lx\n",
4070 funcinfo
->name
, (unsigned long) funcinfo
->low
));
4074 module
->func_table
->high
= module
->func_table
->low
4075 + bfd_getl32 (ptr
+ DST_S_L_RTNEND_SIZE
) - 1;
4077 if (module
->func_table
->high
> module
->high
)
4078 module
->high
= module
->func_table
->high
;
4080 vms_debug2 ((3, "end routine\n"));
4084 vms_debug2 ((3, "prologue\n"));
4088 vms_debug2 ((3, "epilog\n"));
4092 vms_debug2 ((3, "block\n"));
4096 vms_debug2 ((3, "end block\n"));
4100 src_ptr
= ptr
+ DST_S_C_SOURCE_HEADER_SIZE
;
4102 vms_debug2 ((3, "source info\n"));
4104 while (src_ptr
< ptr
+ rec_length
)
4106 int cmd
= src_ptr
[0], cmd_length
, data
;
4110 case DST__K_SRC_DECLFILE
:
4113 = bfd_getl16 (src_ptr
+ DST_S_W_SRC_DF_FILEID
);
4115 = _bfd_vms_save_counted_string (src_ptr
4116 + DST_S_B_SRC_DF_FILENAME
);
4118 while (fileid
>= module
->file_table_count
)
4120 module
->file_table_count
*= 2;
4122 = bfd_realloc (module
->file_table
,
4123 module
->file_table_count
4124 * sizeof (struct fileinfo
));
4127 module
->file_table
[fileid
].name
= filename
;
4128 module
->file_table
[fileid
].srec
= 1;
4129 cmd_length
= src_ptr
[DST_S_B_SRC_DF_LENGTH
] + 2;
4130 vms_debug2 ((4, "DST_S_C_SRC_DECLFILE: %d, %s\n",
4131 fileid
, module
->file_table
[fileid
].name
));
4135 case DST__K_SRC_DEFLINES_B
:
4136 /* Perform the association and set the next higher index
4138 data
= src_ptr
[DST_S_B_SRC_UNSBYTE
];
4139 srec
= (struct srecinfo
*)
4140 bfd_zalloc (abfd
, sizeof (struct srecinfo
));
4141 srec
->line
= curr_srec
->line
+ data
;
4142 srec
->srec
= curr_srec
->srec
+ data
;
4143 srec
->sfile
= curr_srec
->sfile
;
4144 curr_srec
->next
= srec
;
4147 vms_debug2 ((4, "DST_S_C_SRC_DEFLINES_B: %d\n", data
));
4150 case DST__K_SRC_DEFLINES_W
:
4151 /* Perform the association and set the next higher index
4153 data
= bfd_getl16 (src_ptr
+ DST_S_W_SRC_UNSWORD
);
4154 srec
= (struct srecinfo
*)
4155 bfd_zalloc (abfd
, sizeof (struct srecinfo
));
4156 srec
->line
= curr_srec
->line
+ data
;
4157 srec
->srec
= curr_srec
->srec
+ data
,
4158 srec
->sfile
= curr_srec
->sfile
;
4159 curr_srec
->next
= srec
;
4162 vms_debug2 ((4, "DST_S_C_SRC_DEFLINES_W: %d\n", data
));
4165 case DST__K_SRC_INCRLNUM_B
:
4166 data
= src_ptr
[DST_S_B_SRC_UNSBYTE
];
4167 curr_srec
->line
+= data
;
4169 vms_debug2 ((4, "DST_S_C_SRC_INCRLNUM_B: %d\n", data
));
4172 case DST__K_SRC_SETFILE
:
4173 data
= bfd_getl16 (src_ptr
+ DST_S_W_SRC_UNSWORD
);
4174 curr_srec
->sfile
= data
;
4175 curr_srec
->srec
= module
->file_table
[data
].srec
;
4177 vms_debug2 ((4, "DST_S_C_SRC_SETFILE: %d\n", data
));
4180 case DST__K_SRC_SETLNUM_L
:
4181 data
= bfd_getl32 (src_ptr
+ DST_S_L_SRC_UNSLONG
);
4182 curr_srec
->line
= data
;
4184 vms_debug2 ((4, "DST_S_C_SRC_SETLNUM_L: %d\n", data
));
4187 case DST__K_SRC_SETLNUM_W
:
4188 data
= bfd_getl16 (src_ptr
+ DST_S_W_SRC_UNSWORD
);
4189 curr_srec
->line
= data
;
4191 vms_debug2 ((4, "DST_S_C_SRC_SETLNUM_W: %d\n", data
));
4194 case DST__K_SRC_SETREC_L
:
4195 data
= bfd_getl32 (src_ptr
+ DST_S_L_SRC_UNSLONG
);
4196 curr_srec
->srec
= data
;
4197 module
->file_table
[curr_srec
->sfile
].srec
= data
;
4199 vms_debug2 ((4, "DST_S_C_SRC_SETREC_L: %d\n", data
));
4202 case DST__K_SRC_SETREC_W
:
4203 data
= bfd_getl16 (src_ptr
+ DST_S_W_SRC_UNSWORD
);
4204 curr_srec
->srec
= data
;
4205 module
->file_table
[curr_srec
->sfile
].srec
= data
;
4207 vms_debug2 ((4, "DST_S_C_SRC_SETREC_W: %d\n", data
));
4210 case DST__K_SRC_FORMFEED
:
4212 vms_debug2 ((4, "DST_S_C_SRC_FORMFEED\n"));
4216 _bfd_error_handler (_("unknown source command %d"),
4222 src_ptr
+= cmd_length
;
4226 case DST__K_LINE_NUM
:
4227 pcl_ptr
= ptr
+ DST_S_C_LINE_NUM_HEADER_SIZE
;
4229 vms_debug2 ((3, "line info\n"));
4231 while (pcl_ptr
< ptr
+ rec_length
)
4233 /* The command byte is signed so we must sign-extend it. */
4234 int cmd
= ((signed char *)pcl_ptr
)[0], cmd_length
, data
;
4238 case DST__K_DELTA_PC_W
:
4239 data
= bfd_getl16 (pcl_ptr
+ DST_S_W_PCLINE_UNSWORD
);
4243 vms_debug2 ((4, "DST__K_DELTA_PC_W: %d\n", data
));
4246 case DST__K_DELTA_PC_L
:
4247 data
= bfd_getl32 (pcl_ptr
+ DST_S_L_PCLINE_UNSLONG
);
4251 vms_debug2 ((4, "DST__K_DELTA_PC_L: %d\n", data
));
4254 case DST__K_INCR_LINUM
:
4255 data
= pcl_ptr
[DST_S_B_PCLINE_UNSBYTE
];
4256 curr_linenum
+= data
;
4258 vms_debug2 ((4, "DST__K_INCR_LINUM: %d\n", data
));
4261 case DST__K_INCR_LINUM_W
:
4262 data
= bfd_getl16 (pcl_ptr
+ DST_S_W_PCLINE_UNSWORD
);
4263 curr_linenum
+= data
;
4265 vms_debug2 ((4, "DST__K_INCR_LINUM_W: %d\n", data
));
4268 case DST__K_INCR_LINUM_L
:
4269 data
= bfd_getl32 (pcl_ptr
+ DST_S_L_PCLINE_UNSLONG
);
4270 curr_linenum
+= data
;
4272 vms_debug2 ((4, "DST__K_INCR_LINUM_L: %d\n", data
));
4275 case DST__K_SET_LINUM_INCR
:
4277 (_("DST__K_SET_LINUM_INCR not implemented"));
4281 case DST__K_SET_LINUM_INCR_W
:
4283 (_("DST__K_SET_LINUM_INCR_W not implemented"));
4287 case DST__K_RESET_LINUM_INCR
:
4289 (_("DST__K_RESET_LINUM_INCR not implemented"));
4293 case DST__K_BEG_STMT_MODE
:
4295 (_("DST__K_BEG_STMT_MODE not implemented"));
4299 case DST__K_END_STMT_MODE
:
4301 (_("DST__K_END_STMT_MODE not implemented"));
4305 case DST__K_SET_LINUM_B
:
4306 data
= pcl_ptr
[DST_S_B_PCLINE_UNSBYTE
];
4307 curr_linenum
= data
;
4309 vms_debug2 ((4, "DST__K_SET_LINUM_B: %d\n", data
));
4312 case DST__K_SET_LINUM
:
4313 data
= bfd_getl16 (pcl_ptr
+ DST_S_W_PCLINE_UNSWORD
);
4314 curr_linenum
= data
;
4316 vms_debug2 ((4, "DST__K_SET_LINE_NUM: %d\n", data
));
4319 case DST__K_SET_LINUM_L
:
4320 data
= bfd_getl32 (pcl_ptr
+ DST_S_L_PCLINE_UNSLONG
);
4321 curr_linenum
= data
;
4323 vms_debug2 ((4, "DST__K_SET_LINUM_L: %d\n", data
));
4328 (_("DST__K_SET_PC not implemented"));
4332 case DST__K_SET_PC_W
:
4334 (_("DST__K_SET_PC_W not implemented"));
4338 case DST__K_SET_PC_L
:
4340 (_("DST__K_SET_PC_L not implemented"));
4344 case DST__K_SET_STMTNUM
:
4346 (_("DST__K_SET_STMTNUM not implemented"));
4351 data
= pcl_ptr
[DST_S_B_PCLINE_UNSBYTE
];
4354 vms_debug2 ((4, "DST__K_TERM: %d\n", data
));
4358 data
= bfd_getl16 (pcl_ptr
+ DST_S_W_PCLINE_UNSWORD
);
4361 vms_debug2 ((4, "DST__K_TERM_W: %d\n", data
));
4365 data
= bfd_getl32 (pcl_ptr
+ DST_S_L_PCLINE_UNSLONG
);
4368 vms_debug2 ((4, "DST__K_TERM_L: %d\n", data
));
4371 case DST__K_SET_ABS_PC
:
4372 data
= bfd_getl32 (pcl_ptr
+ DST_S_L_PCLINE_UNSLONG
);
4375 vms_debug2 ((4, "DST__K_SET_ABS_PC: 0x%x\n", data
));
4384 vms_debug2 ((4, "bump pc to 0x%lx and line to %d\n",
4385 (unsigned long)curr_pc
, curr_linenum
));
4389 _bfd_error_handler (_("unknown line command %d"), cmd
);
4395 if ((curr_linenum
!= prev_linum
&& curr_pc
!= prev_pc
)
4397 || cmd
== DST__K_DELTA_PC_L
4398 || cmd
== DST__K_DELTA_PC_W
)
4400 line
= (struct lineinfo
*)
4401 bfd_zalloc (abfd
, sizeof (struct lineinfo
));
4402 line
->address
= curr_pc
;
4403 line
->line
= curr_linenum
;
4405 curr_line
->next
= line
;
4408 prev_linum
= curr_linenum
;
4410 vms_debug2 ((4, "-> correlate pc 0x%lx with line %d\n",
4411 (unsigned long)curr_pc
, curr_linenum
));
4414 pcl_ptr
+= cmd_length
;
4418 case 0x17: /* Undocumented type used by DEC C to declare equates. */
4419 vms_debug2 ((3, "undocumented type 0x17\n"));
4423 vms_debug2 ((3, "ignoring record\n"));
4431 /* Finalize tables with EOL marker. */
4432 srec
= (struct srecinfo
*) bfd_zalloc (abfd
, sizeof (struct srecinfo
));
4433 srec
->line
= (unsigned int) -1;
4434 srec
->srec
= (unsigned int) -1;
4435 curr_srec
->next
= srec
;
4437 line
= (struct lineinfo
*) bfd_zalloc (abfd
, sizeof (struct lineinfo
));
4438 line
->line
= (unsigned int) -1;
4439 line
->address
= (bfd_vma
) -1;
4440 curr_line
->next
= line
;
4442 /* Advertise that this module has been parsed. This is needed
4443 because parsing can be either performed at module creation
4444 or deferred until debug info is consumed. */
4445 SET_MODULE_PARSED (module
);
4448 /* Build the list of modules for the specified BFD. */
4450 static struct module
*
4451 build_module_list (bfd
*abfd
)
4453 struct module
*module
, *list
= NULL
;
4456 if ((dmt
= bfd_get_section_by_name (abfd
, "$DMT$")))
4458 /* We have a DMT section so this must be an image. Parse the
4459 section and build the list of modules. This is sufficient
4460 since we can compute the start address and the end address
4461 of every module from the section contents. */
4462 bfd_size_type size
= bfd_get_section_size (dmt
);
4463 unsigned char *ptr
, *end
;
4465 ptr
= (unsigned char *) bfd_alloc (abfd
, size
);
4469 if (! bfd_get_section_contents (abfd
, dmt
, ptr
, 0, size
))
4472 vms_debug2 ((2, "DMT\n"));
4478 /* Each header declares a module with its start offset and size
4479 of debug info in the DST section, as well as the count of
4480 program sections (i.e. address spans) it contains. */
4481 int modbeg
= bfd_getl32 (ptr
+ DBG_S_L_DMT_MODBEG
);
4482 int msize
= bfd_getl32 (ptr
+ DBG_S_L_DST_SIZE
);
4483 int count
= bfd_getl16 (ptr
+ DBG_S_W_DMT_PSECT_COUNT
);
4484 ptr
+= DBG_S_C_DMT_HEADER_SIZE
;
4486 vms_debug2 ((3, "module: modbeg = %d, size = %d, count = %d\n",
4487 modbeg
, msize
, count
));
4489 /* We create a 'module' structure for each program section since
4490 we only support contiguous addresses in a 'module' structure.
4491 As a consequence, the actual debug info in the DST section is
4492 shared and can be parsed multiple times; that doesn't seem to
4493 cause problems in practice. */
4496 int start
= bfd_getl32 (ptr
+ DBG_S_L_DMT_PSECT_START
);
4497 int length
= bfd_getl32 (ptr
+ DBG_S_L_DMT_PSECT_LENGTH
);
4498 module
= new_module (abfd
);
4499 module
->modbeg
= modbeg
;
4500 module
->size
= msize
;
4501 module
->low
= start
;
4502 module
->high
= start
+ length
;
4503 module
->next
= list
;
4505 ptr
+= DBG_S_C_DMT_PSECT_SIZE
;
4507 vms_debug2 ((4, "section: start = 0x%x, length = %d\n",
4514 /* We don't have a DMT section so this must be an object. Parse
4515 the module right now in order to compute its start address and
4517 void *dst
= PRIV (dst_section
)->contents
;
4522 module
= new_module (abfd
);
4523 parse_module (abfd
, module
, PRIV (dst_section
)->contents
, -1);
4530 /* Calculate and return the name of the source file and the line nearest
4531 to the wanted location in the specified module. */
4534 module_find_nearest_line (bfd
*abfd
, struct module
*module
, bfd_vma addr
,
4535 const char **file
, const char **func
,
4538 struct funcinfo
*funcinfo
;
4539 struct lineinfo
*lineinfo
;
4540 struct srecinfo
*srecinfo
;
4541 bfd_boolean ret
= FALSE
;
4543 /* Parse this module if that was not done at module creation. */
4544 if (! IS_MODULE_PARSED (module
))
4546 unsigned int size
= module
->size
;
4547 unsigned int modbeg
= PRIV (dst_section
)->filepos
+ module
->modbeg
;
4548 unsigned char *buffer
= (unsigned char *) bfd_malloc (module
->size
);
4550 if (bfd_seek (abfd
, modbeg
, SEEK_SET
) != 0
4551 || bfd_bread (buffer
, size
, abfd
) != size
)
4553 bfd_set_error (bfd_error_no_debug_section
);
4557 parse_module (abfd
, module
, buffer
, size
);
4561 /* Find out the function (if any) that contains the address. */
4562 for (funcinfo
= module
->func_table
; funcinfo
; funcinfo
= funcinfo
->next
)
4563 if (addr
>= funcinfo
->low
&& addr
<= funcinfo
->high
)
4565 *func
= funcinfo
->name
;
4570 /* Find out the source file and the line nearest to the address. */
4571 for (lineinfo
= module
->line_table
; lineinfo
; lineinfo
= lineinfo
->next
)
4572 if (lineinfo
->next
&& addr
< lineinfo
->next
->address
)
4574 for (srecinfo
= module
->srec_table
; srecinfo
; srecinfo
= srecinfo
->next
)
4575 if (srecinfo
->next
&& lineinfo
->line
< srecinfo
->next
->line
)
4577 if (srecinfo
->sfile
> 0)
4579 *file
= module
->file_table
[srecinfo
->sfile
].name
;
4580 *line
= srecinfo
->srec
+ lineinfo
->line
- srecinfo
->line
;
4584 *file
= module
->name
;
4585 *line
= lineinfo
->line
;
4596 /* Provided a BFD, a section and an offset into the section, calculate and
4597 return the name of the source file and the line nearest to the wanted
4601 _bfd_vms_find_nearest_line (bfd
*abfd
,
4602 asymbol
**symbols ATTRIBUTE_UNUSED
,
4608 unsigned int *discriminator
)
4610 struct module
*module
;
4612 /* What address are we looking for? */
4613 bfd_vma addr
= section
->vma
+ offset
;
4621 /* We can't do anything if there is no DST (debug symbol table). */
4622 if (PRIV (dst_section
) == NULL
)
4625 /* Create the module list - if not already done. */
4626 if (PRIV (modules
) == NULL
)
4628 PRIV (modules
) = build_module_list (abfd
);
4629 if (PRIV (modules
) == NULL
)
4633 for (module
= PRIV (modules
); module
; module
= module
->next
)
4634 if (addr
>= module
->low
&& addr
<= module
->high
)
4635 return module_find_nearest_line (abfd
, module
, addr
, file
, func
, line
);
4640 /* Canonicalizations. */
4641 /* Set name, value, section and flags of SYM from E. */
4644 alpha_vms_convert_symbol (bfd
*abfd
, struct vms_symbol_entry
*e
, asymbol
*sym
)
4653 flags
= BSF_NO_FLAGS
;
4659 if (e
->flags
& EGSY__V_WEAK
)
4662 if (e
->flags
& EGSY__V_DEF
)
4664 /* Symbol definition. */
4665 flags
|= BSF_GLOBAL
;
4666 if (e
->flags
& EGSY__V_NORM
)
4667 flags
|= BSF_FUNCTION
;
4673 /* Symbol reference. */
4674 sec
= bfd_und_section_ptr
;
4679 /* A universal symbol is by definition global... */
4680 flags
|= BSF_GLOBAL
;
4682 /* ...and dynamic in shared libraries. */
4683 if (abfd
->flags
& DYNAMIC
)
4684 flags
|= BSF_DYNAMIC
;
4686 if (e
->flags
& EGSY__V_WEAK
)
4689 if (!(e
->flags
& EGSY__V_DEF
))
4692 if (e
->flags
& EGSY__V_NORM
)
4693 flags
|= BSF_FUNCTION
;
4696 /* sec = e->section; */
4697 sec
= bfd_abs_section_ptr
;
4712 /* Return the number of bytes required to store a vector of pointers
4713 to asymbols for all the symbols in the BFD abfd, including a
4714 terminal NULL pointer. If there are no symbols in the BFD,
4715 then return 0. If an error occurs, return -1. */
4718 alpha_vms_get_symtab_upper_bound (bfd
*abfd
)
4720 vms_debug2 ((1, "alpha_vms_get_symtab_upper_bound (%p), %d symbols\n",
4721 abfd
, PRIV (gsd_sym_count
)));
4723 return (PRIV (gsd_sym_count
) + 1) * sizeof (asymbol
*);
4726 /* Read the symbols from the BFD abfd, and fills in the vector
4727 location with pointers to the symbols and a trailing NULL.
4729 Return number of symbols read. */
4732 alpha_vms_canonicalize_symtab (bfd
*abfd
, asymbol
**symbols
)
4736 vms_debug2 ((1, "alpha_vms_canonicalize_symtab (%p, <ret>)\n", abfd
));
4738 if (PRIV (csymbols
) == NULL
)
4740 PRIV (csymbols
) = (asymbol
**) bfd_alloc
4741 (abfd
, PRIV (gsd_sym_count
) * sizeof (asymbol
*));
4743 /* Traverse table and fill symbols vector. */
4744 for (i
= 0; i
< PRIV (gsd_sym_count
); i
++)
4746 struct vms_symbol_entry
*e
= PRIV (syms
)[i
];
4749 sym
= bfd_make_empty_symbol (abfd
);
4750 if (sym
== NULL
|| !alpha_vms_convert_symbol (abfd
, e
, sym
))
4752 bfd_release (abfd
, PRIV (csymbols
));
4753 PRIV (csymbols
) = NULL
;
4757 PRIV (csymbols
)[i
] = sym
;
4761 if (symbols
!= NULL
)
4763 for (i
= 0; i
< PRIV (gsd_sym_count
); i
++)
4764 symbols
[i
] = PRIV (csymbols
)[i
];
4768 return PRIV (gsd_sym_count
);
4771 /* Read and convert relocations from ETIR. We do it once for all sections. */
4774 alpha_vms_slurp_relocs (bfd
*abfd
)
4778 vms_debug2 ((3, "alpha_vms_slurp_relocs\n"));
4780 /* We slurp relocs only once, for all sections. */
4781 if (PRIV (reloc_done
))
4783 PRIV (reloc_done
) = TRUE
;
4785 if (alpha_vms_canonicalize_symtab (abfd
, NULL
) < 0)
4788 if (bfd_seek (abfd
, 0, SEEK_SET
) != 0)
4793 unsigned char *begin
;
4796 bfd_reloc_code_real_type reloc_code
;
4802 bfd_vma cur_address
;
4804 unsigned char *cur_sym
= NULL
;
4806 bfd_vma cur_addend
= 0;
4808 /* Skip non-ETIR records. */
4809 type
= _bfd_vms_get_object_record (abfd
);
4810 if (type
== EOBJ__C_EEOM
)
4812 if (type
!= EOBJ__C_ETIR
)
4815 begin
= PRIV (recrd
.rec
) + 4;
4816 end
= PRIV (recrd
.rec
) + PRIV (recrd
.rec_size
);
4818 for (ptr
= begin
; ptr
< end
; ptr
+= length
)
4822 cmd
= bfd_getl16 (ptr
);
4823 length
= bfd_getl16 (ptr
+ 2);
4825 cur_address
= vaddr
;
4827 vms_debug2 ((4, "alpha_vms_slurp_relocs: etir %s\n",
4828 _bfd_vms_etir_name (cmd
)));
4832 case ETIR__C_STA_GBL
: /* ALPHA_R_REFLONG und_section, step 1 */
4833 /* ALPHA_R_REFQUAD und_section, step 1 */
4838 case ETIR__C_STA_PQ
: /* ALPHA_R_REF{LONG|QUAD}, others part 1 */
4839 cur_psidx
= bfd_getl32 (ptr
+ 4);
4840 cur_addend
= bfd_getl64 (ptr
+ 8);
4844 case ETIR__C_CTL_SETRB
:
4845 if (prev_cmd
!= ETIR__C_STA_PQ
)
4848 /* xgettext:c-format */
4849 (_("Unknown reloc %s + %s"), _bfd_vms_etir_name (prev_cmd
),
4850 _bfd_vms_etir_name (cmd
));
4853 cur_psect
= cur_psidx
;
4859 case ETIR__C_STA_LW
: /* ALPHA_R_REFLONG abs_section, step 1 */
4860 /* ALPHA_R_REFLONG und_section, step 2 */
4863 if (prev_cmd
!= ETIR__C_STA_GBL
)
4866 /* xgettext:c-format */
4867 (_("Unknown reloc %s + %s"), _bfd_vms_etir_name (cmd
),
4868 _bfd_vms_etir_name (ETIR__C_STA_LW
));
4872 cur_addend
= bfd_getl32 (ptr
+ 4);
4876 case ETIR__C_STA_QW
: /* ALPHA_R_REFQUAD abs_section, step 1 */
4877 /* ALPHA_R_REFQUAD und_section, step 2 */
4878 if (prev_cmd
!= -1 && prev_cmd
!= ETIR__C_STA_GBL
)
4881 /* xgettext:c-format */
4882 (_("Unknown reloc %s + %s"), _bfd_vms_etir_name (cmd
),
4883 _bfd_vms_etir_name (ETIR__C_STA_QW
));
4886 cur_addend
= bfd_getl64 (ptr
+ 4);
4890 case ETIR__C_STO_LW
: /* ALPHA_R_REFLONG und_section, step 4 */
4891 /* ALPHA_R_REFLONG abs_section, step 2 */
4892 /* ALPHA_R_REFLONG others, step 2 */
4893 if (prev_cmd
!= ETIR__C_OPR_ADD
4894 && prev_cmd
!= ETIR__C_STA_LW
4895 && prev_cmd
!= ETIR__C_STA_PQ
)
4897 /* xgettext:c-format */
4898 _bfd_error_handler (_("Unknown reloc %s + %s"),
4899 _bfd_vms_etir_name (prev_cmd
),
4900 _bfd_vms_etir_name (ETIR__C_STO_LW
));
4903 reloc_code
= BFD_RELOC_32
;
4906 case ETIR__C_STO_QW
: /* ALPHA_R_REFQUAD und_section, step 4 */
4907 /* ALPHA_R_REFQUAD abs_section, step 2 */
4908 if (prev_cmd
!= ETIR__C_OPR_ADD
&& prev_cmd
!= ETIR__C_STA_QW
)
4910 /* xgettext:c-format */
4911 _bfd_error_handler (_("Unknown reloc %s + %s"),
4912 _bfd_vms_etir_name (prev_cmd
),
4913 _bfd_vms_etir_name (ETIR__C_STO_QW
));
4916 reloc_code
= BFD_RELOC_64
;
4919 case ETIR__C_STO_OFF
: /* ALPHA_R_REFQUAD others, step 2 */
4920 if (prev_cmd
!= ETIR__C_STA_PQ
)
4922 /* xgettext:c-format */
4923 _bfd_error_handler (_("Unknown reloc %s + %s"),
4924 _bfd_vms_etir_name (prev_cmd
),
4925 _bfd_vms_etir_name (ETIR__C_STO_OFF
));
4928 reloc_code
= BFD_RELOC_64
;
4931 case ETIR__C_OPR_ADD
: /* ALPHA_R_REFLONG und_section, step 3 */
4932 /* ALPHA_R_REFQUAD und_section, step 3 */
4933 if (prev_cmd
!= ETIR__C_STA_LW
&& prev_cmd
!= ETIR__C_STA_QW
)
4935 /* xgettext:c-format */
4936 _bfd_error_handler (_("Unknown reloc %s + %s"),
4937 _bfd_vms_etir_name (prev_cmd
),
4938 _bfd_vms_etir_name (ETIR__C_OPR_ADD
));
4941 prev_cmd
= ETIR__C_OPR_ADD
;
4944 case ETIR__C_STO_CA
: /* ALPHA_R_CODEADDR */
4945 reloc_code
= BFD_RELOC_ALPHA_CODEADDR
;
4949 case ETIR__C_STO_GBL
: /* ALPHA_R_REFQUAD und_section */
4950 reloc_code
= BFD_RELOC_64
;
4954 case ETIR__C_STO_GBL_LW
: /* ALPHA_R_REFLONG und_section */
4955 reloc_code
= BFD_RELOC_32
;
4959 case ETIR__C_STC_LP_PSB
: /* ALPHA_R_LINKAGE */
4960 reloc_code
= BFD_RELOC_ALPHA_LINKAGE
;
4964 case ETIR__C_STC_NOP_GBL
: /* ALPHA_R_NOP */
4965 reloc_code
= BFD_RELOC_ALPHA_NOP
;
4968 case ETIR__C_STC_BSR_GBL
: /* ALPHA_R_BSR */
4969 reloc_code
= BFD_RELOC_ALPHA_BSR
;
4972 case ETIR__C_STC_LDA_GBL
: /* ALPHA_R_LDA */
4973 reloc_code
= BFD_RELOC_ALPHA_LDA
;
4976 case ETIR__C_STC_BOH_GBL
: /* ALPHA_R_BOH */
4977 reloc_code
= BFD_RELOC_ALPHA_BOH
;
4981 cur_sym
= ptr
+ 4 + 32;
4982 cur_address
= bfd_getl64 (ptr
+ 4 + 8);
4983 cur_addend
= bfd_getl64 (ptr
+ 4 + 24);
4986 case ETIR__C_STO_IMM
:
4987 vaddr
+= bfd_getl32 (ptr
+ 4);
4991 _bfd_error_handler (_("Unknown reloc %s"),
4992 _bfd_vms_etir_name (cmd
));
4998 struct vms_section_data_struct
*vms_sec
;
5001 /* Get section to which the relocation applies. */
5002 if (cur_psect
< 0 || cur_psect
> (int)PRIV (section_count
))
5004 _bfd_error_handler (_("Invalid section index in ETIR"));
5008 sec
= PRIV (sections
)[cur_psect
];
5009 if (sec
== bfd_abs_section_ptr
)
5011 _bfd_error_handler (_("Relocation for non-REL psect"));
5015 vms_sec
= vms_section_data (sec
);
5017 /* Allocate a reloc entry. */
5018 if (sec
->reloc_count
>= vms_sec
->reloc_max
)
5020 if (vms_sec
->reloc_max
== 0)
5022 vms_sec
->reloc_max
= 64;
5023 sec
->relocation
= bfd_zmalloc
5024 (vms_sec
->reloc_max
* sizeof (arelent
));
5028 vms_sec
->reloc_max
*= 2;
5029 sec
->relocation
= bfd_realloc
5030 (sec
->relocation
, vms_sec
->reloc_max
* sizeof (arelent
));
5033 reloc
= &sec
->relocation
[sec
->reloc_count
];
5036 reloc
->howto
= bfd_reloc_type_lookup (abfd
, reloc_code
);
5038 if (cur_sym
!= NULL
)
5041 unsigned int symlen
= *cur_sym
;
5044 /* Linear search. */
5049 for (j
= 0; j
< PRIV (gsd_sym_count
); j
++)
5050 if (PRIV (syms
)[j
]->namelen
== symlen
5051 && memcmp (PRIV (syms
)[j
]->name
, cur_sym
, symlen
) == 0)
5053 sym
= &PRIV (csymbols
)[j
];
5058 _bfd_error_handler (_("Unknown symbol in command %s"),
5059 _bfd_vms_etir_name (cmd
));
5060 reloc
->sym_ptr_ptr
= NULL
;
5063 reloc
->sym_ptr_ptr
= sym
;
5065 else if (cur_psidx
>= 0)
5066 reloc
->sym_ptr_ptr
=
5067 PRIV (sections
)[cur_psidx
]->symbol_ptr_ptr
;
5069 reloc
->sym_ptr_ptr
= NULL
;
5071 reloc
->address
= cur_address
;
5072 reloc
->addend
= cur_addend
;
5074 vaddr
+= bfd_get_reloc_size (reloc
->howto
);
5083 vms_debug2 ((3, "alpha_vms_slurp_relocs: result = TRUE\n"));
5088 /* Return the number of bytes required to store the relocation
5089 information associated with the given section. */
5092 alpha_vms_get_reloc_upper_bound (bfd
*abfd ATTRIBUTE_UNUSED
, asection
*section
)
5094 alpha_vms_slurp_relocs (abfd
);
5096 return (section
->reloc_count
+ 1) * sizeof (arelent
*);
5099 /* Convert relocations from VMS (external) form into BFD internal
5100 form. Return the number of relocations. */
5103 alpha_vms_canonicalize_reloc (bfd
*abfd
, asection
*section
, arelent
**relptr
,
5104 asymbol
**symbols ATTRIBUTE_UNUSED
)
5109 if (!alpha_vms_slurp_relocs (abfd
))
5112 count
= section
->reloc_count
;
5113 tblptr
= section
->relocation
;
5116 *relptr
++ = tblptr
++;
5118 *relptr
= (arelent
*) NULL
;
5119 return section
->reloc_count
;
5122 /* Install a new set of internal relocs. */
5124 #define alpha_vms_set_reloc _bfd_generic_set_reloc
5127 /* This is just copied from ecoff-alpha, needs to be fixed probably. */
5129 /* How to process the various reloc types. */
5131 static bfd_reloc_status_type
5132 reloc_nil (bfd
* abfd ATTRIBUTE_UNUSED
,
5133 arelent
*reloc ATTRIBUTE_UNUSED
,
5134 asymbol
*sym ATTRIBUTE_UNUSED
,
5135 void * data ATTRIBUTE_UNUSED
,
5136 asection
*sec ATTRIBUTE_UNUSED
,
5137 bfd
*output_bfd ATTRIBUTE_UNUSED
,
5138 char **error_message ATTRIBUTE_UNUSED
)
5141 vms_debug (1, "reloc_nil (abfd %p, output_bfd %p)\n", abfd
, output_bfd
);
5142 vms_debug (2, "In section %s, symbol %s\n",
5143 sec
->name
, sym
->name
);
5144 vms_debug (2, "reloc sym %s, addr %08lx, addend %08lx, reloc is a %s\n",
5145 reloc
->sym_ptr_ptr
[0]->name
,
5146 (unsigned long)reloc
->address
,
5147 (unsigned long)reloc
->addend
, reloc
->howto
->name
);
5148 vms_debug (2, "data at %p\n", data
);
5149 /* _bfd_hexdump (2, data, bfd_get_reloc_size (reloc->howto), 0); */
5152 return bfd_reloc_ok
;
5155 /* In case we're on a 32-bit machine, construct a 64-bit "-1" value
5156 from smaller values. Start with zero, widen, *then* decrement. */
5157 #define MINUS_ONE (((bfd_vma)0) - 1)
5159 static reloc_howto_type alpha_howto_table
[] =
5161 HOWTO (ALPHA_R_IGNORE
, /* Type. */
5162 0, /* Rightshift. */
5163 0, /* Size (0 = byte, 1 = short, 2 = long). */
5165 TRUE
, /* PC relative. */
5167 complain_overflow_dont
,/* Complain_on_overflow. */
5168 reloc_nil
, /* Special_function. */
5169 "IGNORE", /* Name. */
5170 TRUE
, /* Partial_inplace. */
5171 0, /* Source mask */
5173 TRUE
), /* PC rel offset. */
5175 /* A 64 bit reference to a symbol. */
5176 HOWTO (ALPHA_R_REFQUAD
, /* Type. */
5177 0, /* Rightshift. */
5178 4, /* Size (0 = byte, 1 = short, 2 = long). */
5180 FALSE
, /* PC relative. */
5182 complain_overflow_bitfield
, /* Complain_on_overflow. */
5183 reloc_nil
, /* Special_function. */
5184 "REFQUAD", /* Name. */
5185 TRUE
, /* Partial_inplace. */
5186 MINUS_ONE
, /* Source mask. */
5187 MINUS_ONE
, /* Dest mask. */
5188 FALSE
), /* PC rel offset. */
5190 /* A 21 bit branch. The native assembler generates these for
5191 branches within the text segment, and also fills in the PC
5192 relative offset in the instruction. */
5193 HOWTO (ALPHA_R_BRADDR
, /* Type. */
5194 2, /* Rightshift. */
5195 2, /* Size (0 = byte, 1 = short, 2 = long). */
5197 TRUE
, /* PC relative. */
5199 complain_overflow_signed
, /* Complain_on_overflow. */
5200 reloc_nil
, /* Special_function. */
5201 "BRADDR", /* Name. */
5202 TRUE
, /* Partial_inplace. */
5203 0x1fffff, /* Source mask. */
5204 0x1fffff, /* Dest mask. */
5205 FALSE
), /* PC rel offset. */
5207 /* A hint for a jump to a register. */
5208 HOWTO (ALPHA_R_HINT
, /* Type. */
5209 2, /* Rightshift. */
5210 1, /* Size (0 = byte, 1 = short, 2 = long). */
5212 TRUE
, /* PC relative. */
5214 complain_overflow_dont
,/* Complain_on_overflow. */
5215 reloc_nil
, /* Special_function. */
5217 TRUE
, /* Partial_inplace. */
5218 0x3fff, /* Source mask. */
5219 0x3fff, /* Dest mask. */
5220 FALSE
), /* PC rel offset. */
5222 /* 16 bit PC relative offset. */
5223 HOWTO (ALPHA_R_SREL16
, /* Type. */
5224 0, /* Rightshift. */
5225 1, /* Size (0 = byte, 1 = short, 2 = long). */
5227 TRUE
, /* PC relative. */
5229 complain_overflow_signed
, /* Complain_on_overflow. */
5230 reloc_nil
, /* Special_function. */
5231 "SREL16", /* Name. */
5232 TRUE
, /* Partial_inplace. */
5233 0xffff, /* Source mask. */
5234 0xffff, /* Dest mask. */
5235 FALSE
), /* PC rel offset. */
5237 /* 32 bit PC relative offset. */
5238 HOWTO (ALPHA_R_SREL32
, /* Type. */
5239 0, /* Rightshift. */
5240 2, /* Size (0 = byte, 1 = short, 2 = long). */
5242 TRUE
, /* PC relative. */
5244 complain_overflow_signed
, /* Complain_on_overflow. */
5245 reloc_nil
, /* Special_function. */
5246 "SREL32", /* Name. */
5247 TRUE
, /* Partial_inplace. */
5248 0xffffffff, /* Source mask. */
5249 0xffffffff, /* Dest mask. */
5250 FALSE
), /* PC rel offset. */
5252 /* A 64 bit PC relative offset. */
5253 HOWTO (ALPHA_R_SREL64
, /* Type. */
5254 0, /* Rightshift. */
5255 4, /* Size (0 = byte, 1 = short, 2 = long). */
5257 TRUE
, /* PC relative. */
5259 complain_overflow_signed
, /* Complain_on_overflow. */
5260 reloc_nil
, /* Special_function. */
5261 "SREL64", /* Name. */
5262 TRUE
, /* Partial_inplace. */
5263 MINUS_ONE
, /* Source mask. */
5264 MINUS_ONE
, /* Dest mask. */
5265 FALSE
), /* PC rel offset. */
5267 /* Push a value on the reloc evaluation stack. */
5268 HOWTO (ALPHA_R_OP_PUSH
, /* Type. */
5269 0, /* Rightshift. */
5270 0, /* Size (0 = byte, 1 = short, 2 = long). */
5272 FALSE
, /* PC relative. */
5274 complain_overflow_dont
,/* Complain_on_overflow. */
5275 reloc_nil
, /* Special_function. */
5276 "OP_PUSH", /* Name. */
5277 FALSE
, /* Partial_inplace. */
5278 0, /* Source mask. */
5280 FALSE
), /* PC rel offset. */
5282 /* Store the value from the stack at the given address. Store it in
5283 a bitfield of size r_size starting at bit position r_offset. */
5284 HOWTO (ALPHA_R_OP_STORE
, /* Type. */
5285 0, /* Rightshift. */
5286 4, /* Size (0 = byte, 1 = short, 2 = long). */
5288 FALSE
, /* PC relative. */
5290 complain_overflow_dont
,/* Complain_on_overflow. */
5291 reloc_nil
, /* Special_function. */
5292 "OP_STORE", /* Name. */
5293 FALSE
, /* Partial_inplace. */
5294 0, /* Source mask. */
5295 MINUS_ONE
, /* Dest mask. */
5296 FALSE
), /* PC rel offset. */
5298 /* Subtract the reloc address from the value on the top of the
5299 relocation stack. */
5300 HOWTO (ALPHA_R_OP_PSUB
, /* Type. */
5301 0, /* Rightshift. */
5302 0, /* Size (0 = byte, 1 = short, 2 = long). */
5304 FALSE
, /* PC relative. */
5306 complain_overflow_dont
,/* Complain_on_overflow. */
5307 reloc_nil
, /* Special_function. */
5308 "OP_PSUB", /* Name. */
5309 FALSE
, /* Partial_inplace. */
5310 0, /* Source mask. */
5312 FALSE
), /* PC rel offset. */
5314 /* Shift the value on the top of the relocation stack right by the
5316 HOWTO (ALPHA_R_OP_PRSHIFT
, /* Type. */
5317 0, /* Rightshift. */
5318 0, /* Size (0 = byte, 1 = short, 2 = long). */
5320 FALSE
, /* PC relative. */
5322 complain_overflow_dont
,/* Complain_on_overflow. */
5323 reloc_nil
, /* Special_function. */
5324 "OP_PRSHIFT", /* Name. */
5325 FALSE
, /* Partial_inplace. */
5326 0, /* Source mask. */
5328 FALSE
), /* PC rel offset. */
5330 /* Hack. Linkage is done by linker. */
5331 HOWTO (ALPHA_R_LINKAGE
, /* Type. */
5332 0, /* Rightshift. */
5333 8, /* Size (0 = byte, 1 = short, 2 = long). */
5335 FALSE
, /* PC relative. */
5337 complain_overflow_dont
,/* Complain_on_overflow. */
5338 reloc_nil
, /* Special_function. */
5339 "LINKAGE", /* Name. */
5340 FALSE
, /* Partial_inplace. */
5341 0, /* Source mask. */
5343 FALSE
), /* PC rel offset. */
5345 /* A 32 bit reference to a symbol. */
5346 HOWTO (ALPHA_R_REFLONG
, /* Type. */
5347 0, /* Rightshift. */
5348 2, /* Size (0 = byte, 1 = short, 2 = long). */
5350 FALSE
, /* PC relative. */
5352 complain_overflow_bitfield
, /* Complain_on_overflow. */
5353 reloc_nil
, /* Special_function. */
5354 "REFLONG", /* Name. */
5355 TRUE
, /* Partial_inplace. */
5356 0xffffffff, /* Source mask. */
5357 0xffffffff, /* Dest mask. */
5358 FALSE
), /* PC rel offset. */
5360 /* A 64 bit reference to a procedure, written as 32 bit value. */
5361 HOWTO (ALPHA_R_CODEADDR
, /* Type. */
5362 0, /* Rightshift. */
5363 4, /* Size (0 = byte, 1 = short, 2 = long). */
5365 FALSE
, /* PC relative. */
5367 complain_overflow_signed
,/* Complain_on_overflow. */
5368 reloc_nil
, /* Special_function. */
5369 "CODEADDR", /* Name. */
5370 FALSE
, /* Partial_inplace. */
5371 0xffffffff, /* Source mask. */
5372 0xffffffff, /* Dest mask. */
5373 FALSE
), /* PC rel offset. */
5375 HOWTO (ALPHA_R_NOP
, /* Type. */
5376 0, /* Rightshift. */
5377 3, /* Size (0 = byte, 1 = short, 2 = long). */
5379 /* The following value must match that of ALPHA_R_BSR/ALPHA_R_BOH
5380 because the calculations for the 3 relocations are the same.
5381 See B.4.5.2 of the OpenVMS Linker Utility Manual. */
5382 TRUE
, /* PC relative. */
5384 complain_overflow_dont
,/* Complain_on_overflow. */
5385 reloc_nil
, /* Special_function. */
5387 FALSE
, /* Partial_inplace. */
5388 0xffffffff, /* Source mask. */
5389 0xffffffff, /* Dest mask. */
5390 FALSE
), /* PC rel offset. */
5392 HOWTO (ALPHA_R_BSR
, /* Type. */
5393 0, /* Rightshift. */
5394 3, /* Size (0 = byte, 1 = short, 2 = long). */
5396 TRUE
, /* PC relative. */
5398 complain_overflow_dont
,/* Complain_on_overflow. */
5399 reloc_nil
, /* Special_function. */
5401 FALSE
, /* Partial_inplace. */
5402 0xffffffff, /* Source mask. */
5403 0xffffffff, /* Dest mask. */
5404 FALSE
), /* PC rel offset. */
5406 HOWTO (ALPHA_R_LDA
, /* Type. */
5407 0, /* Rightshift. */
5408 3, /* Size (0 = byte, 1 = short, 2 = long). */
5410 FALSE
, /* PC relative. */
5412 complain_overflow_dont
,/* Complain_on_overflow. */
5413 reloc_nil
, /* Special_function. */
5415 FALSE
, /* Partial_inplace. */
5416 0xffffffff, /* Source mask. */
5417 0xffffffff, /* Dest mask. */
5418 FALSE
), /* PC rel offset. */
5420 HOWTO (ALPHA_R_BOH
, /* Type. */
5421 0, /* Rightshift. */
5422 3, /* Size (0 = byte, 1 = short, 2 = long, 3 = nil). */
5424 TRUE
, /* PC relative. */
5426 complain_overflow_dont
,/* Complain_on_overflow. */
5427 reloc_nil
, /* Special_function. */
5429 FALSE
, /* Partial_inplace. */
5430 0xffffffff, /* Source mask. */
5431 0xffffffff, /* Dest mask. */
5432 FALSE
), /* PC rel offset. */
5435 /* Return a pointer to a howto structure which, when invoked, will perform
5436 the relocation code on data from the architecture noted. */
5438 static const struct reloc_howto_struct
*
5439 alpha_vms_bfd_reloc_type_lookup (bfd
* abfd ATTRIBUTE_UNUSED
,
5440 bfd_reloc_code_real_type code
)
5444 vms_debug2 ((1, "vms_bfd_reloc_type_lookup (%p, %d)\t", abfd
, code
));
5448 case BFD_RELOC_16
: alpha_type
= ALPHA_R_SREL16
; break;
5449 case BFD_RELOC_32
: alpha_type
= ALPHA_R_REFLONG
; break;
5450 case BFD_RELOC_64
: alpha_type
= ALPHA_R_REFQUAD
; break;
5451 case BFD_RELOC_CTOR
: alpha_type
= ALPHA_R_REFQUAD
; break;
5452 case BFD_RELOC_23_PCREL_S2
: alpha_type
= ALPHA_R_BRADDR
; break;
5453 case BFD_RELOC_ALPHA_HINT
: alpha_type
= ALPHA_R_HINT
; break;
5454 case BFD_RELOC_16_PCREL
: alpha_type
= ALPHA_R_SREL16
; break;
5455 case BFD_RELOC_32_PCREL
: alpha_type
= ALPHA_R_SREL32
; break;
5456 case BFD_RELOC_64_PCREL
: alpha_type
= ALPHA_R_SREL64
; break;
5457 case BFD_RELOC_ALPHA_LINKAGE
: alpha_type
= ALPHA_R_LINKAGE
; break;
5458 case BFD_RELOC_ALPHA_CODEADDR
: alpha_type
= ALPHA_R_CODEADDR
; break;
5459 case BFD_RELOC_ALPHA_NOP
: alpha_type
= ALPHA_R_NOP
; break;
5460 case BFD_RELOC_ALPHA_BSR
: alpha_type
= ALPHA_R_BSR
; break;
5461 case BFD_RELOC_ALPHA_LDA
: alpha_type
= ALPHA_R_LDA
; break;
5462 case BFD_RELOC_ALPHA_BOH
: alpha_type
= ALPHA_R_BOH
; break;
5464 _bfd_error_handler (_("reloc (%d) is *UNKNOWN*"), code
);
5467 vms_debug2 ((2, "reloc is %s\n", alpha_howto_table
[alpha_type
].name
));
5468 return & alpha_howto_table
[alpha_type
];
5471 static reloc_howto_type
*
5472 alpha_vms_bfd_reloc_name_lookup (bfd
*abfd ATTRIBUTE_UNUSED
,
5478 i
< sizeof (alpha_howto_table
) / sizeof (alpha_howto_table
[0]);
5480 if (alpha_howto_table
[i
].name
!= NULL
5481 && strcasecmp (alpha_howto_table
[i
].name
, r_name
) == 0)
5482 return &alpha_howto_table
[i
];
5488 alpha_vms_get_synthetic_symtab (bfd
*abfd
,
5489 long symcount ATTRIBUTE_UNUSED
,
5490 asymbol
**usyms ATTRIBUTE_UNUSED
,
5491 long dynsymcount ATTRIBUTE_UNUSED
,
5492 asymbol
**dynsyms ATTRIBUTE_UNUSED
,
5499 syms
= (asymbol
*) bfd_malloc (PRIV (norm_sym_count
) * sizeof (asymbol
));
5504 for (i
= 0; i
< PRIV (gsd_sym_count
); i
++)
5506 struct vms_symbol_entry
*e
= PRIV (syms
)[i
];
5517 flags
= BSF_LOCAL
| BSF_SYNTHETIC
;
5524 if ((e
->flags
& EGSY__V_DEF
) && (e
->flags
& EGSY__V_NORM
))
5526 value
= e
->code_value
;
5527 sec
= e
->code_section
;
5538 sname
= bfd_alloc (abfd
, l
+ 5);
5541 memcpy (sname
, name
, l
);
5542 memcpy (sname
+ l
, "..en", 5);
5549 sym
->udata
.p
= NULL
;
5558 vms_time_to_str (unsigned char *buf
)
5560 time_t t
= vms_rawtime_to_time_t (buf
);
5561 char *res
= ctime (&t
);
5564 res
= "*invalid time*";
5571 evax_bfd_print_emh (FILE *file
, unsigned char *rec
, unsigned int rec_len
)
5573 struct vms_emh_common
*emh
= (struct vms_emh_common
*)rec
;
5574 unsigned int subtype
;
5576 subtype
= (unsigned)bfd_getl16 (emh
->subtyp
);
5578 /* xgettext:c-format */
5579 fprintf (file
, _(" EMH %u (len=%u): "), subtype
, rec_len
);
5585 struct vms_emh_mhd
*mhd
= (struct vms_emh_mhd
*)rec
;
5588 fprintf (file
, _("Module header\n"));
5589 fprintf (file
, _(" structure level: %u\n"), mhd
->strlvl
);
5590 fprintf (file
, _(" max record size: %u\n"),
5591 (unsigned)bfd_getl32 (mhd
->recsiz
));
5592 name
= (char *)(mhd
+ 1);
5593 fprintf (file
, _(" module name : %.*s\n"), name
[0], name
+ 1);
5594 name
+= name
[0] + 1;
5595 fprintf (file
, _(" module version : %.*s\n"), name
[0], name
+ 1);
5596 name
+= name
[0] + 1;
5597 fprintf (file
, _(" compile date : %.17s\n"), name
);
5602 fprintf (file
, _("Language Processor Name\n"));
5603 fprintf (file
, _(" language name: %.*s\n"),
5604 (int)(rec_len
- sizeof (struct vms_emh_common
)),
5605 (char *)rec
+ sizeof (struct vms_emh_common
));
5610 fprintf (file
, _("Source Files Header\n"));
5611 fprintf (file
, _(" file: %.*s\n"),
5612 (int)(rec_len
- sizeof (struct vms_emh_common
)),
5613 (char *)rec
+ sizeof (struct vms_emh_common
));
5618 fprintf (file
, _("Title Text Header\n"));
5619 fprintf (file
, _(" title: %.*s\n"),
5620 (int)(rec_len
- sizeof (struct vms_emh_common
)),
5621 (char *)rec
+ sizeof (struct vms_emh_common
));
5626 fprintf (file
, _("Copyright Header\n"));
5627 fprintf (file
, _(" copyright: %.*s\n"),
5628 (int)(rec_len
- sizeof (struct vms_emh_common
)),
5629 (char *)rec
+ sizeof (struct vms_emh_common
));
5633 fprintf (file
, _("unhandled emh subtype %u\n"), subtype
);
5639 evax_bfd_print_eeom (FILE *file
, unsigned char *rec
, unsigned int rec_len
)
5641 struct vms_eeom
*eeom
= (struct vms_eeom
*)rec
;
5643 fprintf (file
, _(" EEOM (len=%u):\n"), rec_len
);
5644 fprintf (file
, _(" number of cond linkage pairs: %u\n"),
5645 (unsigned)bfd_getl32 (eeom
->total_lps
));
5646 fprintf (file
, _(" completion code: %u\n"),
5647 (unsigned)bfd_getl16 (eeom
->comcod
));
5650 fprintf (file
, _(" transfer addr flags: 0x%02x\n"), eeom
->tfrflg
);
5651 fprintf (file
, _(" transfer addr psect: %u\n"),
5652 (unsigned)bfd_getl32 (eeom
->psindx
));
5653 fprintf (file
, _(" transfer address : 0x%08x\n"),
5654 (unsigned)bfd_getl32 (eeom
->tfradr
));
5659 exav_bfd_print_egsy_flags (unsigned int flags
, FILE *file
)
5661 if (flags
& EGSY__V_WEAK
)
5662 fputs (_(" WEAK"), file
);
5663 if (flags
& EGSY__V_DEF
)
5664 fputs (_(" DEF"), file
);
5665 if (flags
& EGSY__V_UNI
)
5666 fputs (_(" UNI"), file
);
5667 if (flags
& EGSY__V_REL
)
5668 fputs (_(" REL"), file
);
5669 if (flags
& EGSY__V_COMM
)
5670 fputs (_(" COMM"), file
);
5671 if (flags
& EGSY__V_VECEP
)
5672 fputs (_(" VECEP"), file
);
5673 if (flags
& EGSY__V_NORM
)
5674 fputs (_(" NORM"), file
);
5675 if (flags
& EGSY__V_QUAD_VAL
)
5676 fputs (_(" QVAL"), file
);
5680 evax_bfd_print_egsd_flags (FILE *file
, unsigned int flags
)
5682 if (flags
& EGPS__V_PIC
)
5683 fputs (_(" PIC"), file
);
5684 if (flags
& EGPS__V_LIB
)
5685 fputs (_(" LIB"), file
);
5686 if (flags
& EGPS__V_OVR
)
5687 fputs (_(" OVR"), file
);
5688 if (flags
& EGPS__V_REL
)
5689 fputs (_(" REL"), file
);
5690 if (flags
& EGPS__V_GBL
)
5691 fputs (_(" GBL"), file
);
5692 if (flags
& EGPS__V_SHR
)
5693 fputs (_(" SHR"), file
);
5694 if (flags
& EGPS__V_EXE
)
5695 fputs (_(" EXE"), file
);
5696 if (flags
& EGPS__V_RD
)
5697 fputs (_(" RD"), file
);
5698 if (flags
& EGPS__V_WRT
)
5699 fputs (_(" WRT"), file
);
5700 if (flags
& EGPS__V_VEC
)
5701 fputs (_(" VEC"), file
);
5702 if (flags
& EGPS__V_NOMOD
)
5703 fputs (_(" NOMOD"), file
);
5704 if (flags
& EGPS__V_COM
)
5705 fputs (_(" COM"), file
);
5706 if (flags
& EGPS__V_ALLOC_64BIT
)
5707 fputs (_(" 64B"), file
);
5711 evax_bfd_print_egsd (FILE *file
, unsigned char *rec
, unsigned int rec_len
)
5713 unsigned int off
= sizeof (struct vms_egsd
);
5716 fprintf (file
, _(" EGSD (len=%u):\n"), rec_len
);
5719 for (off
= sizeof (struct vms_egsd
); off
< rec_len
; )
5721 struct vms_egsd_entry
*e
= (struct vms_egsd_entry
*)(rec
+ off
);
5725 type
= (unsigned)bfd_getl16 (e
->gsdtyp
);
5726 len
= (unsigned)bfd_getl16 (e
->gsdsiz
);
5728 /* xgettext:c-format */
5729 fprintf (file
, _(" EGSD entry %2u (type: %u, len: %u): "),
5737 struct vms_egps
*egps
= (struct vms_egps
*)e
;
5738 unsigned int flags
= bfd_getl16 (egps
->flags
);
5741 fprintf (file
, _("PSC - Program section definition\n"));
5742 fprintf (file
, _(" alignment : 2**%u\n"), egps
->align
);
5743 fprintf (file
, _(" flags : 0x%04x"), flags
);
5744 evax_bfd_print_egsd_flags (file
, flags
);
5746 l
= bfd_getl32 (egps
->alloc
);
5747 fprintf (file
, _(" alloc (len): %u (0x%08x)\n"), l
, l
);
5748 fprintf (file
, _(" name : %.*s\n"),
5749 egps
->namlng
, egps
->name
);
5754 struct vms_esgps
*esgps
= (struct vms_esgps
*)e
;
5755 unsigned int flags
= bfd_getl16 (esgps
->flags
);
5758 fprintf (file
, _("SPSC - Shared Image Program section def\n"));
5759 fprintf (file
, _(" alignment : 2**%u\n"), esgps
->align
);
5760 fprintf (file
, _(" flags : 0x%04x"), flags
);
5761 evax_bfd_print_egsd_flags (file
, flags
);
5763 l
= bfd_getl32 (esgps
->alloc
);
5764 fprintf (file
, _(" alloc (len) : %u (0x%08x)\n"), l
, l
);
5765 fprintf (file
, _(" image offset : 0x%08x\n"),
5766 (unsigned int)bfd_getl32 (esgps
->base
));
5767 fprintf (file
, _(" symvec offset : 0x%08x\n"),
5768 (unsigned int)bfd_getl32 (esgps
->value
));
5769 fprintf (file
, _(" name : %.*s\n"),
5770 esgps
->namlng
, esgps
->name
);
5775 struct vms_egsy
*egsy
= (struct vms_egsy
*)e
;
5776 unsigned int flags
= bfd_getl16 (egsy
->flags
);
5778 if (flags
& EGSY__V_DEF
)
5780 struct vms_esdf
*esdf
= (struct vms_esdf
*)e
;
5782 fprintf (file
, _("SYM - Global symbol definition\n"));
5783 fprintf (file
, _(" flags: 0x%04x"), flags
);
5784 exav_bfd_print_egsy_flags (flags
, file
);
5786 fprintf (file
, _(" psect offset: 0x%08x\n"),
5787 (unsigned)bfd_getl32 (esdf
->value
));
5788 if (flags
& EGSY__V_NORM
)
5790 fprintf (file
, _(" code address: 0x%08x\n"),
5791 (unsigned)bfd_getl32 (esdf
->code_address
));
5792 fprintf (file
, _(" psect index for entry point : %u\n"),
5793 (unsigned)bfd_getl32 (esdf
->ca_psindx
));
5795 fprintf (file
, _(" psect index : %u\n"),
5796 (unsigned)bfd_getl32 (esdf
->psindx
));
5797 fprintf (file
, _(" name : %.*s\n"),
5798 esdf
->namlng
, esdf
->name
);
5802 struct vms_esrf
*esrf
= (struct vms_esrf
*)e
;
5804 fprintf (file
, _("SYM - Global symbol reference\n"));
5805 fprintf (file
, _(" name : %.*s\n"),
5806 esrf
->namlng
, esrf
->name
);
5812 struct vms_eidc
*eidc
= (struct vms_eidc
*)e
;
5813 unsigned int flags
= bfd_getl32 (eidc
->flags
);
5816 fprintf (file
, _("IDC - Ident Consistency check\n"));
5817 fprintf (file
, _(" flags : 0x%08x"), flags
);
5818 if (flags
& EIDC__V_BINIDENT
)
5819 fputs (" BINDENT", file
);
5821 fprintf (file
, _(" id match : %x\n"),
5822 (flags
>> EIDC__V_IDMATCH_SH
) & EIDC__V_IDMATCH_MASK
);
5823 fprintf (file
, _(" error severity: %x\n"),
5824 (flags
>> EIDC__V_ERRSEV_SH
) & EIDC__V_ERRSEV_MASK
);
5826 fprintf (file
, _(" entity name : %.*s\n"), p
[0], p
+ 1);
5828 fprintf (file
, _(" object name : %.*s\n"), p
[0], p
+ 1);
5830 if (flags
& EIDC__V_BINIDENT
)
5831 fprintf (file
, _(" binary ident : 0x%08x\n"),
5832 (unsigned)bfd_getl32 (p
+ 1));
5834 fprintf (file
, _(" ascii ident : %.*s\n"), p
[0], p
+ 1);
5839 struct vms_egst
*egst
= (struct vms_egst
*)e
;
5840 unsigned int flags
= bfd_getl16 (egst
->header
.flags
);
5842 fprintf (file
, _("SYMG - Universal symbol definition\n"));
5843 fprintf (file
, _(" flags: 0x%04x"), flags
);
5844 exav_bfd_print_egsy_flags (flags
, file
);
5846 fprintf (file
, _(" symbol vector offset: 0x%08x\n"),
5847 (unsigned)bfd_getl32 (egst
->value
));
5848 fprintf (file
, _(" entry point: 0x%08x\n"),
5849 (unsigned)bfd_getl32 (egst
->lp_1
));
5850 fprintf (file
, _(" proc descr : 0x%08x\n"),
5851 (unsigned)bfd_getl32 (egst
->lp_2
));
5852 fprintf (file
, _(" psect index: %u\n"),
5853 (unsigned)bfd_getl32 (egst
->psindx
));
5854 fprintf (file
, _(" name : %.*s\n"),
5855 egst
->namlng
, egst
->name
);
5860 struct vms_esdfv
*esdfv
= (struct vms_esdfv
*)e
;
5861 unsigned int flags
= bfd_getl16 (esdfv
->flags
);
5863 fprintf (file
, _("SYMV - Vectored symbol definition\n"));
5864 fprintf (file
, _(" flags: 0x%04x"), flags
);
5865 exav_bfd_print_egsy_flags (flags
, file
);
5867 fprintf (file
, _(" vector : 0x%08x\n"),
5868 (unsigned)bfd_getl32 (esdfv
->vector
));
5869 fprintf (file
, _(" psect offset: %u\n"),
5870 (unsigned)bfd_getl32 (esdfv
->value
));
5871 fprintf (file
, _(" psect index : %u\n"),
5872 (unsigned)bfd_getl32 (esdfv
->psindx
));
5873 fprintf (file
, _(" name : %.*s\n"),
5874 esdfv
->namlng
, esdfv
->name
);
5879 struct vms_esdfm
*esdfm
= (struct vms_esdfm
*)e
;
5880 unsigned int flags
= bfd_getl16 (esdfm
->flags
);
5882 fprintf (file
, _("SYMM - Global symbol definition with version\n"));
5883 fprintf (file
, _(" flags: 0x%04x"), flags
);
5884 exav_bfd_print_egsy_flags (flags
, file
);
5886 fprintf (file
, _(" version mask: 0x%08x\n"),
5887 (unsigned)bfd_getl32 (esdfm
->version_mask
));
5888 fprintf (file
, _(" psect offset: %u\n"),
5889 (unsigned)bfd_getl32 (esdfm
->value
));
5890 fprintf (file
, _(" psect index : %u\n"),
5891 (unsigned)bfd_getl32 (esdfm
->psindx
));
5892 fprintf (file
, _(" name : %.*s\n"),
5893 esdfm
->namlng
, esdfm
->name
);
5897 fprintf (file
, _("unhandled egsd entry type %u\n"), type
);
5905 evax_bfd_print_hex (FILE *file
, const char *pfx
,
5906 const unsigned char *buf
, unsigned int len
)
5912 for (i
= 0; i
< len
; i
++)
5916 fprintf (file
, " %02x", buf
[i
]);
5929 evax_bfd_print_etir_stc_ir (FILE *file
, const unsigned char *buf
, int is_ps
)
5931 /* xgettext:c-format */
5932 fprintf (file
, _(" linkage index: %u, replacement insn: 0x%08x\n"),
5933 (unsigned)bfd_getl32 (buf
),
5934 (unsigned)bfd_getl32 (buf
+ 16));
5935 /* xgettext:c-format */
5936 fprintf (file
, _(" psect idx 1: %u, offset 1: 0x%08x %08x\n"),
5937 (unsigned)bfd_getl32 (buf
+ 4),
5938 (unsigned)bfd_getl32 (buf
+ 12),
5939 (unsigned)bfd_getl32 (buf
+ 8));
5940 /* xgettext:c-format */
5941 fprintf (file
, _(" psect idx 2: %u, offset 2: 0x%08x %08x\n"),
5942 (unsigned)bfd_getl32 (buf
+ 20),
5943 (unsigned)bfd_getl32 (buf
+ 28),
5944 (unsigned)bfd_getl32 (buf
+ 24));
5946 /* xgettext:c-format */
5947 fprintf (file
, _(" psect idx 3: %u, offset 3: 0x%08x %08x\n"),
5948 (unsigned)bfd_getl32 (buf
+ 32),
5949 (unsigned)bfd_getl32 (buf
+ 40),
5950 (unsigned)bfd_getl32 (buf
+ 36));
5952 fprintf (file
, _(" global name: %.*s\n"), buf
[32], buf
+ 33);
5956 evax_bfd_print_etir (FILE *file
, const char *name
,
5957 unsigned char *rec
, unsigned int rec_len
)
5959 unsigned int off
= sizeof (struct vms_egsd
);
5960 unsigned int sec_len
= 0;
5962 /* xgettext:c-format */
5963 fprintf (file
, _(" %s (len=%u+%u):\n"), name
,
5964 (unsigned)(rec_len
- sizeof (struct vms_eobjrec
)),
5965 (unsigned)sizeof (struct vms_eobjrec
));
5967 for (off
= sizeof (struct vms_eobjrec
); off
< rec_len
; )
5969 struct vms_etir
*etir
= (struct vms_etir
*)(rec
+ off
);
5974 type
= bfd_getl16 (etir
->rectyp
);
5975 size
= bfd_getl16 (etir
->size
);
5976 buf
= rec
+ off
+ sizeof (struct vms_etir
);
5978 /* xgettext:c-format */
5979 fprintf (file
, _(" (type: %3u, size: 4+%3u): "), type
, size
- 4);
5982 case ETIR__C_STA_GBL
:
5983 fprintf (file
, _("STA_GBL (stack global) %.*s\n"),
5986 case ETIR__C_STA_LW
:
5987 fprintf (file
, _("STA_LW (stack longword) 0x%08x\n"),
5988 (unsigned)bfd_getl32 (buf
));
5990 case ETIR__C_STA_QW
:
5991 fprintf (file
, _("STA_QW (stack quadword) 0x%08x %08x\n"),
5992 (unsigned)bfd_getl32 (buf
+ 4),
5993 (unsigned)bfd_getl32 (buf
+ 0));
5995 case ETIR__C_STA_PQ
:
5996 fprintf (file
, _("STA_PQ (stack psect base + offset)\n"));
5997 /* xgettext:c-format */
5998 fprintf (file
, _(" psect: %u, offset: 0x%08x %08x\n"),
5999 (unsigned)bfd_getl32 (buf
+ 0),
6000 (unsigned)bfd_getl32 (buf
+ 8),
6001 (unsigned)bfd_getl32 (buf
+ 4));
6003 case ETIR__C_STA_LI
:
6004 fprintf (file
, _("STA_LI (stack literal)\n"));
6006 case ETIR__C_STA_MOD
:
6007 fprintf (file
, _("STA_MOD (stack module)\n"));
6009 case ETIR__C_STA_CKARG
:
6010 fprintf (file
, _("STA_CKARG (compare procedure argument)\n"));
6014 fprintf (file
, _("STO_B (store byte)\n"));
6017 fprintf (file
, _("STO_W (store word)\n"));
6019 case ETIR__C_STO_LW
:
6020 fprintf (file
, _("STO_LW (store longword)\n"));
6022 case ETIR__C_STO_QW
:
6023 fprintf (file
, _("STO_QW (store quadword)\n"));
6025 case ETIR__C_STO_IMMR
:
6027 unsigned int len
= bfd_getl32 (buf
);
6029 _("STO_IMMR (store immediate repeat) %u bytes\n"),
6031 evax_bfd_print_hex (file
, " ", buf
+ 4, len
);
6035 case ETIR__C_STO_GBL
:
6036 fprintf (file
, _("STO_GBL (store global) %.*s\n"),
6039 case ETIR__C_STO_CA
:
6040 fprintf (file
, _("STO_CA (store code address) %.*s\n"),
6043 case ETIR__C_STO_RB
:
6044 fprintf (file
, _("STO_RB (store relative branch)\n"));
6046 case ETIR__C_STO_AB
:
6047 fprintf (file
, _("STO_AB (store absolute branch)\n"));
6049 case ETIR__C_STO_OFF
:
6050 fprintf (file
, _("STO_OFF (store offset to psect)\n"));
6052 case ETIR__C_STO_IMM
:
6054 unsigned int len
= bfd_getl32 (buf
);
6056 _("STO_IMM (store immediate) %u bytes\n"),
6058 evax_bfd_print_hex (file
, " ", buf
+ 4, len
);
6062 case ETIR__C_STO_GBL_LW
:
6063 fprintf (file
, _("STO_GBL_LW (store global longword) %.*s\n"),
6066 case ETIR__C_STO_LP_PSB
:
6067 fprintf (file
, _("STO_OFF (store LP with procedure signature)\n"));
6069 case ETIR__C_STO_HINT_GBL
:
6070 fprintf (file
, _("STO_BR_GBL (store branch global) *todo*\n"));
6072 case ETIR__C_STO_HINT_PS
:
6073 fprintf (file
, _("STO_BR_PS (store branch psect + offset) *todo*\n"));
6076 case ETIR__C_OPR_NOP
:
6077 fprintf (file
, _("OPR_NOP (no-operation)\n"));
6079 case ETIR__C_OPR_ADD
:
6080 fprintf (file
, _("OPR_ADD (add)\n"));
6082 case ETIR__C_OPR_SUB
:
6083 fprintf (file
, _("OPR_SUB (substract)\n"));
6085 case ETIR__C_OPR_MUL
:
6086 fprintf (file
, _("OPR_MUL (multiply)\n"));
6088 case ETIR__C_OPR_DIV
:
6089 fprintf (file
, _("OPR_DIV (divide)\n"));
6091 case ETIR__C_OPR_AND
:
6092 fprintf (file
, _("OPR_AND (logical and)\n"));
6094 case ETIR__C_OPR_IOR
:
6095 fprintf (file
, _("OPR_IOR (logical inclusive or)\n"));
6097 case ETIR__C_OPR_EOR
:
6098 fprintf (file
, _("OPR_EOR (logical exclusive or)\n"));
6100 case ETIR__C_OPR_NEG
:
6101 fprintf (file
, _("OPR_NEG (negate)\n"));
6103 case ETIR__C_OPR_COM
:
6104 fprintf (file
, _("OPR_COM (complement)\n"));
6106 case ETIR__C_OPR_INSV
:
6107 fprintf (file
, _("OPR_INSV (insert field)\n"));
6109 case ETIR__C_OPR_ASH
:
6110 fprintf (file
, _("OPR_ASH (arithmetic shift)\n"));
6112 case ETIR__C_OPR_USH
:
6113 fprintf (file
, _("OPR_USH (unsigned shift)\n"));
6115 case ETIR__C_OPR_ROT
:
6116 fprintf (file
, _("OPR_ROT (rotate)\n"));
6118 case ETIR__C_OPR_SEL
:
6119 fprintf (file
, _("OPR_SEL (select)\n"));
6121 case ETIR__C_OPR_REDEF
:
6122 fprintf (file
, _("OPR_REDEF (redefine symbol to curr location)\n"));
6124 case ETIR__C_OPR_DFLIT
:
6125 fprintf (file
, _("OPR_REDEF (define a literal)\n"));
6128 case ETIR__C_STC_LP
:
6129 fprintf (file
, _("STC_LP (store cond linkage pair)\n"));
6131 case ETIR__C_STC_LP_PSB
:
6133 _("STC_LP_PSB (store cond linkage pair + signature)\n"));
6134 /* xgettext:c-format */
6135 fprintf (file
, _(" linkage index: %u, procedure: %.*s\n"),
6136 (unsigned)bfd_getl32 (buf
), buf
[4], buf
+ 5);
6137 buf
+= 4 + 1 + buf
[4];
6138 fprintf (file
, _(" signature: %.*s\n"), buf
[0], buf
+ 1);
6140 case ETIR__C_STC_GBL
:
6141 fprintf (file
, _("STC_GBL (store cond global)\n"));
6142 /* xgettext:c-format */
6143 fprintf (file
, _(" linkage index: %u, global: %.*s\n"),
6144 (unsigned)bfd_getl32 (buf
), buf
[4], buf
+ 5);
6146 case ETIR__C_STC_GCA
:
6147 fprintf (file
, _("STC_GCA (store cond code address)\n"));
6148 /* xgettext:c-format */
6149 fprintf (file
, _(" linkage index: %u, procedure name: %.*s\n"),
6150 (unsigned)bfd_getl32 (buf
), buf
[4], buf
+ 5);
6152 case ETIR__C_STC_PS
:
6153 fprintf (file
, _("STC_PS (store cond psect + offset)\n"));
6155 /* xgettext:c-format */
6156 _(" linkage index: %u, psect: %u, offset: 0x%08x %08x\n"),
6157 (unsigned)bfd_getl32 (buf
),
6158 (unsigned)bfd_getl32 (buf
+ 4),
6159 (unsigned)bfd_getl32 (buf
+ 12),
6160 (unsigned)bfd_getl32 (buf
+ 8));
6162 case ETIR__C_STC_NOP_GBL
:
6163 fprintf (file
, _("STC_NOP_GBL (store cond NOP at global addr)\n"));
6164 evax_bfd_print_etir_stc_ir (file
, buf
, 0);
6166 case ETIR__C_STC_NOP_PS
:
6167 fprintf (file
, _("STC_NOP_PS (store cond NOP at psect + offset)\n"));
6168 evax_bfd_print_etir_stc_ir (file
, buf
, 1);
6170 case ETIR__C_STC_BSR_GBL
:
6171 fprintf (file
, _("STC_BSR_GBL (store cond BSR at global addr)\n"));
6172 evax_bfd_print_etir_stc_ir (file
, buf
, 0);
6174 case ETIR__C_STC_BSR_PS
:
6175 fprintf (file
, _("STC_BSR_PS (store cond BSR at psect + offset)\n"));
6176 evax_bfd_print_etir_stc_ir (file
, buf
, 1);
6178 case ETIR__C_STC_LDA_GBL
:
6179 fprintf (file
, _("STC_LDA_GBL (store cond LDA at global addr)\n"));
6180 evax_bfd_print_etir_stc_ir (file
, buf
, 0);
6182 case ETIR__C_STC_LDA_PS
:
6183 fprintf (file
, _("STC_LDA_PS (store cond LDA at psect + offset)\n"));
6184 evax_bfd_print_etir_stc_ir (file
, buf
, 1);
6186 case ETIR__C_STC_BOH_GBL
:
6187 fprintf (file
, _("STC_BOH_GBL (store cond BOH at global addr)\n"));
6188 evax_bfd_print_etir_stc_ir (file
, buf
, 0);
6190 case ETIR__C_STC_BOH_PS
:
6191 fprintf (file
, _("STC_BOH_PS (store cond BOH at psect + offset)\n"));
6192 evax_bfd_print_etir_stc_ir (file
, buf
, 1);
6194 case ETIR__C_STC_NBH_GBL
:
6196 _("STC_NBH_GBL (store cond or hint at global addr)\n"));
6198 case ETIR__C_STC_NBH_PS
:
6200 _("STC_NBH_PS (store cond or hint at psect + offset)\n"));
6203 case ETIR__C_CTL_SETRB
:
6204 fprintf (file
, _("CTL_SETRB (set relocation base)\n"));
6207 case ETIR__C_CTL_AUGRB
:
6209 unsigned int val
= bfd_getl32 (buf
);
6210 fprintf (file
, _("CTL_AUGRB (augment relocation base) %u\n"), val
);
6213 case ETIR__C_CTL_DFLOC
:
6214 fprintf (file
, _("CTL_DFLOC (define location)\n"));
6216 case ETIR__C_CTL_STLOC
:
6217 fprintf (file
, _("CTL_STLOC (set location)\n"));
6219 case ETIR__C_CTL_STKDL
:
6220 fprintf (file
, _("CTL_STKDL (stack defined location)\n"));
6223 fprintf (file
, _("*unhandled*\n"));
6231 evax_bfd_print_eobj (struct bfd
*abfd
, FILE *file
)
6233 bfd_boolean is_first
= TRUE
;
6234 bfd_boolean has_records
= FALSE
;
6238 unsigned int rec_len
;
6239 unsigned int pad_len
;
6241 unsigned int hdr_size
;
6246 unsigned char buf
[6];
6251 if (bfd_bread (buf
, sizeof (buf
), abfd
) != sizeof (buf
))
6253 fprintf (file
, _("cannot read GST record length\n"));
6256 rec_len
= bfd_getl16 (buf
+ 0);
6257 if (rec_len
== bfd_getl16 (buf
+ 4)
6258 && bfd_getl16 (buf
+ 2) == EOBJ__C_EMH
)
6260 /* The format is raw: record-size, type, record-size. */
6262 pad_len
= (rec_len
+ 1) & ~1U;
6265 else if (rec_len
== EOBJ__C_EMH
)
6267 has_records
= FALSE
;
6268 pad_len
= bfd_getl16 (buf
+ 2);
6274 fprintf (file
, _("cannot find EMH in first GST record\n"));
6277 rec
= bfd_malloc (pad_len
);
6278 memcpy (rec
, buf
+ sizeof (buf
) - hdr_size
, hdr_size
);
6282 unsigned int rec_len2
= 0;
6283 unsigned char hdr
[4];
6287 unsigned char buf_len
[2];
6289 if (bfd_bread (buf_len
, sizeof (buf_len
), abfd
)
6290 != sizeof (buf_len
))
6292 fprintf (file
, _("cannot read GST record length\n"));
6295 rec_len2
= (unsigned)bfd_getl16 (buf_len
);
6298 if (bfd_bread (hdr
, sizeof (hdr
), abfd
) != sizeof (hdr
))
6300 fprintf (file
, _("cannot read GST record header\n"));
6303 rec_len
= (unsigned)bfd_getl16 (hdr
+ 2);
6305 pad_len
= (rec_len
+ 1) & ~1U;
6308 rec
= bfd_malloc (pad_len
);
6309 memcpy (rec
, hdr
, sizeof (hdr
));
6310 hdr_size
= sizeof (hdr
);
6311 if (has_records
&& rec_len2
!= rec_len
)
6313 fprintf (file
, _(" corrupted GST\n"));
6318 if (bfd_bread (rec
+ hdr_size
, pad_len
- hdr_size
, abfd
)
6319 != pad_len
- hdr_size
)
6321 fprintf (file
, _("cannot read GST record\n"));
6325 type
= (unsigned)bfd_getl16 (rec
);
6330 evax_bfd_print_emh (file
, rec
, rec_len
);
6333 evax_bfd_print_egsd (file
, rec
, rec_len
);
6336 evax_bfd_print_eeom (file
, rec
, rec_len
);
6341 evax_bfd_print_etir (file
, "ETIR", rec
, rec_len
);
6344 evax_bfd_print_etir (file
, "EDBG", rec
, rec_len
);
6347 evax_bfd_print_etir (file
, "ETBT", rec
, rec_len
);
6350 fprintf (file
, _(" unhandled EOBJ record type %u\n"), type
);
6358 evax_bfd_print_relocation_records (FILE *file
, const unsigned char *rel
,
6359 unsigned int stride
)
6367 count
= bfd_getl32 (rel
+ 0);
6371 base
= bfd_getl32 (rel
+ 4);
6373 /* xgettext:c-format */
6374 fprintf (file
, _(" bitcount: %u, base addr: 0x%08x\n"),
6378 for (j
= 0; count
> 0; j
+= 4, count
-= 32)
6384 val
= bfd_getl32 (rel
);
6387 /* xgettext:c-format */
6388 fprintf (file
, _(" bitmap: 0x%08x (count: %u):\n"), val
, count
);
6390 for (k
= 0; k
< 32; k
++)
6395 fprintf (file
, _(" %08x"), base
+ (j
* 8 + k
) * stride
);
6410 evax_bfd_print_address_fixups (FILE *file
, const unsigned char *rel
)
6417 count
= bfd_getl32 (rel
+ 0);
6420 /* xgettext:c-format */
6421 fprintf (file
, _(" image %u (%u entries)\n"),
6422 (unsigned)bfd_getl32 (rel
+ 4), count
);
6424 for (j
= 0; j
< count
; j
++)
6426 /* xgettext:c-format */
6427 fprintf (file
, _(" offset: 0x%08x, val: 0x%08x\n"),
6428 (unsigned)bfd_getl32 (rel
+ 0),
6429 (unsigned)bfd_getl32 (rel
+ 4));
6436 evax_bfd_print_reference_fixups (FILE *file
, const unsigned char *rel
)
6445 count
= bfd_getl32 (rel
+ 0);
6448 /* xgettext:c-format */
6449 fprintf (file
, _(" image %u (%u entries), offsets:\n"),
6450 (unsigned)bfd_getl32 (rel
+ 4), count
);
6452 for (j
= 0; j
< count
; j
++)
6456 fprintf (file
, _(" 0x%08x"), (unsigned)bfd_getl32 (rel
));
6471 evax_bfd_print_indent (int indent
, FILE *file
)
6473 for (; indent
; indent
--)
6478 evax_bfd_get_dsc_name (unsigned int v
)
6482 case DSC__K_DTYPE_Z
:
6483 return "Z (Unspecified)";
6484 case DSC__K_DTYPE_V
:
6486 case DSC__K_DTYPE_BU
:
6487 return "BU (Byte logical)";
6488 case DSC__K_DTYPE_WU
:
6489 return "WU (Word logical)";
6490 case DSC__K_DTYPE_LU
:
6491 return "LU (Longword logical)";
6492 case DSC__K_DTYPE_QU
:
6493 return "QU (Quadword logical)";
6494 case DSC__K_DTYPE_B
:
6495 return "B (Byte integer)";
6496 case DSC__K_DTYPE_W
:
6497 return "W (Word integer)";
6498 case DSC__K_DTYPE_L
:
6499 return "L (Longword integer)";
6500 case DSC__K_DTYPE_Q
:
6501 return "Q (Quadword integer)";
6502 case DSC__K_DTYPE_F
:
6503 return "F (Single-precision floating)";
6504 case DSC__K_DTYPE_D
:
6505 return "D (Double-precision floating)";
6506 case DSC__K_DTYPE_FC
:
6507 return "FC (Complex)";
6508 case DSC__K_DTYPE_DC
:
6509 return "DC (Double-precision Complex)";
6510 case DSC__K_DTYPE_T
:
6511 return "T (ASCII text string)";
6512 case DSC__K_DTYPE_NU
:
6513 return "NU (Numeric string, unsigned)";
6514 case DSC__K_DTYPE_NL
:
6515 return "NL (Numeric string, left separate sign)";
6516 case DSC__K_DTYPE_NLO
:
6517 return "NLO (Numeric string, left overpunched sign)";
6518 case DSC__K_DTYPE_NR
:
6519 return "NR (Numeric string, right separate sign)";
6520 case DSC__K_DTYPE_NRO
:
6521 return "NRO (Numeric string, right overpunched sig)";
6522 case DSC__K_DTYPE_NZ
:
6523 return "NZ (Numeric string, zoned sign)";
6524 case DSC__K_DTYPE_P
:
6525 return "P (Packed decimal string)";
6526 case DSC__K_DTYPE_ZI
:
6527 return "ZI (Sequence of instructions)";
6528 case DSC__K_DTYPE_ZEM
:
6529 return "ZEM (Procedure entry mask)";
6530 case DSC__K_DTYPE_DSC
:
6531 return "DSC (Descriptor, used for arrays of dyn strings)";
6532 case DSC__K_DTYPE_OU
:
6533 return "OU (Octaword logical)";
6534 case DSC__K_DTYPE_O
:
6535 return "O (Octaword integer)";
6536 case DSC__K_DTYPE_G
:
6537 return "G (Double precision G floating, 64 bit)";
6538 case DSC__K_DTYPE_H
:
6539 return "H (Quadruple precision floating, 128 bit)";
6540 case DSC__K_DTYPE_GC
:
6541 return "GC (Double precision complex, G floating)";
6542 case DSC__K_DTYPE_HC
:
6543 return "HC (Quadruple precision complex, H floating)";
6544 case DSC__K_DTYPE_CIT
:
6545 return "CIT (COBOL intermediate temporary)";
6546 case DSC__K_DTYPE_BPV
:
6547 return "BPV (Bound Procedure Value)";
6548 case DSC__K_DTYPE_BLV
:
6549 return "BLV (Bound Label Value)";
6550 case DSC__K_DTYPE_VU
:
6551 return "VU (Bit Unaligned)";
6552 case DSC__K_DTYPE_ADT
:
6553 return "ADT (Absolute Date-Time)";
6554 case DSC__K_DTYPE_VT
:
6555 return "VT (Varying Text)";
6556 case DSC__K_DTYPE_T2
:
6557 return "T2 (16-bit char)";
6558 case DSC__K_DTYPE_VT2
:
6559 return "VT2 (16-bit varying char)";
6561 return "?? (unknown)";
6566 evax_bfd_print_desc (const unsigned char *buf
, int indent
, FILE *file
)
6568 unsigned char bclass
= buf
[3];
6569 unsigned char dtype
= buf
[2];
6570 unsigned int len
= (unsigned)bfd_getl16 (buf
);
6571 unsigned int pointer
= (unsigned)bfd_getl32 (buf
+ 4);
6573 evax_bfd_print_indent (indent
, file
);
6575 if (len
== 1 && pointer
== 0xffffffffUL
)
6578 fprintf (file
, _("64 bits *unhandled*\n"));
6582 /* xgettext:c-format */
6583 fprintf (file
, _("class: %u, dtype: %u, length: %u, pointer: 0x%08x\n"),
6584 bclass
, dtype
, len
, pointer
);
6587 case DSC__K_CLASS_NCA
:
6589 const struct vms_dsc_nca
*dsc
= (const void *)buf
;
6591 const unsigned char *b
;
6593 evax_bfd_print_indent (indent
, file
);
6594 fprintf (file
, _("non-contiguous array of %s\n"),
6595 evax_bfd_get_dsc_name (dsc
->dtype
));
6596 evax_bfd_print_indent (indent
+ 1, file
);
6598 /* xgettext:c-format */
6599 _("dimct: %u, aflags: 0x%02x, digits: %u, scale: %u\n"),
6600 dsc
->dimct
, dsc
->aflags
, dsc
->digits
, dsc
->scale
);
6601 evax_bfd_print_indent (indent
+ 1, file
);
6603 /* xgettext:c-format */
6604 _("arsize: %u, a0: 0x%08x\n"),
6605 (unsigned)bfd_getl32 (dsc
->arsize
),
6606 (unsigned)bfd_getl32 (dsc
->a0
));
6607 evax_bfd_print_indent (indent
+ 1, file
);
6608 fprintf (file
, _("Strides:\n"));
6609 b
= buf
+ sizeof (*dsc
);
6610 for (i
= 0; i
< dsc
->dimct
; i
++)
6612 evax_bfd_print_indent (indent
+ 2, file
);
6613 fprintf (file
, "[%u]: %u\n", i
+ 1,
6614 (unsigned)bfd_getl32 (b
));
6617 evax_bfd_print_indent (indent
+ 1, file
);
6618 fprintf (file
, _("Bounds:\n"));
6619 b
= buf
+ sizeof (*dsc
);
6620 for (i
= 0; i
< dsc
->dimct
; i
++)
6622 evax_bfd_print_indent (indent
+ 2, file
);
6623 /* xgettext:c-format */
6624 fprintf (file
, _("[%u]: Lower: %u, upper: %u\n"), i
+ 1,
6625 (unsigned)bfd_getl32 (b
+ 0),
6626 (unsigned)bfd_getl32 (b
+ 4));
6631 case DSC__K_CLASS_UBS
:
6633 const struct vms_dsc_ubs
*ubs
= (const void *)buf
;
6635 evax_bfd_print_indent (indent
, file
);
6636 fprintf (file
, _("unaligned bit-string of %s\n"),
6637 evax_bfd_get_dsc_name (ubs
->dtype
));
6638 evax_bfd_print_indent (indent
+ 1, file
);
6640 /* xgettext:c-format */
6641 _("base: %u, pos: %u\n"),
6642 (unsigned)bfd_getl32 (ubs
->base
),
6643 (unsigned)bfd_getl32 (ubs
->pos
));
6647 fprintf (file
, _("*unhandled*\n"));
6654 evax_bfd_print_valspec (const unsigned char *buf
, int indent
, FILE *file
)
6656 unsigned int vflags
= buf
[0];
6657 unsigned int value
= (unsigned)bfd_getl32 (buf
+ 1);
6658 unsigned int len
= 5;
6660 evax_bfd_print_indent (indent
, file
);
6661 /* xgettext:c-format */
6662 fprintf (file
, _("vflags: 0x%02x, value: 0x%08x "), vflags
, value
);
6667 case DST__K_VFLAGS_NOVAL
:
6668 fprintf (file
, _("(no value)\n"));
6670 case DST__K_VFLAGS_NOTACTIVE
:
6671 fprintf (file
, _("(not active)\n"));
6673 case DST__K_VFLAGS_UNALLOC
:
6674 fprintf (file
, _("(not allocated)\n"));
6676 case DST__K_VFLAGS_DSC
:
6677 fprintf (file
, _("(descriptor)\n"));
6678 evax_bfd_print_desc (buf
+ value
, indent
+ 1, file
);
6680 case DST__K_VFLAGS_TVS
:
6681 fprintf (file
, _("(trailing value)\n"));
6683 case DST__K_VS_FOLLOWS
:
6684 fprintf (file
, _("(value spec follows)\n"));
6686 case DST__K_VFLAGS_BITOFFS
:
6687 fprintf (file
, _("(at bit offset %u)\n"), value
);
6690 /* xgettext:c-format */
6691 fprintf (file
, _("(reg: %u, disp: %u, indir: %u, kind: "),
6692 (vflags
& DST__K_REGNUM_MASK
) >> DST__K_REGNUM_SHIFT
,
6693 vflags
& DST__K_DISP
? 1 : 0,
6694 vflags
& DST__K_INDIR
? 1 : 0);
6695 switch (vflags
& DST__K_VALKIND_MASK
)
6697 case DST__K_VALKIND_LITERAL
:
6698 fputs (_("literal"), file
);
6700 case DST__K_VALKIND_ADDR
:
6701 fputs (_("address"), file
);
6703 case DST__K_VALKIND_DESC
:
6704 fputs (_("desc"), file
);
6706 case DST__K_VALKIND_REG
:
6707 fputs (_("reg"), file
);
6710 fputs (")\n", file
);
6717 evax_bfd_print_typspec (const unsigned char *buf
, int indent
, FILE *file
)
6719 unsigned char kind
= buf
[2];
6720 unsigned int len
= (unsigned)bfd_getl16 (buf
);
6722 evax_bfd_print_indent (indent
, file
);
6723 /* xgettext:c-format */
6724 fprintf (file
, _("len: %2u, kind: %2u "), len
, kind
);
6728 case DST__K_TS_ATOM
:
6729 /* xgettext:c-format */
6730 fprintf (file
, _("atomic, type=0x%02x %s\n"),
6731 buf
[0], evax_bfd_get_dsc_name (buf
[0]));
6734 fprintf (file
, _("indirect, defined at 0x%08x\n"),
6735 (unsigned)bfd_getl32 (buf
));
6737 case DST__K_TS_TPTR
:
6738 fprintf (file
, _("typed pointer\n"));
6739 evax_bfd_print_typspec (buf
, indent
+ 1, file
);
6742 fprintf (file
, _("pointer\n"));
6744 case DST__K_TS_ARRAY
:
6746 const unsigned char *vs
;
6747 unsigned int vec_len
;
6750 fprintf (file
, _("array, dim: %u, bitmap: "), buf
[0]);
6751 vec_len
= (buf
[0] + 1 + 7) / 8;
6752 for (i
= 0; i
< vec_len
; i
++)
6753 fprintf (file
, " %02x", buf
[i
+ 1]);
6755 vs
= buf
+ 1 + vec_len
;
6756 evax_bfd_print_indent (indent
, file
);
6757 fprintf (file
, _("array descriptor:\n"));
6758 vs
+= evax_bfd_print_valspec (vs
, indent
+ 1, file
);
6759 for (i
= 0; i
< buf
[0] + 1U; i
++)
6760 if (buf
[1 + i
/ 8] & (1 << (i
% 8)))
6762 evax_bfd_print_indent (indent
, file
);
6764 fprintf (file
, _("type spec for element:\n"));
6766 fprintf (file
, _("type spec for subscript %u:\n"), i
);
6767 evax_bfd_print_typspec (vs
, indent
+ 1, file
);
6768 vs
+= bfd_getl16 (vs
);
6773 fprintf (file
, _("*unhandled*\n"));
6778 evax_bfd_print_dst (struct bfd
*abfd
, unsigned int dst_size
, FILE *file
)
6780 unsigned int off
= 0;
6781 unsigned int pc
= 0;
6782 unsigned int line
= 0;
6784 fprintf (file
, _("Debug symbol table:\n"));
6786 while (dst_size
> 0)
6788 struct vms_dst_header dsth
;
6793 if (bfd_bread (&dsth
, sizeof (dsth
), abfd
) != sizeof (dsth
))
6795 fprintf (file
, _("cannot read DST header\n"));
6798 len
= bfd_getl16 (dsth
.length
);
6799 type
= bfd_getl16 (dsth
.type
);
6800 /* xgettext:c-format */
6801 fprintf (file
, _(" type: %3u, len: %3u (at 0x%08x): "),
6811 len
-= sizeof (dsth
);
6812 buf
= bfd_malloc (len
);
6813 if (bfd_bread (buf
, len
, abfd
) != len
)
6815 fprintf (file
, _("cannot read DST symbol\n"));
6820 case DSC__K_DTYPE_V
:
6821 case DSC__K_DTYPE_BU
:
6822 case DSC__K_DTYPE_WU
:
6823 case DSC__K_DTYPE_LU
:
6824 case DSC__K_DTYPE_QU
:
6825 case DSC__K_DTYPE_B
:
6826 case DSC__K_DTYPE_W
:
6827 case DSC__K_DTYPE_L
:
6828 case DSC__K_DTYPE_Q
:
6829 case DSC__K_DTYPE_F
:
6830 case DSC__K_DTYPE_D
:
6831 case DSC__K_DTYPE_FC
:
6832 case DSC__K_DTYPE_DC
:
6833 case DSC__K_DTYPE_T
:
6834 case DSC__K_DTYPE_NU
:
6835 case DSC__K_DTYPE_NL
:
6836 case DSC__K_DTYPE_NLO
:
6837 case DSC__K_DTYPE_NR
:
6838 case DSC__K_DTYPE_NRO
:
6839 case DSC__K_DTYPE_NZ
:
6840 case DSC__K_DTYPE_P
:
6841 case DSC__K_DTYPE_ZI
:
6842 case DSC__K_DTYPE_ZEM
:
6843 case DSC__K_DTYPE_DSC
:
6844 case DSC__K_DTYPE_OU
:
6845 case DSC__K_DTYPE_O
:
6846 case DSC__K_DTYPE_G
:
6847 case DSC__K_DTYPE_H
:
6848 case DSC__K_DTYPE_GC
:
6849 case DSC__K_DTYPE_HC
:
6850 case DSC__K_DTYPE_CIT
:
6851 case DSC__K_DTYPE_BPV
:
6852 case DSC__K_DTYPE_BLV
:
6853 case DSC__K_DTYPE_VU
:
6854 case DSC__K_DTYPE_ADT
:
6855 case DSC__K_DTYPE_VT
:
6856 case DSC__K_DTYPE_T2
:
6857 case DSC__K_DTYPE_VT2
:
6858 fprintf (file
, _("standard data: %s\n"),
6859 evax_bfd_get_dsc_name (type
));
6860 evax_bfd_print_valspec (buf
, 4, file
);
6861 fprintf (file
, _(" name: %.*s\n"), buf
[5], buf
+ 6);
6865 struct vms_dst_modbeg
*dst
= (void *)buf
;
6866 const char *name
= (const char *)buf
+ sizeof (*dst
);
6868 fprintf (file
, _("modbeg\n"));
6869 /* xgettext:c-format */
6870 fprintf (file
, _(" flags: %d, language: %u, "
6871 "major: %u, minor: %u\n"),
6873 (unsigned)bfd_getl32 (dst
->language
),
6874 (unsigned)bfd_getl16 (dst
->major
),
6875 (unsigned)bfd_getl16 (dst
->minor
));
6876 fprintf (file
, _(" module name: %.*s\n"),
6878 name
+= name
[0] + 1;
6879 fprintf (file
, _(" compiler : %.*s\n"),
6884 fprintf (file
, _("modend\n"));
6888 struct vms_dst_rtnbeg
*dst
= (void *)buf
;
6889 const char *name
= (const char *)buf
+ sizeof (*dst
);
6891 fputs (_("rtnbeg\n"), file
);
6892 /* xgettext:c-format */
6893 fprintf (file
, _(" flags: %u, address: 0x%08x, "
6894 "pd-address: 0x%08x\n"),
6896 (unsigned)bfd_getl32 (dst
->address
),
6897 (unsigned)bfd_getl32 (dst
->pd_address
));
6898 fprintf (file
, _(" routine name: %.*s\n"),
6904 struct vms_dst_rtnend
*dst
= (void *)buf
;
6906 fprintf (file
, _("rtnend: size 0x%08x\n"),
6907 (unsigned)bfd_getl32 (dst
->size
));
6912 struct vms_dst_prolog
*dst
= (void *)buf
;
6914 fprintf (file
, _("prolog: bkpt address 0x%08x\n"),
6915 (unsigned)bfd_getl32 (dst
->bkpt_addr
));
6920 struct vms_dst_epilog
*dst
= (void *)buf
;
6922 /* xgettext:c-format */
6923 fprintf (file
, _("epilog: flags: %u, count: %u\n"),
6924 dst
->flags
, (unsigned)bfd_getl32 (dst
->count
));
6929 struct vms_dst_blkbeg
*dst
= (void *)buf
;
6930 const char *name
= (const char *)buf
+ sizeof (*dst
);
6932 /* xgettext:c-format */
6933 fprintf (file
, _("blkbeg: address: 0x%08x, name: %.*s\n"),
6934 (unsigned)bfd_getl32 (dst
->address
),
6940 struct vms_dst_blkend
*dst
= (void *)buf
;
6942 fprintf (file
, _("blkend: size: 0x%08x\n"),
6943 (unsigned)bfd_getl32 (dst
->size
));
6946 case DST__K_TYPSPEC
:
6948 fprintf (file
, _("typspec (len: %u)\n"), len
);
6949 fprintf (file
, _(" name: %.*s\n"), buf
[0], buf
+ 1);
6950 evax_bfd_print_typspec (buf
+ 1 + buf
[0], 5, file
);
6955 fprintf (file
, _("septyp, name: %.*s\n"), buf
[5], buf
+ 6);
6956 evax_bfd_print_valspec (buf
, 4, file
);
6961 struct vms_dst_recbeg
*recbeg
= (void *)buf
;
6962 const char *name
= (const char *)buf
+ sizeof (*recbeg
);
6964 fprintf (file
, _("recbeg: name: %.*s\n"), name
[0], name
+ 1);
6965 evax_bfd_print_valspec (buf
, 4, file
);
6966 fprintf (file
, _(" len: %u bits\n"),
6967 (unsigned)bfd_getl32 (name
+ 1 + name
[0]));
6971 fprintf (file
, _("recend\n"));
6973 case DST__K_ENUMBEG
:
6974 /* xgettext:c-format */
6975 fprintf (file
, _("enumbeg, len: %u, name: %.*s\n"),
6976 buf
[0], buf
[1], buf
+ 2);
6978 case DST__K_ENUMELT
:
6979 fprintf (file
, _("enumelt, name: %.*s\n"), buf
[5], buf
+ 6);
6980 evax_bfd_print_valspec (buf
, 4, file
);
6982 case DST__K_ENUMEND
:
6983 fprintf (file
, _("enumend\n"));
6987 struct vms_dst_label
*lab
= (void *)buf
;
6988 fprintf (file
, _("label, name: %.*s\n"),
6989 lab
->name
[0], lab
->name
+ 1);
6990 fprintf (file
, _(" address: 0x%08x\n"),
6991 (unsigned)bfd_getl32 (lab
->value
));
6994 case DST__K_DIS_RANGE
:
6996 unsigned int cnt
= bfd_getl32 (buf
);
6997 unsigned char *rng
= buf
+ 4;
7000 fprintf (file
, _("discontiguous range (nbr: %u)\n"), cnt
);
7001 for (i
= 0; i
< cnt
; i
++, rng
+= 8)
7002 /* xgettext:c-format */
7003 fprintf (file
, _(" address: 0x%08x, size: %u\n"),
7004 (unsigned)bfd_getl32 (rng
),
7005 (unsigned)bfd_getl32 (rng
+ 4));
7009 case DST__K_LINE_NUM
:
7011 unsigned char *buf_orig
= buf
;
7013 fprintf (file
, _("line num (len: %u)\n"), len
);
7018 unsigned char cmdlen
;
7028 case DST__K_DELTA_PC_W
:
7029 val
= bfd_getl16 (buf
+ 1);
7030 fprintf (file
, _("delta_pc_w %u\n"), val
);
7035 case DST__K_INCR_LINUM
:
7037 fprintf (file
, _("incr_linum(b): +%u\n"), val
);
7041 case DST__K_INCR_LINUM_W
:
7042 val
= bfd_getl16 (buf
+ 1);
7043 fprintf (file
, _("incr_linum_w: +%u\n"), val
);
7047 case DST__K_INCR_LINUM_L
:
7048 val
= bfd_getl32 (buf
+ 1);
7049 fprintf (file
, _("incr_linum_l: +%u\n"), val
);
7053 case DST__K_SET_LINUM
:
7054 line
= bfd_getl16 (buf
+ 1);
7055 fprintf (file
, _("set_line_num(w) %u\n"), line
);
7058 case DST__K_SET_LINUM_B
:
7060 fprintf (file
, _("set_line_num_b %u\n"), line
);
7063 case DST__K_SET_LINUM_L
:
7064 line
= bfd_getl32 (buf
+ 1);
7065 fprintf (file
, _("set_line_num_l %u\n"), line
);
7068 case DST__K_SET_ABS_PC
:
7069 pc
= bfd_getl32 (buf
+ 1);
7070 fprintf (file
, _("set_abs_pc: 0x%08x\n"), pc
);
7073 case DST__K_DELTA_PC_L
:
7074 fprintf (file
, _("delta_pc_l: +0x%08x\n"),
7075 (unsigned)bfd_getl32 (buf
+ 1));
7079 fprintf (file
, _("term(b): 0x%02x"), buf
[1]);
7081 fprintf (file
, _(" pc: 0x%08x\n"), pc
);
7085 val
= bfd_getl16 (buf
+ 1);
7086 fprintf (file
, _("term_w: 0x%04x"), val
);
7088 fprintf (file
, _(" pc: 0x%08x\n"), pc
);
7094 fprintf (file
, _("delta pc +%-4d"), -cmd
);
7095 line
++; /* FIXME: curr increment. */
7097 /* xgettext:c-format */
7098 fprintf (file
, _(" pc: 0x%08x line: %5u\n"),
7103 fprintf (file
, _(" *unhandled* cmd %u\n"), cmd
);
7116 unsigned char *buf_orig
= buf
;
7118 fprintf (file
, _("source (len: %u)\n"), len
);
7122 signed char cmd
= buf
[0];
7123 unsigned char cmdlen
= 0;
7127 case DST__K_SRC_DECLFILE
:
7129 struct vms_dst_src_decl_src
*src
= (void *)(buf
+ 1);
7132 /* xgettext:c-format */
7133 fprintf (file
, _(" declfile: len: %u, flags: %u, "
7135 src
->length
, src
->flags
,
7136 (unsigned)bfd_getl16 (src
->fileid
));
7137 /* xgettext:c-format */
7138 fprintf (file
, _(" rms: cdt: 0x%08x %08x, "
7139 "ebk: 0x%08x, ffb: 0x%04x, "
7141 (unsigned)bfd_getl32 (src
->rms_cdt
+ 4),
7142 (unsigned)bfd_getl32 (src
->rms_cdt
+ 0),
7143 (unsigned)bfd_getl32 (src
->rms_ebk
),
7144 (unsigned)bfd_getl16 (src
->rms_ffb
),
7146 name
= (const char *)buf
+ 1 + sizeof (*src
);
7147 fprintf (file
, _(" filename : %.*s\n"),
7149 name
+= name
[0] + 1;
7150 fprintf (file
, _(" module name: %.*s\n"),
7152 cmdlen
= 2 + src
->length
;
7155 case DST__K_SRC_SETFILE
:
7156 fprintf (file
, _(" setfile %u\n"),
7157 (unsigned)bfd_getl16 (buf
+ 1));
7160 case DST__K_SRC_SETREC_W
:
7161 fprintf (file
, _(" setrec %u\n"),
7162 (unsigned)bfd_getl16 (buf
+ 1));
7165 case DST__K_SRC_SETREC_L
:
7166 fprintf (file
, _(" setrec %u\n"),
7167 (unsigned)bfd_getl32 (buf
+ 1));
7170 case DST__K_SRC_SETLNUM_W
:
7171 fprintf (file
, _(" setlnum %u\n"),
7172 (unsigned)bfd_getl16 (buf
+ 1));
7175 case DST__K_SRC_SETLNUM_L
:
7176 fprintf (file
, _(" setlnum %u\n"),
7177 (unsigned)bfd_getl32 (buf
+ 1));
7180 case DST__K_SRC_DEFLINES_W
:
7181 fprintf (file
, _(" deflines %u\n"),
7182 (unsigned)bfd_getl16 (buf
+ 1));
7185 case DST__K_SRC_DEFLINES_B
:
7186 fprintf (file
, _(" deflines %u\n"), buf
[1]);
7189 case DST__K_SRC_FORMFEED
:
7190 fprintf (file
, _(" formfeed\n"));
7194 fprintf (file
, _(" *unhandled* cmd %u\n"), cmd
);
7206 fprintf (file
, _("*unhandled* dst type %u\n"), type
);
7214 evax_bfd_print_image (bfd
*abfd
, FILE *file
)
7216 struct vms_eihd eihd
;
7219 unsigned int eiha_off
;
7220 unsigned int eihi_off
;
7221 unsigned int eihs_off
;
7222 unsigned int eisd_off
;
7223 unsigned int eihef_off
= 0;
7224 unsigned int eihnp_off
= 0;
7225 unsigned int dmt_vbn
= 0;
7226 unsigned int dmt_size
= 0;
7227 unsigned int dst_vbn
= 0;
7228 unsigned int dst_size
= 0;
7229 unsigned int gst_vbn
= 0;
7230 unsigned int gst_size
= 0;
7231 unsigned int eiaf_vbn
= 0;
7232 unsigned int eiaf_size
= 0;
7233 unsigned int eihvn_off
;
7235 if (bfd_seek (abfd
, (file_ptr
) 0, SEEK_SET
)
7236 || bfd_bread (&eihd
, sizeof (eihd
), abfd
) != sizeof (eihd
))
7238 fprintf (file
, _("cannot read EIHD\n"));
7241 /* xgettext:c-format */
7242 fprintf (file
, _("EIHD: (size: %u, nbr blocks: %u)\n"),
7243 (unsigned)bfd_getl32 (eihd
.size
),
7244 (unsigned)bfd_getl32 (eihd
.hdrblkcnt
));
7245 /* xgettext:c-format */
7246 fprintf (file
, _(" majorid: %u, minorid: %u\n"),
7247 (unsigned)bfd_getl32 (eihd
.majorid
),
7248 (unsigned)bfd_getl32 (eihd
.minorid
));
7250 val
= (unsigned)bfd_getl32 (eihd
.imgtype
);
7254 name
= _("executable");
7257 name
= _("linkable image");
7260 name
= _("unknown");
7263 /* xgettext:c-format */
7264 fprintf (file
, _(" image type: %u (%s)"), val
, name
);
7266 val
= (unsigned)bfd_getl32 (eihd
.subtype
);
7269 case EIHD__C_NATIVE
:
7276 name
= _("unknown");
7279 /* xgettext:c-format */
7280 fprintf (file
, _(", subtype: %u (%s)\n"), val
, name
);
7282 eisd_off
= bfd_getl32 (eihd
.isdoff
);
7283 eiha_off
= bfd_getl32 (eihd
.activoff
);
7284 eihi_off
= bfd_getl32 (eihd
.imgidoff
);
7285 eihs_off
= bfd_getl32 (eihd
.symdbgoff
);
7286 /* xgettext:c-format */
7287 fprintf (file
, _(" offsets: isd: %u, activ: %u, symdbg: %u, "
7288 "imgid: %u, patch: %u\n"),
7289 eisd_off
, eiha_off
, eihs_off
, eihi_off
,
7290 (unsigned)bfd_getl32 (eihd
.patchoff
));
7291 fprintf (file
, _(" fixup info rva: "));
7292 bfd_fprintf_vma (abfd
, file
, bfd_getl64 (eihd
.iafva
));
7293 fprintf (file
, _(", symbol vector rva: "));
7294 bfd_fprintf_vma (abfd
, file
, bfd_getl64 (eihd
.symvva
));
7295 eihvn_off
= bfd_getl32 (eihd
.version_array_off
);
7296 fprintf (file
, _("\n"
7297 " version array off: %u\n"),
7300 /* xgettext:c-format */
7301 _(" img I/O count: %u, nbr channels: %u, req pri: %08x%08x\n"),
7302 (unsigned)bfd_getl32 (eihd
.imgiocnt
),
7303 (unsigned)bfd_getl32 (eihd
.iochancnt
),
7304 (unsigned)bfd_getl32 (eihd
.privreqs
+ 4),
7305 (unsigned)bfd_getl32 (eihd
.privreqs
+ 0));
7306 val
= (unsigned)bfd_getl32 (eihd
.lnkflags
);
7307 fprintf (file
, _(" linker flags: %08x:"), val
);
7308 if (val
& EIHD__M_LNKDEBUG
)
7309 fprintf (file
, " LNKDEBUG");
7310 if (val
& EIHD__M_LNKNOTFR
)
7311 fprintf (file
, " LNKNOTFR");
7312 if (val
& EIHD__M_NOP0BUFS
)
7313 fprintf (file
, " NOP0BUFS");
7314 if (val
& EIHD__M_PICIMG
)
7315 fprintf (file
, " PICIMG");
7316 if (val
& EIHD__M_P0IMAGE
)
7317 fprintf (file
, " P0IMAGE");
7318 if (val
& EIHD__M_DBGDMT
)
7319 fprintf (file
, " DBGDMT");
7320 if (val
& EIHD__M_INISHR
)
7321 fprintf (file
, " INISHR");
7322 if (val
& EIHD__M_XLATED
)
7323 fprintf (file
, " XLATED");
7324 if (val
& EIHD__M_BIND_CODE_SEC
)
7325 fprintf (file
, " BIND_CODE_SEC");
7326 if (val
& EIHD__M_BIND_DATA_SEC
)
7327 fprintf (file
, " BIND_DATA_SEC");
7328 if (val
& EIHD__M_MKTHREADS
)
7329 fprintf (file
, " MKTHREADS");
7330 if (val
& EIHD__M_UPCALLS
)
7331 fprintf (file
, " UPCALLS");
7332 if (val
& EIHD__M_OMV_READY
)
7333 fprintf (file
, " OMV_READY");
7334 if (val
& EIHD__M_EXT_BIND_SECT
)
7335 fprintf (file
, " EXT_BIND_SECT");
7336 fprintf (file
, "\n");
7337 /* xgettext:c-format */
7338 fprintf (file
, _(" ident: 0x%08x, sysver: 0x%08x, "
7339 "match ctrl: %u, symvect_size: %u\n"),
7340 (unsigned)bfd_getl32 (eihd
.ident
),
7341 (unsigned)bfd_getl32 (eihd
.sysver
),
7343 (unsigned)bfd_getl32 (eihd
.symvect_size
));
7344 fprintf (file
, _(" BPAGE: %u"),
7345 (unsigned)bfd_getl32 (eihd
.virt_mem_block_size
));
7346 if (val
& (EIHD__M_OMV_READY
| EIHD__M_EXT_BIND_SECT
))
7348 eihef_off
= bfd_getl32 (eihd
.ext_fixup_off
);
7349 eihnp_off
= bfd_getl32 (eihd
.noopt_psect_off
);
7350 /* xgettext:c-format */
7351 fprintf (file
, _(", ext fixup offset: %u, no_opt psect off: %u"),
7352 eihef_off
, eihnp_off
);
7354 fprintf (file
, _(", alias: %u\n"), (unsigned)bfd_getl16 (eihd
.alias
));
7358 struct vms_eihvn eihvn
;
7362 fprintf (file
, _("system version array information:\n"));
7363 if (bfd_seek (abfd
, (file_ptr
) eihvn_off
, SEEK_SET
)
7364 || bfd_bread (&eihvn
, sizeof (eihvn
), abfd
) != sizeof (eihvn
))
7366 fprintf (file
, _("cannot read EIHVN header\n"));
7369 mask
= bfd_getl32 (eihvn
.subsystem_mask
);
7370 for (j
= 0; j
< 32; j
++)
7371 if (mask
& (1 << j
))
7373 struct vms_eihvn_subversion ver
;
7374 if (bfd_bread (&ver
, sizeof (ver
), abfd
) != sizeof (ver
))
7376 fprintf (file
, _("cannot read EIHVN version\n"));
7379 fprintf (file
, _(" %02u "), j
);
7382 case EIHVN__BASE_IMAGE_BIT
:
7383 fputs (_("BASE_IMAGE "), file
);
7385 case EIHVN__MEMORY_MANAGEMENT_BIT
:
7386 fputs (_("MEMORY_MANAGEMENT"), file
);
7389 fputs (_("IO "), file
);
7391 case EIHVN__FILES_VOLUMES_BIT
:
7392 fputs (_("FILES_VOLUMES "), file
);
7394 case EIHVN__PROCESS_SCHED_BIT
:
7395 fputs (_("PROCESS_SCHED "), file
);
7397 case EIHVN__SYSGEN_BIT
:
7398 fputs (_("SYSGEN "), file
);
7400 case EIHVN__CLUSTERS_LOCKMGR_BIT
:
7401 fputs (_("CLUSTERS_LOCKMGR "), file
);
7403 case EIHVN__LOGICAL_NAMES_BIT
:
7404 fputs (_("LOGICAL_NAMES "), file
);
7406 case EIHVN__SECURITY_BIT
:
7407 fputs (_("SECURITY "), file
);
7409 case EIHVN__IMAGE_ACTIVATOR_BIT
:
7410 fputs (_("IMAGE_ACTIVATOR "), file
);
7412 case EIHVN__NETWORKS_BIT
:
7413 fputs (_("NETWORKS "), file
);
7415 case EIHVN__COUNTERS_BIT
:
7416 fputs (_("COUNTERS "), file
);
7418 case EIHVN__STABLE_BIT
:
7419 fputs (_("STABLE "), file
);
7421 case EIHVN__MISC_BIT
:
7422 fputs (_("MISC "), file
);
7424 case EIHVN__CPU_BIT
:
7425 fputs (_("CPU "), file
);
7427 case EIHVN__VOLATILE_BIT
:
7428 fputs (_("VOLATILE "), file
);
7430 case EIHVN__SHELL_BIT
:
7431 fputs (_("SHELL "), file
);
7433 case EIHVN__POSIX_BIT
:
7434 fputs (_("POSIX "), file
);
7436 case EIHVN__MULTI_PROCESSING_BIT
:
7437 fputs (_("MULTI_PROCESSING "), file
);
7439 case EIHVN__GALAXY_BIT
:
7440 fputs (_("GALAXY "), file
);
7443 fputs (_("*unknown* "), file
);
7446 fprintf (file
, ": %u.%u\n",
7447 (unsigned)bfd_getl16 (ver
.major
),
7448 (unsigned)bfd_getl16 (ver
.minor
));
7454 struct vms_eiha eiha
;
7456 if (bfd_seek (abfd
, (file_ptr
) eiha_off
, SEEK_SET
)
7457 || bfd_bread (&eiha
, sizeof (eiha
), abfd
) != sizeof (eiha
))
7459 fprintf (file
, _("cannot read EIHA\n"));
7462 fprintf (file
, _("Image activation: (size=%u)\n"),
7463 (unsigned)bfd_getl32 (eiha
.size
));
7464 /* xgettext:c-format */
7465 fprintf (file
, _(" First address : 0x%08x 0x%08x\n"),
7466 (unsigned)bfd_getl32 (eiha
.tfradr1_h
),
7467 (unsigned)bfd_getl32 (eiha
.tfradr1
));
7468 /* xgettext:c-format */
7469 fprintf (file
, _(" Second address: 0x%08x 0x%08x\n"),
7470 (unsigned)bfd_getl32 (eiha
.tfradr2_h
),
7471 (unsigned)bfd_getl32 (eiha
.tfradr2
));
7472 /* xgettext:c-format */
7473 fprintf (file
, _(" Third address : 0x%08x 0x%08x\n"),
7474 (unsigned)bfd_getl32 (eiha
.tfradr3_h
),
7475 (unsigned)bfd_getl32 (eiha
.tfradr3
));
7476 /* xgettext:c-format */
7477 fprintf (file
, _(" Fourth address: 0x%08x 0x%08x\n"),
7478 (unsigned)bfd_getl32 (eiha
.tfradr4_h
),
7479 (unsigned)bfd_getl32 (eiha
.tfradr4
));
7480 /* xgettext:c-format */
7481 fprintf (file
, _(" Shared image : 0x%08x 0x%08x\n"),
7482 (unsigned)bfd_getl32 (eiha
.inishr_h
),
7483 (unsigned)bfd_getl32 (eiha
.inishr
));
7487 struct vms_eihi eihi
;
7489 if (bfd_seek (abfd
, (file_ptr
) eihi_off
, SEEK_SET
)
7490 || bfd_bread (&eihi
, sizeof (eihi
), abfd
) != sizeof (eihi
))
7492 fprintf (file
, _("cannot read EIHI\n"));
7495 /* xgettext:c-format */
7496 fprintf (file
, _("Image identification: (major: %u, minor: %u)\n"),
7497 (unsigned)bfd_getl32 (eihi
.majorid
),
7498 (unsigned)bfd_getl32 (eihi
.minorid
));
7499 fprintf (file
, _(" image name : %.*s\n"),
7500 eihi
.imgnam
[0], eihi
.imgnam
+ 1);
7501 fprintf (file
, _(" link time : %s\n"),
7502 vms_time_to_str (eihi
.linktime
));
7503 fprintf (file
, _(" image ident : %.*s\n"),
7504 eihi
.imgid
[0], eihi
.imgid
+ 1);
7505 fprintf (file
, _(" linker ident : %.*s\n"),
7506 eihi
.linkid
[0], eihi
.linkid
+ 1);
7507 fprintf (file
, _(" image build ident: %.*s\n"),
7508 eihi
.imgbid
[0], eihi
.imgbid
+ 1);
7512 struct vms_eihs eihs
;
7514 if (bfd_seek (abfd
, (file_ptr
) eihs_off
, SEEK_SET
)
7515 || bfd_bread (&eihs
, sizeof (eihs
), abfd
) != sizeof (eihs
))
7517 fprintf (file
, _("cannot read EIHS\n"));
7520 /* xgettext:c-format */
7521 fprintf (file
, _("Image symbol & debug table: (major: %u, minor: %u)\n"),
7522 (unsigned)bfd_getl32 (eihs
.majorid
),
7523 (unsigned)bfd_getl32 (eihs
.minorid
));
7524 dst_vbn
= bfd_getl32 (eihs
.dstvbn
);
7525 dst_size
= bfd_getl32 (eihs
.dstsize
);
7526 /* xgettext:c-format */
7527 fprintf (file
, _(" debug symbol table : vbn: %u, size: %u (0x%x)\n"),
7528 dst_vbn
, dst_size
, dst_size
);
7529 gst_vbn
= bfd_getl32 (eihs
.gstvbn
);
7530 gst_size
= bfd_getl32 (eihs
.gstsize
);
7531 /* xgettext:c-format */
7532 fprintf (file
, _(" global symbol table: vbn: %u, records: %u\n"),
7534 dmt_vbn
= bfd_getl32 (eihs
.dmtvbn
);
7535 dmt_size
= bfd_getl32 (eihs
.dmtsize
);
7536 /* xgettext:c-format */
7537 fprintf (file
, _(" debug module table : vbn: %u, size: %u\n"),
7540 while (eisd_off
!= 0)
7542 struct vms_eisd eisd
;
7547 if (bfd_seek (abfd
, (file_ptr
) eisd_off
, SEEK_SET
)
7548 || bfd_bread (&eisd
, sizeof (eisd
), abfd
) != sizeof (eisd
))
7550 fprintf (file
, _("cannot read EISD\n"));
7553 len
= (unsigned)bfd_getl32 (eisd
.eisdsize
);
7554 if (len
!= (unsigned)-1)
7558 eisd_off
= (eisd_off
+ VMS_BLOCK_SIZE
) & ~(VMS_BLOCK_SIZE
- 1);
7560 /* xgettext:c-format */
7561 fprintf (file
, _("Image section descriptor: (major: %u, minor: %u, "
7562 "size: %u, offset: %u)\n"),
7563 (unsigned)bfd_getl32 (eisd
.majorid
),
7564 (unsigned)bfd_getl32 (eisd
.minorid
),
7568 /* xgettext:c-format */
7569 fprintf (file
, _(" section: base: 0x%08x%08x size: 0x%08x\n"),
7570 (unsigned)bfd_getl32 (eisd
.virt_addr
+ 4),
7571 (unsigned)bfd_getl32 (eisd
.virt_addr
+ 0),
7572 (unsigned)bfd_getl32 (eisd
.secsize
));
7573 val
= (unsigned)bfd_getl32 (eisd
.flags
);
7574 fprintf (file
, _(" flags: 0x%04x"), val
);
7575 if (val
& EISD__M_GBL
)
7576 fprintf (file
, " GBL");
7577 if (val
& EISD__M_CRF
)
7578 fprintf (file
, " CRF");
7579 if (val
& EISD__M_DZRO
)
7580 fprintf (file
, " DZRO");
7581 if (val
& EISD__M_WRT
)
7582 fprintf (file
, " WRT");
7583 if (val
& EISD__M_INITALCODE
)
7584 fprintf (file
, " INITALCODE");
7585 if (val
& EISD__M_BASED
)
7586 fprintf (file
, " BASED");
7587 if (val
& EISD__M_FIXUPVEC
)
7588 fprintf (file
, " FIXUPVEC");
7589 if (val
& EISD__M_RESIDENT
)
7590 fprintf (file
, " RESIDENT");
7591 if (val
& EISD__M_VECTOR
)
7592 fprintf (file
, " VECTOR");
7593 if (val
& EISD__M_PROTECT
)
7594 fprintf (file
, " PROTECT");
7595 if (val
& EISD__M_LASTCLU
)
7596 fprintf (file
, " LASTCLU");
7597 if (val
& EISD__M_EXE
)
7598 fprintf (file
, " EXE");
7599 if (val
& EISD__M_NONSHRADR
)
7600 fprintf (file
, " NONSHRADR");
7601 if (val
& EISD__M_QUAD_LENGTH
)
7602 fprintf (file
, " QUAD_LENGTH");
7603 if (val
& EISD__M_ALLOC_64BIT
)
7604 fprintf (file
, " ALLOC_64BIT");
7605 fprintf (file
, "\n");
7606 if (val
& EISD__M_FIXUPVEC
)
7608 eiaf_vbn
= bfd_getl32 (eisd
.vbn
);
7609 eiaf_size
= bfd_getl32 (eisd
.secsize
);
7611 /* xgettext:c-format */
7612 fprintf (file
, _(" vbn: %u, pfc: %u, matchctl: %u type: %u ("),
7613 (unsigned)bfd_getl32 (eisd
.vbn
),
7614 eisd
.pfc
, eisd
.matchctl
, eisd
.type
);
7617 case EISD__K_NORMAL
:
7618 fputs (_("NORMAL"), file
);
7620 case EISD__K_SHRFXD
:
7621 fputs (_("SHRFXD"), file
);
7623 case EISD__K_PRVFXD
:
7624 fputs (_("PRVFXD"), file
);
7626 case EISD__K_SHRPIC
:
7627 fputs (_("SHRPIC"), file
);
7629 case EISD__K_PRVPIC
:
7630 fputs (_("PRVPIC"), file
);
7632 case EISD__K_USRSTACK
:
7633 fputs (_("USRSTACK"), file
);
7636 fputs (_("*unknown*"), file
);
7639 fputs (_(")\n"), file
);
7640 if (val
& EISD__M_GBL
)
7641 /* xgettext:c-format */
7642 fprintf (file
, _(" ident: 0x%08x, name: %.*s\n"),
7643 (unsigned)bfd_getl32 (eisd
.ident
),
7644 eisd
.gblnam
[0], eisd
.gblnam
+ 1);
7650 if (bfd_seek (abfd
, (file_ptr
) (dmt_vbn
- 1) * VMS_BLOCK_SIZE
, SEEK_SET
))
7652 fprintf (file
, _("cannot read DMT\n"));
7656 fprintf (file
, _("Debug module table:\n"));
7658 while (dmt_size
> 0)
7660 struct vms_dmt_header dmth
;
7663 if (bfd_bread (&dmth
, sizeof (dmth
), abfd
) != sizeof (dmth
))
7665 fprintf (file
, _("cannot read DMT header\n"));
7668 count
= bfd_getl16 (dmth
.psect_count
);
7670 /* xgettext:c-format */
7671 _(" module offset: 0x%08x, size: 0x%08x, (%u psects)\n"),
7672 (unsigned)bfd_getl32 (dmth
.modbeg
),
7673 (unsigned)bfd_getl32 (dmth
.size
), count
);
7674 dmt_size
-= sizeof (dmth
);
7677 struct vms_dmt_psect dmtp
;
7679 if (bfd_bread (&dmtp
, sizeof (dmtp
), abfd
) != sizeof (dmtp
))
7681 fprintf (file
, _("cannot read DMT psect\n"));
7684 /* xgettext:c-format */
7685 fprintf (file
, _(" psect start: 0x%08x, length: %u\n"),
7686 (unsigned)bfd_getl32 (dmtp
.start
),
7687 (unsigned)bfd_getl32 (dmtp
.length
));
7689 dmt_size
-= sizeof (dmtp
);
7696 if (bfd_seek (abfd
, (file_ptr
) (dst_vbn
- 1) * VMS_BLOCK_SIZE
, SEEK_SET
))
7698 fprintf (file
, _("cannot read DST\n"));
7702 evax_bfd_print_dst (abfd
, dst_size
, file
);
7706 if (bfd_seek (abfd
, (file_ptr
) (gst_vbn
- 1) * VMS_BLOCK_SIZE
, SEEK_SET
))
7708 fprintf (file
, _("cannot read GST\n"));
7712 fprintf (file
, _("Global symbol table:\n"));
7713 evax_bfd_print_eobj (abfd
, file
);
7718 struct vms_eiaf
*eiaf
;
7719 unsigned int qrelfixoff
;
7720 unsigned int lrelfixoff
;
7721 unsigned int qdotadroff
;
7722 unsigned int ldotadroff
;
7723 unsigned int shrimgcnt
;
7724 unsigned int shlstoff
;
7725 unsigned int codeadroff
;
7726 unsigned int lpfixoff
;
7727 unsigned int chgprtoff
;
7729 buf
= bfd_malloc (eiaf_size
);
7731 if (bfd_seek (abfd
, (file_ptr
) (eiaf_vbn
- 1) * VMS_BLOCK_SIZE
, SEEK_SET
)
7732 || bfd_bread (buf
, eiaf_size
, abfd
) != eiaf_size
)
7734 fprintf (file
, _("cannot read EIHA\n"));
7738 eiaf
= (struct vms_eiaf
*)buf
;
7740 /* xgettext:c-format */
7741 _("Image activator fixup: (major: %u, minor: %u)\n"),
7742 (unsigned)bfd_getl32 (eiaf
->majorid
),
7743 (unsigned)bfd_getl32 (eiaf
->minorid
));
7744 /* xgettext:c-format */
7745 fprintf (file
, _(" iaflink : 0x%08x %08x\n"),
7746 (unsigned)bfd_getl32 (eiaf
->iaflink
+ 0),
7747 (unsigned)bfd_getl32 (eiaf
->iaflink
+ 4));
7748 /* xgettext:c-format */
7749 fprintf (file
, _(" fixuplnk: 0x%08x %08x\n"),
7750 (unsigned)bfd_getl32 (eiaf
->fixuplnk
+ 0),
7751 (unsigned)bfd_getl32 (eiaf
->fixuplnk
+ 4));
7752 fprintf (file
, _(" size : %u\n"),
7753 (unsigned)bfd_getl32 (eiaf
->size
));
7754 fprintf (file
, _(" flags: 0x%08x\n"),
7755 (unsigned)bfd_getl32 (eiaf
->flags
));
7756 qrelfixoff
= bfd_getl32 (eiaf
->qrelfixoff
);
7757 lrelfixoff
= bfd_getl32 (eiaf
->lrelfixoff
);
7758 /* xgettext:c-format */
7759 fprintf (file
, _(" qrelfixoff: %5u, lrelfixoff: %5u\n"),
7760 qrelfixoff
, lrelfixoff
);
7761 qdotadroff
= bfd_getl32 (eiaf
->qdotadroff
);
7762 ldotadroff
= bfd_getl32 (eiaf
->ldotadroff
);
7763 /* xgettext:c-format */
7764 fprintf (file
, _(" qdotadroff: %5u, ldotadroff: %5u\n"),
7765 qdotadroff
, ldotadroff
);
7766 codeadroff
= bfd_getl32 (eiaf
->codeadroff
);
7767 lpfixoff
= bfd_getl32 (eiaf
->lpfixoff
);
7768 /* xgettext:c-format */
7769 fprintf (file
, _(" codeadroff: %5u, lpfixoff : %5u\n"),
7770 codeadroff
, lpfixoff
);
7771 chgprtoff
= bfd_getl32 (eiaf
->chgprtoff
);
7772 fprintf (file
, _(" chgprtoff : %5u\n"), chgprtoff
);
7773 shrimgcnt
= bfd_getl32 (eiaf
->shrimgcnt
);
7774 shlstoff
= bfd_getl32 (eiaf
->shlstoff
);
7775 /* xgettext:c-format */
7776 fprintf (file
, _(" shlstoff : %5u, shrimgcnt : %5u\n"),
7777 shlstoff
, shrimgcnt
);
7778 /* xgettext:c-format */
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 /* xgettext:c-format */
7797 _(" %u: size: %u, flags: 0x%02x, name: %.*s\n"),
7798 j
, shl
->size
, shl
->flags
,
7799 shl
->imgnam
[0], shl
->imgnam
+ 1);
7802 if (qrelfixoff
!= 0)
7804 fprintf (file
, _(" quad-word relocation fixups:\n"));
7805 evax_bfd_print_relocation_records (file
, buf
+ qrelfixoff
, 8);
7807 if (lrelfixoff
!= 0)
7809 fprintf (file
, _(" long-word relocation fixups:\n"));
7810 evax_bfd_print_relocation_records (file
, buf
+ lrelfixoff
, 4);
7812 if (qdotadroff
!= 0)
7814 fprintf (file
, _(" quad-word .address reference fixups:\n"));
7815 evax_bfd_print_address_fixups (file
, buf
+ qdotadroff
);
7817 if (ldotadroff
!= 0)
7819 fprintf (file
, _(" long-word .address reference fixups:\n"));
7820 evax_bfd_print_address_fixups (file
, buf
+ ldotadroff
);
7822 if (codeadroff
!= 0)
7824 fprintf (file
, _(" Code Address Reference Fixups:\n"));
7825 evax_bfd_print_reference_fixups (file
, buf
+ codeadroff
);
7829 fprintf (file
, _(" Linkage Pairs Reference Fixups:\n"));
7830 evax_bfd_print_reference_fixups (file
, buf
+ lpfixoff
);
7834 unsigned int count
= (unsigned)bfd_getl32 (buf
+ chgprtoff
);
7835 struct vms_eicp
*eicp
= (struct vms_eicp
*)(buf
+ chgprtoff
+ 4);
7838 fprintf (file
, _(" Change Protection (%u entries):\n"), count
);
7839 for (j
= 0; j
< count
; j
++, eicp
++)
7841 unsigned int prot
= bfd_getl32 (eicp
->newprt
);
7843 /* xgettext:c-format */
7844 _(" base: 0x%08x %08x, size: 0x%08x, prot: 0x%08x "),
7845 (unsigned)bfd_getl32 (eicp
->baseva
+ 4),
7846 (unsigned)bfd_getl32 (eicp
->baseva
+ 0),
7847 (unsigned)bfd_getl32 (eicp
->size
),
7848 (unsigned)bfd_getl32 (eicp
->newprt
));
7852 fprintf (file
, "NA");
7854 case PRT__C_RESERVED
:
7855 fprintf (file
, "RES");
7858 fprintf (file
, "KW");
7861 fprintf (file
, "KR");
7864 fprintf (file
, "UW");
7867 fprintf (file
, "EW");
7870 fprintf (file
, "ERKW");
7873 fprintf (file
, "ER");
7876 fprintf (file
, "SW");
7879 fprintf (file
, "SREW");
7882 fprintf (file
, "SRKW");
7885 fprintf (file
, "SR");
7888 fprintf (file
, "URSW");
7891 fprintf (file
, "UREW");
7894 fprintf (file
, "URKW");
7897 fprintf (file
, "UR");
7911 vms_bfd_print_private_bfd_data (bfd
*abfd
, void *ptr
)
7913 FILE *file
= (FILE *)ptr
;
7915 if (bfd_get_file_flags (abfd
) & (EXEC_P
| DYNAMIC
))
7916 evax_bfd_print_image (abfd
, file
);
7919 if (bfd_seek (abfd
, 0, SEEK_SET
))
7921 evax_bfd_print_eobj (abfd
, file
);
7928 /* Slurp ETIR/EDBG/ETBT VMS object records. */
7931 alpha_vms_read_sections_content (bfd
*abfd
, struct bfd_link_info
*info
)
7933 asection
*cur_section
;
7934 file_ptr cur_offset
;
7935 asection
*dst_section
;
7936 file_ptr dst_offset
;
7938 if (bfd_seek (abfd
, 0, SEEK_SET
) != 0)
7944 dst_section
= PRIV (dst_section
);
7948 if (info
->strip
== strip_all
|| info
->strip
== strip_debugger
)
7950 /* Discard the DST section. */
7954 else if (dst_section
)
7956 dst_offset
= dst_section
->output_offset
;
7957 dst_section
= dst_section
->output_section
;
7966 type
= _bfd_vms_get_object_record (abfd
);
7969 vms_debug2 ((2, "next_record failed\n"));
7975 PRIV (image_section
) = cur_section
;
7976 PRIV (image_offset
) = cur_offset
;
7977 res
= _bfd_vms_slurp_etir (abfd
, info
);
7978 cur_section
= PRIV (image_section
);
7979 cur_offset
= PRIV (image_offset
);
7983 if (dst_section
== NULL
)
7985 PRIV (image_section
) = dst_section
;
7986 PRIV (image_offset
) = dst_offset
;
7987 res
= _bfd_vms_slurp_etir (abfd
, info
);
7988 dst_offset
= PRIV (image_offset
);
7997 vms_debug2 ((2, "slurp eobj type %d failed\n", type
));
8004 alpha_vms_sizeof_headers (bfd
*abfd ATTRIBUTE_UNUSED
,
8005 struct bfd_link_info
*info ATTRIBUTE_UNUSED
)
8010 /* Add a linkage pair fixup at address SECT + OFFSET to SHLIB. */
8013 alpha_vms_add_fixup_lp (struct bfd_link_info
*info
, bfd
*src
, bfd
*shlib
)
8015 struct alpha_vms_shlib_el
*sl
;
8016 asection
*sect
= PRIV2 (src
, image_section
);
8017 file_ptr offset
= PRIV2 (src
, image_offset
);
8019 sl
= &VEC_EL (alpha_vms_link_hash (info
)->shrlibs
,
8020 struct alpha_vms_shlib_el
, PRIV2 (shlib
, shr_index
));
8021 sl
->has_fixups
= TRUE
;
8022 VEC_APPEND_EL (sl
->lp
, bfd_vma
,
8023 sect
->output_section
->vma
+ sect
->output_offset
+ offset
);
8024 sect
->output_section
->flags
|= SEC_RELOC
;
8027 /* Add a code address fixup at address SECT + OFFSET to SHLIB. */
8030 alpha_vms_add_fixup_ca (struct bfd_link_info
*info
, bfd
*src
, bfd
*shlib
)
8032 struct alpha_vms_shlib_el
*sl
;
8033 asection
*sect
= PRIV2 (src
, image_section
);
8034 file_ptr offset
= PRIV2 (src
, image_offset
);
8036 sl
= &VEC_EL (alpha_vms_link_hash (info
)->shrlibs
,
8037 struct alpha_vms_shlib_el
, PRIV2 (shlib
, shr_index
));
8038 sl
->has_fixups
= TRUE
;
8039 VEC_APPEND_EL (sl
->ca
, bfd_vma
,
8040 sect
->output_section
->vma
+ sect
->output_offset
+ offset
);
8041 sect
->output_section
->flags
|= SEC_RELOC
;
8044 /* Add a quad word relocation fixup at address SECT + OFFSET to SHLIB. */
8047 alpha_vms_add_fixup_qr (struct bfd_link_info
*info
, bfd
*src
,
8048 bfd
*shlib
, bfd_vma vec
)
8050 struct alpha_vms_shlib_el
*sl
;
8051 struct alpha_vms_vma_ref
*r
;
8052 asection
*sect
= PRIV2 (src
, image_section
);
8053 file_ptr offset
= PRIV2 (src
, image_offset
);
8055 sl
= &VEC_EL (alpha_vms_link_hash (info
)->shrlibs
,
8056 struct alpha_vms_shlib_el
, PRIV2 (shlib
, shr_index
));
8057 sl
->has_fixups
= TRUE
;
8058 r
= VEC_APPEND (sl
->qr
, struct alpha_vms_vma_ref
);
8059 r
->vma
= sect
->output_section
->vma
+ sect
->output_offset
+ offset
;
8061 sect
->output_section
->flags
|= SEC_RELOC
;
8065 alpha_vms_add_fixup_lr (struct bfd_link_info
*info ATTRIBUTE_UNUSED
,
8066 unsigned int shr ATTRIBUTE_UNUSED
,
8067 bfd_vma vec ATTRIBUTE_UNUSED
)
8069 /* Not yet supported. */
8073 /* Add relocation. FIXME: Not yet emitted. */
8076 alpha_vms_add_lw_reloc (struct bfd_link_info
*info ATTRIBUTE_UNUSED
)
8081 alpha_vms_add_qw_reloc (struct bfd_link_info
*info ATTRIBUTE_UNUSED
)
8085 static struct bfd_hash_entry
*
8086 alpha_vms_link_hash_newfunc (struct bfd_hash_entry
*entry
,
8087 struct bfd_hash_table
*table
,
8090 struct alpha_vms_link_hash_entry
*ret
=
8091 (struct alpha_vms_link_hash_entry
*) entry
;
8093 /* Allocate the structure if it has not already been allocated by a
8096 ret
= ((struct alpha_vms_link_hash_entry
*)
8097 bfd_hash_allocate (table
,
8098 sizeof (struct alpha_vms_link_hash_entry
)));
8102 /* Call the allocation method of the superclass. */
8103 ret
= ((struct alpha_vms_link_hash_entry
*)
8104 _bfd_link_hash_newfunc ((struct bfd_hash_entry
*) ret
,
8109 return (struct bfd_hash_entry
*) ret
;
8112 /* Create an Alpha/VMS link hash table. */
8114 static struct bfd_link_hash_table
*
8115 alpha_vms_bfd_link_hash_table_create (bfd
*abfd
)
8117 struct alpha_vms_link_hash_table
*ret
;
8118 bfd_size_type amt
= sizeof (struct alpha_vms_link_hash_table
);
8120 ret
= (struct alpha_vms_link_hash_table
*) bfd_malloc (amt
);
8123 if (!_bfd_link_hash_table_init (&ret
->root
, abfd
,
8124 alpha_vms_link_hash_newfunc
,
8125 sizeof (struct alpha_vms_link_hash_entry
)))
8131 VEC_INIT (ret
->shrlibs
);
8138 alpha_vms_link_add_object_symbols (bfd
*abfd
, struct bfd_link_info
*info
)
8142 for (i
= 0; i
< PRIV (gsd_sym_count
); i
++)
8144 struct vms_symbol_entry
*e
= PRIV (syms
)[i
];
8145 struct alpha_vms_link_hash_entry
*h
;
8146 struct bfd_link_hash_entry
*h_root
;
8149 if (!alpha_vms_convert_symbol (abfd
, e
, &sym
))
8152 if ((e
->flags
& EGSY__V_DEF
) && abfd
->selective_search
)
8154 /* In selective_search mode, only add definition that are
8156 h
= (struct alpha_vms_link_hash_entry
*)bfd_link_hash_lookup
8157 (info
->hash
, sym
.name
, FALSE
, FALSE
, FALSE
);
8158 if (h
== NULL
|| h
->root
.type
!= bfd_link_hash_undefined
)
8164 h_root
= (struct bfd_link_hash_entry
*) h
;
8165 if (!_bfd_generic_link_add_one_symbol (info
, abfd
, sym
.name
, sym
.flags
,
8166 sym
.section
, sym
.value
, NULL
,
8167 FALSE
, FALSE
, &h_root
))
8169 h
= (struct alpha_vms_link_hash_entry
*) h_root
;
8171 if ((e
->flags
& EGSY__V_DEF
)
8173 && abfd
->xvec
== info
->output_bfd
->xvec
)
8177 if (abfd
->flags
& DYNAMIC
)
8179 struct alpha_vms_shlib_el
*shlib
;
8181 /* We do not want to include any of the sections in a dynamic
8182 object in the output file. See comment in elflink.c. */
8183 bfd_section_list_clear (abfd
);
8185 shlib
= VEC_APPEND (alpha_vms_link_hash (info
)->shrlibs
,
8186 struct alpha_vms_shlib_el
);
8188 VEC_INIT (shlib
->ca
);
8189 VEC_INIT (shlib
->lp
);
8190 VEC_INIT (shlib
->qr
);
8191 PRIV (shr_index
) = VEC_COUNT (alpha_vms_link_hash (info
)->shrlibs
) - 1;
8198 alpha_vms_link_add_archive_symbols (bfd
*abfd
, struct bfd_link_info
*info
)
8201 struct bfd_link_hash_entry
**pundef
;
8202 struct bfd_link_hash_entry
**next_pundef
;
8204 /* We only accept VMS libraries. */
8205 if (info
->output_bfd
->xvec
!= abfd
->xvec
)
8207 bfd_set_error (bfd_error_wrong_format
);
8211 /* The archive_pass field in the archive itself is used to
8212 initialize PASS, since we may search the same archive multiple
8214 pass
= ++abfd
->archive_pass
;
8216 /* Look through the list of undefined symbols. */
8217 for (pundef
= &info
->hash
->undefs
; *pundef
!= NULL
; pundef
= next_pundef
)
8219 struct bfd_link_hash_entry
*h
;
8225 next_pundef
= &(*pundef
)->u
.undef
.next
;
8227 /* When a symbol is defined, it is not necessarily removed from
8229 if (h
->type
!= bfd_link_hash_undefined
8230 && h
->type
!= bfd_link_hash_common
)
8232 /* Remove this entry from the list, for general cleanliness
8233 and because we are going to look through the list again
8234 if we search any more libraries. We can't remove the
8235 entry if it is the tail, because that would lose any
8236 entries we add to the list later on. */
8237 if (*pundef
!= info
->hash
->undefs_tail
)
8239 *pundef
= *next_pundef
;
8240 next_pundef
= pundef
;
8245 /* Look for this symbol in the archive hash table. */
8246 symidx
= _bfd_vms_lib_find_symbol (abfd
, h
->root
.string
);
8247 if (symidx
== BFD_NO_MORE_SYMBOLS
)
8249 /* Nothing in this slot. */
8253 element
= bfd_get_elt_at_index (abfd
, symidx
);
8254 if (element
== NULL
)
8257 if (element
->archive_pass
== -1 || element
->archive_pass
== pass
)
8259 /* Next symbol if this archive is wrong or already handled. */
8263 if (! bfd_check_format (element
, bfd_object
))
8265 element
->archive_pass
= -1;
8269 orig_element
= element
;
8270 if (bfd_is_thin_archive (abfd
))
8272 element
= _bfd_vms_lib_get_imagelib_file (element
);
8273 if (element
== NULL
|| !bfd_check_format (element
, bfd_object
))
8275 orig_element
->archive_pass
= -1;
8280 /* Unlike the generic linker, we know that this element provides
8281 a definition for an undefined symbol and we know that we want
8282 to include it. We don't need to check anything. */
8283 if (!(*info
->callbacks
8284 ->add_archive_element
) (info
, element
, h
->root
.string
, &element
))
8286 if (!alpha_vms_link_add_object_symbols (element
, info
))
8289 orig_element
->archive_pass
= pass
;
8296 alpha_vms_bfd_link_add_symbols (bfd
*abfd
, struct bfd_link_info
*info
)
8298 switch (bfd_get_format (abfd
))
8301 vms_debug2 ((2, "vms_link_add_symbols for object %s\n",
8303 return alpha_vms_link_add_object_symbols (abfd
, info
);
8306 vms_debug2 ((2, "vms_link_add_symbols for archive %s\n",
8308 return alpha_vms_link_add_archive_symbols (abfd
, info
);
8311 bfd_set_error (bfd_error_wrong_format
);
8317 alpha_vms_build_fixups (struct bfd_link_info
*info
)
8319 struct alpha_vms_link_hash_table
*t
= alpha_vms_link_hash (info
);
8320 unsigned char *content
;
8322 unsigned int sz
= 0;
8323 unsigned int lp_sz
= 0;
8324 unsigned int ca_sz
= 0;
8325 unsigned int qr_sz
= 0;
8326 unsigned int shrimg_cnt
= 0;
8327 unsigned int chgprt_num
= 0;
8328 unsigned int chgprt_sz
= 0;
8329 struct vms_eiaf
*eiaf
;
8333 /* Shared libraries. */
8334 for (i
= 0; i
< VEC_COUNT (t
->shrlibs
); i
++)
8336 struct alpha_vms_shlib_el
*shlib
;
8338 shlib
= &VEC_EL (t
->shrlibs
, struct alpha_vms_shlib_el
, i
);
8340 if (!shlib
->has_fixups
)
8345 if (VEC_COUNT (shlib
->ca
) > 0)
8347 /* Header + entries. */
8349 ca_sz
+= VEC_COUNT (shlib
->ca
) * 4;
8351 if (VEC_COUNT (shlib
->lp
) > 0)
8353 /* Header + entries. */
8355 lp_sz
+= VEC_COUNT (shlib
->lp
) * 4;
8357 if (VEC_COUNT (shlib
->qr
) > 0)
8359 /* Header + entries. */
8361 qr_sz
+= VEC_COUNT (shlib
->qr
) * 8;
8372 /* Finish now if there is no content. */
8373 if (ca_sz
+ lp_sz
+ qr_sz
== 0)
8376 /* Add an eicp entry for the fixup itself. */
8378 for (sec
= info
->output_bfd
->sections
; sec
!= NULL
; sec
= sec
->next
)
8380 /* This isect could be made RO or EXE after relocations are applied. */
8381 if ((sec
->flags
& SEC_RELOC
) != 0
8382 && (sec
->flags
& (SEC_CODE
| SEC_READONLY
)) != 0)
8385 chgprt_sz
= 4 + chgprt_num
* sizeof (struct vms_eicp
);
8387 /* Allocate section content (round-up size) */
8388 sz
= sizeof (struct vms_eiaf
) + shrimg_cnt
* sizeof (struct vms_shl
)
8389 + ca_sz
+ lp_sz
+ qr_sz
+ chgprt_sz
;
8390 sz
= (sz
+ VMS_BLOCK_SIZE
- 1) & ~(VMS_BLOCK_SIZE
- 1);
8391 content
= bfd_zalloc (info
->output_bfd
, sz
);
8392 if (content
== NULL
)
8395 sec
= alpha_vms_link_hash (info
)->fixup
;
8396 sec
->contents
= content
;
8399 eiaf
= (struct vms_eiaf
*)content
;
8400 off
= sizeof (struct vms_eiaf
);
8401 bfd_putl32 (0, eiaf
->majorid
);
8402 bfd_putl32 (0, eiaf
->minorid
);
8403 bfd_putl32 (0, eiaf
->iaflink
);
8404 bfd_putl32 (0, eiaf
->fixuplnk
);
8405 bfd_putl32 (sizeof (struct vms_eiaf
), eiaf
->size
);
8406 bfd_putl32 (0, eiaf
->flags
);
8407 bfd_putl32 (0, eiaf
->qrelfixoff
);
8408 bfd_putl32 (0, eiaf
->lrelfixoff
);
8409 bfd_putl32 (0, eiaf
->qdotadroff
);
8410 bfd_putl32 (0, eiaf
->ldotadroff
);
8411 bfd_putl32 (0, eiaf
->codeadroff
);
8412 bfd_putl32 (0, eiaf
->lpfixoff
);
8413 bfd_putl32 (0, eiaf
->chgprtoff
);
8414 bfd_putl32 (shrimg_cnt
? off
: 0, eiaf
->shlstoff
);
8415 bfd_putl32 (shrimg_cnt
, eiaf
->shrimgcnt
);
8416 bfd_putl32 (0, eiaf
->shlextra
);
8417 bfd_putl32 (0, eiaf
->permctx
);
8418 bfd_putl32 (0, eiaf
->base_va
);
8419 bfd_putl32 (0, eiaf
->lppsbfixoff
);
8426 for (i
= 0; i
< VEC_COUNT (t
->shrlibs
); i
++)
8428 struct alpha_vms_shlib_el
*shlib
;
8429 struct vms_shl
*shl
;
8431 shlib
= &VEC_EL (t
->shrlibs
, struct alpha_vms_shlib_el
, i
);
8433 if (!shlib
->has_fixups
)
8436 /* Renumber shared images. */
8437 PRIV2 (shlib
->abfd
, shr_index
) = shrimg_cnt
++;
8439 shl
= (struct vms_shl
*)(content
+ off
);
8440 bfd_putl32 (0, shl
->baseva
);
8441 bfd_putl32 (0, shl
->shlptr
);
8442 bfd_putl32 (0, shl
->ident
);
8443 bfd_putl32 (0, shl
->permctx
);
8444 shl
->size
= sizeof (struct vms_shl
);
8445 bfd_putl16 (0, shl
->fill_1
);
8447 bfd_putl32 (0, shl
->icb
);
8448 shl
->imgnam
[0] = strlen (PRIV2 (shlib
->abfd
, hdr_data
.hdr_t_name
));
8449 memcpy (shl
->imgnam
+ 1, PRIV2 (shlib
->abfd
, hdr_data
.hdr_t_name
),
8452 off
+= sizeof (struct vms_shl
);
8458 bfd_putl32 (off
, eiaf
->codeadroff
);
8460 for (i
= 0; i
< VEC_COUNT (t
->shrlibs
); i
++)
8462 struct alpha_vms_shlib_el
*shlib
;
8465 shlib
= &VEC_EL (t
->shrlibs
, struct alpha_vms_shlib_el
, i
);
8467 if (VEC_COUNT (shlib
->ca
) == 0)
8470 bfd_putl32 (VEC_COUNT (shlib
->ca
), content
+ off
);
8471 bfd_putl32 (PRIV2 (shlib
->abfd
, shr_index
), content
+ off
+ 4);
8474 for (j
= 0; j
< VEC_COUNT (shlib
->ca
); j
++)
8476 bfd_putl32 (VEC_EL (shlib
->ca
, bfd_vma
, j
) - t
->base_addr
,
8482 bfd_putl32 (0, content
+ off
);
8483 bfd_putl32 (0, content
+ off
+ 4);
8490 bfd_putl32 (off
, eiaf
->lpfixoff
);
8492 for (i
= 0; i
< VEC_COUNT (t
->shrlibs
); i
++)
8494 struct alpha_vms_shlib_el
*shlib
;
8497 shlib
= &VEC_EL (t
->shrlibs
, struct alpha_vms_shlib_el
, i
);
8499 if (VEC_COUNT (shlib
->lp
) == 0)
8502 bfd_putl32 (VEC_COUNT (shlib
->lp
), content
+ off
);
8503 bfd_putl32 (PRIV2 (shlib
->abfd
, shr_index
), content
+ off
+ 4);
8506 for (j
= 0; j
< VEC_COUNT (shlib
->lp
); j
++)
8508 bfd_putl32 (VEC_EL (shlib
->lp
, bfd_vma
, j
) - t
->base_addr
,
8514 bfd_putl32 (0, content
+ off
);
8515 bfd_putl32 (0, content
+ off
+ 4);
8522 bfd_putl32 (off
, eiaf
->qdotadroff
);
8524 for (i
= 0; i
< VEC_COUNT (t
->shrlibs
); i
++)
8526 struct alpha_vms_shlib_el
*shlib
;
8529 shlib
= &VEC_EL (t
->shrlibs
, struct alpha_vms_shlib_el
, i
);
8531 if (VEC_COUNT (shlib
->qr
) == 0)
8534 bfd_putl32 (VEC_COUNT (shlib
->qr
), content
+ off
);
8535 bfd_putl32 (PRIV2 (shlib
->abfd
, shr_index
), content
+ off
+ 4);
8538 for (j
= 0; j
< VEC_COUNT (shlib
->qr
); j
++)
8540 struct alpha_vms_vma_ref
*r
;
8541 r
= &VEC_EL (shlib
->qr
, struct alpha_vms_vma_ref
, j
);
8542 bfd_putl32 (r
->vma
- t
->base_addr
, content
+ off
);
8543 bfd_putl32 (r
->ref
, content
+ off
+ 4);
8548 bfd_putl32 (0, content
+ off
);
8549 bfd_putl32 (0, content
+ off
+ 4);
8554 /* Write the change protection table. */
8555 bfd_putl32 (off
, eiaf
->chgprtoff
);
8556 bfd_putl32 (chgprt_num
, content
+ off
);
8559 for (sec
= info
->output_bfd
->sections
; sec
!= NULL
; sec
= sec
->next
)
8561 struct vms_eicp
*eicp
;
8564 if ((sec
->flags
& SEC_LINKER_CREATED
) != 0 &&
8565 strcmp (sec
->name
, "$FIXUP$") == 0)
8567 else if ((sec
->flags
& SEC_RELOC
) != 0
8568 && (sec
->flags
& (SEC_CODE
| SEC_READONLY
)) != 0)
8573 eicp
= (struct vms_eicp
*)(content
+ off
);
8574 bfd_putl64 (sec
->vma
- t
->base_addr
, eicp
->baseva
);
8575 bfd_putl32 ((sec
->size
+ VMS_BLOCK_SIZE
- 1) & ~(VMS_BLOCK_SIZE
- 1),
8577 bfd_putl32 (prot
, eicp
->newprt
);
8578 off
+= sizeof (struct vms_eicp
);
8584 /* Called by bfd_hash_traverse to fill the symbol table.
8585 Return FALSE in case of failure. */
8588 alpha_vms_link_output_symbol (struct bfd_hash_entry
*bh
, void *infov
)
8590 struct bfd_link_hash_entry
*hc
= (struct bfd_link_hash_entry
*) bh
;
8591 struct bfd_link_info
*info
= (struct bfd_link_info
*)infov
;
8592 struct alpha_vms_link_hash_entry
*h
;
8593 struct vms_symbol_entry
*sym
;
8595 if (hc
->type
== bfd_link_hash_warning
)
8598 if (hc
->type
== bfd_link_hash_new
)
8601 h
= (struct alpha_vms_link_hash_entry
*) hc
;
8603 switch (h
->root
.type
)
8605 case bfd_link_hash_undefined
:
8607 case bfd_link_hash_new
:
8608 case bfd_link_hash_warning
:
8610 case bfd_link_hash_undefweak
:
8612 case bfd_link_hash_defined
:
8613 case bfd_link_hash_defweak
:
8615 asection
*sec
= h
->root
.u
.def
.section
;
8617 /* FIXME: this is certainly a symbol from a dynamic library. */
8618 if (bfd_is_abs_section (sec
))
8621 if (sec
->owner
->flags
& DYNAMIC
)
8625 case bfd_link_hash_common
:
8627 case bfd_link_hash_indirect
:
8631 /* Do not write not kept symbols. */
8632 if (info
->strip
== strip_some
8633 && bfd_hash_lookup (info
->keep_hash
, h
->root
.root
.string
,
8634 FALSE
, FALSE
) != NULL
)
8639 /* This symbol doesn't come from a VMS object. So we suppose it is
8641 int len
= strlen (h
->root
.root
.string
);
8643 sym
= (struct vms_symbol_entry
*)bfd_zalloc (info
->output_bfd
,
8644 sizeof (*sym
) + len
);
8648 memcpy (sym
->name
, h
->root
.root
.string
, len
);
8650 sym
->owner
= info
->output_bfd
;
8652 sym
->typ
= EGSD__C_SYMG
;
8654 sym
->flags
= EGSY__V_DEF
| EGSY__V_REL
;
8655 sym
->symbol_vector
= h
->root
.u
.def
.value
;
8656 sym
->section
= h
->root
.u
.def
.section
;
8657 sym
->value
= h
->root
.u
.def
.value
;
8662 if (!add_symbol_entry (info
->output_bfd
, sym
))
8669 alpha_vms_bfd_final_link (bfd
*abfd
, struct bfd_link_info
*info
)
8672 struct bfd_link_order
*p
;
8680 if (bfd_link_relocatable (info
))
8682 /* FIXME: we do not yet support relocatable link. It is not obvious
8683 how to do it for debug infos. */
8684 (*info
->callbacks
->einfo
)(_("%P: relocatable link is not supported\n"));
8688 bfd_get_outsymbols (abfd
) = NULL
;
8689 bfd_get_symcount (abfd
) = 0;
8691 /* Mark all sections which will be included in the output file. */
8692 for (o
= abfd
->sections
; o
!= NULL
; o
= o
->next
)
8693 for (p
= o
->map_head
.link_order
; p
!= NULL
; p
= p
->next
)
8694 if (p
->type
== bfd_indirect_link_order
)
8695 p
->u
.indirect
.section
->linker_mark
= TRUE
;
8698 /* Handle all the link order information for the sections. */
8699 for (o
= abfd
->sections
; o
!= NULL
; o
= o
->next
)
8701 printf ("For section %s (at 0x%08x, flags=0x%08x):\n",
8702 o
->name
, (unsigned)o
->vma
, (unsigned)o
->flags
);
8704 for (p
= o
->map_head
.link_order
; p
!= NULL
; p
= p
->next
)
8706 printf (" at 0x%08x - 0x%08x: ",
8707 (unsigned)p
->offset
, (unsigned)(p
->offset
+ p
->size
- 1));
8710 case bfd_section_reloc_link_order
:
8711 case bfd_symbol_reloc_link_order
:
8712 printf (" section/symbol reloc\n");
8714 case bfd_indirect_link_order
:
8715 printf (" section %s of %s\n",
8716 p
->u
.indirect
.section
->name
,
8717 p
->u
.indirect
.section
->owner
->filename
);
8719 case bfd_data_link_order
:
8720 printf (" explicit data\n");
8723 printf (" *unknown* type %u\n", p
->type
);
8730 /* Generate the symbol table. */
8731 BFD_ASSERT (PRIV (syms
) == NULL
);
8732 if (info
->strip
!= strip_all
)
8733 bfd_hash_traverse (&info
->hash
->table
, alpha_vms_link_output_symbol
, info
);
8735 /* Find the entry point. */
8736 if (bfd_get_start_address (abfd
) == 0)
8738 bfd
*startbfd
= NULL
;
8740 for (sub
= info
->input_bfds
; sub
!= NULL
; sub
= sub
->link
.next
)
8742 /* Consider only VMS object files. */
8743 if (sub
->xvec
!= abfd
->xvec
)
8746 if (!PRIV2 (sub
, eom_data
).eom_has_transfer
)
8748 if ((PRIV2 (sub
, eom_data
).eom_b_tfrflg
& EEOM__M_WKTFR
) && startbfd
)
8750 if (startbfd
!= NULL
8751 && !(PRIV2 (sub
, eom_data
).eom_b_tfrflg
& EEOM__M_WKTFR
))
8753 (*info
->callbacks
->einfo
)
8754 /* xgettext:c-format */
8755 (_("%P: multiple entry points: in modules %B and %B\n"),
8764 unsigned int ps_idx
= PRIV2 (startbfd
, eom_data
).eom_l_psindx
;
8765 bfd_vma tfradr
= PRIV2 (startbfd
, eom_data
).eom_l_tfradr
;
8768 sec
= PRIV2 (startbfd
, sections
)[ps_idx
];
8770 bfd_set_start_address
8771 (abfd
, sec
->output_section
->vma
+ sec
->output_offset
+ tfradr
);
8775 /* Set transfer addresses. */
8778 struct bfd_link_hash_entry
*h
;
8781 PRIV (transfer_address
[i
++]) = 0xffffffff00000340ULL
; /* SYS$IMGACT */
8782 h
= bfd_link_hash_lookup (info
->hash
, "LIB$INITIALIZE", FALSE
, FALSE
, TRUE
);
8783 if (h
!= NULL
&& h
->type
== bfd_link_hash_defined
)
8784 PRIV (transfer_address
[i
++]) =
8785 alpha_vms_get_sym_value (h
->u
.def
.section
, h
->u
.def
.value
);
8786 PRIV (transfer_address
[i
++]) = bfd_get_start_address (abfd
);
8788 PRIV (transfer_address
[i
++]) = 0;
8791 /* Allocate contents.
8792 Also compute the virtual base address. */
8793 base_addr
= (bfd_vma
)-1;
8795 for (o
= abfd
->sections
; o
!= NULL
; o
= o
->next
)
8797 if (o
->flags
& SEC_HAS_CONTENTS
)
8799 o
->contents
= bfd_alloc (abfd
, o
->size
);
8800 if (o
->contents
== NULL
)
8803 if (o
->flags
& SEC_LOAD
)
8805 if (o
->vma
< base_addr
)
8807 if (o
->vma
+ o
->size
> last_addr
)
8808 last_addr
= o
->vma
+ o
->size
;
8810 /* Clear the RELOC flags. Currently we don't support incremental
8811 linking. We use the RELOC flag for computing the eicp entries. */
8812 o
->flags
&= ~SEC_RELOC
;
8815 /* Create the fixup section. */
8816 fixupsec
= bfd_make_section_anyway_with_flags
8817 (info
->output_bfd
, "$FIXUP$",
8818 SEC_ALLOC
| SEC_LOAD
| SEC_HAS_CONTENTS
| SEC_LINKER_CREATED
);
8819 if (fixupsec
== NULL
)
8821 last_addr
= (last_addr
+ 0xffff) & ~0xffff;
8822 fixupsec
->vma
= last_addr
;
8824 alpha_vms_link_hash (info
)->fixup
= fixupsec
;
8825 alpha_vms_link_hash (info
)->base_addr
= base_addr
;
8827 /* Create the DMT section, if necessary. */
8828 BFD_ASSERT (PRIV (dst_section
) == NULL
);
8829 dst
= bfd_get_section_by_name (abfd
, "$DST$");
8830 if (dst
!= NULL
&& dst
->size
== 0)
8834 PRIV (dst_section
) = dst
;
8835 dmt
= bfd_make_section_anyway_with_flags
8836 (info
->output_bfd
, "$DMT$",
8837 SEC_DEBUGGING
| SEC_HAS_CONTENTS
| SEC_LINKER_CREATED
);
8844 /* Read all sections from the inputs. */
8845 for (sub
= info
->input_bfds
; sub
!= NULL
; sub
= sub
->link
.next
)
8847 if (sub
->flags
& DYNAMIC
)
8849 alpha_vms_create_eisd_for_shared (abfd
, sub
);
8853 if (!alpha_vms_read_sections_content (sub
, info
))
8857 /* Handle all the link order information for the sections.
8858 Note: past this point, it is not possible to create new sections. */
8859 for (o
= abfd
->sections
; o
!= NULL
; o
= o
->next
)
8861 for (p
= o
->map_head
.link_order
; p
!= NULL
; p
= p
->next
)
8865 case bfd_section_reloc_link_order
:
8866 case bfd_symbol_reloc_link_order
:
8869 case bfd_indirect_link_order
:
8873 if (! _bfd_default_link_order (abfd
, info
, o
, p
))
8880 /* Compute fixups. */
8881 if (!alpha_vms_build_fixups (info
))
8884 /* Compute the DMT. */
8888 unsigned char *contents
= NULL
;
8890 /* In pass 1, compute the size. In pass 2, write the DMT contents. */
8891 for (pass
= 0; pass
< 2; pass
++)
8893 unsigned int off
= 0;
8895 /* For each object file (ie for each module). */
8896 for (sub
= info
->input_bfds
; sub
!= NULL
; sub
= sub
->link
.next
)
8899 struct vms_dmt_header
*dmth
= NULL
;
8900 unsigned int psect_count
;
8902 /* Skip this module if it has no DST. */
8903 sub_dst
= PRIV2 (sub
, dst_section
);
8904 if (sub_dst
== NULL
|| sub_dst
->size
== 0)
8909 /* Write the header. */
8910 dmth
= (struct vms_dmt_header
*)(contents
+ off
);
8911 bfd_putl32 (sub_dst
->output_offset
, dmth
->modbeg
);
8912 bfd_putl32 (sub_dst
->size
, dmth
->size
);
8915 off
+= sizeof (struct vms_dmt_header
);
8918 /* For each section (ie for each psect). */
8919 for (o
= sub
->sections
; o
!= NULL
; o
= o
->next
)
8921 /* Only consider interesting sections. */
8922 if (!(o
->flags
& SEC_ALLOC
))
8924 if (o
->flags
& SEC_LINKER_CREATED
)
8929 /* Write an entry. */
8930 struct vms_dmt_psect
*dmtp
;
8932 dmtp
= (struct vms_dmt_psect
*)(contents
+ off
);
8933 bfd_putl32 (o
->output_offset
+ o
->output_section
->vma
,
8935 bfd_putl32 (o
->size
, dmtp
->length
);
8938 off
+= sizeof (struct vms_dmt_psect
);
8941 bfd_putl32 (psect_count
, dmth
->psect_count
);
8946 contents
= bfd_zalloc (info
->output_bfd
, off
);
8947 if (contents
== NULL
)
8949 dmt
->contents
= contents
;
8954 BFD_ASSERT (off
== dmt
->size
);
8962 /* Read the contents of a section.
8963 buf points to a buffer of buf_size bytes to be filled with
8964 section data (starting at offset into section) */
8967 alpha_vms_get_section_contents (bfd
*abfd
, asection
*section
,
8968 void *buf
, file_ptr offset
,
8969 bfd_size_type count
)
8973 /* Image are easy. */
8974 if (bfd_get_file_flags (abfd
) & (EXEC_P
| DYNAMIC
))
8975 return _bfd_generic_get_section_contents (abfd
, section
,
8976 buf
, offset
, count
);
8979 if (offset
+ count
< count
8980 || offset
+ count
> section
->size
)
8982 bfd_set_error (bfd_error_invalid_operation
);
8986 /* If the section is already in memory, just copy it. */
8987 if (section
->flags
& SEC_IN_MEMORY
)
8989 BFD_ASSERT (section
->contents
!= NULL
);
8990 memcpy (buf
, section
->contents
+ offset
, count
);
8993 if (section
->size
== 0)
8996 /* Alloc in memory and read ETIRs. */
8997 for (sec
= abfd
->sections
; sec
; sec
= sec
->next
)
8999 BFD_ASSERT (sec
->contents
== NULL
);
9001 if (sec
->size
!= 0 && (sec
->flags
& SEC_HAS_CONTENTS
))
9003 sec
->contents
= bfd_alloc (abfd
, sec
->size
);
9004 if (sec
->contents
== NULL
)
9008 if (!alpha_vms_read_sections_content (abfd
, NULL
))
9010 for (sec
= abfd
->sections
; sec
; sec
= sec
->next
)
9012 sec
->flags
|= SEC_IN_MEMORY
;
9013 memcpy (buf
, section
->contents
+ offset
, count
);
9018 /* Set the format of a file being written. */
9021 alpha_vms_mkobject (bfd
* abfd
)
9023 const bfd_arch_info_type
*arch
;
9025 vms_debug2 ((1, "alpha_vms_mkobject (%p)\n", abfd
));
9027 if (!vms_initialize (abfd
))
9030 PRIV (recwr
.buf
) = bfd_alloc (abfd
, MAX_OUTREC_SIZE
);
9031 if (PRIV (recwr
.buf
) == NULL
)
9034 arch
= bfd_scan_arch ("alpha");
9038 bfd_set_error (bfd_error_wrong_format
);
9042 abfd
->arch_info
= arch
;
9049 /* Called when the BFD is being closed to do any necessary cleanup. */
9052 vms_close_and_cleanup (bfd
* abfd
)
9054 vms_debug2 ((1, "vms_close_and_cleanup (%p)\n", abfd
));
9056 if (abfd
== NULL
|| abfd
->tdata
.any
== NULL
)
9059 if (abfd
->format
== bfd_archive
)
9061 bfd_release (abfd
, abfd
->tdata
.any
);
9062 abfd
->tdata
.any
= NULL
;
9066 if (PRIV (recrd
.buf
) != NULL
)
9067 free (PRIV (recrd
.buf
));
9069 if (PRIV (sections
) != NULL
)
9070 free (PRIV (sections
));
9072 bfd_release (abfd
, abfd
->tdata
.any
);
9073 abfd
->tdata
.any
= NULL
;
9076 if (abfd
->direction
== write_direction
)
9078 /* Last step on VMS is to convert the file to variable record length
9080 if (!bfd_cache_close (abfd
))
9082 if (!_bfd_vms_convert_to_var_unix_filename (abfd
->filename
))
9090 /* Called when a new section is created. */
9093 vms_new_section_hook (bfd
* abfd
, asection
*section
)
9097 vms_debug2 ((1, "vms_new_section_hook (%p, [%u]%s)\n",
9098 abfd
, section
->index
, section
->name
));
9100 if (! bfd_set_section_alignment (abfd
, section
, 0))
9103 vms_debug2 ((7, "%u: %s\n", section
->index
, section
->name
));
9105 amt
= sizeof (struct vms_section_data_struct
);
9106 section
->used_by_bfd
= bfd_zalloc (abfd
, amt
);
9107 if (section
->used_by_bfd
== NULL
)
9110 /* Create the section symbol. */
9111 return _bfd_generic_new_section_hook (abfd
, section
);
9114 /* Part 4.5, symbols. */
9116 /* Print symbol to file according to how. how is one of
9117 bfd_print_symbol_name just print the name
9118 bfd_print_symbol_more print more (???)
9119 bfd_print_symbol_all print all we know, which is not much right now :-). */
9122 vms_print_symbol (bfd
* abfd
,
9125 bfd_print_symbol_type how
)
9127 vms_debug2 ((1, "vms_print_symbol (%p, %p, %p, %d)\n",
9128 abfd
, file
, symbol
, how
));
9132 case bfd_print_symbol_name
:
9133 case bfd_print_symbol_more
:
9134 fprintf ((FILE *)file
," %s", symbol
->name
);
9137 case bfd_print_symbol_all
:
9139 const char *section_name
= symbol
->section
->name
;
9141 bfd_print_symbol_vandf (abfd
, file
, symbol
);
9143 fprintf ((FILE *) file
," %-8s %s", section_name
, symbol
->name
);
9149 /* Return information about symbol in ret.
9151 fill type, value and name
9154 B bss segment symbol
9156 D data segment symbol
9158 t a static function symbol
9159 T text segment symbol
9164 vms_get_symbol_info (bfd
* abfd ATTRIBUTE_UNUSED
,
9170 vms_debug2 ((1, "vms_get_symbol_info (%p, %p, %p)\n", abfd
, symbol
, ret
));
9172 sec
= symbol
->section
;
9179 else if (bfd_is_com_section (sec
))
9181 else if (bfd_is_abs_section (sec
))
9183 else if (bfd_is_und_section (sec
))
9185 else if (bfd_is_ind_section (sec
))
9187 else if ((symbol
->flags
& BSF_FUNCTION
)
9188 || (bfd_get_section_flags (abfd
, sec
) & SEC_CODE
))
9190 else if (bfd_get_section_flags (abfd
, sec
) & SEC_DATA
)
9192 else if (bfd_get_section_flags (abfd
, sec
) & SEC_ALLOC
)
9197 if (ret
->type
!= 'U')
9198 ret
->value
= symbol
->value
+ symbol
->section
->vma
;
9201 ret
->name
= symbol
->name
;
9204 /* Return TRUE if the given symbol sym in the BFD abfd is
9205 a compiler generated local label, else return FALSE. */
9208 vms_bfd_is_local_label_name (bfd
* abfd ATTRIBUTE_UNUSED
,
9211 return name
[0] == '$';
9214 /* Part 4.7, writing an object file. */
9216 /* Sets the contents of the section section in BFD abfd to the data starting
9217 in memory at LOCATION. The data is written to the output section starting
9218 at offset offset for count bytes.
9220 Normally TRUE is returned, else FALSE. Possible error returns are:
9221 o bfd_error_no_contents - The output section does not have the
9222 SEC_HAS_CONTENTS attribute, so nothing can be written to it.
9223 o and some more too */
9226 _bfd_vms_set_section_contents (bfd
* abfd
,
9228 const void * location
,
9230 bfd_size_type count
)
9232 if (section
->contents
== NULL
)
9234 section
->contents
= bfd_alloc (abfd
, section
->size
);
9235 if (section
->contents
== NULL
)
9238 memcpy (section
->contents
+ offset
, location
, (size_t) count
);
9244 /* Set the architecture and machine type in BFD abfd to arch and mach.
9245 Find the correct pointer to a structure and insert it into the arch_info
9249 alpha_vms_set_arch_mach (bfd
*abfd
,
9250 enum bfd_architecture arch
, unsigned long mach
)
9252 if (arch
!= bfd_arch_alpha
9253 && arch
!= bfd_arch_unknown
)
9256 return bfd_default_set_arch_mach (abfd
, arch
, mach
);
9259 /* Set section VMS flags. Clear NO_FLAGS and set FLAGS. */
9262 bfd_vms_set_section_flags (bfd
*abfd ATTRIBUTE_UNUSED
,
9263 asection
*sec
, flagword no_flags
, flagword flags
)
9265 vms_section_data (sec
)->no_flags
= no_flags
;
9266 vms_section_data (sec
)->flags
= flags
;
9269 struct vms_private_data_struct
*
9270 bfd_vms_get_data (bfd
*abfd
)
9272 return (struct vms_private_data_struct
*)abfd
->tdata
.any
;
9275 #define vms_bfd_is_target_special_symbol ((bfd_boolean (*) (bfd *, asymbol *)) bfd_false)
9276 #define vms_bfd_link_just_syms _bfd_generic_link_just_syms
9277 #define vms_bfd_copy_link_hash_symbol_type \
9278 _bfd_generic_copy_link_hash_symbol_type
9279 #define vms_bfd_is_group_section bfd_generic_is_group_section
9280 #define vms_bfd_discard_group bfd_generic_discard_group
9281 #define vms_section_already_linked _bfd_generic_section_already_linked
9282 #define vms_bfd_define_common_symbol bfd_generic_define_common_symbol
9283 #define vms_bfd_copy_private_header_data _bfd_generic_bfd_copy_private_header_data
9285 #define vms_bfd_copy_private_bfd_data _bfd_generic_bfd_copy_private_bfd_data
9286 #define vms_bfd_free_cached_info _bfd_generic_bfd_free_cached_info
9287 #define vms_bfd_copy_private_section_data _bfd_generic_bfd_copy_private_section_data
9288 #define vms_bfd_copy_private_symbol_data _bfd_generic_bfd_copy_private_symbol_data
9289 #define vms_bfd_set_private_flags _bfd_generic_bfd_set_private_flags
9290 #define vms_bfd_merge_private_bfd_data _bfd_generic_bfd_merge_private_bfd_data
9292 /* Symbols table. */
9293 #define alpha_vms_make_empty_symbol _bfd_generic_make_empty_symbol
9294 #define alpha_vms_bfd_is_target_special_symbol \
9295 ((bfd_boolean (*) (bfd *, asymbol *)) bfd_false)
9296 #define alpha_vms_print_symbol vms_print_symbol
9297 #define alpha_vms_get_symbol_info vms_get_symbol_info
9298 #define alpha_vms_get_symbol_version_string \
9299 _bfd_nosymbols_get_symbol_version_string
9301 #define alpha_vms_read_minisymbols _bfd_generic_read_minisymbols
9302 #define alpha_vms_minisymbol_to_symbol _bfd_generic_minisymbol_to_symbol
9303 #define alpha_vms_get_lineno _bfd_nosymbols_get_lineno
9304 #define alpha_vms_find_inliner_info _bfd_nosymbols_find_inliner_info
9305 #define alpha_vms_bfd_make_debug_symbol _bfd_nosymbols_bfd_make_debug_symbol
9306 #define alpha_vms_find_nearest_line _bfd_vms_find_nearest_line
9307 #define alpha_vms_find_line _bfd_nosymbols_find_line
9308 #define alpha_vms_bfd_is_local_label_name vms_bfd_is_local_label_name
9310 /* Generic table. */
9311 #define alpha_vms_close_and_cleanup vms_close_and_cleanup
9312 #define alpha_vms_bfd_free_cached_info vms_bfd_free_cached_info
9313 #define alpha_vms_new_section_hook vms_new_section_hook
9314 #define alpha_vms_set_section_contents _bfd_vms_set_section_contents
9315 #define alpha_vms_get_section_contents_in_window _bfd_generic_get_section_contents_in_window
9317 #define alpha_vms_bfd_get_relocated_section_contents \
9318 bfd_generic_get_relocated_section_contents
9320 #define alpha_vms_bfd_relax_section bfd_generic_relax_section
9321 #define alpha_vms_bfd_gc_sections bfd_generic_gc_sections
9322 #define alpha_vms_bfd_lookup_section_flags bfd_generic_lookup_section_flags
9323 #define alpha_vms_bfd_merge_sections bfd_generic_merge_sections
9324 #define alpha_vms_bfd_is_group_section bfd_generic_is_group_section
9325 #define alpha_vms_bfd_discard_group bfd_generic_discard_group
9326 #define alpha_vms_section_already_linked \
9327 _bfd_generic_section_already_linked
9329 #define alpha_vms_bfd_define_common_symbol bfd_generic_define_common_symbol
9330 #define alpha_vms_bfd_link_just_syms _bfd_generic_link_just_syms
9331 #define alpha_vms_bfd_copy_link_hash_symbol_type \
9332 _bfd_generic_copy_link_hash_symbol_type
9334 #define alpha_vms_bfd_link_split_section _bfd_generic_link_split_section
9336 #define alpha_vms_get_dynamic_symtab_upper_bound \
9337 _bfd_nodynamic_get_dynamic_symtab_upper_bound
9338 #define alpha_vms_canonicalize_dynamic_symtab \
9339 _bfd_nodynamic_canonicalize_dynamic_symtab
9340 #define alpha_vms_get_dynamic_reloc_upper_bound \
9341 _bfd_nodynamic_get_dynamic_reloc_upper_bound
9342 #define alpha_vms_canonicalize_dynamic_reloc \
9343 _bfd_nodynamic_canonicalize_dynamic_reloc
9344 #define alpha_vms_bfd_link_check_relocs _bfd_generic_link_check_relocs
9346 const bfd_target alpha_vms_vec
=
9348 "vms-alpha", /* Name. */
9349 bfd_target_evax_flavour
,
9350 BFD_ENDIAN_LITTLE
, /* Data byte order is little. */
9351 BFD_ENDIAN_LITTLE
, /* Header byte order is little. */
9353 (HAS_RELOC
| EXEC_P
| HAS_LINENO
| HAS_DEBUG
| HAS_SYMS
| HAS_LOCALS
9354 | WP_TEXT
| D_PAGED
), /* Object flags. */
9355 (SEC_ALLOC
| SEC_LOAD
| SEC_RELOC
9356 | SEC_READONLY
| SEC_CODE
| SEC_DATA
9357 | SEC_HAS_CONTENTS
| SEC_IN_MEMORY
), /* Sect flags. */
9358 0, /* symbol_leading_char. */
9359 ' ', /* ar_pad_char. */
9360 15, /* ar_max_namelen. */
9361 0, /* match priority. */
9362 bfd_getl64
, bfd_getl_signed_64
, bfd_putl64
,
9363 bfd_getl32
, bfd_getl_signed_32
, bfd_putl32
,
9364 bfd_getl16
, bfd_getl_signed_16
, bfd_putl16
,
9365 bfd_getl64
, bfd_getl_signed_64
, bfd_putl64
,
9366 bfd_getl32
, bfd_getl_signed_32
, bfd_putl32
,
9367 bfd_getl16
, bfd_getl_signed_16
, bfd_putl16
,
9369 {_bfd_dummy_target
, alpha_vms_object_p
, /* bfd_check_format. */
9370 _bfd_vms_lib_alpha_archive_p
, _bfd_dummy_target
},
9371 {bfd_false
, alpha_vms_mkobject
, /* bfd_set_format. */
9372 _bfd_vms_lib_alpha_mkarchive
, bfd_false
},
9373 {bfd_false
, alpha_vms_write_object_contents
, /* bfd_write_contents. */
9374 _bfd_vms_lib_write_archive_contents
, bfd_false
},
9376 BFD_JUMP_TABLE_GENERIC (alpha_vms
),
9377 BFD_JUMP_TABLE_COPY (vms
),
9378 BFD_JUMP_TABLE_CORE (_bfd_nocore
),
9379 BFD_JUMP_TABLE_ARCHIVE (_bfd_vms_lib
),
9380 BFD_JUMP_TABLE_SYMBOLS (alpha_vms
),
9381 BFD_JUMP_TABLE_RELOCS (alpha_vms
),
9382 BFD_JUMP_TABLE_WRITE (alpha_vms
),
9383 BFD_JUMP_TABLE_LINK (alpha_vms
),
9384 BFD_JUMP_TABLE_DYNAMIC (alpha_vms
),