1 /* vms.c -- BFD back-end for EVAX (openVMS/Alpha) files.
2 Copyright (C) 1996-2014 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 eisd
= (struct vms_eisd
*)(PRIV (recrd
.rec
) + offset
);
525 rec_size
= bfd_getl32 (eisd
->eisdsize
);
530 /* Skip to next block if pad. */
531 if (rec_size
== 0xffffffff)
533 offset
= (offset
+ VMS_BLOCK_SIZE
) & ~(VMS_BLOCK_SIZE
- 1);
539 size
= bfd_getl32 (eisd
->secsize
);
540 vaddr
= bfd_getl64 (eisd
->virt_addr
);
541 flags
= bfd_getl32 (eisd
->flags
);
542 vbn
= bfd_getl32 (eisd
->vbn
);
544 vms_debug2 ((4, "EISD at 0x%x size 0x%x addr 0x%lx flags 0x%x blk %d\n",
545 offset
, size
, (unsigned long)vaddr
, flags
, vbn
));
547 /* VMS combines psects from .obj files into isects in the .exe. This
548 process doesn't preserve enough information to reliably determine
549 what's in each section without examining the data. This is
550 especially true of DWARF debug sections. */
551 bfd_flags
= SEC_ALLOC
;
553 bfd_flags
|= SEC_HAS_CONTENTS
| SEC_LOAD
;
555 if (flags
& EISD__M_EXE
)
556 bfd_flags
|= SEC_CODE
;
558 if (flags
& EISD__M_NONSHRADR
)
559 bfd_flags
|= SEC_DATA
;
561 if (!(flags
& EISD__M_WRT
))
562 bfd_flags
|= SEC_READONLY
;
564 if (flags
& EISD__M_DZRO
)
565 bfd_flags
|= SEC_DATA
;
567 if (flags
& EISD__M_FIXUPVEC
)
568 bfd_flags
|= SEC_DATA
;
570 if (flags
& EISD__M_CRF
)
571 bfd_flags
|= SEC_DATA
;
573 if (flags
& EISD__M_GBL
)
575 name
= _bfd_vms_save_counted_string (eisd
->gblnam
);
576 bfd_flags
|= SEC_COFF_SHARED_LIBRARY
;
577 bfd_flags
&= ~(SEC_ALLOC
| SEC_LOAD
);
579 else if (flags
& EISD__M_FIXUPVEC
)
581 else if (eisd
->type
== EISD__K_USRSTACK
)
587 name
= (char*) bfd_alloc (abfd
, 32);
588 if (flags
& EISD__M_DZRO
)
590 else if (flags
& EISD__M_EXE
)
592 else if (!(flags
& EISD__M_WRT
))
596 BFD_ASSERT (section_count
< 999);
597 sprintf (name
, "$%s_%03d$", pfx
, section_count
++);
600 section
= bfd_make_section (abfd
, name
);
605 section
->filepos
= vbn
? VMS_BLOCK_SIZE
* (vbn
- 1) : 0;
606 section
->size
= size
;
607 section
->vma
= vaddr
;
609 if (!bfd_set_section_flags (abfd
, section
, bfd_flags
))
616 /* Read & process EIHS record.
617 Return TRUE on success, FALSE on error. */
620 _bfd_vms_slurp_eihs (bfd
*abfd
, unsigned int offset
)
622 unsigned char *p
= PRIV (recrd
.rec
) + offset
;
623 unsigned int gstvbn
= bfd_getl32 (p
+ EIHS__L_GSTVBN
);
624 unsigned int gstsize ATTRIBUTE_UNUSED
= bfd_getl32 (p
+ EIHS__L_GSTSIZE
);
625 unsigned int dstvbn
= bfd_getl32 (p
+ EIHS__L_DSTVBN
);
626 unsigned int dstsize
= bfd_getl32 (p
+ EIHS__L_DSTSIZE
);
627 unsigned int dmtvbn
= bfd_getl32 (p
+ EIHS__L_DMTVBN
);
628 unsigned int dmtbytes
= bfd_getl32 (p
+ EIHS__L_DMTBYTES
);
632 vms_debug (8, "_bfd_vms_slurp_ihs\n");
633 vms_debug (4, "EIHS record gstvbn %d gstsize %d dstvbn %d dstsize %d dmtvbn %d dmtbytes %d\n",
634 gstvbn
, gstsize
, dstvbn
, dstsize
, dmtvbn
, dmtbytes
);
639 flagword bfd_flags
= SEC_HAS_CONTENTS
| SEC_DEBUGGING
;
641 section
= bfd_make_section (abfd
, "$DST$");
645 section
->size
= dstsize
;
646 section
->filepos
= VMS_BLOCK_SIZE
* (dstvbn
- 1);
648 if (!bfd_set_section_flags (abfd
, section
, bfd_flags
))
651 PRIV (dst_section
) = section
;
652 abfd
->flags
|= (HAS_DEBUG
| HAS_LINENO
);
657 flagword bfd_flags
= SEC_HAS_CONTENTS
| SEC_DEBUGGING
;
659 section
= bfd_make_section (abfd
, "$DMT$");
663 section
->size
= dmtbytes
;
664 section
->filepos
= VMS_BLOCK_SIZE
* (dmtvbn
- 1);
666 if (!bfd_set_section_flags (abfd
, section
, bfd_flags
))
672 if (bfd_seek (abfd
, VMS_BLOCK_SIZE
* (gstvbn
- 1), SEEK_SET
))
674 bfd_set_error (bfd_error_file_truncated
);
678 if (_bfd_vms_slurp_object_records (abfd
) != TRUE
)
681 abfd
->flags
|= HAS_SYMS
;
687 /* Object file reading. */
689 /* Object file input functions. */
691 /* Get next record from object file to vms_buf.
692 Set PRIV(buf_size) and return it
694 This is a little tricky since it should be portable.
696 The openVMS object file has 'variable length' which means that
697 read() returns data in chunks of (hopefully) correct and expected
698 size. The linker (and other tools on VMS) depend on that. Unix
699 doesn't know about 'formatted' files, so reading and writing such
700 an object file in a Unix environment is not trivial.
702 With the tool 'file' (available on all VMS FTP sites), one
703 can view and change the attributes of a file. Changing from
704 'variable length' to 'fixed length, 512 bytes' reveals the
705 record size at the first 2 bytes of every record. The same
706 may happen during the transfer of object files from VMS to Unix,
707 at least with UCX, the DEC implementation of TCP/IP.
709 The VMS format repeats the size at bytes 2 & 3 of every record.
711 On the first call (file_format == FF_UNKNOWN) we check if
712 the first and the third byte pair (!) of the record match.
713 If they do it's an object file in an Unix environment or with
714 wrong attributes (FF_FOREIGN), else we should be in a VMS
715 environment where read() returns the record size (FF_NATIVE).
717 Reading is always done in 2 steps:
718 1. first just the record header is read and the size extracted,
719 2. then the read buffer is adjusted and the remaining bytes are
722 All file I/O is done on even file positions. */
724 #define VMS_OBJECT_ADJUSTMENT 2
727 maybe_adjust_record_pointer_for_object (bfd
*abfd
)
729 /* Set the file format once for all on the first invocation. */
730 if (PRIV (recrd
.file_format
) == FF_UNKNOWN
)
732 if (PRIV (recrd
.rec
)[0] == PRIV (recrd
.rec
)[4]
733 && PRIV (recrd
.rec
)[1] == PRIV (recrd
.rec
)[5])
734 PRIV (recrd
.file_format
) = FF_FOREIGN
;
736 PRIV (recrd
.file_format
) = FF_NATIVE
;
739 /* The adjustment is needed only in an Unix environment. */
740 if (PRIV (recrd
.file_format
) == FF_FOREIGN
)
741 PRIV (recrd
.rec
) += VMS_OBJECT_ADJUSTMENT
;
744 /* Implement step #1 of the object record reading procedure.
745 Return the record type or -1 on failure. */
748 _bfd_vms_get_object_record (bfd
*abfd
)
750 unsigned int test_len
= 6;
753 vms_debug2 ((8, "_bfd_vms_get_obj_record\n"));
755 /* Skip alignment byte if the current position is odd. */
756 if (PRIV (recrd
.file_format
) == FF_FOREIGN
&& (bfd_tell (abfd
) & 1))
758 if (bfd_bread (PRIV (recrd
.buf
), 1, abfd
) != 1)
760 bfd_set_error (bfd_error_file_truncated
);
765 /* Read the record header */
766 if (bfd_bread (PRIV (recrd
.buf
), test_len
, abfd
) != test_len
)
768 bfd_set_error (bfd_error_file_truncated
);
772 /* Reset the record pointer. */
773 PRIV (recrd
.rec
) = PRIV (recrd
.buf
);
774 maybe_adjust_record_pointer_for_object (abfd
);
776 if (vms_get_remaining_object_record (abfd
, test_len
) <= 0)
779 type
= bfd_getl16 (PRIV (recrd
.rec
));
781 vms_debug2 ((8, "_bfd_vms_get_obj_record: rec %p, size %d, type %d\n",
782 PRIV (recrd
.rec
), PRIV (recrd
.rec_size
), type
));
787 /* Implement step #2 of the object record reading procedure.
788 Return the size of the record or 0 on failure. */
791 vms_get_remaining_object_record (bfd
*abfd
, unsigned int read_so_far
)
793 unsigned int to_read
;
795 vms_debug2 ((8, "vms_get_remaining_obj_record\n"));
797 /* Extract record size. */
798 PRIV (recrd
.rec_size
) = bfd_getl16 (PRIV (recrd
.rec
) + 2);
800 if (PRIV (recrd
.rec_size
) == 0)
802 bfd_set_error (bfd_error_file_truncated
);
806 /* That's what the linker manual says. */
807 if (PRIV (recrd
.rec_size
) > EOBJ__C_MAXRECSIZ
)
809 bfd_set_error (bfd_error_file_truncated
);
813 /* Take into account object adjustment. */
814 to_read
= PRIV (recrd
.rec_size
);
815 if (PRIV (recrd
.file_format
) == FF_FOREIGN
)
816 to_read
+= VMS_OBJECT_ADJUSTMENT
;
818 /* Adjust the buffer. */
819 if (to_read
> PRIV (recrd
.buf_size
))
822 = (unsigned char *) bfd_realloc (PRIV (recrd
.buf
), to_read
);
823 if (PRIV (recrd
.buf
) == NULL
)
825 PRIV (recrd
.buf_size
) = to_read
;
827 /* PR 17512: file: 025-1974-0.004. */
828 else if (to_read
<= read_so_far
)
831 /* Read the remaining record. */
832 to_read
-= read_so_far
;
834 vms_debug2 ((8, "vms_get_remaining_obj_record: to_read %d\n", to_read
));
836 if (bfd_bread (PRIV (recrd
.buf
) + read_so_far
, to_read
, abfd
) != to_read
)
838 bfd_set_error (bfd_error_file_truncated
);
842 /* Reset the record pointer. */
843 PRIV (recrd
.rec
) = PRIV (recrd
.buf
);
844 maybe_adjust_record_pointer_for_object (abfd
);
846 vms_debug2 ((8, "vms_get_remaining_obj_record: size %d\n",
847 PRIV (recrd
.rec_size
)));
849 return PRIV (recrd
.rec_size
);
852 /* Read and process emh record.
853 Return TRUE on success, FALSE on error. */
856 _bfd_vms_slurp_ehdr (bfd
*abfd
)
859 unsigned char *vms_rec
;
862 vms_rec
= PRIV (recrd
.rec
);
864 vms_debug2 ((2, "HDR/EMH\n"));
866 subtype
= bfd_getl16 (vms_rec
+ 4);
868 vms_debug2 ((3, "subtype %d\n", subtype
));
874 PRIV (hdr_data
).hdr_b_strlvl
= vms_rec
[6];
875 PRIV (hdr_data
).hdr_l_arch1
= bfd_getl32 (vms_rec
+ 8);
876 PRIV (hdr_data
).hdr_l_arch2
= bfd_getl32 (vms_rec
+ 12);
877 PRIV (hdr_data
).hdr_l_recsiz
= bfd_getl32 (vms_rec
+ 16);
878 PRIV (hdr_data
).hdr_t_name
= _bfd_vms_save_counted_string (vms_rec
+ 20);
879 ptr
= vms_rec
+ 20 + vms_rec
[20] + 1;
880 PRIV (hdr_data
).hdr_t_version
=_bfd_vms_save_counted_string (ptr
);
882 PRIV (hdr_data
).hdr_t_date
= _bfd_vms_save_sized_string (ptr
, 17);
886 PRIV (hdr_data
).hdr_c_lnm
=
887 _bfd_vms_save_sized_string (vms_rec
, PRIV (recrd
.rec_size
- 6));
891 PRIV (hdr_data
).hdr_c_src
=
892 _bfd_vms_save_sized_string (vms_rec
, PRIV (recrd
.rec_size
- 6));
896 PRIV (hdr_data
).hdr_c_ttl
=
897 _bfd_vms_save_sized_string (vms_rec
, PRIV (recrd
.rec_size
- 6));
906 bfd_set_error (bfd_error_wrong_format
);
913 /* Typical sections for evax object files. */
915 #define EVAX_ABS_NAME "$ABS$"
916 #define EVAX_CODE_NAME "$CODE$"
917 #define EVAX_LINK_NAME "$LINK$"
918 #define EVAX_DATA_NAME "$DATA$"
919 #define EVAX_BSS_NAME "$BSS$"
920 #define EVAX_READONLYADDR_NAME "$READONLY_ADDR$"
921 #define EVAX_READONLY_NAME "$READONLY$"
922 #define EVAX_LITERAL_NAME "$LITERAL$"
923 #define EVAX_LITERALS_NAME "$LITERALS"
924 #define EVAX_COMMON_NAME "$COMMON$"
925 #define EVAX_LOCAL_NAME "$LOCAL$"
927 struct sec_flags_struct
929 const char *name
; /* Name of section. */
931 flagword flags_always
; /* Flags we set always. */
933 flagword flags_hassize
; /* Flags we set if the section has a size > 0. */
936 /* These flags are deccrtl/vaxcrtl (openVMS 6.2 Alpha) compatible. */
938 static const struct sec_flags_struct evax_section_flags
[] =
946 EGPS__V_PIC
| EGPS__V_REL
| EGPS__V_SHR
| EGPS__V_EXE
,
947 SEC_CODE
| SEC_READONLY
,
948 EGPS__V_PIC
| EGPS__V_REL
| EGPS__V_SHR
| EGPS__V_EXE
,
949 SEC_CODE
| SEC_READONLY
| SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_LOAD
},
951 EGPS__V_PIC
| EGPS__V_REL
| EGPS__V_SHR
| EGPS__V_RD
| EGPS__V_NOMOD
,
952 SEC_DATA
| SEC_READONLY
,
953 EGPS__V_PIC
| EGPS__V_REL
| EGPS__V_SHR
| EGPS__V_RD
,
954 SEC_DATA
| SEC_READONLY
| SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_LOAD
},
956 EGPS__V_REL
| EGPS__V_RD
,
957 SEC_DATA
| SEC_READONLY
,
958 EGPS__V_REL
| EGPS__V_RD
,
959 SEC_DATA
| SEC_READONLY
| SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_LOAD
},
961 EGPS__V_REL
| EGPS__V_RD
| EGPS__V_WRT
| EGPS__V_NOMOD
,
963 EGPS__V_REL
| EGPS__V_RD
| EGPS__V_WRT
,
964 SEC_DATA
| SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_LOAD
},
966 EGPS__V_REL
| EGPS__V_RD
| EGPS__V_WRT
| EGPS__V_NOMOD
,
968 EGPS__V_REL
| EGPS__V_RD
| EGPS__V_WRT
| EGPS__V_NOMOD
,
970 { EVAX_READONLYADDR_NAME
,
971 EGPS__V_PIC
| EGPS__V_REL
| EGPS__V_RD
,
972 SEC_DATA
| SEC_READONLY
,
973 EGPS__V_PIC
| EGPS__V_REL
| EGPS__V_RD
,
974 SEC_DATA
| SEC_READONLY
| SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_LOAD
},
975 { EVAX_READONLY_NAME
,
976 EGPS__V_PIC
| EGPS__V_REL
| EGPS__V_SHR
| EGPS__V_RD
| EGPS__V_NOMOD
,
977 SEC_DATA
| SEC_READONLY
,
978 EGPS__V_PIC
| EGPS__V_REL
| EGPS__V_SHR
| 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
,
983 EGPS__V_REL
| EGPS__V_RD
| EGPS__V_WRT
,
984 SEC_DATA
| SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_LOAD
},
985 { EVAX_LITERALS_NAME
,
986 EGPS__V_PIC
| EGPS__V_OVR
,
987 SEC_DATA
| SEC_READONLY
,
988 EGPS__V_PIC
| EGPS__V_OVR
,
989 SEC_DATA
| SEC_READONLY
| SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_LOAD
},
991 EGPS__V_REL
| EGPS__V_RD
| EGPS__V_WRT
,
993 EGPS__V_REL
| EGPS__V_RD
| EGPS__V_WRT
,
994 SEC_DATA
| SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_LOAD
}
997 /* Retrieve BFD section flags by name and size. */
1000 vms_secflag_by_name (const struct sec_flags_struct
*section_flags
,
1006 while (section_flags
[i
].name
!= NULL
)
1008 if (strcmp (name
, section_flags
[i
].name
) == 0)
1011 return section_flags
[i
].flags_hassize
;
1013 return section_flags
[i
].flags_always
;
1018 return section_flags
[i
].flags_hassize
;
1019 return section_flags
[i
].flags_always
;
1022 /* Retrieve VMS section flags by name and size. */
1025 vms_esecflag_by_name (const struct sec_flags_struct
*section_flags
,
1031 while (section_flags
[i
].name
!= NULL
)
1033 if (strcmp (name
, section_flags
[i
].name
) == 0)
1036 return section_flags
[i
].vflags_hassize
;
1038 return section_flags
[i
].vflags_always
;
1043 return section_flags
[i
].vflags_hassize
;
1044 return section_flags
[i
].vflags_always
;
1047 /* Add SYM to the symbol table of ABFD.
1048 Return FALSE in case of error. */
1051 add_symbol_entry (bfd
*abfd
, struct vms_symbol_entry
*sym
)
1053 if (PRIV (gsd_sym_count
) >= PRIV (max_sym_count
))
1055 if (PRIV (max_sym_count
) == 0)
1057 PRIV (max_sym_count
) = 128;
1058 PRIV (syms
) = bfd_malloc
1059 (PRIV (max_sym_count
) * sizeof (struct vms_symbol_entry
*));
1063 PRIV (max_sym_count
) *= 2;
1064 PRIV (syms
) = bfd_realloc
1066 (PRIV (max_sym_count
) * sizeof (struct vms_symbol_entry
*)));
1068 if (PRIV (syms
) == NULL
)
1072 PRIV (syms
)[PRIV (gsd_sym_count
)++] = sym
;
1076 /* Create a symbol whose name is ASCIC and add it to ABFD.
1077 Return NULL in case of error. */
1079 static struct vms_symbol_entry
*
1080 add_symbol (bfd
*abfd
, const unsigned char *ascic
)
1082 struct vms_symbol_entry
*entry
;
1086 entry
= (struct vms_symbol_entry
*)bfd_zalloc (abfd
, sizeof (*entry
) + len
);
1089 entry
->namelen
= len
;
1090 memcpy (entry
->name
, ascic
, len
);
1091 entry
->name
[len
] = 0;
1092 entry
->owner
= abfd
;
1094 if (!add_symbol_entry (abfd
, entry
))
1099 /* Read and process EGSD. Return FALSE on failure. */
1102 _bfd_vms_slurp_egsd (bfd
*abfd
)
1104 int gsd_type
, gsd_size
;
1105 unsigned char *vms_rec
;
1106 unsigned long base_addr
;
1108 vms_debug2 ((2, "EGSD\n"));
1110 PRIV (recrd
.rec
) += 8; /* Skip type, size, align pad. */
1111 PRIV (recrd
.rec_size
) -= 8;
1113 /* Calculate base address for each section. */
1116 while (PRIV (recrd
.rec_size
) > 0)
1118 vms_rec
= PRIV (recrd
.rec
);
1120 gsd_type
= bfd_getl16 (vms_rec
);
1121 gsd_size
= bfd_getl16 (vms_rec
+ 2);
1123 vms_debug2 ((3, "egsd_type %d\n", gsd_type
));
1128 /* Program section definition. */
1130 struct vms_egps
*egps
= (struct vms_egps
*)vms_rec
;
1131 flagword new_flags
, vms_flags
;
1134 vms_flags
= bfd_getl16 (egps
->flags
);
1136 if ((vms_flags
& EGPS__V_REL
) == 0)
1138 /* Use the global absolute section for all
1139 absolute sections. */
1140 section
= bfd_abs_section_ptr
;
1145 unsigned long align_addr
;
1147 name
= _bfd_vms_save_counted_string (&egps
->namlng
);
1149 section
= bfd_make_section (abfd
, name
);
1153 section
->filepos
= 0;
1154 section
->size
= bfd_getl32 (egps
->alloc
);
1155 section
->alignment_power
= egps
->align
;
1157 vms_section_data (section
)->flags
= vms_flags
;
1158 vms_section_data (section
)->no_flags
= 0;
1160 new_flags
= vms_secflag_by_name (evax_section_flags
, name
,
1162 if (section
->size
> 0)
1163 new_flags
|= SEC_LOAD
;
1164 if (!(vms_flags
& EGPS__V_NOMOD
) && section
->size
> 0)
1166 /* Set RELOC and HAS_CONTENTS if the section is not
1167 demand-zero and not empty. */
1168 new_flags
|= SEC_HAS_CONTENTS
;
1169 if (vms_flags
& EGPS__V_REL
)
1170 new_flags
|= SEC_RELOC
;
1172 if (vms_flags
& EGPS__V_EXE
)
1174 /* Set CODE if section is executable. */
1175 new_flags
|= SEC_CODE
;
1176 new_flags
&= ~SEC_DATA
;
1178 if (!bfd_set_section_flags (abfd
, section
, new_flags
))
1181 /* Give a non-overlapping vma to non absolute sections. */
1182 align_addr
= (1 << section
->alignment_power
);
1183 if ((base_addr
% align_addr
) != 0)
1184 base_addr
+= (align_addr
- (base_addr
% align_addr
));
1185 section
->vma
= (bfd_vma
)base_addr
;
1186 base_addr
+= section
->size
;
1189 /* Append it to the section array. */
1190 if (PRIV (section_count
) >= PRIV (section_max
))
1192 if (PRIV (section_max
) == 0)
1193 PRIV (section_max
) = 16;
1195 PRIV (section_max
) *= 2;
1196 PRIV (sections
) = bfd_realloc_or_free
1197 (PRIV (sections
), PRIV (section_max
) * sizeof (asection
*));
1198 if (PRIV (sections
) == NULL
)
1202 PRIV (sections
)[PRIV (section_count
)] = section
;
1203 PRIV (section_count
)++;
1210 struct vms_symbol_entry
*entry
;
1211 struct vms_egsy
*egsy
= (struct vms_egsy
*) vms_rec
;
1214 old_flags
= bfd_getl16 (egsy
->flags
);
1215 if (old_flags
& EGSY__V_DEF
)
1216 nameoff
= ESDF__B_NAMLNG
;
1218 nameoff
= ESRF__B_NAMLNG
;
1220 entry
= add_symbol (abfd
, vms_rec
+ nameoff
);
1224 /* Allow only duplicate reference. */
1225 if ((entry
->flags
& EGSY__V_DEF
) && (old_flags
& EGSY__V_DEF
))
1228 if (entry
->typ
== 0)
1230 entry
->typ
= gsd_type
;
1231 entry
->data_type
= egsy
->datyp
;
1232 entry
->flags
= old_flags
;
1235 if (old_flags
& EGSY__V_DEF
)
1237 struct vms_esdf
*esdf
= (struct vms_esdf
*)vms_rec
;
1239 entry
->value
= bfd_getl64 (esdf
->value
);
1240 entry
->section
= PRIV (sections
)[bfd_getl32 (esdf
->psindx
)];
1242 if (old_flags
& EGSY__V_NORM
)
1244 PRIV (norm_sym_count
)++;
1246 entry
->code_value
= bfd_getl64 (esdf
->code_address
);
1247 entry
->code_section
=
1248 PRIV (sections
)[bfd_getl32 (esdf
->ca_psindx
)];
1256 struct vms_symbol_entry
*entry
;
1257 struct vms_egst
*egst
= (struct vms_egst
*)vms_rec
;
1260 old_flags
= bfd_getl16 (egst
->header
.flags
);
1262 entry
= add_symbol (abfd
, &egst
->namlng
);
1267 entry
->typ
= gsd_type
;
1268 entry
->data_type
= egst
->header
.datyp
;
1269 entry
->flags
= old_flags
;
1271 entry
->symbol_vector
= bfd_getl32 (egst
->value
);
1273 if (old_flags
& EGSY__V_REL
)
1274 entry
->section
= PRIV (sections
)[bfd_getl32 (egst
->psindx
)];
1276 entry
->section
= bfd_abs_section_ptr
;
1278 entry
->value
= bfd_getl64 (egst
->lp_2
);
1280 if (old_flags
& EGSY__V_NORM
)
1282 PRIV (norm_sym_count
)++;
1284 entry
->code_value
= bfd_getl64 (egst
->lp_1
);
1285 entry
->code_section
= bfd_abs_section_ptr
;
1292 /* Currently ignored. */
1297 (*_bfd_error_handler
) (_("Unknown EGSD subtype %d"), gsd_type
);
1298 bfd_set_error (bfd_error_bad_value
);
1302 PRIV (recrd
.rec_size
) -= gsd_size
;
1303 PRIV (recrd
.rec
) += gsd_size
;
1306 if (PRIV (gsd_sym_count
) > 0)
1307 abfd
->flags
|= HAS_SYMS
;
1312 /* Stack routines for vms ETIR commands. */
1314 /* Push value and section index. */
1317 _bfd_vms_push (bfd
*abfd
, bfd_vma val
, unsigned int reloc
)
1319 vms_debug2 ((4, "<push %08lx (0x%08x) at %d>\n",
1320 (unsigned long)val
, reloc
, PRIV (stackptr
)));
1322 PRIV (stack
[PRIV (stackptr
)]).value
= val
;
1323 PRIV (stack
[PRIV (stackptr
)]).reloc
= reloc
;
1325 if (PRIV (stackptr
) >= STACKSIZE
)
1327 bfd_set_error (bfd_error_bad_value
);
1328 (*_bfd_error_handler
) (_("Stack overflow (%d) in _bfd_vms_push"), PRIV (stackptr
));
1333 /* Pop value and section index. */
1336 _bfd_vms_pop (bfd
*abfd
, bfd_vma
*val
, unsigned int *rel
)
1338 if (PRIV (stackptr
) == 0)
1340 bfd_set_error (bfd_error_bad_value
);
1341 (*_bfd_error_handler
) (_("Stack underflow in _bfd_vms_pop"));
1345 *val
= PRIV (stack
[PRIV (stackptr
)]).value
;
1346 *rel
= PRIV (stack
[PRIV (stackptr
)]).reloc
;
1348 vms_debug2 ((4, "<pop %08lx (0x%08x)>\n", (unsigned long)*val
, *rel
));
1351 /* Routines to fill sections contents during tir/etir read. */
1353 /* Initialize image buffer pointer to be filled. */
1356 image_set_ptr (bfd
*abfd
, bfd_vma vma
, int sect
, struct bfd_link_info
*info
)
1360 vms_debug2 ((4, "image_set_ptr (0x%08x, sect=%d)\n", (unsigned)vma
, sect
));
1362 sec
= PRIV (sections
)[sect
];
1366 /* Reading contents to an output bfd. */
1368 if (sec
->output_section
== NULL
)
1370 /* Section discarded. */
1371 vms_debug2 ((5, " section %s discarded\n", sec
->name
));
1373 /* This is not used. */
1374 PRIV (image_section
) = NULL
;
1375 PRIV (image_offset
) = 0;
1378 PRIV (image_offset
) = sec
->output_offset
+ vma
;
1379 PRIV (image_section
) = sec
->output_section
;
1383 PRIV (image_offset
) = vma
;
1384 PRIV (image_section
) = sec
;
1388 /* Increment image buffer pointer by offset. */
1391 image_inc_ptr (bfd
*abfd
, bfd_vma offset
)
1393 vms_debug2 ((4, "image_inc_ptr (%u)\n", (unsigned)offset
));
1395 PRIV (image_offset
) += offset
;
1398 /* Save current DST location counter under specified index. */
1401 dst_define_location (bfd
*abfd
, unsigned int loc
)
1403 vms_debug2 ((4, "dst_define_location (%d)\n", (int)loc
));
1405 /* Grow the ptr offset table if necessary. */
1406 if (loc
+ 1 > PRIV (dst_ptr_offsets_count
))
1408 PRIV (dst_ptr_offsets
) = bfd_realloc (PRIV (dst_ptr_offsets
),
1409 (loc
+ 1) * sizeof (unsigned int));
1410 PRIV (dst_ptr_offsets_count
) = loc
+ 1;
1413 PRIV (dst_ptr_offsets
)[loc
] = PRIV (image_offset
);
1416 /* Restore saved DST location counter from specified index. */
1419 dst_restore_location (bfd
*abfd
, unsigned int loc
)
1421 vms_debug2 ((4, "dst_restore_location (%d)\n", (int)loc
));
1423 PRIV (image_offset
) = PRIV (dst_ptr_offsets
)[loc
];
1426 /* Retrieve saved DST location counter from specified index. */
1429 dst_retrieve_location (bfd
*abfd
, unsigned int loc
)
1431 vms_debug2 ((4, "dst_retrieve_location (%d)\n", (int)loc
));
1433 return PRIV (dst_ptr_offsets
)[loc
];
1436 /* Write multiple bytes to section image. */
1439 image_write (bfd
*abfd
, unsigned char *ptr
, int size
)
1442 _bfd_vms_debug (8, "image_write from (%p, %d) to (%ld)\n", ptr
, size
,
1443 (long)PRIV (image_offset
));
1444 _bfd_hexdump (9, ptr
, size
, 0);
1447 if (PRIV (image_section
)->contents
!= NULL
)
1449 asection
*sec
= PRIV (image_section
);
1450 file_ptr off
= PRIV (image_offset
);
1453 if (off
> (file_ptr
)sec
->size
1454 || size
> (file_ptr
)sec
->size
1455 || off
+ size
> (file_ptr
)sec
->size
)
1457 bfd_set_error (bfd_error_bad_value
);
1461 memcpy (sec
->contents
+ off
, ptr
, size
);
1464 PRIV (image_offset
) += size
;
1468 /* Write byte to section image. */
1471 image_write_b (bfd
* abfd
, unsigned int value
)
1473 unsigned char data
[1];
1475 vms_debug2 ((6, "image_write_b (%02x)\n", (int) value
));
1479 return image_write (abfd
, data
, sizeof (data
));
1482 /* Write 2-byte word to image. */
1485 image_write_w (bfd
* abfd
, unsigned int value
)
1487 unsigned char data
[2];
1489 vms_debug2 ((6, "image_write_w (%04x)\n", (int) value
));
1491 bfd_putl16 (value
, data
);
1492 return image_write (abfd
, data
, sizeof (data
));
1495 /* Write 4-byte long to image. */
1498 image_write_l (bfd
* abfd
, unsigned long value
)
1500 unsigned char data
[4];
1502 vms_debug2 ((6, "image_write_l (%08lx)\n", value
));
1504 bfd_putl32 (value
, data
);
1505 return image_write (abfd
, data
, sizeof (data
));
1508 /* Write 8-byte quad to image. */
1511 image_write_q (bfd
* abfd
, bfd_vma value
)
1513 unsigned char data
[8];
1515 vms_debug2 ((6, "image_write_q (%08lx)\n", (unsigned long)value
));
1517 bfd_putl64 (value
, data
);
1518 return image_write (abfd
, data
, sizeof (data
));
1522 _bfd_vms_etir_name (int cmd
)
1526 case ETIR__C_STA_GBL
: return "ETIR__C_STA_GBL";
1527 case ETIR__C_STA_LW
: return "ETIR__C_STA_LW";
1528 case ETIR__C_STA_QW
: return "ETIR__C_STA_QW";
1529 case ETIR__C_STA_PQ
: return "ETIR__C_STA_PQ";
1530 case ETIR__C_STA_LI
: return "ETIR__C_STA_LI";
1531 case ETIR__C_STA_MOD
: return "ETIR__C_STA_MOD";
1532 case ETIR__C_STA_CKARG
: return "ETIR__C_STA_CKARG";
1533 case ETIR__C_STO_B
: return "ETIR__C_STO_B";
1534 case ETIR__C_STO_W
: return "ETIR__C_STO_W";
1535 case ETIR__C_STO_GBL
: return "ETIR__C_STO_GBL";
1536 case ETIR__C_STO_CA
: return "ETIR__C_STO_CA";
1537 case ETIR__C_STO_RB
: return "ETIR__C_STO_RB";
1538 case ETIR__C_STO_AB
: return "ETIR__C_STO_AB";
1539 case ETIR__C_STO_OFF
: return "ETIR__C_STO_OFF";
1540 case ETIR__C_STO_IMM
: return "ETIR__C_STO_IMM";
1541 case ETIR__C_STO_IMMR
: return "ETIR__C_STO_IMMR";
1542 case ETIR__C_STO_LW
: return "ETIR__C_STO_LW";
1543 case ETIR__C_STO_QW
: return "ETIR__C_STO_QW";
1544 case ETIR__C_STO_GBL_LW
: return "ETIR__C_STO_GBL_LW";
1545 case ETIR__C_STO_LP_PSB
: return "ETIR__C_STO_LP_PSB";
1546 case ETIR__C_STO_HINT_GBL
: return "ETIR__C_STO_HINT_GBL";
1547 case ETIR__C_STO_HINT_PS
: return "ETIR__C_STO_HINT_PS";
1548 case ETIR__C_OPR_ADD
: return "ETIR__C_OPR_ADD";
1549 case ETIR__C_OPR_SUB
: return "ETIR__C_OPR_SUB";
1550 case ETIR__C_OPR_INSV
: return "ETIR__C_OPR_INSV";
1551 case ETIR__C_OPR_USH
: return "ETIR__C_OPR_USH";
1552 case ETIR__C_OPR_ROT
: return "ETIR__C_OPR_ROT";
1553 case ETIR__C_OPR_REDEF
: return "ETIR__C_OPR_REDEF";
1554 case ETIR__C_OPR_DFLIT
: return "ETIR__C_OPR_DFLIT";
1555 case ETIR__C_STC_LP
: return "ETIR__C_STC_LP";
1556 case ETIR__C_STC_GBL
: return "ETIR__C_STC_GBL";
1557 case ETIR__C_STC_GCA
: return "ETIR__C_STC_GCA";
1558 case ETIR__C_STC_PS
: return "ETIR__C_STC_PS";
1559 case ETIR__C_STC_NBH_PS
: return "ETIR__C_STC_NBH_PS";
1560 case ETIR__C_STC_NOP_GBL
: return "ETIR__C_STC_NOP_GBL";
1561 case ETIR__C_STC_NOP_PS
: return "ETIR__C_STC_NOP_PS";
1562 case ETIR__C_STC_BSR_GBL
: return "ETIR__C_STC_BSR_GBL";
1563 case ETIR__C_STC_BSR_PS
: return "ETIR__C_STC_BSR_PS";
1564 case ETIR__C_STC_LDA_GBL
: return "ETIR__C_STC_LDA_GBL";
1565 case ETIR__C_STC_LDA_PS
: return "ETIR__C_STC_LDA_PS";
1566 case ETIR__C_STC_BOH_GBL
: return "ETIR__C_STC_BOH_GBL";
1567 case ETIR__C_STC_BOH_PS
: return "ETIR__C_STC_BOH_PS";
1568 case ETIR__C_STC_NBH_GBL
: return "ETIR__C_STC_NBH_GBL";
1569 case ETIR__C_STC_LP_PSB
: return "ETIR__C_STC_LP_PSB";
1570 case ETIR__C_CTL_SETRB
: return "ETIR__C_CTL_SETRB";
1571 case ETIR__C_CTL_AUGRB
: return "ETIR__C_CTL_AUGRB";
1572 case ETIR__C_CTL_DFLOC
: return "ETIR__C_CTL_DFLOC";
1573 case ETIR__C_CTL_STLOC
: return "ETIR__C_CTL_STLOC";
1574 case ETIR__C_CTL_STKDL
: return "ETIR__C_CTL_STKDL";
1577 /* These names have not yet been added to this switch statement. */
1578 (*_bfd_error_handler
) (_("unknown ETIR command %d"), cmd
);
1583 #define HIGHBIT(op) ((op & 0x80000000L) == 0x80000000L)
1586 _bfd_vms_get_value (bfd
*abfd
, const unsigned char *ascic
,
1587 struct bfd_link_info
*info
,
1589 struct alpha_vms_link_hash_entry
**hp
)
1594 struct alpha_vms_link_hash_entry
*h
;
1596 /* Not linking. Do not try to resolve the symbol. */
1605 for (i
= 0; i
< len
; i
++)
1606 name
[i
] = ascic
[i
+ 1];
1609 h
= (struct alpha_vms_link_hash_entry
*)
1610 bfd_link_hash_lookup (info
->hash
, name
, FALSE
, FALSE
, TRUE
);
1615 && (h
->root
.type
== bfd_link_hash_defined
1616 || h
->root
.type
== bfd_link_hash_defweak
))
1617 *vma
= h
->root
.u
.def
.value
1618 + h
->root
.u
.def
.section
->output_offset
1619 + h
->root
.u
.def
.section
->output_section
->vma
;
1620 else if (h
&& h
->root
.type
== bfd_link_hash_undefweak
)
1624 if (!(*info
->callbacks
->undefined_symbol
)
1625 (info
, name
, abfd
, PRIV (image_section
), PRIV (image_offset
), TRUE
))
1633 #define RELC_SHR_BASE 0x10000
1634 #define RELC_SEC_BASE 0x20000
1635 #define RELC_MASK 0x0ffff
1638 alpha_vms_sym_to_ctxt (struct alpha_vms_link_hash_entry
*h
)
1640 /* Handle undefined symbols. */
1641 if (h
== NULL
|| h
->sym
== NULL
)
1644 if (h
->sym
->typ
== EGSD__C_SYMG
)
1646 if (h
->sym
->flags
& EGSY__V_REL
)
1647 return RELC_SHR_BASE
+ PRIV2 (h
->sym
->owner
, shr_index
);
1650 /* Can this happen (non-relocatable symg) ? I'd like to see
1655 if (h
->sym
->typ
== EGSD__C_SYM
)
1657 if (h
->sym
->flags
& EGSY__V_REL
)
1666 alpha_vms_get_sym_value (asection
*sect
, bfd_vma addr
)
1668 return sect
->output_section
->vma
+ sect
->output_offset
+ addr
;
1672 alpha_vms_fix_sec_rel (bfd
*abfd
, struct bfd_link_info
*info
,
1673 unsigned int rel
, bfd_vma vma
)
1675 asection
*sec
= PRIV (sections
)[rel
& RELC_MASK
];
1679 if (sec
->output_section
== NULL
)
1681 return vma
+ sec
->output_section
->vma
+ sec
->output_offset
;
1684 return vma
+ sec
->vma
;
1687 /* Read an ETIR record from ABFD. If INFO is not null, put the content into
1688 the output section (used during linking).
1689 Return FALSE in case of error. */
1692 _bfd_vms_slurp_etir (bfd
*abfd
, struct bfd_link_info
*info
)
1695 unsigned int length
;
1696 unsigned char *maxptr
;
1701 struct alpha_vms_link_hash_entry
*h
;
1703 PRIV (recrd
.rec
) += ETIR__C_HEADER_SIZE
;
1704 PRIV (recrd
.rec_size
) -= ETIR__C_HEADER_SIZE
;
1706 ptr
= PRIV (recrd
.rec
);
1707 length
= PRIV (recrd
.rec_size
);
1708 maxptr
= ptr
+ length
;
1710 vms_debug2 ((2, "ETIR: %d bytes\n", length
));
1712 while (ptr
< maxptr
)
1714 int cmd
= bfd_getl16 (ptr
);
1715 int cmd_length
= bfd_getl16 (ptr
+ 2);
1720 _bfd_vms_debug (4, "etir: %s(%d)\n",
1721 _bfd_vms_etir_name (cmd
), cmd
);
1722 _bfd_hexdump (8, ptr
, cmd_length
- 4, 0);
1730 stack 32 bit value of symbol (high bits set to 0). */
1731 case ETIR__C_STA_GBL
:
1732 _bfd_vms_get_value (abfd
, ptr
, info
, &op1
, &h
);
1733 _bfd_vms_push (abfd
, op1
, alpha_vms_sym_to_ctxt (h
));
1739 stack 32 bit value, sign extend to 64 bit. */
1740 case ETIR__C_STA_LW
:
1741 _bfd_vms_push (abfd
, bfd_getl32 (ptr
), RELC_NONE
);
1747 stack 64 bit value of symbol. */
1748 case ETIR__C_STA_QW
:
1749 _bfd_vms_push (abfd
, bfd_getl64 (ptr
), RELC_NONE
);
1752 /* Stack psect base plus quadword offset
1753 arg: lw section index
1754 qw signed quadword offset (low 32 bits)
1756 Stack qw argument and section index
1757 (see ETIR__C_STO_OFF, ETIR__C_CTL_SETRB). */
1758 case ETIR__C_STA_PQ
:
1762 psect
= bfd_getl32 (ptr
);
1763 if ((unsigned int) psect
>= PRIV (section_count
))
1765 (*_bfd_error_handler
) (_("bad section index in %s"),
1766 _bfd_vms_etir_name (cmd
));
1767 bfd_set_error (bfd_error_bad_value
);
1770 op1
= bfd_getl64 (ptr
+ 4);
1771 _bfd_vms_push (abfd
, op1
, psect
| RELC_SEC_BASE
);
1775 case ETIR__C_STA_LI
:
1776 case ETIR__C_STA_MOD
:
1777 case ETIR__C_STA_CKARG
:
1778 (*_bfd_error_handler
) (_("unsupported STA cmd %s"),
1779 _bfd_vms_etir_name (cmd
));
1783 /* Store byte: pop stack, write byte
1786 _bfd_vms_pop (abfd
, &op1
, &rel1
);
1787 if (rel1
!= RELC_NONE
)
1789 image_write_b (abfd
, (unsigned int) op1
& 0xff);
1792 /* Store word: pop stack, write word
1795 _bfd_vms_pop (abfd
, &op1
, &rel1
);
1796 if (rel1
!= RELC_NONE
)
1798 image_write_w (abfd
, (unsigned int) op1
& 0xffff);
1801 /* Store longword: pop stack, write longword
1803 case ETIR__C_STO_LW
:
1804 _bfd_vms_pop (abfd
, &op1
, &rel1
);
1805 if (rel1
& RELC_SEC_BASE
)
1807 op1
= alpha_vms_fix_sec_rel (abfd
, info
, rel1
, op1
);
1810 else if (rel1
& RELC_SHR_BASE
)
1812 alpha_vms_add_fixup_lr (info
, rel1
& RELC_MASK
, op1
);
1815 if (rel1
!= RELC_NONE
)
1817 if (rel1
!= RELC_REL
)
1819 alpha_vms_add_lw_reloc (info
);
1821 image_write_l (abfd
, op1
);
1824 /* Store quadword: pop stack, write quadword
1826 case ETIR__C_STO_QW
:
1827 _bfd_vms_pop (abfd
, &op1
, &rel1
);
1828 if (rel1
& RELC_SEC_BASE
)
1830 op1
= alpha_vms_fix_sec_rel (abfd
, info
, rel1
, op1
);
1833 else if (rel1
& RELC_SHR_BASE
)
1835 if (rel1
!= RELC_NONE
)
1837 if (rel1
!= RELC_REL
)
1839 alpha_vms_add_qw_reloc (info
);
1841 image_write_q (abfd
, op1
);
1844 /* Store immediate repeated: pop stack for repeat count
1847 case ETIR__C_STO_IMMR
:
1851 size
= bfd_getl32 (ptr
);
1852 _bfd_vms_pop (abfd
, &op1
, &rel1
);
1853 if (rel1
!= RELC_NONE
)
1856 image_write (abfd
, ptr
+ 4, size
);
1860 /* Store global: write symbol value
1861 arg: cs global symbol name. */
1862 case ETIR__C_STO_GBL
:
1863 _bfd_vms_get_value (abfd
, ptr
, info
, &op1
, &h
);
1866 if (h
->sym
->typ
== EGSD__C_SYMG
)
1868 alpha_vms_add_fixup_qr
1869 (info
, abfd
, h
->sym
->owner
, h
->sym
->symbol_vector
);
1874 op1
= alpha_vms_get_sym_value (h
->sym
->section
,
1876 alpha_vms_add_qw_reloc (info
);
1879 image_write_q (abfd
, op1
);
1882 /* Store code address: write address of entry point
1883 arg: cs global symbol name (procedure). */
1884 case ETIR__C_STO_CA
:
1885 _bfd_vms_get_value (abfd
, ptr
, info
, &op1
, &h
);
1888 if (h
->sym
->flags
& EGSY__V_NORM
)
1890 /* That's really a procedure. */
1891 if (h
->sym
->typ
== EGSD__C_SYMG
)
1893 alpha_vms_add_fixup_ca (info
, abfd
, h
->sym
->owner
);
1894 op1
= h
->sym
->symbol_vector
;
1898 op1
= alpha_vms_get_sym_value (h
->sym
->code_section
,
1899 h
->sym
->code_value
);
1900 alpha_vms_add_qw_reloc (info
);
1905 /* Symbol is not a procedure. */
1909 image_write_q (abfd
, op1
);
1912 /* Store offset to psect: pop stack, add low 32 bits to base of psect
1914 case ETIR__C_STO_OFF
:
1915 _bfd_vms_pop (abfd
, &op1
, &rel1
);
1917 if (!(rel1
& RELC_SEC_BASE
))
1920 op1
= alpha_vms_fix_sec_rel (abfd
, info
, rel1
, op1
);
1922 image_write_q (abfd
, op1
);
1926 arg: lw count of bytes
1928 case ETIR__C_STO_IMM
:
1932 size
= bfd_getl32 (ptr
);
1933 image_write (abfd
, ptr
+ 4, size
);
1937 /* This code is 'reserved to digital' according to the openVMS
1938 linker manual, however it is generated by the DEC C compiler
1939 and defined in the include file.
1940 FIXME, since the following is just a guess
1941 store global longword: store 32bit value of symbol
1942 arg: cs symbol name. */
1943 case ETIR__C_STO_GBL_LW
:
1944 _bfd_vms_get_value (abfd
, ptr
, info
, &op1
, &h
);
1948 image_write_l (abfd
, op1
);
1951 case ETIR__C_STO_RB
:
1952 case ETIR__C_STO_AB
:
1953 case ETIR__C_STO_LP_PSB
:
1954 (*_bfd_error_handler
) (_("%s: not supported"),
1955 _bfd_vms_etir_name (cmd
));
1958 case ETIR__C_STO_HINT_GBL
:
1959 case ETIR__C_STO_HINT_PS
:
1960 (*_bfd_error_handler
) (_("%s: not implemented"),
1961 _bfd_vms_etir_name (cmd
));
1965 /* 200 Store-conditional Linkage Pair
1967 case ETIR__C_STC_LP
:
1969 /* 202 Store-conditional Address at global address
1973 case ETIR__C_STC_GBL
:
1975 /* 203 Store-conditional Code Address at global address
1977 cs procedure name. */
1978 case ETIR__C_STC_GCA
:
1980 /* 204 Store-conditional Address at psect + offset
1984 case ETIR__C_STC_PS
:
1985 (*_bfd_error_handler
) (_("%s: not supported"),
1986 _bfd_vms_etir_name (cmd
));
1990 /* 201 Store-conditional Linkage Pair with Procedure Signature
1996 case ETIR__C_STC_LP_PSB
:
1997 _bfd_vms_get_value (abfd
, ptr
+ 4, info
, &op1
, &h
);
2000 if (h
->sym
->typ
== EGSD__C_SYMG
)
2002 alpha_vms_add_fixup_lp (info
, abfd
, h
->sym
->owner
);
2003 op1
= h
->sym
->symbol_vector
;
2008 op1
= alpha_vms_get_sym_value (h
->sym
->code_section
,
2009 h
->sym
->code_value
);
2010 op2
= alpha_vms_get_sym_value (h
->sym
->section
,
2016 /* Undefined symbol. */
2020 image_write_q (abfd
, op1
);
2021 image_write_q (abfd
, op2
);
2024 /* 205 Store-conditional NOP at address of global
2026 case ETIR__C_STC_NOP_GBL
:
2029 /* 207 Store-conditional BSR at global address
2032 case ETIR__C_STC_BSR_GBL
:
2035 /* 209 Store-conditional LDA at global address
2038 case ETIR__C_STC_LDA_GBL
:
2041 /* 211 Store-conditional BSR or Hint at global address
2044 case ETIR__C_STC_BOH_GBL
:
2045 /* Currentl ignored. */
2048 /* 213 Store-conditional NOP,BSR or HINT at global address
2051 case ETIR__C_STC_NBH_GBL
:
2053 /* 206 Store-conditional NOP at pect + offset
2056 case ETIR__C_STC_NOP_PS
:
2058 /* 208 Store-conditional BSR at pect + offset
2061 case ETIR__C_STC_BSR_PS
:
2063 /* 210 Store-conditional LDA at psect + offset
2066 case ETIR__C_STC_LDA_PS
:
2068 /* 212 Store-conditional BSR or Hint at pect + offset
2071 case ETIR__C_STC_BOH_PS
:
2073 /* 214 Store-conditional NOP, BSR or HINT at psect + offset
2075 case ETIR__C_STC_NBH_PS
:
2076 (*_bfd_error_handler
) ("%s: not supported",
2077 _bfd_vms_etir_name (cmd
));
2081 /* Det relocation base: pop stack, set image location counter
2083 case ETIR__C_CTL_SETRB
:
2084 _bfd_vms_pop (abfd
, &op1
, &rel1
);
2085 if (!(rel1
& RELC_SEC_BASE
))
2087 image_set_ptr (abfd
, op1
, rel1
& RELC_MASK
, info
);
2090 /* Augment relocation base: increment image location counter by offset
2091 arg: lw offset value. */
2092 case ETIR__C_CTL_AUGRB
:
2093 op1
= bfd_getl32 (ptr
);
2094 image_inc_ptr (abfd
, op1
);
2097 /* Define location: pop index, save location counter under index
2099 case ETIR__C_CTL_DFLOC
:
2100 _bfd_vms_pop (abfd
, &op1
, &rel1
);
2101 if (rel1
!= RELC_NONE
)
2103 dst_define_location (abfd
, op1
);
2106 /* Set location: pop index, restore location counter from index
2108 case ETIR__C_CTL_STLOC
:
2109 _bfd_vms_pop (abfd
, &op1
, &rel1
);
2110 if (rel1
!= RELC_NONE
)
2112 dst_restore_location (abfd
, op1
);
2115 /* Stack defined location: pop index, push location counter from index
2117 case ETIR__C_CTL_STKDL
:
2118 _bfd_vms_pop (abfd
, &op1
, &rel1
);
2119 if (rel1
!= RELC_NONE
)
2121 _bfd_vms_push (abfd
, dst_retrieve_location (abfd
, op1
), RELC_NONE
);
2124 case ETIR__C_OPR_NOP
: /* No-op. */
2127 case ETIR__C_OPR_ADD
: /* Add. */
2128 _bfd_vms_pop (abfd
, &op1
, &rel1
);
2129 _bfd_vms_pop (abfd
, &op2
, &rel2
);
2130 if (rel1
== RELC_NONE
&& rel2
!= RELC_NONE
)
2132 else if (rel1
!= RELC_NONE
&& rel2
!= RELC_NONE
)
2134 _bfd_vms_push (abfd
, op1
+ op2
, rel1
);
2137 case ETIR__C_OPR_SUB
: /* Subtract. */
2138 _bfd_vms_pop (abfd
, &op1
, &rel1
);
2139 _bfd_vms_pop (abfd
, &op2
, &rel2
);
2140 if (rel1
== RELC_NONE
&& rel2
!= RELC_NONE
)
2142 else if ((rel1
& RELC_SEC_BASE
) && (rel2
& RELC_SEC_BASE
))
2144 op1
= alpha_vms_fix_sec_rel (abfd
, info
, rel1
, op1
);
2145 op2
= alpha_vms_fix_sec_rel (abfd
, info
, rel2
, op2
);
2148 else if (rel1
!= RELC_NONE
&& rel2
!= RELC_NONE
)
2150 _bfd_vms_push (abfd
, op2
- op1
, rel1
);
2153 case ETIR__C_OPR_MUL
: /* Multiply. */
2154 _bfd_vms_pop (abfd
, &op1
, &rel1
);
2155 _bfd_vms_pop (abfd
, &op2
, &rel2
);
2156 if (rel1
!= RELC_NONE
|| rel2
!= RELC_NONE
)
2158 _bfd_vms_push (abfd
, op1
* op2
, RELC_NONE
);
2161 case ETIR__C_OPR_DIV
: /* Divide. */
2162 _bfd_vms_pop (abfd
, &op1
, &rel1
);
2163 _bfd_vms_pop (abfd
, &op2
, &rel2
);
2164 if (rel1
!= RELC_NONE
|| rel2
!= RELC_NONE
)
2167 _bfd_vms_push (abfd
, 0, RELC_NONE
);
2169 _bfd_vms_push (abfd
, op2
/ op1
, RELC_NONE
);
2172 case ETIR__C_OPR_AND
: /* Logical AND. */
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_IOR
: /* Logical inclusive OR. */
2181 _bfd_vms_pop (abfd
, &op1
, &rel1
);
2182 _bfd_vms_pop (abfd
, &op2
, &rel2
);
2183 if (rel1
!= RELC_NONE
|| rel2
!= RELC_NONE
)
2185 _bfd_vms_push (abfd
, op1
| op2
, RELC_NONE
);
2188 case ETIR__C_OPR_EOR
: /* Logical exclusive OR. */
2189 _bfd_vms_pop (abfd
, &op1
, &rel1
);
2190 _bfd_vms_pop (abfd
, &op2
, &rel2
);
2191 if (rel1
!= RELC_NONE
|| rel2
!= RELC_NONE
)
2193 _bfd_vms_push (abfd
, op1
^ op2
, RELC_NONE
);
2196 case ETIR__C_OPR_NEG
: /* Negate. */
2197 _bfd_vms_pop (abfd
, &op1
, &rel1
);
2198 if (rel1
!= RELC_NONE
)
2200 _bfd_vms_push (abfd
, -op1
, RELC_NONE
);
2203 case ETIR__C_OPR_COM
: /* Complement. */
2204 _bfd_vms_pop (abfd
, &op1
, &rel1
);
2205 if (rel1
!= RELC_NONE
)
2207 _bfd_vms_push (abfd
, ~op1
, RELC_NONE
);
2210 case ETIR__C_OPR_ASH
: /* Arithmetic shift. */
2211 _bfd_vms_pop (abfd
, &op1
, &rel1
);
2212 _bfd_vms_pop (abfd
, &op2
, &rel2
);
2213 if (rel1
!= RELC_NONE
|| rel2
!= RELC_NONE
)
2216 (*_bfd_error_handler
) (_("invalid use of %s with contexts"),
2217 _bfd_vms_etir_name (cmd
));
2220 if ((int)op2
< 0) /* Shift right. */
2222 else /* Shift left. */
2224 _bfd_vms_push (abfd
, op1
, RELC_NONE
); /* FIXME: sym. */
2227 case ETIR__C_OPR_INSV
: /* Insert field. */
2228 case ETIR__C_OPR_USH
: /* Unsigned shift. */
2229 case ETIR__C_OPR_ROT
: /* Rotate. */
2230 case ETIR__C_OPR_REDEF
: /* Redefine symbol to current location. */
2231 case ETIR__C_OPR_DFLIT
: /* Define a literal. */
2232 (*_bfd_error_handler
) (_("%s: not supported"),
2233 _bfd_vms_etir_name (cmd
));
2237 case ETIR__C_OPR_SEL
: /* Select. */
2238 _bfd_vms_pop (abfd
, &op1
, &rel1
);
2240 _bfd_vms_pop (abfd
, &op1
, &rel1
);
2243 _bfd_vms_pop (abfd
, &op1
, &rel1
);
2244 _bfd_vms_pop (abfd
, &op2
, &rel2
);
2245 _bfd_vms_push (abfd
, op1
, rel1
);
2250 (*_bfd_error_handler
) (_("reserved cmd %d"), cmd
);
2255 ptr
+= cmd_length
- 4;
2261 /* Process EDBG/ETBT record.
2262 Return TRUE on success, FALSE on error */
2265 vms_slurp_debug (bfd
*abfd
)
2267 asection
*section
= PRIV (dst_section
);
2269 if (section
== NULL
)
2271 /* We have no way to find out beforehand how much debug info there
2272 is in an object file, so pick an initial amount and grow it as
2274 flagword flags
= SEC_HAS_CONTENTS
| SEC_DEBUGGING
| SEC_RELOC
2277 section
= bfd_make_section (abfd
, "$DST$");
2280 if (!bfd_set_section_flags (abfd
, section
, flags
))
2282 PRIV (dst_section
) = section
;
2285 PRIV (image_section
) = section
;
2286 PRIV (image_offset
) = section
->size
;
2288 if (!_bfd_vms_slurp_etir (abfd
, NULL
))
2291 section
->size
= PRIV (image_offset
);
2295 /* Process EDBG record.
2296 Return TRUE on success, FALSE on error. */
2299 _bfd_vms_slurp_edbg (bfd
*abfd
)
2301 vms_debug2 ((2, "EDBG\n"));
2303 abfd
->flags
|= HAS_DEBUG
| HAS_LINENO
;
2305 return vms_slurp_debug (abfd
);
2308 /* Process ETBT record.
2309 Return TRUE on success, FALSE on error. */
2312 _bfd_vms_slurp_etbt (bfd
*abfd
)
2314 vms_debug2 ((2, "ETBT\n"));
2316 abfd
->flags
|= HAS_LINENO
;
2318 return vms_slurp_debug (abfd
);
2321 /* Process EEOM record.
2322 Return TRUE on success, FALSE on error. */
2325 _bfd_vms_slurp_eeom (bfd
*abfd
)
2327 struct vms_eeom
*eeom
= (struct vms_eeom
*) PRIV (recrd
.rec
);
2329 vms_debug2 ((2, "EEOM\n"));
2331 PRIV (eom_data
).eom_l_total_lps
= bfd_getl32 (eeom
->total_lps
);
2332 PRIV (eom_data
).eom_w_comcod
= bfd_getl16 (eeom
->comcod
);
2333 if (PRIV (eom_data
).eom_w_comcod
> 1)
2335 (*_bfd_error_handler
) (_("Object module NOT error-free !\n"));
2336 bfd_set_error (bfd_error_bad_value
);
2340 PRIV (eom_data
).eom_has_transfer
= FALSE
;
2341 if (PRIV (recrd
.rec_size
) > 10)
2343 PRIV (eom_data
).eom_has_transfer
= TRUE
;
2344 PRIV (eom_data
).eom_b_tfrflg
= eeom
->tfrflg
;
2345 PRIV (eom_data
).eom_l_psindx
= bfd_getl32 (eeom
->psindx
);
2346 PRIV (eom_data
).eom_l_tfradr
= bfd_getl32 (eeom
->tfradr
);
2348 abfd
->start_address
= PRIV (eom_data
).eom_l_tfradr
;
2353 /* Slurp an ordered set of VMS object records. Return FALSE on error. */
2356 _bfd_vms_slurp_object_records (bfd
* abfd
)
2363 vms_debug2 ((7, "reading at %08lx\n", (unsigned long)bfd_tell (abfd
)));
2365 type
= _bfd_vms_get_object_record (abfd
);
2368 vms_debug2 ((2, "next_record failed\n"));
2375 err
= _bfd_vms_slurp_ehdr (abfd
);
2378 err
= _bfd_vms_slurp_eeom (abfd
);
2381 err
= _bfd_vms_slurp_egsd (abfd
);
2384 err
= TRUE
; /* _bfd_vms_slurp_etir (abfd); */
2387 err
= _bfd_vms_slurp_edbg (abfd
);
2390 err
= _bfd_vms_slurp_etbt (abfd
);
2397 vms_debug2 ((2, "slurp type %d failed\n", type
));
2401 while (type
!= EOBJ__C_EEOM
);
2406 /* Initialize private data */
2408 vms_initialize (bfd
* abfd
)
2412 amt
= sizeof (struct vms_private_data_struct
);
2413 abfd
->tdata
.any
= bfd_zalloc (abfd
, amt
);
2414 if (abfd
->tdata
.any
== NULL
)
2417 PRIV (recrd
.file_format
) = FF_UNKNOWN
;
2419 amt
= sizeof (struct stack_struct
) * STACKSIZE
;
2420 PRIV (stack
) = bfd_alloc (abfd
, amt
);
2421 if (PRIV (stack
) == NULL
)
2427 bfd_release (abfd
, abfd
->tdata
.any
);
2428 abfd
->tdata
.any
= NULL
;
2432 /* Check the format for a file being read.
2433 Return a (bfd_target *) if it's an object file or zero if not. */
2435 static const struct bfd_target
*
2436 alpha_vms_object_p (bfd
*abfd
)
2438 void *tdata_save
= abfd
->tdata
.any
;
2439 unsigned int test_len
;
2442 vms_debug2 ((1, "vms_object_p(%p)\n", abfd
));
2444 /* Allocate alpha-vms specific data. */
2445 if (!vms_initialize (abfd
))
2448 if (bfd_seek (abfd
, (file_ptr
) 0, SEEK_SET
))
2449 goto err_wrong_format
;
2451 /* The first challenge with VMS is to discover the kind of the file.
2453 Image files (executable or shared images) are stored as a raw
2454 stream of bytes (like on UNIX), but there is no magic number.
2456 Object files are written with RMS (record management service), ie
2457 each records are preceeded by its length (on a word - 2 bytes), and
2458 padded for word-alignment. That would be simple but when files
2459 are transfered to a UNIX filesystem (using ftp), records are lost.
2460 Only the raw content of the records are transfered. Fortunately,
2461 the Alpha Object file format also store the length of the record
2462 in the records. Is that clear ? */
2464 /* Minimum is 6 bytes for objects (2 bytes size, 2 bytes record id,
2465 2 bytes size repeated) and 12 bytes for images (4 bytes major id,
2466 4 bytes minor id, 4 bytes length). */
2469 /* Size the main buffer. */
2470 buf
= (unsigned char *) bfd_malloc (test_len
);
2473 PRIV (recrd
.buf
) = buf
;
2474 PRIV (recrd
.buf_size
) = test_len
;
2476 /* Initialize the record pointer. */
2477 PRIV (recrd
.rec
) = buf
;
2479 if (bfd_bread (buf
, test_len
, abfd
) != test_len
)
2480 goto err_wrong_format
;
2482 /* Is it an image? */
2483 if ((bfd_getl32 (buf
) == EIHD__K_MAJORID
)
2484 && (bfd_getl32 (buf
+ 4) == EIHD__K_MINORID
))
2486 unsigned int to_read
;
2487 unsigned int read_so_far
;
2488 unsigned int remaining
;
2489 unsigned int eisd_offset
, eihs_offset
;
2491 /* Extract the header size. */
2492 PRIV (recrd
.rec_size
) = bfd_getl32 (buf
+ EIHD__L_SIZE
);
2494 /* The header size is 0 for DSF files. */
2495 if (PRIV (recrd
.rec_size
) == 0)
2496 PRIV (recrd
.rec_size
) = sizeof (struct vms_eihd
);
2498 if (PRIV (recrd
.rec_size
) > PRIV (recrd
.buf_size
))
2500 buf
= bfd_realloc_or_free (buf
, PRIV (recrd
.rec_size
));
2504 PRIV (recrd
.buf
) = NULL
;
2507 PRIV (recrd
.buf
) = buf
;
2508 PRIV (recrd
.buf_size
) = PRIV (recrd
.rec_size
);
2511 /* Read the remaining record. */
2512 remaining
= PRIV (recrd
.rec_size
) - test_len
;
2513 to_read
= MIN (VMS_BLOCK_SIZE
- test_len
, remaining
);
2514 read_so_far
= test_len
;
2516 while (remaining
> 0)
2518 if (bfd_bread (buf
+ read_so_far
, to_read
, abfd
) != to_read
)
2519 goto err_wrong_format
;
2521 read_so_far
+= to_read
;
2522 remaining
-= to_read
;
2524 to_read
= MIN (VMS_BLOCK_SIZE
, remaining
);
2527 /* Reset the record pointer. */
2528 PRIV (recrd
.rec
) = buf
;
2530 vms_debug2 ((2, "file type is image\n"));
2532 if (_bfd_vms_slurp_eihd (abfd
, &eisd_offset
, &eihs_offset
) != TRUE
)
2533 goto err_wrong_format
;
2535 if (_bfd_vms_slurp_eisd (abfd
, eisd_offset
) != TRUE
)
2536 goto err_wrong_format
;
2538 /* EIHS is optional. */
2539 if (eihs_offset
!= 0 && _bfd_vms_slurp_eihs (abfd
, eihs_offset
) != TRUE
)
2540 goto err_wrong_format
;
2546 /* Assume it's a module and adjust record pointer if necessary. */
2547 maybe_adjust_record_pointer_for_object (abfd
);
2549 /* But is it really a module? */
2550 if (bfd_getl16 (PRIV (recrd
.rec
)) <= EOBJ__C_MAXRECTYP
2551 && bfd_getl16 (PRIV (recrd
.rec
) + 2) <= EOBJ__C_MAXRECSIZ
)
2553 if (vms_get_remaining_object_record (abfd
, test_len
) <= 0)
2554 goto err_wrong_format
;
2556 vms_debug2 ((2, "file type is module\n"));
2558 type
= bfd_getl16 (PRIV (recrd
.rec
));
2559 if (type
!= EOBJ__C_EMH
|| _bfd_vms_slurp_ehdr (abfd
) != TRUE
)
2560 goto err_wrong_format
;
2562 if (_bfd_vms_slurp_object_records (abfd
) != TRUE
)
2563 goto err_wrong_format
;
2566 goto err_wrong_format
;
2569 /* Set arch_info to alpha. */
2571 if (! bfd_default_set_arch_mach (abfd
, bfd_arch_alpha
, 0))
2572 goto err_wrong_format
;
2577 bfd_set_error (bfd_error_wrong_format
);
2580 if (PRIV (recrd
.buf
))
2581 free (PRIV (recrd
.buf
));
2582 if (abfd
->tdata
.any
!= tdata_save
&& abfd
->tdata
.any
!= NULL
)
2583 bfd_release (abfd
, abfd
->tdata
.any
);
2584 abfd
->tdata
.any
= tdata_save
;
2590 /* Write an EMH/MHD record. */
2593 _bfd_vms_write_emh (bfd
*abfd
)
2595 struct vms_rec_wr
*recwr
= &PRIV (recwr
);
2597 _bfd_vms_output_alignment (recwr
, 2);
2600 _bfd_vms_output_begin (recwr
, EOBJ__C_EMH
);
2601 _bfd_vms_output_short (recwr
, EMH__C_MHD
);
2602 _bfd_vms_output_short (recwr
, EOBJ__C_STRLVL
);
2603 _bfd_vms_output_long (recwr
, 0);
2604 _bfd_vms_output_long (recwr
, 0);
2605 _bfd_vms_output_long (recwr
, MAX_OUTREC_SIZE
);
2607 /* Create module name from filename. */
2608 if (bfd_get_filename (abfd
) != 0)
2610 char *module
= vms_get_module_name (bfd_get_filename (abfd
), TRUE
);
2611 _bfd_vms_output_counted (recwr
, module
);
2615 _bfd_vms_output_counted (recwr
, "NONAME");
2617 _bfd_vms_output_counted (recwr
, BFD_VERSION_STRING
);
2618 _bfd_vms_output_dump (recwr
, get_vms_time_string (), EMH_DATE_LENGTH
);
2619 _bfd_vms_output_fill (recwr
, 0, EMH_DATE_LENGTH
);
2620 _bfd_vms_output_end (abfd
, recwr
);
2623 /* Write an EMH/LMN record. */
2626 _bfd_vms_write_lmn (bfd
*abfd
, const char *name
)
2629 struct vms_rec_wr
*recwr
= &PRIV (recwr
);
2630 unsigned int ver
= BFD_VERSION
/ 10000;
2633 _bfd_vms_output_begin (recwr
, EOBJ__C_EMH
);
2634 _bfd_vms_output_short (recwr
, EMH__C_LNM
);
2635 snprintf (version
, sizeof (version
), "%s %d.%d.%d", name
,
2636 ver
/ 10000, (ver
/ 100) % 100, ver
% 100);
2637 _bfd_vms_output_dump (recwr
, (unsigned char *)version
, strlen (version
));
2638 _bfd_vms_output_end (abfd
, recwr
);
2642 /* Write eom record for bfd abfd. Return FALSE on error. */
2645 _bfd_vms_write_eeom (bfd
*abfd
)
2647 struct vms_rec_wr
*recwr
= &PRIV (recwr
);
2649 vms_debug2 ((2, "vms_write_eeom\n"));
2651 _bfd_vms_output_alignment (recwr
, 2);
2653 _bfd_vms_output_begin (recwr
, EOBJ__C_EEOM
);
2654 _bfd_vms_output_long (recwr
, PRIV (vms_linkage_index
+ 1) >> 1);
2655 _bfd_vms_output_byte (recwr
, 0); /* Completion code. */
2656 _bfd_vms_output_byte (recwr
, 0); /* Fill byte. */
2658 if ((abfd
->flags
& EXEC_P
) == 0
2659 && bfd_get_start_address (abfd
) != (bfd_vma
)-1)
2663 section
= bfd_get_section_by_name (abfd
, ".link");
2666 bfd_set_error (bfd_error_nonrepresentable_section
);
2669 _bfd_vms_output_short (recwr
, 0);
2670 _bfd_vms_output_long (recwr
, (unsigned long) section
->target_index
);
2671 _bfd_vms_output_long (recwr
,
2672 (unsigned long) bfd_get_start_address (abfd
));
2673 _bfd_vms_output_long (recwr
, 0);
2676 _bfd_vms_output_end (abfd
, recwr
);
2681 vector_grow1 (struct vector_type
*vec
, size_t elsz
)
2683 if (vec
->nbr_el
+ 1 < vec
->max_el
)
2686 if (vec
->max_el
== 0)
2689 vec
->els
= bfd_malloc2 (vec
->max_el
, elsz
);
2694 vec
->els
= bfd_realloc2 (vec
->els
, vec
->max_el
, elsz
);
2698 /* Bump ABFD file position to next block. */
2701 alpha_vms_file_position_block (bfd
*abfd
)
2704 PRIV (file_pos
) += VMS_BLOCK_SIZE
- 1;
2705 PRIV (file_pos
) -= (PRIV (file_pos
) % VMS_BLOCK_SIZE
);
2708 /* Convert from internal structure SRC to external structure DST. */
2711 alpha_vms_swap_eisd_out (struct vms_internal_eisd_map
*src
,
2712 struct vms_eisd
*dst
)
2714 bfd_putl32 (src
->u
.eisd
.majorid
, dst
->majorid
);
2715 bfd_putl32 (src
->u
.eisd
.minorid
, dst
->minorid
);
2716 bfd_putl32 (src
->u
.eisd
.eisdsize
, dst
->eisdsize
);
2717 if (src
->u
.eisd
.eisdsize
<= EISD__K_LENEND
)
2719 bfd_putl32 (src
->u
.eisd
.secsize
, dst
->secsize
);
2720 bfd_putl64 (src
->u
.eisd
.virt_addr
, dst
->virt_addr
);
2721 bfd_putl32 (src
->u
.eisd
.flags
, dst
->flags
);
2722 bfd_putl32 (src
->u
.eisd
.vbn
, dst
->vbn
);
2723 dst
->pfc
= src
->u
.eisd
.pfc
;
2724 dst
->matchctl
= src
->u
.eisd
.matchctl
;
2725 dst
->type
= src
->u
.eisd
.type
;
2727 if (src
->u
.eisd
.flags
& EISD__M_GBL
)
2729 bfd_putl32 (src
->u
.gbl_eisd
.ident
, dst
->ident
);
2730 memcpy (dst
->gblnam
, src
->u
.gbl_eisd
.gblnam
,
2731 src
->u
.gbl_eisd
.gblnam
[0] + 1);
2735 /* Append EISD to the list of extra eisd for ABFD. */
2738 alpha_vms_append_extra_eisd (bfd
*abfd
, struct vms_internal_eisd_map
*eisd
)
2741 if (PRIV (gbl_eisd_head
) == NULL
)
2742 PRIV (gbl_eisd_head
) = eisd
;
2744 PRIV (gbl_eisd_tail
)->next
= eisd
;
2745 PRIV (gbl_eisd_tail
) = eisd
;
2748 /* Create an EISD for shared image SHRIMG.
2749 Return FALSE in case of error. */
2752 alpha_vms_create_eisd_for_shared (bfd
*abfd
, bfd
*shrimg
)
2754 struct vms_internal_eisd_map
*eisd
;
2757 namlen
= strlen (PRIV2 (shrimg
, hdr_data
.hdr_t_name
));
2758 if (namlen
+ 5 > EISD__K_GBLNAMLEN
)
2764 eisd
= bfd_alloc (abfd
, sizeof (*eisd
));
2768 /* Fill the fields. */
2769 eisd
->u
.gbl_eisd
.common
.majorid
= EISD__K_MAJORID
;
2770 eisd
->u
.gbl_eisd
.common
.minorid
= EISD__K_MINORID
;
2771 eisd
->u
.gbl_eisd
.common
.eisdsize
= (EISD__K_LEN
+ 4 + namlen
+ 5 + 3) & ~3;
2772 eisd
->u
.gbl_eisd
.common
.secsize
= VMS_BLOCK_SIZE
; /* Must not be 0. */
2773 eisd
->u
.gbl_eisd
.common
.virt_addr
= 0;
2774 eisd
->u
.gbl_eisd
.common
.flags
= EISD__M_GBL
;
2775 eisd
->u
.gbl_eisd
.common
.vbn
= 0;
2776 eisd
->u
.gbl_eisd
.common
.pfc
= 0;
2777 eisd
->u
.gbl_eisd
.common
.matchctl
= PRIV2 (shrimg
, matchctl
);
2778 eisd
->u
.gbl_eisd
.common
.type
= EISD__K_SHRPIC
;
2780 eisd
->u
.gbl_eisd
.ident
= PRIV2 (shrimg
, ident
);
2781 eisd
->u
.gbl_eisd
.gblnam
[0] = namlen
+ 4;
2782 memcpy (eisd
->u
.gbl_eisd
.gblnam
+ 1, PRIV2 (shrimg
, hdr_data
.hdr_t_name
),
2784 memcpy (eisd
->u
.gbl_eisd
.gblnam
+ 1 + namlen
, "_001", 4);
2786 /* Append it to the list. */
2787 alpha_vms_append_extra_eisd (abfd
, eisd
);
2792 /* Create an EISD for section SEC.
2793 Return FALSE in case of failure. */
2796 alpha_vms_create_eisd_for_section (bfd
*abfd
, asection
*sec
)
2798 struct vms_internal_eisd_map
*eisd
;
2800 /* Only for allocating section. */
2801 if (!(sec
->flags
& SEC_ALLOC
))
2804 BFD_ASSERT (vms_section_data (sec
)->eisd
== NULL
);
2805 eisd
= bfd_alloc (abfd
, sizeof (*eisd
));
2808 vms_section_data (sec
)->eisd
= eisd
;
2810 /* Fill the fields. */
2811 eisd
->u
.eisd
.majorid
= EISD__K_MAJORID
;
2812 eisd
->u
.eisd
.minorid
= EISD__K_MINORID
;
2813 eisd
->u
.eisd
.eisdsize
= EISD__K_LEN
;
2814 eisd
->u
.eisd
.secsize
=
2815 (sec
->size
+ VMS_BLOCK_SIZE
- 1) & ~(VMS_BLOCK_SIZE
- 1);
2816 eisd
->u
.eisd
.virt_addr
= sec
->vma
;
2817 eisd
->u
.eisd
.flags
= 0;
2818 eisd
->u
.eisd
.vbn
= 0; /* To be later defined. */
2819 eisd
->u
.eisd
.pfc
= 0; /* Default. */
2820 eisd
->u
.eisd
.matchctl
= EISD__K_MATALL
;
2821 eisd
->u
.eisd
.type
= EISD__K_NORMAL
;
2823 if (sec
->flags
& SEC_CODE
)
2824 eisd
->u
.eisd
.flags
|= EISD__M_EXE
;
2825 if (!(sec
->flags
& SEC_READONLY
))
2826 eisd
->u
.eisd
.flags
|= EISD__M_WRT
| EISD__M_CRF
;
2828 /* If relocations or fixup will be applied, make this isect writeable. */
2829 if (sec
->flags
& SEC_RELOC
)
2830 eisd
->u
.eisd
.flags
|= EISD__M_WRT
| EISD__M_CRF
;
2832 if (!(sec
->flags
& SEC_HAS_CONTENTS
))
2834 eisd
->u
.eisd
.flags
|= EISD__M_DZRO
;
2835 eisd
->u
.eisd
.flags
&= ~EISD__M_CRF
;
2837 if (sec
->flags
& SEC_LINKER_CREATED
)
2839 if (strcmp (sec
->name
, "$FIXUP$") == 0)
2840 eisd
->u
.eisd
.flags
|= EISD__M_FIXUPVEC
;
2843 /* Append it to the list. */
2845 if (PRIV (eisd_head
) == NULL
)
2846 PRIV (eisd_head
) = eisd
;
2848 PRIV (eisd_tail
)->next
= eisd
;
2849 PRIV (eisd_tail
) = eisd
;
2854 /* Layout executable ABFD and write it to the disk.
2855 Return FALSE in case of failure. */
2858 alpha_vms_write_exec (bfd
*abfd
)
2860 struct vms_eihd eihd
;
2861 struct vms_eiha
*eiha
;
2862 struct vms_eihi
*eihi
;
2863 struct vms_eihs
*eihs
= NULL
;
2865 struct vms_internal_eisd_map
*first_eisd
;
2866 struct vms_internal_eisd_map
*eisd
;
2869 file_ptr gst_filepos
= 0;
2870 unsigned int lnkflags
= 0;
2872 /* Build the EIHD. */
2873 PRIV (file_pos
) = EIHD__C_LENGTH
;
2875 memset (&eihd
, 0, sizeof (eihd
));
2876 memset (eihd
.fill_2
, 0xff, sizeof (eihd
.fill_2
));
2878 bfd_putl32 (EIHD__K_MAJORID
, eihd
.majorid
);
2879 bfd_putl32 (EIHD__K_MINORID
, eihd
.minorid
);
2881 bfd_putl32 (sizeof (eihd
), eihd
.size
);
2882 bfd_putl32 (0, eihd
.isdoff
);
2883 bfd_putl32 (0, eihd
.activoff
);
2884 bfd_putl32 (0, eihd
.symdbgoff
);
2885 bfd_putl32 (0, eihd
.imgidoff
);
2886 bfd_putl32 (0, eihd
.patchoff
);
2887 bfd_putl64 (0, eihd
.iafva
);
2888 bfd_putl32 (0, eihd
.version_array_off
);
2890 bfd_putl32 (EIHD__K_EXE
, eihd
.imgtype
);
2891 bfd_putl32 (0, eihd
.subtype
);
2893 bfd_putl32 (0, eihd
.imgiocnt
);
2894 bfd_putl32 (-1, eihd
.privreqs
);
2895 bfd_putl32 (-1, eihd
.privreqs
+ 4);
2897 bfd_putl32 ((sizeof (eihd
) + VMS_BLOCK_SIZE
- 1) / VMS_BLOCK_SIZE
,
2899 bfd_putl32 (0, eihd
.ident
);
2900 bfd_putl32 (0, eihd
.sysver
);
2903 bfd_putl32 (0, eihd
.symvect_size
);
2904 bfd_putl32 (16, eihd
.virt_mem_block_size
);
2905 bfd_putl32 (0, eihd
.ext_fixup_off
);
2906 bfd_putl32 (0, eihd
.noopt_psect_off
);
2907 bfd_putl32 (-1, eihd
.alias
);
2910 eiha
= (struct vms_eiha
*)((char *) &eihd
+ PRIV (file_pos
));
2911 bfd_putl32 (PRIV (file_pos
), eihd
.activoff
);
2912 PRIV (file_pos
) += sizeof (struct vms_eiha
);
2914 bfd_putl32 (sizeof (struct vms_eiha
), eiha
->size
);
2915 bfd_putl32 (0, eiha
->spare
);
2916 bfd_putl64 (PRIV (transfer_address
[0]), eiha
->tfradr1
);
2917 bfd_putl64 (PRIV (transfer_address
[1]), eiha
->tfradr2
);
2918 bfd_putl64 (PRIV (transfer_address
[2]), eiha
->tfradr3
);
2919 bfd_putl64 (PRIV (transfer_address
[3]), eiha
->tfradr4
);
2920 bfd_putl64 (0, eiha
->inishr
);
2923 eihi
= (struct vms_eihi
*)((char *) &eihd
+ PRIV (file_pos
));
2924 bfd_putl32 (PRIV (file_pos
), eihd
.imgidoff
);
2925 PRIV (file_pos
) += sizeof (struct vms_eihi
);
2927 bfd_putl32 (EIHI__K_MAJORID
, eihi
->majorid
);
2928 bfd_putl32 (EIHI__K_MINORID
, eihi
->minorid
);
2933 /* Set module name. */
2934 module
= vms_get_module_name (bfd_get_filename (abfd
), TRUE
);
2935 len
= strlen (module
);
2936 if (len
> sizeof (eihi
->imgnam
) - 1)
2937 len
= sizeof (eihi
->imgnam
) - 1;
2938 eihi
->imgnam
[0] = len
;
2939 memcpy (eihi
->imgnam
+ 1, module
, len
);
2947 vms_get_time (&hi
, &lo
);
2948 bfd_putl32 (lo
, eihi
->linktime
+ 0);
2949 bfd_putl32 (hi
, eihi
->linktime
+ 4);
2952 eihi
->linkid
[0] = 0;
2953 eihi
->imgbid
[0] = 0;
2956 dst
= PRIV (dst_section
);
2957 dmt
= bfd_get_section_by_name (abfd
, "$DMT$");
2958 if (dst
!= NULL
&& dst
->size
!= 0)
2960 eihs
= (struct vms_eihs
*)((char *) &eihd
+ PRIV (file_pos
));
2961 bfd_putl32 (PRIV (file_pos
), eihd
.symdbgoff
);
2962 PRIV (file_pos
) += sizeof (struct vms_eihs
);
2964 bfd_putl32 (EIHS__K_MAJORID
, eihs
->majorid
);
2965 bfd_putl32 (EIHS__K_MINORID
, eihs
->minorid
);
2966 bfd_putl32 (0, eihs
->dstvbn
);
2967 bfd_putl32 (0, eihs
->dstsize
);
2968 bfd_putl32 (0, eihs
->gstvbn
);
2969 bfd_putl32 (0, eihs
->gstsize
);
2970 bfd_putl32 (0, eihs
->dmtvbn
);
2971 bfd_putl32 (0, eihs
->dmtsize
);
2974 /* One EISD per section. */
2975 for (sec
= abfd
->sections
; sec
; sec
= sec
->next
)
2977 if (!alpha_vms_create_eisd_for_section (abfd
, sec
))
2981 /* Merge section EIDS which extra ones. */
2982 if (PRIV (eisd_tail
))
2983 PRIV (eisd_tail
)->next
= PRIV (gbl_eisd_head
);
2985 PRIV (eisd_head
) = PRIV (gbl_eisd_head
);
2986 if (PRIV (gbl_eisd_tail
))
2987 PRIV (eisd_tail
) = PRIV (gbl_eisd_tail
);
2989 first_eisd
= PRIV (eisd_head
);
2991 /* Add end of eisd. */
2994 eisd
= bfd_zalloc (abfd
, sizeof (*eisd
));
2997 eisd
->u
.eisd
.majorid
= 0;
2998 eisd
->u
.eisd
.minorid
= 0;
2999 eisd
->u
.eisd
.eisdsize
= 0;
3000 alpha_vms_append_extra_eisd (abfd
, eisd
);
3003 /* Place EISD in the file. */
3004 for (eisd
= first_eisd
; eisd
; eisd
= eisd
->next
)
3006 file_ptr room
= VMS_BLOCK_SIZE
- (PRIV (file_pos
) % VMS_BLOCK_SIZE
);
3008 /* First block is a little bit special: there is a word at the end. */
3009 if (PRIV (file_pos
) < VMS_BLOCK_SIZE
&& room
> 2)
3011 if (room
< eisd
->u
.eisd
.eisdsize
+ EISD__K_LENEND
)
3012 alpha_vms_file_position_block (abfd
);
3014 eisd
->file_pos
= PRIV (file_pos
);
3015 PRIV (file_pos
) += eisd
->u
.eisd
.eisdsize
;
3017 if (eisd
->u
.eisd
.flags
& EISD__M_FIXUPVEC
)
3018 bfd_putl64 (eisd
->u
.eisd
.virt_addr
, eihd
.iafva
);
3021 if (first_eisd
!= NULL
)
3023 bfd_putl32 (first_eisd
->file_pos
, eihd
.isdoff
);
3024 /* Real size of end of eisd marker. */
3025 PRIV (file_pos
) += EISD__K_LENEND
;
3028 bfd_putl32 (PRIV (file_pos
), eihd
.size
);
3029 bfd_putl32 ((PRIV (file_pos
) + VMS_BLOCK_SIZE
- 1) / VMS_BLOCK_SIZE
,
3032 /* Place sections. */
3033 for (sec
= abfd
->sections
; sec
; sec
= sec
->next
)
3035 if (!(sec
->flags
& SEC_HAS_CONTENTS
))
3038 eisd
= vms_section_data (sec
)->eisd
;
3040 /* Align on a block. */
3041 alpha_vms_file_position_block (abfd
);
3042 sec
->filepos
= PRIV (file_pos
);
3045 eisd
->u
.eisd
.vbn
= (sec
->filepos
/ VMS_BLOCK_SIZE
) + 1;
3047 PRIV (file_pos
) += sec
->size
;
3051 if (eihs
!= NULL
&& dst
!= NULL
)
3053 bfd_putl32 ((dst
->filepos
/ VMS_BLOCK_SIZE
) + 1, eihs
->dstvbn
);
3054 bfd_putl32 (dst
->size
, eihs
->dstsize
);
3058 lnkflags
|= EIHD__M_DBGDMT
;
3059 bfd_putl32 ((dmt
->filepos
/ VMS_BLOCK_SIZE
) + 1, eihs
->dmtvbn
);
3060 bfd_putl32 (dmt
->size
, eihs
->dmtsize
);
3062 if (PRIV (gsd_sym_count
) != 0)
3064 alpha_vms_file_position_block (abfd
);
3065 gst_filepos
= PRIV (file_pos
);
3066 bfd_putl32 ((gst_filepos
/ VMS_BLOCK_SIZE
) + 1, eihs
->gstvbn
);
3067 bfd_putl32 ((PRIV (gsd_sym_count
) + 4) / 5 + 4, eihs
->gstsize
);
3071 /* Write EISD in hdr. */
3072 for (eisd
= first_eisd
; eisd
&& eisd
->file_pos
< VMS_BLOCK_SIZE
;
3074 alpha_vms_swap_eisd_out
3075 (eisd
, (struct vms_eisd
*)((char *)&eihd
+ eisd
->file_pos
));
3077 /* Write first block. */
3078 bfd_putl32 (lnkflags
, eihd
.lnkflags
);
3079 if (bfd_bwrite (&eihd
, sizeof (eihd
), abfd
) != sizeof (eihd
))
3082 /* Write remaining eisd. */
3085 unsigned char blk
[VMS_BLOCK_SIZE
];
3086 struct vms_internal_eisd_map
*next_eisd
;
3088 memset (blk
, 0xff, sizeof (blk
));
3089 while (eisd
!= NULL
)
3091 alpha_vms_swap_eisd_out
3093 (struct vms_eisd
*)(blk
+ (eisd
->file_pos
% VMS_BLOCK_SIZE
)));
3095 next_eisd
= eisd
->next
;
3096 if (next_eisd
== NULL
3097 || (next_eisd
->file_pos
/ VMS_BLOCK_SIZE
3098 != eisd
->file_pos
/ VMS_BLOCK_SIZE
))
3100 if (bfd_bwrite (blk
, sizeof (blk
), abfd
) != sizeof (blk
))
3103 memset (blk
, 0xff, sizeof (blk
));
3109 /* Write sections. */
3110 for (sec
= abfd
->sections
; sec
; sec
= sec
->next
)
3112 unsigned char blk
[VMS_BLOCK_SIZE
];
3115 if (sec
->size
== 0 || !(sec
->flags
& SEC_HAS_CONTENTS
))
3117 if (bfd_bwrite (sec
->contents
, sec
->size
, abfd
) != sec
->size
)
3121 len
= VMS_BLOCK_SIZE
- sec
->size
% VMS_BLOCK_SIZE
;
3122 if (len
!= VMS_BLOCK_SIZE
)
3124 memset (blk
, 0, len
);
3125 if (bfd_bwrite (blk
, len
, abfd
) != len
)
3131 if (gst_filepos
!= 0)
3133 struct vms_rec_wr
*recwr
= &PRIV (recwr
);
3136 _bfd_vms_write_emh (abfd
);
3137 _bfd_vms_write_lmn (abfd
, "GNU LD");
3139 /* PSC for the absolute section. */
3140 _bfd_vms_output_begin (recwr
, EOBJ__C_EGSD
);
3141 _bfd_vms_output_long (recwr
, 0);
3142 _bfd_vms_output_begin_subrec (recwr
, EGSD__C_PSC
);
3143 _bfd_vms_output_short (recwr
, 0);
3144 _bfd_vms_output_short (recwr
, EGPS__V_PIC
| EGPS__V_LIB
| EGPS__V_RD
);
3145 _bfd_vms_output_long (recwr
, 0);
3146 _bfd_vms_output_counted (recwr
, ".$$ABS$$.");
3147 _bfd_vms_output_end_subrec (recwr
);
3148 _bfd_vms_output_end (abfd
, recwr
);
3150 for (i
= 0; i
< PRIV (gsd_sym_count
); i
++)
3152 struct vms_symbol_entry
*sym
= PRIV (syms
)[i
];
3158 _bfd_vms_output_alignment (recwr
, 8);
3159 _bfd_vms_output_begin (recwr
, EOBJ__C_EGSD
);
3160 _bfd_vms_output_long (recwr
, 0);
3162 _bfd_vms_output_begin_subrec (recwr
, EGSD__C_SYMG
);
3163 _bfd_vms_output_short (recwr
, 0); /* Data type, alignment. */
3164 _bfd_vms_output_short (recwr
, sym
->flags
);
3166 if (sym
->code_section
)
3167 ep
= alpha_vms_get_sym_value (sym
->code_section
, sym
->code_value
);
3170 BFD_ASSERT (sym
->code_value
== 0);
3173 val
= alpha_vms_get_sym_value (sym
->section
, sym
->value
);
3174 _bfd_vms_output_quad
3175 (recwr
, sym
->typ
== EGSD__C_SYMG
? sym
->symbol_vector
: val
);
3176 _bfd_vms_output_quad (recwr
, ep
);
3177 _bfd_vms_output_quad (recwr
, val
);
3178 _bfd_vms_output_long (recwr
, 0);
3179 _bfd_vms_output_counted (recwr
, sym
->name
);
3180 _bfd_vms_output_end_subrec (recwr
);
3182 _bfd_vms_output_end (abfd
, recwr
);
3185 _bfd_vms_output_end (abfd
, recwr
);
3187 if (!_bfd_vms_write_eeom (abfd
))
3195 /* Write section and symbol directory of bfd abfd. Return FALSE on error. */
3198 _bfd_vms_write_egsd (bfd
*abfd
)
3202 unsigned int symnum
;
3204 flagword new_flags
, old_flags
;
3205 int abs_section_index
= -1;
3206 unsigned int target_index
= 0;
3207 struct vms_rec_wr
*recwr
= &PRIV (recwr
);
3209 vms_debug2 ((2, "vms_write_egsd\n"));
3211 /* Egsd is quadword aligned. */
3212 _bfd_vms_output_alignment (recwr
, 8);
3214 _bfd_vms_output_begin (recwr
, EOBJ__C_EGSD
);
3215 _bfd_vms_output_long (recwr
, 0);
3217 /* Number sections. */
3218 for (section
= abfd
->sections
; section
!= NULL
; section
= section
->next
)
3220 if (section
->flags
& SEC_DEBUGGING
)
3222 if (!strcmp (section
->name
, ".vmsdebug"))
3224 section
->flags
|= SEC_DEBUGGING
;
3227 section
->target_index
= target_index
++;
3230 for (section
= abfd
->sections
; section
!= NULL
; section
= section
->next
)
3232 vms_debug2 ((3, "Section #%d %s, %d bytes\n",
3233 section
->target_index
, section
->name
, (int)section
->size
));
3235 /* Don't write out the VMS debug info section since it is in the
3236 ETBT and EDBG sections in etir. */
3237 if (section
->flags
& SEC_DEBUGGING
)
3240 /* 13 bytes egsd, max 31 chars name -> should be 44 bytes. */
3241 if (_bfd_vms_output_check (recwr
, 64) < 0)
3243 _bfd_vms_output_end (abfd
, recwr
);
3244 _bfd_vms_output_begin (recwr
, EOBJ__C_EGSD
);
3245 _bfd_vms_output_long (recwr
, 0);
3248 /* Don't know if this is necessary for the linker but for now it keeps
3249 vms_slurp_gsd happy. */
3250 sname
= section
->name
;
3253 /* Remove leading dot. */
3255 if ((*sname
== 't') && (strcmp (sname
, "text") == 0))
3256 sname
= EVAX_CODE_NAME
;
3257 else if ((*sname
== 'd') && (strcmp (sname
, "data") == 0))
3258 sname
= EVAX_DATA_NAME
;
3259 else if ((*sname
== 'b') && (strcmp (sname
, "bss") == 0))
3260 sname
= EVAX_BSS_NAME
;
3261 else if ((*sname
== 'l') && (strcmp (sname
, "link") == 0))
3262 sname
= EVAX_LINK_NAME
;
3263 else if ((*sname
== 'r') && (strcmp (sname
, "rdata") == 0))
3264 sname
= EVAX_READONLY_NAME
;
3265 else if ((*sname
== 'l') && (strcmp (sname
, "literal") == 0))
3266 sname
= EVAX_LITERAL_NAME
;
3267 else if ((*sname
== 'l') && (strcmp (sname
, "literals") == 0))
3268 sname
= EVAX_LITERALS_NAME
;
3269 else if ((*sname
== 'c') && (strcmp (sname
, "comm") == 0))
3270 sname
= EVAX_COMMON_NAME
;
3271 else if ((*sname
== 'l') && (strcmp (sname
, "lcomm") == 0))
3272 sname
= EVAX_LOCAL_NAME
;
3275 if (bfd_is_com_section (section
))
3276 new_flags
= (EGPS__V_OVR
| EGPS__V_REL
| EGPS__V_GBL
| EGPS__V_RD
3277 | EGPS__V_WRT
| EGPS__V_NOMOD
| EGPS__V_COM
);
3279 new_flags
= vms_esecflag_by_name (evax_section_flags
, sname
,
3282 /* Modify them as directed. */
3283 if (section
->flags
& SEC_READONLY
)
3284 new_flags
&= ~EGPS__V_WRT
;
3286 new_flags
&= ~vms_section_data (section
)->no_flags
;
3287 new_flags
|= vms_section_data (section
)->flags
;
3289 vms_debug2 ((3, "sec flags %x\n", section
->flags
));
3290 vms_debug2 ((3, "new_flags %x, _raw_size %lu\n",
3291 new_flags
, (unsigned long)section
->size
));
3293 _bfd_vms_output_begin_subrec (recwr
, EGSD__C_PSC
);
3294 _bfd_vms_output_short (recwr
, section
->alignment_power
& 0xff);
3295 _bfd_vms_output_short (recwr
, new_flags
);
3296 _bfd_vms_output_long (recwr
, (unsigned long) section
->size
);
3297 _bfd_vms_output_counted (recwr
, sname
);
3298 _bfd_vms_output_end_subrec (recwr
);
3300 /* If the section is an obsolute one, remind its index as it will be
3301 used later for absolute symbols. */
3302 if ((new_flags
& EGPS__V_REL
) == 0 && abs_section_index
< 0)
3303 abs_section_index
= section
->target_index
;
3306 /* Output symbols. */
3307 vms_debug2 ((3, "%d symbols found\n", abfd
->symcount
));
3309 bfd_set_start_address (abfd
, (bfd_vma
) -1);
3311 for (symnum
= 0; symnum
< abfd
->symcount
; symnum
++)
3313 symbol
= abfd
->outsymbols
[symnum
];
3314 old_flags
= symbol
->flags
;
3316 /* Work-around a missing feature: consider __main as the main entry
3318 if (symbol
->name
[0] == '_' && strcmp (symbol
->name
, "__main") == 0)
3319 bfd_set_start_address (abfd
, (bfd_vma
)symbol
->value
);
3321 /* Only put in the GSD the global and the undefined symbols. */
3322 if (old_flags
& BSF_FILE
)
3325 if ((old_flags
& BSF_GLOBAL
) == 0 && !bfd_is_und_section (symbol
->section
))
3327 /* If the LIB$INITIIALIZE section is present, add a reference to
3328 LIB$INITIALIZE symbol. FIXME: this should be done explicitely
3329 in the assembly file. */
3330 if (!((old_flags
& BSF_SECTION_SYM
) != 0
3331 && strcmp (symbol
->section
->name
, "LIB$INITIALIZE") == 0))
3335 /* 13 bytes egsd, max 64 chars name -> should be 77 bytes. Add 16 more
3336 bytes for a possible ABS section. */
3337 if (_bfd_vms_output_check (recwr
, 80 + 16) < 0)
3339 _bfd_vms_output_end (abfd
, recwr
);
3340 _bfd_vms_output_begin (recwr
, EOBJ__C_EGSD
);
3341 _bfd_vms_output_long (recwr
, 0);
3344 if ((old_flags
& BSF_GLOBAL
) != 0
3345 && bfd_is_abs_section (symbol
->section
)
3346 && abs_section_index
<= 0)
3348 /* Create an absolute section if none was defined. It is highly
3349 unlikely that the name $ABS$ clashes with a user defined
3350 non-absolute section name. */
3351 _bfd_vms_output_begin_subrec (recwr
, EGSD__C_PSC
);
3352 _bfd_vms_output_short (recwr
, 4);
3353 _bfd_vms_output_short (recwr
, EGPS__V_SHR
);
3354 _bfd_vms_output_long (recwr
, 0);
3355 _bfd_vms_output_counted (recwr
, "$ABS$");
3356 _bfd_vms_output_end_subrec (recwr
);
3358 abs_section_index
= target_index
++;
3361 _bfd_vms_output_begin_subrec (recwr
, EGSD__C_SYM
);
3363 /* Data type, alignment. */
3364 _bfd_vms_output_short (recwr
, 0);
3368 if (old_flags
& BSF_WEAK
)
3369 new_flags
|= EGSY__V_WEAK
;
3370 if (bfd_is_com_section (symbol
->section
)) /* .comm */
3371 new_flags
|= (EGSY__V_WEAK
| EGSY__V_COMM
);
3373 if (old_flags
& BSF_FUNCTION
)
3375 new_flags
|= EGSY__V_NORM
;
3376 new_flags
|= EGSY__V_REL
;
3378 if (old_flags
& BSF_GLOBAL
)
3380 new_flags
|= EGSY__V_DEF
;
3381 if (!bfd_is_abs_section (symbol
->section
))
3382 new_flags
|= EGSY__V_REL
;
3384 _bfd_vms_output_short (recwr
, new_flags
);
3386 if (old_flags
& BSF_GLOBAL
)
3388 /* Symbol definition. */
3389 bfd_vma code_address
= 0;
3390 unsigned long ca_psindx
= 0;
3391 unsigned long psindx
;
3393 if ((old_flags
& BSF_FUNCTION
) && symbol
->udata
.p
!= NULL
)
3398 ((struct evax_private_udata_struct
*)symbol
->udata
.p
)->enbsym
;
3399 code_address
= sym
->value
;
3400 ca_psindx
= sym
->section
->target_index
;
3402 if (bfd_is_abs_section (symbol
->section
))
3403 psindx
= abs_section_index
;
3405 psindx
= symbol
->section
->target_index
;
3407 _bfd_vms_output_quad (recwr
, symbol
->value
);
3408 _bfd_vms_output_quad (recwr
, code_address
);
3409 _bfd_vms_output_long (recwr
, ca_psindx
);
3410 _bfd_vms_output_long (recwr
, psindx
);
3412 _bfd_vms_output_counted (recwr
, symbol
->name
);
3414 _bfd_vms_output_end_subrec (recwr
);
3417 _bfd_vms_output_alignment (recwr
, 8);
3418 _bfd_vms_output_end (abfd
, recwr
);
3423 /* Write object header for bfd abfd. Return FALSE on error. */
3426 _bfd_vms_write_ehdr (bfd
*abfd
)
3429 unsigned int symnum
;
3430 struct vms_rec_wr
*recwr
= &PRIV (recwr
);
3432 vms_debug2 ((2, "vms_write_ehdr (%p)\n", abfd
));
3434 _bfd_vms_output_alignment (recwr
, 2);
3436 _bfd_vms_write_emh (abfd
);
3437 _bfd_vms_write_lmn (abfd
, "GNU AS");
3440 _bfd_vms_output_begin (recwr
, EOBJ__C_EMH
);
3441 _bfd_vms_output_short (recwr
, EMH__C_SRC
);
3443 for (symnum
= 0; symnum
< abfd
->symcount
; symnum
++)
3445 symbol
= abfd
->outsymbols
[symnum
];
3447 if (symbol
->flags
& BSF_FILE
)
3449 _bfd_vms_output_dump (recwr
, (unsigned char *) symbol
->name
,
3450 (int) strlen (symbol
->name
));
3455 if (symnum
== abfd
->symcount
)
3456 _bfd_vms_output_dump (recwr
, (unsigned char *) STRING_COMMA_LEN ("noname"));
3458 _bfd_vms_output_end (abfd
, recwr
);
3461 _bfd_vms_output_begin (recwr
, EOBJ__C_EMH
);
3462 _bfd_vms_output_short (recwr
, EMH__C_TTL
);
3463 _bfd_vms_output_dump (recwr
, (unsigned char *) STRING_COMMA_LEN ("TTL"));
3464 _bfd_vms_output_end (abfd
, recwr
);
3467 _bfd_vms_output_begin (recwr
, EOBJ__C_EMH
);
3468 _bfd_vms_output_short (recwr
, EMH__C_CPR
);
3469 _bfd_vms_output_dump (recwr
,
3470 (unsigned char *)"GNU BFD ported by Klaus Kämpf 1994-1996",
3472 _bfd_vms_output_end (abfd
, recwr
);
3477 /* Part 4.6, relocations. */
3480 /* WRITE ETIR SECTION
3482 This is still under construction and therefore not documented. */
3484 /* Close the etir/etbt record. */
3487 end_etir_record (bfd
* abfd
)
3489 struct vms_rec_wr
*recwr
= &PRIV (recwr
);
3491 _bfd_vms_output_end (abfd
, recwr
);
3495 start_etir_or_etbt_record (bfd
*abfd
, asection
*section
, bfd_vma offset
)
3497 struct vms_rec_wr
*recwr
= &PRIV (recwr
);
3499 if (section
->flags
& SEC_DEBUGGING
)
3501 _bfd_vms_output_begin (recwr
, EOBJ__C_ETBT
);
3505 /* Push start offset. */
3506 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STA_LW
);
3507 _bfd_vms_output_long (recwr
, (unsigned long) 0);
3508 _bfd_vms_output_end_subrec (recwr
);
3511 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_CTL_DFLOC
);
3512 _bfd_vms_output_end_subrec (recwr
);
3517 _bfd_vms_output_begin (recwr
, EOBJ__C_ETIR
);
3521 /* Push start offset. */
3522 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STA_PQ
);
3523 _bfd_vms_output_long (recwr
, (unsigned long) section
->target_index
);
3524 _bfd_vms_output_quad (recwr
, offset
);
3525 _bfd_vms_output_end_subrec (recwr
);
3527 /* Start = pop (). */
3528 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_CTL_SETRB
);
3529 _bfd_vms_output_end_subrec (recwr
);
3534 /* Output a STO_IMM command for SSIZE bytes of data from CPR at virtual
3535 address VADDR in section specified by SEC_INDEX and NAME. */
3538 sto_imm (bfd
*abfd
, asection
*section
,
3539 bfd_size_type ssize
, unsigned char *cptr
, bfd_vma vaddr
)
3542 struct vms_rec_wr
*recwr
= &PRIV (recwr
);
3545 _bfd_vms_debug (8, "sto_imm %d bytes\n", (int) ssize
);
3546 _bfd_hexdump (9, cptr
, (int) ssize
, (int) vaddr
);
3551 /* Try all the rest. */
3554 if (_bfd_vms_output_check (recwr
, size
) < 0)
3556 /* Doesn't fit, split ! */
3557 end_etir_record (abfd
);
3559 start_etir_or_etbt_record (abfd
, section
, vaddr
);
3561 size
= _bfd_vms_output_check (recwr
, 0); /* get max size */
3562 if (size
> ssize
) /* more than what's left ? */
3566 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STO_IMM
);
3567 _bfd_vms_output_long (recwr
, (unsigned long) (size
));
3568 _bfd_vms_output_dump (recwr
, cptr
, size
);
3569 _bfd_vms_output_end_subrec (recwr
);
3572 _bfd_vms_debug (10, "dumped %d bytes\n", (int) size
);
3573 _bfd_hexdump (10, cptr
, (int) size
, (int) vaddr
);
3583 etir_output_check (bfd
*abfd
, asection
*section
, bfd_vma vaddr
, int checklen
)
3585 if (_bfd_vms_output_check (&PRIV (recwr
), checklen
) < 0)
3587 /* Not enough room in this record. Close it and open a new one. */
3588 end_etir_record (abfd
);
3589 start_etir_or_etbt_record (abfd
, section
, vaddr
);
3593 /* Return whether RELOC must be deferred till the end. */
3596 defer_reloc_p (arelent
*reloc
)
3598 switch (reloc
->howto
->type
)
3611 /* Write section contents for bfd abfd. Return FALSE on error. */
3614 _bfd_vms_write_etir (bfd
* abfd
, int objtype ATTRIBUTE_UNUSED
)
3617 struct vms_rec_wr
*recwr
= &PRIV (recwr
);
3619 vms_debug2 ((2, "vms_write_tir (%p, %d)\n", abfd
, objtype
));
3621 _bfd_vms_output_alignment (recwr
, 4);
3623 PRIV (vms_linkage_index
) = 0;
3625 for (section
= abfd
->sections
; section
; section
= section
->next
)
3627 vms_debug2 ((4, "writing %d. section '%s' (%d bytes)\n",
3628 section
->target_index
, section
->name
, (int) (section
->size
)));
3630 if (!(section
->flags
& SEC_HAS_CONTENTS
)
3631 || bfd_is_com_section (section
))
3634 if (!section
->contents
)
3636 bfd_set_error (bfd_error_no_contents
);
3640 start_etir_or_etbt_record (abfd
, section
, 0);
3642 if (section
->flags
& SEC_RELOC
)
3644 bfd_vma curr_addr
= 0;
3645 unsigned char *curr_data
= section
->contents
;
3647 int pass2_needed
= 0;
3648 int pass2_in_progress
= 0;
3651 if (section
->reloc_count
== 0)
3652 (*_bfd_error_handler
)
3653 (_("SEC_RELOC with no relocs in section %s"), section
->name
);
3658 int i
= section
->reloc_count
;
3659 arelent
**rptr
= section
->orelocation
;
3660 _bfd_vms_debug (4, "%d relocations:\n", i
);
3663 _bfd_vms_debug (4, "sym %s in sec %s, value %08lx, "
3664 "addr %08lx, off %08lx, len %d: %s\n",
3665 (*(*rptr
)->sym_ptr_ptr
)->name
,
3666 (*(*rptr
)->sym_ptr_ptr
)->section
->name
,
3667 (long) (*(*rptr
)->sym_ptr_ptr
)->value
,
3668 (unsigned long)(*rptr
)->address
,
3669 (unsigned long)(*rptr
)->addend
,
3670 bfd_get_reloc_size ((*rptr
)->howto
),
3671 ( *rptr
)->howto
->name
);
3678 for (irel
= 0; irel
< section
->reloc_count
; irel
++)
3680 struct evax_private_udata_struct
*udata
;
3681 arelent
*rptr
= section
->orelocation
[irel
];
3682 bfd_vma addr
= rptr
->address
;
3683 asymbol
*sym
= *rptr
->sym_ptr_ptr
;
3684 asection
*sec
= sym
->section
;
3685 bfd_boolean defer
= defer_reloc_p (rptr
);
3688 if (pass2_in_progress
)
3690 /* Non-deferred relocs have already been output. */
3696 /* Deferred relocs must be output at the very end. */
3703 /* Regular relocs are intertwined with binary data. */
3704 if (curr_addr
> addr
)
3705 (*_bfd_error_handler
) (_("Size error in section %s"),
3707 size
= addr
- curr_addr
;
3708 sto_imm (abfd
, section
, size
, curr_data
, curr_addr
);
3713 size
= bfd_get_reloc_size (rptr
->howto
);
3715 switch (rptr
->howto
->type
)
3717 case ALPHA_R_IGNORE
:
3720 case ALPHA_R_REFLONG
:
3721 if (bfd_is_und_section (sym
->section
))
3723 bfd_vma addend
= rptr
->addend
;
3724 slen
= strlen ((char *) sym
->name
);
3725 etir_output_check (abfd
, section
, curr_addr
, slen
);
3728 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STA_GBL
);
3729 _bfd_vms_output_counted (recwr
, sym
->name
);
3730 _bfd_vms_output_end_subrec (recwr
);
3731 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STA_LW
);
3732 _bfd_vms_output_long (recwr
, (unsigned long) addend
);
3733 _bfd_vms_output_end_subrec (recwr
);
3734 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_OPR_ADD
);
3735 _bfd_vms_output_end_subrec (recwr
);
3736 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STO_LW
);
3737 _bfd_vms_output_end_subrec (recwr
);
3741 _bfd_vms_output_begin_subrec
3742 (recwr
, ETIR__C_STO_GBL_LW
);
3743 _bfd_vms_output_counted (recwr
, sym
->name
);
3744 _bfd_vms_output_end_subrec (recwr
);
3747 else if (bfd_is_abs_section (sym
->section
))
3749 etir_output_check (abfd
, section
, curr_addr
, 16);
3750 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STA_LW
);
3751 _bfd_vms_output_long (recwr
, (unsigned long) sym
->value
);
3752 _bfd_vms_output_end_subrec (recwr
);
3753 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STO_LW
);
3754 _bfd_vms_output_end_subrec (recwr
);
3758 etir_output_check (abfd
, section
, curr_addr
, 32);
3759 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STA_PQ
);
3760 _bfd_vms_output_long (recwr
,
3761 (unsigned long) sec
->target_index
);
3762 _bfd_vms_output_quad (recwr
, rptr
->addend
+ sym
->value
);
3763 _bfd_vms_output_end_subrec (recwr
);
3764 /* ??? Table B-8 of the OpenVMS Linker Utilily Manual
3765 says that we should have a ETIR__C_STO_OFF here.
3766 But the relocation would not be BFD_RELOC_32 then.
3767 This case is very likely unreachable. */
3768 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STO_LW
);
3769 _bfd_vms_output_end_subrec (recwr
);
3773 case ALPHA_R_REFQUAD
:
3774 if (bfd_is_und_section (sym
->section
))
3776 bfd_vma addend
= rptr
->addend
;
3777 slen
= strlen ((char *) sym
->name
);
3778 etir_output_check (abfd
, section
, curr_addr
, slen
);
3781 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STA_GBL
);
3782 _bfd_vms_output_counted (recwr
, sym
->name
);
3783 _bfd_vms_output_end_subrec (recwr
);
3784 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STA_QW
);
3785 _bfd_vms_output_quad (recwr
, addend
);
3786 _bfd_vms_output_end_subrec (recwr
);
3787 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_OPR_ADD
);
3788 _bfd_vms_output_end_subrec (recwr
);
3789 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STO_QW
);
3790 _bfd_vms_output_end_subrec (recwr
);
3794 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STO_GBL
);
3795 _bfd_vms_output_counted (recwr
, sym
->name
);
3796 _bfd_vms_output_end_subrec (recwr
);
3799 else if (bfd_is_abs_section (sym
->section
))
3801 etir_output_check (abfd
, section
, curr_addr
, 16);
3802 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STA_QW
);
3803 _bfd_vms_output_quad (recwr
, sym
->value
);
3804 _bfd_vms_output_end_subrec (recwr
);
3805 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STO_QW
);
3806 _bfd_vms_output_end_subrec (recwr
);
3810 etir_output_check (abfd
, section
, curr_addr
, 32);
3811 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STA_PQ
);
3812 _bfd_vms_output_long (recwr
,
3813 (unsigned long) sec
->target_index
);
3814 _bfd_vms_output_quad (recwr
, rptr
->addend
+ sym
->value
);
3815 _bfd_vms_output_end_subrec (recwr
);
3816 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STO_OFF
);
3817 _bfd_vms_output_end_subrec (recwr
);
3822 sto_imm (abfd
, section
, size
, curr_data
, curr_addr
);
3825 case ALPHA_R_LINKAGE
:
3826 etir_output_check (abfd
, section
, curr_addr
, 64);
3827 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STC_LP_PSB
);
3828 _bfd_vms_output_long
3829 (recwr
, (unsigned long) rptr
->addend
);
3830 if (rptr
->addend
> PRIV (vms_linkage_index
))
3831 PRIV (vms_linkage_index
) = rptr
->addend
;
3832 _bfd_vms_output_counted (recwr
, sym
->name
);
3833 _bfd_vms_output_byte (recwr
, 0);
3834 _bfd_vms_output_end_subrec (recwr
);
3837 case ALPHA_R_CODEADDR
:
3838 slen
= strlen ((char *) sym
->name
);
3839 etir_output_check (abfd
, section
, curr_addr
, slen
);
3840 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STO_CA
);
3841 _bfd_vms_output_counted (recwr
, sym
->name
);
3842 _bfd_vms_output_end_subrec (recwr
);
3847 = (struct evax_private_udata_struct
*) rptr
->sym_ptr_ptr
;
3848 etir_output_check (abfd
, section
, curr_addr
,
3849 32 + 1 + strlen (udata
->origname
));
3850 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STC_NOP_GBL
);
3851 _bfd_vms_output_long (recwr
, (unsigned long) udata
->lkindex
);
3852 _bfd_vms_output_long
3853 (recwr
, (unsigned long) section
->target_index
);
3854 _bfd_vms_output_quad (recwr
, rptr
->address
);
3855 _bfd_vms_output_long (recwr
, (unsigned long) 0x47ff041f);
3856 _bfd_vms_output_long
3857 (recwr
, (unsigned long) section
->target_index
);
3858 _bfd_vms_output_quad (recwr
, rptr
->addend
);
3859 _bfd_vms_output_counted (recwr
, udata
->origname
);
3860 _bfd_vms_output_end_subrec (recwr
);
3864 (*_bfd_error_handler
) (_("Spurious ALPHA_R_BSR reloc"));
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_LDA_GBL
);
3873 _bfd_vms_output_long
3874 (recwr
, (unsigned long) udata
->lkindex
+ 1);
3875 _bfd_vms_output_long
3876 (recwr
, (unsigned long) section
->target_index
);
3877 _bfd_vms_output_quad (recwr
, rptr
->address
);
3878 _bfd_vms_output_long (recwr
, (unsigned long) 0x237B0000);
3879 _bfd_vms_output_long
3880 (recwr
, (unsigned long) udata
->bsym
->section
->target_index
);
3881 _bfd_vms_output_quad (recwr
, rptr
->addend
);
3882 _bfd_vms_output_counted (recwr
, udata
->origname
);
3883 _bfd_vms_output_end_subrec (recwr
);
3888 = (struct evax_private_udata_struct
*) rptr
->sym_ptr_ptr
;
3889 etir_output_check (abfd
, section
, curr_addr
,
3890 32 + 1 + strlen (udata
->origname
));
3891 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STC_BOH_GBL
);
3892 _bfd_vms_output_long (recwr
, (unsigned long) udata
->lkindex
);
3893 _bfd_vms_output_long
3894 (recwr
, (unsigned long) section
->target_index
);
3895 _bfd_vms_output_quad (recwr
, rptr
->address
);
3896 _bfd_vms_output_long (recwr
, (unsigned long) 0xD3400000);
3897 _bfd_vms_output_long
3898 (recwr
, (unsigned long) section
->target_index
);
3899 _bfd_vms_output_quad (recwr
, rptr
->addend
);
3900 _bfd_vms_output_counted (recwr
, udata
->origname
);
3901 _bfd_vms_output_end_subrec (recwr
);
3905 (*_bfd_error_handler
) (_("Unhandled relocation %s"),
3912 } /* End of relocs loop. */
3914 if (!pass2_in_progress
)
3916 /* Output rest of section. */
3917 if (curr_addr
> section
->size
)
3918 (*_bfd_error_handler
) (_("Size error in section %s"),
3920 size
= section
->size
- curr_addr
;
3921 sto_imm (abfd
, section
, size
, curr_data
, curr_addr
);
3927 pass2_in_progress
= 1;
3933 else /* (section->flags & SEC_RELOC) */
3934 sto_imm (abfd
, section
, section
->size
, section
->contents
, 0);
3936 end_etir_record (abfd
);
3939 _bfd_vms_output_alignment (recwr
, 2);
3943 /* Write cached information into a file being written, at bfd_close. */
3946 alpha_vms_write_object_contents (bfd
*abfd
)
3948 vms_debug2 ((1, "vms_write_object_contents (%p)\n", abfd
));
3950 if (abfd
->flags
& (EXEC_P
| DYNAMIC
))
3952 return alpha_vms_write_exec (abfd
);
3956 if (abfd
->section_count
> 0) /* we have sections */
3958 if (_bfd_vms_write_ehdr (abfd
) != TRUE
)
3960 if (_bfd_vms_write_egsd (abfd
) != TRUE
)
3962 if (_bfd_vms_write_etir (abfd
, EOBJ__C_ETIR
) != TRUE
)
3964 if (_bfd_vms_write_eeom (abfd
) != TRUE
)
3971 /* Debug stuff: nearest line. */
3973 #define SET_MODULE_PARSED(m) \
3974 do { if ((m)->name == NULL) (m)->name = ""; } while (0)
3975 #define IS_MODULE_PARSED(m) ((m)->name != NULL)
3977 /* Build a new module for the specified BFD. */
3979 static struct module
*
3980 new_module (bfd
*abfd
)
3982 struct module
*module
3983 = (struct module
*) bfd_zalloc (abfd
, sizeof (struct module
));
3984 module
->file_table_count
= 16; /* Arbitrary. */
3986 = bfd_malloc (module
->file_table_count
* sizeof (struct fileinfo
));
3990 /* Parse debug info for a module and internalize it. */
3993 parse_module (bfd
*abfd
, struct module
*module
, unsigned char *ptr
,
3996 unsigned char *maxptr
= ptr
+ length
;
3997 unsigned char *src_ptr
, *pcl_ptr
;
3998 unsigned int prev_linum
= 0, curr_linenum
= 0;
3999 bfd_vma prev_pc
= 0, curr_pc
= 0;
4000 struct srecinfo
*curr_srec
, *srec
;
4001 struct lineinfo
*curr_line
, *line
;
4002 struct funcinfo
*funcinfo
;
4004 /* Initialize tables with zero element. */
4005 curr_srec
= (struct srecinfo
*) bfd_zalloc (abfd
, sizeof (struct srecinfo
));
4006 module
->srec_table
= curr_srec
;
4008 curr_line
= (struct lineinfo
*) bfd_zalloc (abfd
, sizeof (struct lineinfo
));
4009 module
->line_table
= curr_line
;
4011 while (length
== -1 || ptr
< maxptr
)
4013 /* The first byte is not counted in the recorded length. */
4014 int rec_length
= bfd_getl16 (ptr
) + 1;
4015 int rec_type
= bfd_getl16 (ptr
+ 2);
4017 vms_debug2 ((2, "DST record: leng %d, type %d\n", rec_length
, rec_type
));
4019 if (length
== -1 && rec_type
== DST__K_MODEND
)
4026 = _bfd_vms_save_counted_string (ptr
+ DST_S_B_MODBEG_NAME
);
4033 vms_debug2 ((3, "module: %s\n", module
->name
));
4040 funcinfo
= (struct funcinfo
*)
4041 bfd_zalloc (abfd
, sizeof (struct funcinfo
));
4043 = _bfd_vms_save_counted_string (ptr
+ DST_S_B_RTNBEG_NAME
);
4044 funcinfo
->low
= bfd_getl32 (ptr
+ DST_S_L_RTNBEG_ADDRESS
);
4045 funcinfo
->next
= module
->func_table
;
4046 module
->func_table
= funcinfo
;
4048 vms_debug2 ((3, "routine: %s at 0x%lx\n",
4049 funcinfo
->name
, (unsigned long) funcinfo
->low
));
4053 module
->func_table
->high
= module
->func_table
->low
4054 + bfd_getl32 (ptr
+ DST_S_L_RTNEND_SIZE
) - 1;
4056 if (module
->func_table
->high
> module
->high
)
4057 module
->high
= module
->func_table
->high
;
4059 vms_debug2 ((3, "end routine\n"));
4063 vms_debug2 ((3, "prologue\n"));
4067 vms_debug2 ((3, "epilog\n"));
4071 vms_debug2 ((3, "block\n"));
4075 vms_debug2 ((3, "end block\n"));
4079 src_ptr
= ptr
+ DST_S_C_SOURCE_HEADER_SIZE
;
4081 vms_debug2 ((3, "source info\n"));
4083 while (src_ptr
< ptr
+ rec_length
)
4085 int cmd
= src_ptr
[0], cmd_length
, data
;
4089 case DST__K_SRC_DECLFILE
:
4092 = bfd_getl16 (src_ptr
+ DST_S_W_SRC_DF_FILEID
);
4094 = _bfd_vms_save_counted_string (src_ptr
4095 + DST_S_B_SRC_DF_FILENAME
);
4097 while (fileid
>= module
->file_table_count
)
4099 module
->file_table_count
*= 2;
4101 = bfd_realloc (module
->file_table
,
4102 module
->file_table_count
4103 * sizeof (struct fileinfo
));
4106 module
->file_table
[fileid
].name
= filename
;
4107 module
->file_table
[fileid
].srec
= 1;
4108 cmd_length
= src_ptr
[DST_S_B_SRC_DF_LENGTH
] + 2;
4109 vms_debug2 ((4, "DST_S_C_SRC_DECLFILE: %d, %s\n",
4110 fileid
, module
->file_table
[fileid
].name
));
4114 case DST__K_SRC_DEFLINES_B
:
4115 /* Perform the association and set the next higher index
4117 data
= src_ptr
[DST_S_B_SRC_UNSBYTE
];
4118 srec
= (struct srecinfo
*)
4119 bfd_zalloc (abfd
, sizeof (struct srecinfo
));
4120 srec
->line
= curr_srec
->line
+ data
;
4121 srec
->srec
= curr_srec
->srec
+ data
;
4122 srec
->sfile
= curr_srec
->sfile
;
4123 curr_srec
->next
= srec
;
4126 vms_debug2 ((4, "DST_S_C_SRC_DEFLINES_B: %d\n", data
));
4129 case DST__K_SRC_DEFLINES_W
:
4130 /* Perform the association and set the next higher index
4132 data
= bfd_getl16 (src_ptr
+ DST_S_W_SRC_UNSWORD
);
4133 srec
= (struct srecinfo
*)
4134 bfd_zalloc (abfd
, sizeof (struct srecinfo
));
4135 srec
->line
= curr_srec
->line
+ data
;
4136 srec
->srec
= curr_srec
->srec
+ data
,
4137 srec
->sfile
= curr_srec
->sfile
;
4138 curr_srec
->next
= srec
;
4141 vms_debug2 ((4, "DST_S_C_SRC_DEFLINES_W: %d\n", data
));
4144 case DST__K_SRC_INCRLNUM_B
:
4145 data
= src_ptr
[DST_S_B_SRC_UNSBYTE
];
4146 curr_srec
->line
+= data
;
4148 vms_debug2 ((4, "DST_S_C_SRC_INCRLNUM_B: %d\n", data
));
4151 case DST__K_SRC_SETFILE
:
4152 data
= bfd_getl16 (src_ptr
+ DST_S_W_SRC_UNSWORD
);
4153 curr_srec
->sfile
= data
;
4154 curr_srec
->srec
= module
->file_table
[data
].srec
;
4156 vms_debug2 ((4, "DST_S_C_SRC_SETFILE: %d\n", data
));
4159 case DST__K_SRC_SETLNUM_L
:
4160 data
= bfd_getl32 (src_ptr
+ DST_S_L_SRC_UNSLONG
);
4161 curr_srec
->line
= data
;
4163 vms_debug2 ((4, "DST_S_C_SRC_SETLNUM_L: %d\n", data
));
4166 case DST__K_SRC_SETLNUM_W
:
4167 data
= bfd_getl16 (src_ptr
+ DST_S_W_SRC_UNSWORD
);
4168 curr_srec
->line
= data
;
4170 vms_debug2 ((4, "DST_S_C_SRC_SETLNUM_W: %d\n", data
));
4173 case DST__K_SRC_SETREC_L
:
4174 data
= bfd_getl32 (src_ptr
+ DST_S_L_SRC_UNSLONG
);
4175 curr_srec
->srec
= data
;
4176 module
->file_table
[curr_srec
->sfile
].srec
= data
;
4178 vms_debug2 ((4, "DST_S_C_SRC_SETREC_L: %d\n", data
));
4181 case DST__K_SRC_SETREC_W
:
4182 data
= bfd_getl16 (src_ptr
+ DST_S_W_SRC_UNSWORD
);
4183 curr_srec
->srec
= data
;
4184 module
->file_table
[curr_srec
->sfile
].srec
= data
;
4186 vms_debug2 ((4, "DST_S_C_SRC_SETREC_W: %d\n", data
));
4189 case DST__K_SRC_FORMFEED
:
4191 vms_debug2 ((4, "DST_S_C_SRC_FORMFEED\n"));
4195 (*_bfd_error_handler
) (_("unknown source command %d"),
4201 src_ptr
+= cmd_length
;
4205 case DST__K_LINE_NUM
:
4206 pcl_ptr
= ptr
+ DST_S_C_LINE_NUM_HEADER_SIZE
;
4208 vms_debug2 ((3, "line info\n"));
4210 while (pcl_ptr
< ptr
+ rec_length
)
4212 /* The command byte is signed so we must sign-extend it. */
4213 int cmd
= ((signed char *)pcl_ptr
)[0], cmd_length
, data
;
4217 case DST__K_DELTA_PC_W
:
4218 data
= bfd_getl16 (pcl_ptr
+ DST_S_W_PCLINE_UNSWORD
);
4222 vms_debug2 ((4, "DST__K_DELTA_PC_W: %d\n", data
));
4225 case DST__K_DELTA_PC_L
:
4226 data
= bfd_getl32 (pcl_ptr
+ DST_S_L_PCLINE_UNSLONG
);
4230 vms_debug2 ((4, "DST__K_DELTA_PC_L: %d\n", data
));
4233 case DST__K_INCR_LINUM
:
4234 data
= pcl_ptr
[DST_S_B_PCLINE_UNSBYTE
];
4235 curr_linenum
+= data
;
4237 vms_debug2 ((4, "DST__K_INCR_LINUM: %d\n", data
));
4240 case DST__K_INCR_LINUM_W
:
4241 data
= bfd_getl16 (pcl_ptr
+ DST_S_W_PCLINE_UNSWORD
);
4242 curr_linenum
+= data
;
4244 vms_debug2 ((4, "DST__K_INCR_LINUM_W: %d\n", data
));
4247 case DST__K_INCR_LINUM_L
:
4248 data
= bfd_getl32 (pcl_ptr
+ DST_S_L_PCLINE_UNSLONG
);
4249 curr_linenum
+= data
;
4251 vms_debug2 ((4, "DST__K_INCR_LINUM_L: %d\n", data
));
4254 case DST__K_SET_LINUM_INCR
:
4255 (*_bfd_error_handler
)
4256 (_("DST__K_SET_LINUM_INCR not implemented"));
4260 case DST__K_SET_LINUM_INCR_W
:
4261 (*_bfd_error_handler
)
4262 (_("DST__K_SET_LINUM_INCR_W not implemented"));
4266 case DST__K_RESET_LINUM_INCR
:
4267 (*_bfd_error_handler
)
4268 (_("DST__K_RESET_LINUM_INCR not implemented"));
4272 case DST__K_BEG_STMT_MODE
:
4273 (*_bfd_error_handler
)
4274 (_("DST__K_BEG_STMT_MODE not implemented"));
4278 case DST__K_END_STMT_MODE
:
4279 (*_bfd_error_handler
)
4280 (_("DST__K_END_STMT_MODE not implemented"));
4284 case DST__K_SET_LINUM_B
:
4285 data
= pcl_ptr
[DST_S_B_PCLINE_UNSBYTE
];
4286 curr_linenum
= data
;
4288 vms_debug2 ((4, "DST__K_SET_LINUM_B: %d\n", data
));
4291 case DST__K_SET_LINUM
:
4292 data
= bfd_getl16 (pcl_ptr
+ DST_S_W_PCLINE_UNSWORD
);
4293 curr_linenum
= data
;
4295 vms_debug2 ((4, "DST__K_SET_LINE_NUM: %d\n", data
));
4298 case DST__K_SET_LINUM_L
:
4299 data
= bfd_getl32 (pcl_ptr
+ DST_S_L_PCLINE_UNSLONG
);
4300 curr_linenum
= data
;
4302 vms_debug2 ((4, "DST__K_SET_LINUM_L: %d\n", data
));
4306 (*_bfd_error_handler
)
4307 (_("DST__K_SET_PC not implemented"));
4311 case DST__K_SET_PC_W
:
4312 (*_bfd_error_handler
)
4313 (_("DST__K_SET_PC_W not implemented"));
4317 case DST__K_SET_PC_L
:
4318 (*_bfd_error_handler
)
4319 (_("DST__K_SET_PC_L not implemented"));
4323 case DST__K_SET_STMTNUM
:
4324 (*_bfd_error_handler
)
4325 (_("DST__K_SET_STMTNUM not implemented"));
4330 data
= pcl_ptr
[DST_S_B_PCLINE_UNSBYTE
];
4333 vms_debug2 ((4, "DST__K_TERM: %d\n", data
));
4337 data
= bfd_getl16 (pcl_ptr
+ DST_S_W_PCLINE_UNSWORD
);
4340 vms_debug2 ((4, "DST__K_TERM_W: %d\n", data
));
4344 data
= bfd_getl32 (pcl_ptr
+ DST_S_L_PCLINE_UNSLONG
);
4347 vms_debug2 ((4, "DST__K_TERM_L: %d\n", data
));
4350 case DST__K_SET_ABS_PC
:
4351 data
= bfd_getl32 (pcl_ptr
+ DST_S_L_PCLINE_UNSLONG
);
4354 vms_debug2 ((4, "DST__K_SET_ABS_PC: 0x%x\n", data
));
4363 vms_debug2 ((4, "bump pc to 0x%lx and line to %d\n",
4364 (unsigned long)curr_pc
, curr_linenum
));
4368 (*_bfd_error_handler
) (_("unknown line command %d"),
4375 if ((curr_linenum
!= prev_linum
&& curr_pc
!= prev_pc
)
4377 || cmd
== DST__K_DELTA_PC_L
4378 || cmd
== DST__K_DELTA_PC_W
)
4380 line
= (struct lineinfo
*)
4381 bfd_zalloc (abfd
, sizeof (struct lineinfo
));
4382 line
->address
= curr_pc
;
4383 line
->line
= curr_linenum
;
4385 curr_line
->next
= line
;
4388 prev_linum
= curr_linenum
;
4390 vms_debug2 ((4, "-> correlate pc 0x%lx with line %d\n",
4391 (unsigned long)curr_pc
, curr_linenum
));
4394 pcl_ptr
+= cmd_length
;
4398 case 0x17: /* Undocumented type used by DEC C to declare equates. */
4399 vms_debug2 ((3, "undocumented type 0x17\n"));
4403 vms_debug2 ((3, "ignoring record\n"));
4411 /* Finalize tables with EOL marker. */
4412 srec
= (struct srecinfo
*) bfd_zalloc (abfd
, sizeof (struct srecinfo
));
4413 srec
->line
= (unsigned int) -1;
4414 srec
->srec
= (unsigned int) -1;
4415 curr_srec
->next
= srec
;
4417 line
= (struct lineinfo
*) bfd_zalloc (abfd
, sizeof (struct lineinfo
));
4418 line
->line
= (unsigned int) -1;
4419 line
->address
= (bfd_vma
) -1;
4420 curr_line
->next
= line
;
4422 /* Advertise that this module has been parsed. This is needed
4423 because parsing can be either performed at module creation
4424 or deferred until debug info is consumed. */
4425 SET_MODULE_PARSED (module
);
4428 /* Build the list of modules for the specified BFD. */
4430 static struct module
*
4431 build_module_list (bfd
*abfd
)
4433 struct module
*module
, *list
= NULL
;
4436 if ((dmt
= bfd_get_section_by_name (abfd
, "$DMT$")))
4438 /* We have a DMT section so this must be an image. Parse the
4439 section and build the list of modules. This is sufficient
4440 since we can compute the start address and the end address
4441 of every module from the section contents. */
4442 bfd_size_type size
= bfd_get_section_size (dmt
);
4443 unsigned char *ptr
, *end
;
4445 ptr
= (unsigned char *) bfd_alloc (abfd
, size
);
4449 if (! bfd_get_section_contents (abfd
, dmt
, ptr
, 0, size
))
4452 vms_debug2 ((2, "DMT\n"));
4458 /* Each header declares a module with its start offset and size
4459 of debug info in the DST section, as well as the count of
4460 program sections (i.e. address spans) it contains. */
4461 int modbeg
= bfd_getl32 (ptr
+ DBG_S_L_DMT_MODBEG
);
4462 int msize
= bfd_getl32 (ptr
+ DBG_S_L_DST_SIZE
);
4463 int count
= bfd_getl16 (ptr
+ DBG_S_W_DMT_PSECT_COUNT
);
4464 ptr
+= DBG_S_C_DMT_HEADER_SIZE
;
4466 vms_debug2 ((3, "module: modbeg = %d, size = %d, count = %d\n",
4467 modbeg
, msize
, count
));
4469 /* We create a 'module' structure for each program section since
4470 we only support contiguous addresses in a 'module' structure.
4471 As a consequence, the actual debug info in the DST section is
4472 shared and can be parsed multiple times; that doesn't seem to
4473 cause problems in practice. */
4476 int start
= bfd_getl32 (ptr
+ DBG_S_L_DMT_PSECT_START
);
4477 int length
= bfd_getl32 (ptr
+ DBG_S_L_DMT_PSECT_LENGTH
);
4478 module
= new_module (abfd
);
4479 module
->modbeg
= modbeg
;
4480 module
->size
= msize
;
4481 module
->low
= start
;
4482 module
->high
= start
+ length
;
4483 module
->next
= list
;
4485 ptr
+= DBG_S_C_DMT_PSECT_SIZE
;
4487 vms_debug2 ((4, "section: start = 0x%x, length = %d\n",
4494 /* We don't have a DMT section so this must be an object. Parse
4495 the module right now in order to compute its start address and
4497 void *dst
= PRIV (dst_section
)->contents
;
4502 module
= new_module (abfd
);
4503 parse_module (abfd
, module
, PRIV (dst_section
)->contents
, -1);
4510 /* Calculate and return the name of the source file and the line nearest
4511 to the wanted location in the specified module. */
4514 module_find_nearest_line (bfd
*abfd
, struct module
*module
, bfd_vma addr
,
4515 const char **file
, const char **func
,
4518 struct funcinfo
*funcinfo
;
4519 struct lineinfo
*lineinfo
;
4520 struct srecinfo
*srecinfo
;
4521 bfd_boolean ret
= FALSE
;
4523 /* Parse this module if that was not done at module creation. */
4524 if (! IS_MODULE_PARSED (module
))
4526 unsigned int size
= module
->size
;
4527 unsigned int modbeg
= PRIV (dst_section
)->filepos
+ module
->modbeg
;
4528 unsigned char *buffer
= (unsigned char *) bfd_malloc (module
->size
);
4530 if (bfd_seek (abfd
, modbeg
, SEEK_SET
) != 0
4531 || bfd_bread (buffer
, size
, abfd
) != size
)
4533 bfd_set_error (bfd_error_no_debug_section
);
4537 parse_module (abfd
, module
, buffer
, size
);
4541 /* Find out the function (if any) that contains the address. */
4542 for (funcinfo
= module
->func_table
; funcinfo
; funcinfo
= funcinfo
->next
)
4543 if (addr
>= funcinfo
->low
&& addr
<= funcinfo
->high
)
4545 *func
= funcinfo
->name
;
4550 /* Find out the source file and the line nearest to the address. */
4551 for (lineinfo
= module
->line_table
; lineinfo
; lineinfo
= lineinfo
->next
)
4552 if (lineinfo
->next
&& addr
< lineinfo
->next
->address
)
4554 for (srecinfo
= module
->srec_table
; srecinfo
; srecinfo
= srecinfo
->next
)
4555 if (srecinfo
->next
&& lineinfo
->line
< srecinfo
->next
->line
)
4557 if (srecinfo
->sfile
> 0)
4559 *file
= module
->file_table
[srecinfo
->sfile
].name
;
4560 *line
= srecinfo
->srec
+ lineinfo
->line
- srecinfo
->line
;
4564 *file
= module
->name
;
4565 *line
= lineinfo
->line
;
4576 /* Provided a BFD, a section and an offset into the section, calculate and
4577 return the name of the source file and the line nearest to the wanted
4581 _bfd_vms_find_nearest_line (bfd
*abfd
,
4582 asymbol
**symbols ATTRIBUTE_UNUSED
,
4588 unsigned int *discriminator
)
4590 struct module
*module
;
4592 /* What address are we looking for? */
4593 bfd_vma addr
= section
->vma
+ offset
;
4601 /* We can't do anything if there is no DST (debug symbol table). */
4602 if (PRIV (dst_section
) == NULL
)
4605 /* Create the module list - if not already done. */
4606 if (PRIV (modules
) == NULL
)
4608 PRIV (modules
) = build_module_list (abfd
);
4609 if (PRIV (modules
) == NULL
)
4613 for (module
= PRIV (modules
); module
; module
= module
->next
)
4614 if (addr
>= module
->low
&& addr
<= module
->high
)
4615 return module_find_nearest_line (abfd
, module
, addr
, file
, func
, line
);
4620 /* Canonicalizations. */
4621 /* Set name, value, section and flags of SYM from E. */
4624 alpha_vms_convert_symbol (bfd
*abfd
, struct vms_symbol_entry
*e
, asymbol
*sym
)
4633 flags
= BSF_NO_FLAGS
;
4639 if (e
->flags
& EGSY__V_WEAK
)
4642 if (e
->flags
& EGSY__V_DEF
)
4644 /* Symbol definition. */
4645 flags
|= BSF_GLOBAL
;
4646 if (e
->flags
& EGSY__V_NORM
)
4647 flags
|= BSF_FUNCTION
;
4653 /* Symbol reference. */
4654 sec
= bfd_und_section_ptr
;
4659 /* A universal symbol is by definition global... */
4660 flags
|= BSF_GLOBAL
;
4662 /* ...and dynamic in shared libraries. */
4663 if (abfd
->flags
& DYNAMIC
)
4664 flags
|= BSF_DYNAMIC
;
4666 if (e
->flags
& EGSY__V_WEAK
)
4669 if (!(e
->flags
& EGSY__V_DEF
))
4672 if (e
->flags
& EGSY__V_NORM
)
4673 flags
|= BSF_FUNCTION
;
4676 /* sec = e->section; */
4677 sec
= bfd_abs_section_ptr
;
4692 /* Return the number of bytes required to store a vector of pointers
4693 to asymbols for all the symbols in the BFD abfd, including a
4694 terminal NULL pointer. If there are no symbols in the BFD,
4695 then return 0. If an error occurs, return -1. */
4698 alpha_vms_get_symtab_upper_bound (bfd
*abfd
)
4700 vms_debug2 ((1, "alpha_vms_get_symtab_upper_bound (%p), %d symbols\n",
4701 abfd
, PRIV (gsd_sym_count
)));
4703 return (PRIV (gsd_sym_count
) + 1) * sizeof (asymbol
*);
4706 /* Read the symbols from the BFD abfd, and fills in the vector
4707 location with pointers to the symbols and a trailing NULL.
4709 Return number of symbols read. */
4712 alpha_vms_canonicalize_symtab (bfd
*abfd
, asymbol
**symbols
)
4716 vms_debug2 ((1, "alpha_vms_canonicalize_symtab (%p, <ret>)\n", abfd
));
4718 if (PRIV (csymbols
) == NULL
)
4720 PRIV (csymbols
) = (asymbol
**) bfd_alloc
4721 (abfd
, PRIV (gsd_sym_count
) * sizeof (asymbol
*));
4723 /* Traverse table and fill symbols vector. */
4724 for (i
= 0; i
< PRIV (gsd_sym_count
); i
++)
4726 struct vms_symbol_entry
*e
= PRIV (syms
)[i
];
4729 sym
= bfd_make_empty_symbol (abfd
);
4730 if (sym
== NULL
|| !alpha_vms_convert_symbol (abfd
, e
, sym
))
4732 bfd_release (abfd
, PRIV (csymbols
));
4733 PRIV (csymbols
) = NULL
;
4737 PRIV (csymbols
)[i
] = sym
;
4741 if (symbols
!= NULL
)
4743 for (i
= 0; i
< PRIV (gsd_sym_count
); i
++)
4744 symbols
[i
] = PRIV (csymbols
)[i
];
4748 return PRIV (gsd_sym_count
);
4751 /* Read and convert relocations from ETIR. We do it once for all sections. */
4754 alpha_vms_slurp_relocs (bfd
*abfd
)
4758 vms_debug2 ((3, "alpha_vms_slurp_relocs\n"));
4760 /* We slurp relocs only once, for all sections. */
4761 if (PRIV (reloc_done
))
4763 PRIV (reloc_done
) = TRUE
;
4765 if (alpha_vms_canonicalize_symtab (abfd
, NULL
) < 0)
4768 if (bfd_seek (abfd
, 0, SEEK_SET
) != 0)
4773 unsigned char *begin
;
4776 bfd_reloc_code_real_type reloc_code
;
4782 bfd_vma cur_address
;
4784 unsigned char *cur_sym
= NULL
;
4786 bfd_vma cur_addend
= 0;
4788 /* Skip non-ETIR records. */
4789 type
= _bfd_vms_get_object_record (abfd
);
4790 if (type
== EOBJ__C_EEOM
)
4792 if (type
!= EOBJ__C_ETIR
)
4795 begin
= PRIV (recrd
.rec
) + 4;
4796 end
= PRIV (recrd
.rec
) + PRIV (recrd
.rec_size
);
4798 for (ptr
= begin
; ptr
< end
; ptr
+= length
)
4802 cmd
= bfd_getl16 (ptr
);
4803 length
= bfd_getl16 (ptr
+ 2);
4805 cur_address
= vaddr
;
4807 vms_debug2 ((4, "alpha_vms_slurp_relocs: etir %s\n",
4808 _bfd_vms_etir_name (cmd
)));
4812 case ETIR__C_STA_GBL
: /* ALPHA_R_REFLONG und_section, step 1 */
4813 /* ALPHA_R_REFQUAD und_section, step 1 */
4818 case ETIR__C_STA_PQ
: /* ALPHA_R_REF{LONG|QUAD}, others part 1 */
4819 cur_psidx
= bfd_getl32 (ptr
+ 4);
4820 cur_addend
= bfd_getl64 (ptr
+ 8);
4824 case ETIR__C_CTL_SETRB
:
4825 if (prev_cmd
!= ETIR__C_STA_PQ
)
4827 (*_bfd_error_handler
)
4828 (_("Unknown reloc %s + %s"), _bfd_vms_etir_name (prev_cmd
),
4829 _bfd_vms_etir_name (cmd
));
4832 cur_psect
= cur_psidx
;
4838 case ETIR__C_STA_LW
: /* ALPHA_R_REFLONG abs_section, step 1 */
4839 /* ALPHA_R_REFLONG und_section, step 2 */
4842 if (prev_cmd
!= ETIR__C_STA_GBL
)
4844 (*_bfd_error_handler
)
4845 (_("Unknown reloc %s + %s"), _bfd_vms_etir_name (cmd
),
4846 _bfd_vms_etir_name (ETIR__C_STA_LW
));
4850 cur_addend
= bfd_getl32 (ptr
+ 4);
4854 case ETIR__C_STA_QW
: /* ALPHA_R_REFQUAD abs_section, step 1 */
4855 /* ALPHA_R_REFQUAD und_section, step 2 */
4856 if (prev_cmd
!= -1 && prev_cmd
!= ETIR__C_STA_GBL
)
4858 (*_bfd_error_handler
)
4859 (_("Unknown reloc %s + %s"), _bfd_vms_etir_name (cmd
),
4860 _bfd_vms_etir_name (ETIR__C_STA_QW
));
4863 cur_addend
= bfd_getl64 (ptr
+ 4);
4867 case ETIR__C_STO_LW
: /* ALPHA_R_REFLONG und_section, step 4 */
4868 /* ALPHA_R_REFLONG abs_section, step 2 */
4869 /* ALPHA_R_REFLONG others, step 2 */
4870 if (prev_cmd
!= ETIR__C_OPR_ADD
4871 && prev_cmd
!= ETIR__C_STA_LW
4872 && prev_cmd
!= ETIR__C_STA_PQ
)
4874 (*_bfd_error_handler
) (_("Unknown reloc %s + %s"),
4875 _bfd_vms_etir_name (prev_cmd
),
4876 _bfd_vms_etir_name (ETIR__C_STO_LW
));
4879 reloc_code
= BFD_RELOC_32
;
4882 case ETIR__C_STO_QW
: /* ALPHA_R_REFQUAD und_section, step 4 */
4883 /* ALPHA_R_REFQUAD abs_section, step 2 */
4884 if (prev_cmd
!= ETIR__C_OPR_ADD
&& prev_cmd
!= ETIR__C_STA_QW
)
4886 (*_bfd_error_handler
) (_("Unknown reloc %s + %s"),
4887 _bfd_vms_etir_name (prev_cmd
),
4888 _bfd_vms_etir_name (ETIR__C_STO_QW
));
4891 reloc_code
= BFD_RELOC_64
;
4894 case ETIR__C_STO_OFF
: /* ALPHA_R_REFQUAD others, step 2 */
4895 if (prev_cmd
!= ETIR__C_STA_PQ
)
4897 (*_bfd_error_handler
) (_("Unknown reloc %s + %s"),
4898 _bfd_vms_etir_name (prev_cmd
),
4899 _bfd_vms_etir_name (ETIR__C_STO_OFF
));
4902 reloc_code
= BFD_RELOC_64
;
4905 case ETIR__C_OPR_ADD
: /* ALPHA_R_REFLONG und_section, step 3 */
4906 /* ALPHA_R_REFQUAD und_section, step 3 */
4907 if (prev_cmd
!= ETIR__C_STA_LW
&& prev_cmd
!= ETIR__C_STA_QW
)
4909 (*_bfd_error_handler
) (_("Unknown reloc %s + %s"),
4910 _bfd_vms_etir_name (prev_cmd
),
4911 _bfd_vms_etir_name (ETIR__C_OPR_ADD
));
4914 prev_cmd
= ETIR__C_OPR_ADD
;
4917 case ETIR__C_STO_CA
: /* ALPHA_R_CODEADDR */
4918 reloc_code
= BFD_RELOC_ALPHA_CODEADDR
;
4922 case ETIR__C_STO_GBL
: /* ALPHA_R_REFQUAD und_section */
4923 reloc_code
= BFD_RELOC_64
;
4927 case ETIR__C_STO_GBL_LW
: /* ALPHA_R_REFLONG und_section */
4928 reloc_code
= BFD_RELOC_32
;
4932 case ETIR__C_STC_LP_PSB
: /* ALPHA_R_LINKAGE */
4933 reloc_code
= BFD_RELOC_ALPHA_LINKAGE
;
4937 case ETIR__C_STC_NOP_GBL
: /* ALPHA_R_NOP */
4938 reloc_code
= BFD_RELOC_ALPHA_NOP
;
4941 case ETIR__C_STC_BSR_GBL
: /* ALPHA_R_BSR */
4942 reloc_code
= BFD_RELOC_ALPHA_BSR
;
4945 case ETIR__C_STC_LDA_GBL
: /* ALPHA_R_LDA */
4946 reloc_code
= BFD_RELOC_ALPHA_LDA
;
4949 case ETIR__C_STC_BOH_GBL
: /* ALPHA_R_BOH */
4950 reloc_code
= BFD_RELOC_ALPHA_BOH
;
4954 cur_sym
= ptr
+ 4 + 32;
4955 cur_address
= bfd_getl64 (ptr
+ 4 + 8);
4956 cur_addend
= bfd_getl64 (ptr
+ 4 + 24);
4959 case ETIR__C_STO_IMM
:
4960 vaddr
+= bfd_getl32 (ptr
+ 4);
4964 (*_bfd_error_handler
) (_("Unknown reloc %s"),
4965 _bfd_vms_etir_name (cmd
));
4971 struct vms_section_data_struct
*vms_sec
;
4974 /* Get section to which the relocation applies. */
4975 if (cur_psect
< 0 || cur_psect
> (int)PRIV (section_count
))
4977 (*_bfd_error_handler
) (_("Invalid section index in ETIR"));
4981 sec
= PRIV (sections
)[cur_psect
];
4982 if (sec
== bfd_abs_section_ptr
)
4984 (*_bfd_error_handler
) (_("Relocation for non-REL psect"));
4988 vms_sec
= vms_section_data (sec
);
4990 /* Allocate a reloc entry. */
4991 if (sec
->reloc_count
>= vms_sec
->reloc_max
)
4993 if (vms_sec
->reloc_max
== 0)
4995 vms_sec
->reloc_max
= 64;
4996 sec
->relocation
= bfd_zmalloc
4997 (vms_sec
->reloc_max
* sizeof (arelent
));
5001 vms_sec
->reloc_max
*= 2;
5002 sec
->relocation
= bfd_realloc
5003 (sec
->relocation
, vms_sec
->reloc_max
* sizeof (arelent
));
5006 reloc
= &sec
->relocation
[sec
->reloc_count
];
5009 reloc
->howto
= bfd_reloc_type_lookup (abfd
, reloc_code
);
5011 if (cur_sym
!= NULL
)
5014 unsigned int symlen
= *cur_sym
;
5017 /* Linear search. */
5022 for (j
= 0; j
< PRIV (gsd_sym_count
); j
++)
5023 if (PRIV (syms
)[j
]->namelen
== symlen
5024 && memcmp (PRIV (syms
)[j
]->name
, cur_sym
, symlen
) == 0)
5026 sym
= &PRIV (csymbols
)[j
];
5031 (*_bfd_error_handler
) (_("Unknown symbol in command %s"),
5032 _bfd_vms_etir_name (cmd
));
5033 reloc
->sym_ptr_ptr
= NULL
;
5036 reloc
->sym_ptr_ptr
= sym
;
5038 else if (cur_psidx
>= 0)
5039 reloc
->sym_ptr_ptr
=
5040 PRIV (sections
)[cur_psidx
]->symbol_ptr_ptr
;
5042 reloc
->sym_ptr_ptr
= NULL
;
5044 reloc
->address
= cur_address
;
5045 reloc
->addend
= cur_addend
;
5047 vaddr
+= bfd_get_reloc_size (reloc
->howto
);
5056 vms_debug2 ((3, "alpha_vms_slurp_relocs: result = TRUE\n"));
5061 /* Return the number of bytes required to store the relocation
5062 information associated with the given section. */
5065 alpha_vms_get_reloc_upper_bound (bfd
*abfd ATTRIBUTE_UNUSED
, asection
*section
)
5067 alpha_vms_slurp_relocs (abfd
);
5069 return (section
->reloc_count
+ 1) * sizeof (arelent
*);
5072 /* Convert relocations from VMS (external) form into BFD internal
5073 form. Return the number of relocations. */
5076 alpha_vms_canonicalize_reloc (bfd
*abfd
, asection
*section
, arelent
**relptr
,
5077 asymbol
**symbols ATTRIBUTE_UNUSED
)
5082 if (!alpha_vms_slurp_relocs (abfd
))
5085 count
= section
->reloc_count
;
5086 tblptr
= section
->relocation
;
5089 *relptr
++ = tblptr
++;
5091 *relptr
= (arelent
*) NULL
;
5092 return section
->reloc_count
;
5095 /* This is just copied from ecoff-alpha, needs to be fixed probably. */
5097 /* How to process the various reloc types. */
5099 static bfd_reloc_status_type
5100 reloc_nil (bfd
* abfd ATTRIBUTE_UNUSED
,
5101 arelent
*reloc ATTRIBUTE_UNUSED
,
5102 asymbol
*sym ATTRIBUTE_UNUSED
,
5103 void * data ATTRIBUTE_UNUSED
,
5104 asection
*sec ATTRIBUTE_UNUSED
,
5105 bfd
*output_bfd ATTRIBUTE_UNUSED
,
5106 char **error_message ATTRIBUTE_UNUSED
)
5109 vms_debug (1, "reloc_nil (abfd %p, output_bfd %p)\n", abfd
, output_bfd
);
5110 vms_debug (2, "In section %s, symbol %s\n",
5111 sec
->name
, sym
->name
);
5112 vms_debug (2, "reloc sym %s, addr %08lx, addend %08lx, reloc is a %s\n",
5113 reloc
->sym_ptr_ptr
[0]->name
,
5114 (unsigned long)reloc
->address
,
5115 (unsigned long)reloc
->addend
, reloc
->howto
->name
);
5116 vms_debug (2, "data at %p\n", data
);
5117 /* _bfd_hexdump (2, data, bfd_get_reloc_size (reloc->howto), 0); */
5120 return bfd_reloc_ok
;
5123 /* In case we're on a 32-bit machine, construct a 64-bit "-1" value
5124 from smaller values. Start with zero, widen, *then* decrement. */
5125 #define MINUS_ONE (((bfd_vma)0) - 1)
5127 static reloc_howto_type alpha_howto_table
[] =
5129 HOWTO (ALPHA_R_IGNORE
, /* Type. */
5130 0, /* Rightshift. */
5131 0, /* Size (0 = byte, 1 = short, 2 = long). */
5133 TRUE
, /* PC relative. */
5135 complain_overflow_dont
,/* Complain_on_overflow. */
5136 reloc_nil
, /* Special_function. */
5137 "IGNORE", /* Name. */
5138 TRUE
, /* Partial_inplace. */
5139 0, /* Source mask */
5141 TRUE
), /* PC rel offset. */
5143 /* A 64 bit reference to a symbol. */
5144 HOWTO (ALPHA_R_REFQUAD
, /* Type. */
5145 0, /* Rightshift. */
5146 4, /* Size (0 = byte, 1 = short, 2 = long). */
5148 FALSE
, /* PC relative. */
5150 complain_overflow_bitfield
, /* Complain_on_overflow. */
5151 reloc_nil
, /* Special_function. */
5152 "REFQUAD", /* Name. */
5153 TRUE
, /* Partial_inplace. */
5154 MINUS_ONE
, /* Source mask. */
5155 MINUS_ONE
, /* Dest mask. */
5156 FALSE
), /* PC rel offset. */
5158 /* A 21 bit branch. The native assembler generates these for
5159 branches within the text segment, and also fills in the PC
5160 relative offset in the instruction. */
5161 HOWTO (ALPHA_R_BRADDR
, /* Type. */
5162 2, /* Rightshift. */
5163 2, /* Size (0 = byte, 1 = short, 2 = long). */
5165 TRUE
, /* PC relative. */
5167 complain_overflow_signed
, /* Complain_on_overflow. */
5168 reloc_nil
, /* Special_function. */
5169 "BRADDR", /* Name. */
5170 TRUE
, /* Partial_inplace. */
5171 0x1fffff, /* Source mask. */
5172 0x1fffff, /* Dest mask. */
5173 FALSE
), /* PC rel offset. */
5175 /* A hint for a jump to a register. */
5176 HOWTO (ALPHA_R_HINT
, /* Type. */
5177 2, /* Rightshift. */
5178 1, /* Size (0 = byte, 1 = short, 2 = long). */
5180 TRUE
, /* PC relative. */
5182 complain_overflow_dont
,/* Complain_on_overflow. */
5183 reloc_nil
, /* Special_function. */
5185 TRUE
, /* Partial_inplace. */
5186 0x3fff, /* Source mask. */
5187 0x3fff, /* Dest mask. */
5188 FALSE
), /* PC rel offset. */
5190 /* 16 bit PC relative offset. */
5191 HOWTO (ALPHA_R_SREL16
, /* Type. */
5192 0, /* Rightshift. */
5193 1, /* Size (0 = byte, 1 = short, 2 = long). */
5195 TRUE
, /* PC relative. */
5197 complain_overflow_signed
, /* Complain_on_overflow. */
5198 reloc_nil
, /* Special_function. */
5199 "SREL16", /* Name. */
5200 TRUE
, /* Partial_inplace. */
5201 0xffff, /* Source mask. */
5202 0xffff, /* Dest mask. */
5203 FALSE
), /* PC rel offset. */
5205 /* 32 bit PC relative offset. */
5206 HOWTO (ALPHA_R_SREL32
, /* Type. */
5207 0, /* Rightshift. */
5208 2, /* Size (0 = byte, 1 = short, 2 = long). */
5210 TRUE
, /* PC relative. */
5212 complain_overflow_signed
, /* Complain_on_overflow. */
5213 reloc_nil
, /* Special_function. */
5214 "SREL32", /* Name. */
5215 TRUE
, /* Partial_inplace. */
5216 0xffffffff, /* Source mask. */
5217 0xffffffff, /* Dest mask. */
5218 FALSE
), /* PC rel offset. */
5220 /* A 64 bit PC relative offset. */
5221 HOWTO (ALPHA_R_SREL64
, /* Type. */
5222 0, /* Rightshift. */
5223 4, /* Size (0 = byte, 1 = short, 2 = long). */
5225 TRUE
, /* PC relative. */
5227 complain_overflow_signed
, /* Complain_on_overflow. */
5228 reloc_nil
, /* Special_function. */
5229 "SREL64", /* Name. */
5230 TRUE
, /* Partial_inplace. */
5231 MINUS_ONE
, /* Source mask. */
5232 MINUS_ONE
, /* Dest mask. */
5233 FALSE
), /* PC rel offset. */
5235 /* Push a value on the reloc evaluation stack. */
5236 HOWTO (ALPHA_R_OP_PUSH
, /* Type. */
5237 0, /* Rightshift. */
5238 0, /* Size (0 = byte, 1 = short, 2 = long). */
5240 FALSE
, /* PC relative. */
5242 complain_overflow_dont
,/* Complain_on_overflow. */
5243 reloc_nil
, /* Special_function. */
5244 "OP_PUSH", /* Name. */
5245 FALSE
, /* Partial_inplace. */
5246 0, /* Source mask. */
5248 FALSE
), /* PC rel offset. */
5250 /* Store the value from the stack at the given address. Store it in
5251 a bitfield of size r_size starting at bit position r_offset. */
5252 HOWTO (ALPHA_R_OP_STORE
, /* Type. */
5253 0, /* Rightshift. */
5254 4, /* Size (0 = byte, 1 = short, 2 = long). */
5256 FALSE
, /* PC relative. */
5258 complain_overflow_dont
,/* Complain_on_overflow. */
5259 reloc_nil
, /* Special_function. */
5260 "OP_STORE", /* Name. */
5261 FALSE
, /* Partial_inplace. */
5262 0, /* Source mask. */
5263 MINUS_ONE
, /* Dest mask. */
5264 FALSE
), /* PC rel offset. */
5266 /* Subtract the reloc address from the value on the top of the
5267 relocation stack. */
5268 HOWTO (ALPHA_R_OP_PSUB
, /* 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_PSUB", /* Name. */
5277 FALSE
, /* Partial_inplace. */
5278 0, /* Source mask. */
5280 FALSE
), /* PC rel offset. */
5282 /* Shift the value on the top of the relocation stack right by the
5284 HOWTO (ALPHA_R_OP_PRSHIFT
, /* Type. */
5285 0, /* Rightshift. */
5286 0, /* 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_PRSHIFT", /* Name. */
5293 FALSE
, /* Partial_inplace. */
5294 0, /* Source mask. */
5296 FALSE
), /* PC rel offset. */
5298 /* Hack. Linkage is done by linker. */
5299 HOWTO (ALPHA_R_LINKAGE
, /* Type. */
5300 0, /* Rightshift. */
5301 8, /* Size (0 = byte, 1 = short, 2 = long). */
5303 FALSE
, /* PC relative. */
5305 complain_overflow_dont
,/* Complain_on_overflow. */
5306 reloc_nil
, /* Special_function. */
5307 "LINKAGE", /* Name. */
5308 FALSE
, /* Partial_inplace. */
5309 0, /* Source mask. */
5311 FALSE
), /* PC rel offset. */
5313 /* A 32 bit reference to a symbol. */
5314 HOWTO (ALPHA_R_REFLONG
, /* Type. */
5315 0, /* Rightshift. */
5316 2, /* Size (0 = byte, 1 = short, 2 = long). */
5318 FALSE
, /* PC relative. */
5320 complain_overflow_bitfield
, /* Complain_on_overflow. */
5321 reloc_nil
, /* Special_function. */
5322 "REFLONG", /* Name. */
5323 TRUE
, /* Partial_inplace. */
5324 0xffffffff, /* Source mask. */
5325 0xffffffff, /* Dest mask. */
5326 FALSE
), /* PC rel offset. */
5328 /* A 64 bit reference to a procedure, written as 32 bit value. */
5329 HOWTO (ALPHA_R_CODEADDR
, /* Type. */
5330 0, /* Rightshift. */
5331 4, /* Size (0 = byte, 1 = short, 2 = long). */
5333 FALSE
, /* PC relative. */
5335 complain_overflow_signed
,/* Complain_on_overflow. */
5336 reloc_nil
, /* Special_function. */
5337 "CODEADDR", /* Name. */
5338 FALSE
, /* Partial_inplace. */
5339 0xffffffff, /* Source mask. */
5340 0xffffffff, /* Dest mask. */
5341 FALSE
), /* PC rel offset. */
5343 HOWTO (ALPHA_R_NOP
, /* Type. */
5344 0, /* Rightshift. */
5345 3, /* Size (0 = byte, 1 = short, 2 = long). */
5347 /* The following value must match that of ALPHA_R_BSR/ALPHA_R_BOH
5348 because the calculations for the 3 relocations are the same.
5349 See B.4.5.2 of the OpenVMS Linker Utility Manual. */
5350 TRUE
, /* PC relative. */
5352 complain_overflow_dont
,/* Complain_on_overflow. */
5353 reloc_nil
, /* Special_function. */
5355 FALSE
, /* Partial_inplace. */
5356 0xffffffff, /* Source mask. */
5357 0xffffffff, /* Dest mask. */
5358 FALSE
), /* PC rel offset. */
5360 HOWTO (ALPHA_R_BSR
, /* Type. */
5361 0, /* Rightshift. */
5362 3, /* Size (0 = byte, 1 = short, 2 = long). */
5364 TRUE
, /* PC relative. */
5366 complain_overflow_dont
,/* Complain_on_overflow. */
5367 reloc_nil
, /* Special_function. */
5369 FALSE
, /* Partial_inplace. */
5370 0xffffffff, /* Source mask. */
5371 0xffffffff, /* Dest mask. */
5372 FALSE
), /* PC rel offset. */
5374 HOWTO (ALPHA_R_LDA
, /* Type. */
5375 0, /* Rightshift. */
5376 3, /* Size (0 = byte, 1 = short, 2 = long). */
5378 FALSE
, /* PC relative. */
5380 complain_overflow_dont
,/* Complain_on_overflow. */
5381 reloc_nil
, /* Special_function. */
5383 FALSE
, /* Partial_inplace. */
5384 0xffffffff, /* Source mask. */
5385 0xffffffff, /* Dest mask. */
5386 FALSE
), /* PC rel offset. */
5388 HOWTO (ALPHA_R_BOH
, /* Type. */
5389 0, /* Rightshift. */
5390 3, /* Size (0 = byte, 1 = short, 2 = long, 3 = nil). */
5392 TRUE
, /* PC relative. */
5394 complain_overflow_dont
,/* Complain_on_overflow. */
5395 reloc_nil
, /* Special_function. */
5397 FALSE
, /* Partial_inplace. */
5398 0xffffffff, /* Source mask. */
5399 0xffffffff, /* Dest mask. */
5400 FALSE
), /* PC rel offset. */
5403 /* Return a pointer to a howto structure which, when invoked, will perform
5404 the relocation code on data from the architecture noted. */
5406 static const struct reloc_howto_struct
*
5407 alpha_vms_bfd_reloc_type_lookup (bfd
* abfd ATTRIBUTE_UNUSED
,
5408 bfd_reloc_code_real_type code
)
5412 vms_debug2 ((1, "vms_bfd_reloc_type_lookup (%p, %d)\t", abfd
, code
));
5416 case BFD_RELOC_16
: alpha_type
= ALPHA_R_SREL16
; break;
5417 case BFD_RELOC_32
: alpha_type
= ALPHA_R_REFLONG
; break;
5418 case BFD_RELOC_64
: alpha_type
= ALPHA_R_REFQUAD
; break;
5419 case BFD_RELOC_CTOR
: alpha_type
= ALPHA_R_REFQUAD
; break;
5420 case BFD_RELOC_23_PCREL_S2
: alpha_type
= ALPHA_R_BRADDR
; break;
5421 case BFD_RELOC_ALPHA_HINT
: alpha_type
= ALPHA_R_HINT
; break;
5422 case BFD_RELOC_16_PCREL
: alpha_type
= ALPHA_R_SREL16
; break;
5423 case BFD_RELOC_32_PCREL
: alpha_type
= ALPHA_R_SREL32
; break;
5424 case BFD_RELOC_64_PCREL
: alpha_type
= ALPHA_R_SREL64
; break;
5425 case BFD_RELOC_ALPHA_LINKAGE
: alpha_type
= ALPHA_R_LINKAGE
; break;
5426 case BFD_RELOC_ALPHA_CODEADDR
: alpha_type
= ALPHA_R_CODEADDR
; break;
5427 case BFD_RELOC_ALPHA_NOP
: alpha_type
= ALPHA_R_NOP
; break;
5428 case BFD_RELOC_ALPHA_BSR
: alpha_type
= ALPHA_R_BSR
; break;
5429 case BFD_RELOC_ALPHA_LDA
: alpha_type
= ALPHA_R_LDA
; break;
5430 case BFD_RELOC_ALPHA_BOH
: alpha_type
= ALPHA_R_BOH
; break;
5432 (*_bfd_error_handler
) ("reloc (%d) is *UNKNOWN*", code
);
5435 vms_debug2 ((2, "reloc is %s\n", alpha_howto_table
[alpha_type
].name
));
5436 return & alpha_howto_table
[alpha_type
];
5439 static reloc_howto_type
*
5440 alpha_vms_bfd_reloc_name_lookup (bfd
*abfd ATTRIBUTE_UNUSED
,
5446 i
< sizeof (alpha_howto_table
) / sizeof (alpha_howto_table
[0]);
5448 if (alpha_howto_table
[i
].name
!= NULL
5449 && strcasecmp (alpha_howto_table
[i
].name
, r_name
) == 0)
5450 return &alpha_howto_table
[i
];
5456 alpha_vms_get_synthetic_symtab (bfd
*abfd
,
5457 long symcount ATTRIBUTE_UNUSED
,
5458 asymbol
**usyms ATTRIBUTE_UNUSED
,
5459 long dynsymcount ATTRIBUTE_UNUSED
,
5460 asymbol
**dynsyms ATTRIBUTE_UNUSED
,
5467 syms
= (asymbol
*) bfd_malloc (PRIV (norm_sym_count
) * sizeof (asymbol
));
5472 for (i
= 0; i
< PRIV (gsd_sym_count
); i
++)
5474 struct vms_symbol_entry
*e
= PRIV (syms
)[i
];
5485 flags
= BSF_LOCAL
| BSF_SYNTHETIC
;
5492 if ((e
->flags
& EGSY__V_DEF
) && (e
->flags
& EGSY__V_NORM
))
5494 value
= e
->code_value
;
5495 sec
= e
->code_section
;
5506 sname
= bfd_alloc (abfd
, l
+ 5);
5509 memcpy (sname
, name
, l
);
5510 memcpy (sname
+ l
, "..en", 5);
5517 sym
->udata
.p
= NULL
;
5526 vms_time_to_str (unsigned char *buf
)
5528 time_t t
= vms_rawtime_to_time_t (buf
);
5529 char *res
= ctime (&t
);
5532 res
= "*invalid time*";
5539 evax_bfd_print_emh (FILE *file
, unsigned char *rec
, unsigned int rec_len
)
5541 struct vms_emh_common
*emh
= (struct vms_emh_common
*)rec
;
5542 unsigned int subtype
;
5544 subtype
= (unsigned)bfd_getl16 (emh
->subtyp
);
5546 fprintf (file
, _(" EMH %u (len=%u): "), subtype
, rec_len
);
5552 struct vms_emh_mhd
*mhd
= (struct vms_emh_mhd
*)rec
;
5555 fprintf (file
, _("Module header\n"));
5556 fprintf (file
, _(" structure level: %u\n"), mhd
->strlvl
);
5557 fprintf (file
, _(" max record size: %u\n"),
5558 (unsigned)bfd_getl32 (mhd
->recsiz
));
5559 name
= (char *)(mhd
+ 1);
5560 fprintf (file
, _(" module name : %.*s\n"), name
[0], name
+ 1);
5561 name
+= name
[0] + 1;
5562 fprintf (file
, _(" module version : %.*s\n"), name
[0], name
+ 1);
5563 name
+= name
[0] + 1;
5564 fprintf (file
, _(" compile date : %.17s\n"), name
);
5569 fprintf (file
, _("Language Processor Name\n"));
5570 fprintf (file
, _(" language name: %.*s\n"),
5571 (int)(rec_len
- sizeof (struct vms_emh_common
)),
5572 (char *)rec
+ sizeof (struct vms_emh_common
));
5577 fprintf (file
, _("Source Files Header\n"));
5578 fprintf (file
, _(" file: %.*s\n"),
5579 (int)(rec_len
- sizeof (struct vms_emh_common
)),
5580 (char *)rec
+ sizeof (struct vms_emh_common
));
5585 fprintf (file
, _("Title Text Header\n"));
5586 fprintf (file
, _(" title: %.*s\n"),
5587 (int)(rec_len
- sizeof (struct vms_emh_common
)),
5588 (char *)rec
+ sizeof (struct vms_emh_common
));
5593 fprintf (file
, _("Copyright Header\n"));
5594 fprintf (file
, _(" copyright: %.*s\n"),
5595 (int)(rec_len
- sizeof (struct vms_emh_common
)),
5596 (char *)rec
+ sizeof (struct vms_emh_common
));
5600 fprintf (file
, _("unhandled emh subtype %u\n"), subtype
);
5606 evax_bfd_print_eeom (FILE *file
, unsigned char *rec
, unsigned int rec_len
)
5608 struct vms_eeom
*eeom
= (struct vms_eeom
*)rec
;
5610 fprintf (file
, _(" EEOM (len=%u):\n"), rec_len
);
5611 fprintf (file
, _(" number of cond linkage pairs: %u\n"),
5612 (unsigned)bfd_getl32 (eeom
->total_lps
));
5613 fprintf (file
, _(" completion code: %u\n"),
5614 (unsigned)bfd_getl16 (eeom
->comcod
));
5617 fprintf (file
, _(" transfer addr flags: 0x%02x\n"), eeom
->tfrflg
);
5618 fprintf (file
, _(" transfer addr psect: %u\n"),
5619 (unsigned)bfd_getl32 (eeom
->psindx
));
5620 fprintf (file
, _(" transfer address : 0x%08x\n"),
5621 (unsigned)bfd_getl32 (eeom
->tfradr
));
5626 exav_bfd_print_egsy_flags (unsigned int flags
, FILE *file
)
5628 if (flags
& EGSY__V_WEAK
)
5629 fputs (_(" WEAK"), file
);
5630 if (flags
& EGSY__V_DEF
)
5631 fputs (_(" DEF"), file
);
5632 if (flags
& EGSY__V_UNI
)
5633 fputs (_(" UNI"), file
);
5634 if (flags
& EGSY__V_REL
)
5635 fputs (_(" REL"), file
);
5636 if (flags
& EGSY__V_COMM
)
5637 fputs (_(" COMM"), file
);
5638 if (flags
& EGSY__V_VECEP
)
5639 fputs (_(" VECEP"), file
);
5640 if (flags
& EGSY__V_NORM
)
5641 fputs (_(" NORM"), file
);
5642 if (flags
& EGSY__V_QUAD_VAL
)
5643 fputs (_(" QVAL"), file
);
5647 evax_bfd_print_egsd_flags (FILE *file
, unsigned int flags
)
5649 if (flags
& EGPS__V_PIC
)
5650 fputs (_(" PIC"), file
);
5651 if (flags
& EGPS__V_LIB
)
5652 fputs (_(" LIB"), file
);
5653 if (flags
& EGPS__V_OVR
)
5654 fputs (_(" OVR"), file
);
5655 if (flags
& EGPS__V_REL
)
5656 fputs (_(" REL"), file
);
5657 if (flags
& EGPS__V_GBL
)
5658 fputs (_(" GBL"), file
);
5659 if (flags
& EGPS__V_SHR
)
5660 fputs (_(" SHR"), file
);
5661 if (flags
& EGPS__V_EXE
)
5662 fputs (_(" EXE"), file
);
5663 if (flags
& EGPS__V_RD
)
5664 fputs (_(" RD"), file
);
5665 if (flags
& EGPS__V_WRT
)
5666 fputs (_(" WRT"), file
);
5667 if (flags
& EGPS__V_VEC
)
5668 fputs (_(" VEC"), file
);
5669 if (flags
& EGPS__V_NOMOD
)
5670 fputs (_(" NOMOD"), file
);
5671 if (flags
& EGPS__V_COM
)
5672 fputs (_(" COM"), file
);
5673 if (flags
& EGPS__V_ALLOC_64BIT
)
5674 fputs (_(" 64B"), file
);
5678 evax_bfd_print_egsd (FILE *file
, unsigned char *rec
, unsigned int rec_len
)
5680 unsigned int off
= sizeof (struct vms_egsd
);
5683 fprintf (file
, _(" EGSD (len=%u):\n"), rec_len
);
5686 for (off
= sizeof (struct vms_egsd
); off
< rec_len
; )
5688 struct vms_egsd_entry
*e
= (struct vms_egsd_entry
*)(rec
+ off
);
5692 type
= (unsigned)bfd_getl16 (e
->gsdtyp
);
5693 len
= (unsigned)bfd_getl16 (e
->gsdsiz
);
5695 fprintf (file
, _(" EGSD entry %2u (type: %u, len: %u): "),
5703 struct vms_egps
*egps
= (struct vms_egps
*)e
;
5704 unsigned int flags
= bfd_getl16 (egps
->flags
);
5707 fprintf (file
, _("PSC - Program section definition\n"));
5708 fprintf (file
, _(" alignment : 2**%u\n"), egps
->align
);
5709 fprintf (file
, _(" flags : 0x%04x"), flags
);
5710 evax_bfd_print_egsd_flags (file
, flags
);
5712 l
= bfd_getl32 (egps
->alloc
);
5713 fprintf (file
, _(" alloc (len): %u (0x%08x)\n"), l
, l
);
5714 fprintf (file
, _(" name : %.*s\n"),
5715 egps
->namlng
, egps
->name
);
5720 struct vms_esgps
*esgps
= (struct vms_esgps
*)e
;
5721 unsigned int flags
= bfd_getl16 (esgps
->flags
);
5724 fprintf (file
, _("SPSC - Shared Image Program section def\n"));
5725 fprintf (file
, _(" alignment : 2**%u\n"), esgps
->align
);
5726 fprintf (file
, _(" flags : 0x%04x"), flags
);
5727 evax_bfd_print_egsd_flags (file
, flags
);
5729 l
= bfd_getl32 (esgps
->alloc
);
5730 fprintf (file
, _(" alloc (len) : %u (0x%08x)\n"), l
, l
);
5731 fprintf (file
, _(" image offset : 0x%08x\n"),
5732 (unsigned int)bfd_getl32 (esgps
->base
));
5733 fprintf (file
, _(" symvec offset : 0x%08x\n"),
5734 (unsigned int)bfd_getl32 (esgps
->value
));
5735 fprintf (file
, _(" name : %.*s\n"),
5736 esgps
->namlng
, esgps
->name
);
5741 struct vms_egsy
*egsy
= (struct vms_egsy
*)e
;
5742 unsigned int flags
= bfd_getl16 (egsy
->flags
);
5744 if (flags
& EGSY__V_DEF
)
5746 struct vms_esdf
*esdf
= (struct vms_esdf
*)e
;
5748 fprintf (file
, _("SYM - Global symbol definition\n"));
5749 fprintf (file
, _(" flags: 0x%04x"), flags
);
5750 exav_bfd_print_egsy_flags (flags
, file
);
5752 fprintf (file
, _(" psect offset: 0x%08x\n"),
5753 (unsigned)bfd_getl32 (esdf
->value
));
5754 if (flags
& EGSY__V_NORM
)
5756 fprintf (file
, _(" code address: 0x%08x\n"),
5757 (unsigned)bfd_getl32 (esdf
->code_address
));
5758 fprintf (file
, _(" psect index for entry point : %u\n"),
5759 (unsigned)bfd_getl32 (esdf
->ca_psindx
));
5761 fprintf (file
, _(" psect index : %u\n"),
5762 (unsigned)bfd_getl32 (esdf
->psindx
));
5763 fprintf (file
, _(" name : %.*s\n"),
5764 esdf
->namlng
, esdf
->name
);
5768 struct vms_esrf
*esrf
= (struct vms_esrf
*)e
;
5770 fprintf (file
, _("SYM - Global symbol reference\n"));
5771 fprintf (file
, _(" name : %.*s\n"),
5772 esrf
->namlng
, esrf
->name
);
5778 struct vms_eidc
*eidc
= (struct vms_eidc
*)e
;
5779 unsigned int flags
= bfd_getl32 (eidc
->flags
);
5782 fprintf (file
, _("IDC - Ident Consistency check\n"));
5783 fprintf (file
, _(" flags : 0x%08x"), flags
);
5784 if (flags
& EIDC__V_BINIDENT
)
5785 fputs (" BINDENT", file
);
5787 fprintf (file
, _(" id match : %x\n"),
5788 (flags
>> EIDC__V_IDMATCH_SH
) & EIDC__V_IDMATCH_MASK
);
5789 fprintf (file
, _(" error severity: %x\n"),
5790 (flags
>> EIDC__V_ERRSEV_SH
) & EIDC__V_ERRSEV_MASK
);
5792 fprintf (file
, _(" entity name : %.*s\n"), p
[0], p
+ 1);
5794 fprintf (file
, _(" object name : %.*s\n"), p
[0], p
+ 1);
5796 if (flags
& EIDC__V_BINIDENT
)
5797 fprintf (file
, _(" binary ident : 0x%08x\n"),
5798 (unsigned)bfd_getl32 (p
+ 1));
5800 fprintf (file
, _(" ascii ident : %.*s\n"), p
[0], p
+ 1);
5805 struct vms_egst
*egst
= (struct vms_egst
*)e
;
5806 unsigned int flags
= bfd_getl16 (egst
->header
.flags
);
5808 fprintf (file
, _("SYMG - Universal symbol definition\n"));
5809 fprintf (file
, _(" flags: 0x%04x"), flags
);
5810 exav_bfd_print_egsy_flags (flags
, file
);
5812 fprintf (file
, _(" symbol vector offset: 0x%08x\n"),
5813 (unsigned)bfd_getl32 (egst
->value
));
5814 fprintf (file
, _(" entry point: 0x%08x\n"),
5815 (unsigned)bfd_getl32 (egst
->lp_1
));
5816 fprintf (file
, _(" proc descr : 0x%08x\n"),
5817 (unsigned)bfd_getl32 (egst
->lp_2
));
5818 fprintf (file
, _(" psect index: %u\n"),
5819 (unsigned)bfd_getl32 (egst
->psindx
));
5820 fprintf (file
, _(" name : %.*s\n"),
5821 egst
->namlng
, egst
->name
);
5826 struct vms_esdfv
*esdfv
= (struct vms_esdfv
*)e
;
5827 unsigned int flags
= bfd_getl16 (esdfv
->flags
);
5829 fprintf (file
, _("SYMV - Vectored symbol definition\n"));
5830 fprintf (file
, _(" flags: 0x%04x"), flags
);
5831 exav_bfd_print_egsy_flags (flags
, file
);
5833 fprintf (file
, _(" vector : 0x%08x\n"),
5834 (unsigned)bfd_getl32 (esdfv
->vector
));
5835 fprintf (file
, _(" psect offset: %u\n"),
5836 (unsigned)bfd_getl32 (esdfv
->value
));
5837 fprintf (file
, _(" psect index : %u\n"),
5838 (unsigned)bfd_getl32 (esdfv
->psindx
));
5839 fprintf (file
, _(" name : %.*s\n"),
5840 esdfv
->namlng
, esdfv
->name
);
5845 struct vms_esdfm
*esdfm
= (struct vms_esdfm
*)e
;
5846 unsigned int flags
= bfd_getl16 (esdfm
->flags
);
5848 fprintf (file
, _("SYMM - Global symbol definition with version\n"));
5849 fprintf (file
, _(" flags: 0x%04x"), flags
);
5850 exav_bfd_print_egsy_flags (flags
, file
);
5852 fprintf (file
, _(" version mask: 0x%08x\n"),
5853 (unsigned)bfd_getl32 (esdfm
->version_mask
));
5854 fprintf (file
, _(" psect offset: %u\n"),
5855 (unsigned)bfd_getl32 (esdfm
->value
));
5856 fprintf (file
, _(" psect index : %u\n"),
5857 (unsigned)bfd_getl32 (esdfm
->psindx
));
5858 fprintf (file
, _(" name : %.*s\n"),
5859 esdfm
->namlng
, esdfm
->name
);
5863 fprintf (file
, _("unhandled egsd entry type %u\n"), type
);
5871 evax_bfd_print_hex (FILE *file
, const char *pfx
,
5872 const unsigned char *buf
, unsigned int len
)
5878 for (i
= 0; i
< len
; i
++)
5882 fprintf (file
, " %02x", buf
[i
]);
5895 evax_bfd_print_etir_stc_ir (FILE *file
, const unsigned char *buf
, int is_ps
)
5897 fprintf (file
, _(" linkage index: %u, replacement insn: 0x%08x\n"),
5898 (unsigned)bfd_getl32 (buf
),
5899 (unsigned)bfd_getl32 (buf
+ 16));
5900 fprintf (file
, _(" psect idx 1: %u, offset 1: 0x%08x %08x\n"),
5901 (unsigned)bfd_getl32 (buf
+ 4),
5902 (unsigned)bfd_getl32 (buf
+ 12),
5903 (unsigned)bfd_getl32 (buf
+ 8));
5904 fprintf (file
, _(" psect idx 2: %u, offset 2: 0x%08x %08x\n"),
5905 (unsigned)bfd_getl32 (buf
+ 20),
5906 (unsigned)bfd_getl32 (buf
+ 28),
5907 (unsigned)bfd_getl32 (buf
+ 24));
5909 fprintf (file
, _(" psect idx 3: %u, offset 3: 0x%08x %08x\n"),
5910 (unsigned)bfd_getl32 (buf
+ 32),
5911 (unsigned)bfd_getl32 (buf
+ 40),
5912 (unsigned)bfd_getl32 (buf
+ 36));
5914 fprintf (file
, _(" global name: %.*s\n"), buf
[32], buf
+ 33);
5918 evax_bfd_print_etir (FILE *file
, const char *name
,
5919 unsigned char *rec
, unsigned int rec_len
)
5921 unsigned int off
= sizeof (struct vms_egsd
);
5922 unsigned int sec_len
= 0;
5924 fprintf (file
, _(" %s (len=%u+%u):\n"), name
,
5925 (unsigned)(rec_len
- sizeof (struct vms_eobjrec
)),
5926 (unsigned)sizeof (struct vms_eobjrec
));
5928 for (off
= sizeof (struct vms_eobjrec
); off
< rec_len
; )
5930 struct vms_etir
*etir
= (struct vms_etir
*)(rec
+ off
);
5935 type
= bfd_getl16 (etir
->rectyp
);
5936 size
= bfd_getl16 (etir
->size
);
5937 buf
= rec
+ off
+ sizeof (struct vms_etir
);
5939 fprintf (file
, _(" (type: %3u, size: 4+%3u): "), type
, size
- 4);
5942 case ETIR__C_STA_GBL
:
5943 fprintf (file
, _("STA_GBL (stack global) %.*s\n"),
5946 case ETIR__C_STA_LW
:
5947 fprintf (file
, _("STA_LW (stack longword) 0x%08x\n"),
5948 (unsigned)bfd_getl32 (buf
));
5950 case ETIR__C_STA_QW
:
5951 fprintf (file
, _("STA_QW (stack quadword) 0x%08x %08x\n"),
5952 (unsigned)bfd_getl32 (buf
+ 4),
5953 (unsigned)bfd_getl32 (buf
+ 0));
5955 case ETIR__C_STA_PQ
:
5956 fprintf (file
, _("STA_PQ (stack psect base + offset)\n"));
5957 fprintf (file
, _(" psect: %u, offset: 0x%08x %08x\n"),
5958 (unsigned)bfd_getl32 (buf
+ 0),
5959 (unsigned)bfd_getl32 (buf
+ 8),
5960 (unsigned)bfd_getl32 (buf
+ 4));
5962 case ETIR__C_STA_LI
:
5963 fprintf (file
, _("STA_LI (stack literal)\n"));
5965 case ETIR__C_STA_MOD
:
5966 fprintf (file
, _("STA_MOD (stack module)\n"));
5968 case ETIR__C_STA_CKARG
:
5969 fprintf (file
, _("STA_CKARG (compare procedure argument)\n"));
5973 fprintf (file
, _("STO_B (store byte)\n"));
5976 fprintf (file
, _("STO_W (store word)\n"));
5978 case ETIR__C_STO_LW
:
5979 fprintf (file
, _("STO_LW (store longword)\n"));
5981 case ETIR__C_STO_QW
:
5982 fprintf (file
, _("STO_QW (store quadword)\n"));
5984 case ETIR__C_STO_IMMR
:
5986 unsigned int len
= bfd_getl32 (buf
);
5988 _("STO_IMMR (store immediate repeat) %u bytes\n"),
5990 evax_bfd_print_hex (file
, " ", buf
+ 4, len
);
5994 case ETIR__C_STO_GBL
:
5995 fprintf (file
, _("STO_GBL (store global) %.*s\n"),
5998 case ETIR__C_STO_CA
:
5999 fprintf (file
, _("STO_CA (store code address) %.*s\n"),
6002 case ETIR__C_STO_RB
:
6003 fprintf (file
, _("STO_RB (store relative branch)\n"));
6005 case ETIR__C_STO_AB
:
6006 fprintf (file
, _("STO_AB (store absolute branch)\n"));
6008 case ETIR__C_STO_OFF
:
6009 fprintf (file
, _("STO_OFF (store offset to psect)\n"));
6011 case ETIR__C_STO_IMM
:
6013 unsigned int len
= bfd_getl32 (buf
);
6015 _("STO_IMM (store immediate) %u bytes\n"),
6017 evax_bfd_print_hex (file
, " ", buf
+ 4, len
);
6021 case ETIR__C_STO_GBL_LW
:
6022 fprintf (file
, _("STO_GBL_LW (store global longword) %.*s\n"),
6025 case ETIR__C_STO_LP_PSB
:
6026 fprintf (file
, _("STO_OFF (store LP with procedure signature)\n"));
6028 case ETIR__C_STO_HINT_GBL
:
6029 fprintf (file
, _("STO_BR_GBL (store branch global) *todo*\n"));
6031 case ETIR__C_STO_HINT_PS
:
6032 fprintf (file
, _("STO_BR_PS (store branch psect + offset) *todo*\n"));
6035 case ETIR__C_OPR_NOP
:
6036 fprintf (file
, _("OPR_NOP (no-operation)\n"));
6038 case ETIR__C_OPR_ADD
:
6039 fprintf (file
, _("OPR_ADD (add)\n"));
6041 case ETIR__C_OPR_SUB
:
6042 fprintf (file
, _("OPR_SUB (substract)\n"));
6044 case ETIR__C_OPR_MUL
:
6045 fprintf (file
, _("OPR_MUL (multiply)\n"));
6047 case ETIR__C_OPR_DIV
:
6048 fprintf (file
, _("OPR_DIV (divide)\n"));
6050 case ETIR__C_OPR_AND
:
6051 fprintf (file
, _("OPR_AND (logical and)\n"));
6053 case ETIR__C_OPR_IOR
:
6054 fprintf (file
, _("OPR_IOR (logical inclusive or)\n"));
6056 case ETIR__C_OPR_EOR
:
6057 fprintf (file
, _("OPR_EOR (logical exclusive or)\n"));
6059 case ETIR__C_OPR_NEG
:
6060 fprintf (file
, _("OPR_NEG (negate)\n"));
6062 case ETIR__C_OPR_COM
:
6063 fprintf (file
, _("OPR_COM (complement)\n"));
6065 case ETIR__C_OPR_INSV
:
6066 fprintf (file
, _("OPR_INSV (insert field)\n"));
6068 case ETIR__C_OPR_ASH
:
6069 fprintf (file
, _("OPR_ASH (arithmetic shift)\n"));
6071 case ETIR__C_OPR_USH
:
6072 fprintf (file
, _("OPR_USH (unsigned shift)\n"));
6074 case ETIR__C_OPR_ROT
:
6075 fprintf (file
, _("OPR_ROT (rotate)\n"));
6077 case ETIR__C_OPR_SEL
:
6078 fprintf (file
, _("OPR_SEL (select)\n"));
6080 case ETIR__C_OPR_REDEF
:
6081 fprintf (file
, _("OPR_REDEF (redefine symbol to curr location)\n"));
6083 case ETIR__C_OPR_DFLIT
:
6084 fprintf (file
, _("OPR_REDEF (define a literal)\n"));
6087 case ETIR__C_STC_LP
:
6088 fprintf (file
, _("STC_LP (store cond linkage pair)\n"));
6090 case ETIR__C_STC_LP_PSB
:
6092 _("STC_LP_PSB (store cond linkage pair + signature)\n"));
6093 fprintf (file
, _(" linkage index: %u, procedure: %.*s\n"),
6094 (unsigned)bfd_getl32 (buf
), buf
[4], buf
+ 5);
6095 buf
+= 4 + 1 + buf
[4];
6096 fprintf (file
, _(" signature: %.*s\n"), buf
[0], buf
+ 1);
6098 case ETIR__C_STC_GBL
:
6099 fprintf (file
, _("STC_GBL (store cond global)\n"));
6100 fprintf (file
, _(" linkage index: %u, global: %.*s\n"),
6101 (unsigned)bfd_getl32 (buf
), buf
[4], buf
+ 5);
6103 case ETIR__C_STC_GCA
:
6104 fprintf (file
, _("STC_GCA (store cond code address)\n"));
6105 fprintf (file
, _(" linkage index: %u, procedure name: %.*s\n"),
6106 (unsigned)bfd_getl32 (buf
), buf
[4], buf
+ 5);
6108 case ETIR__C_STC_PS
:
6109 fprintf (file
, _("STC_PS (store cond psect + offset)\n"));
6111 _(" linkage index: %u, psect: %u, offset: 0x%08x %08x\n"),
6112 (unsigned)bfd_getl32 (buf
),
6113 (unsigned)bfd_getl32 (buf
+ 4),
6114 (unsigned)bfd_getl32 (buf
+ 12),
6115 (unsigned)bfd_getl32 (buf
+ 8));
6117 case ETIR__C_STC_NOP_GBL
:
6118 fprintf (file
, _("STC_NOP_GBL (store cond NOP at global addr)\n"));
6119 evax_bfd_print_etir_stc_ir (file
, buf
, 0);
6121 case ETIR__C_STC_NOP_PS
:
6122 fprintf (file
, _("STC_NOP_PS (store cond NOP at psect + offset)\n"));
6123 evax_bfd_print_etir_stc_ir (file
, buf
, 1);
6125 case ETIR__C_STC_BSR_GBL
:
6126 fprintf (file
, _("STC_BSR_GBL (store cond BSR at global addr)\n"));
6127 evax_bfd_print_etir_stc_ir (file
, buf
, 0);
6129 case ETIR__C_STC_BSR_PS
:
6130 fprintf (file
, _("STC_BSR_PS (store cond BSR at psect + offset)\n"));
6131 evax_bfd_print_etir_stc_ir (file
, buf
, 1);
6133 case ETIR__C_STC_LDA_GBL
:
6134 fprintf (file
, _("STC_LDA_GBL (store cond LDA at global addr)\n"));
6135 evax_bfd_print_etir_stc_ir (file
, buf
, 0);
6137 case ETIR__C_STC_LDA_PS
:
6138 fprintf (file
, _("STC_LDA_PS (store cond LDA at psect + offset)\n"));
6139 evax_bfd_print_etir_stc_ir (file
, buf
, 1);
6141 case ETIR__C_STC_BOH_GBL
:
6142 fprintf (file
, _("STC_BOH_GBL (store cond BOH at global addr)\n"));
6143 evax_bfd_print_etir_stc_ir (file
, buf
, 0);
6145 case ETIR__C_STC_BOH_PS
:
6146 fprintf (file
, _("STC_BOH_PS (store cond BOH at psect + offset)\n"));
6147 evax_bfd_print_etir_stc_ir (file
, buf
, 1);
6149 case ETIR__C_STC_NBH_GBL
:
6151 _("STC_NBH_GBL (store cond or hint at global addr)\n"));
6153 case ETIR__C_STC_NBH_PS
:
6155 _("STC_NBH_PS (store cond or hint at psect + offset)\n"));
6158 case ETIR__C_CTL_SETRB
:
6159 fprintf (file
, _("CTL_SETRB (set relocation base)\n"));
6162 case ETIR__C_CTL_AUGRB
:
6164 unsigned int val
= bfd_getl32 (buf
);
6165 fprintf (file
, _("CTL_AUGRB (augment relocation base) %u\n"), val
);
6168 case ETIR__C_CTL_DFLOC
:
6169 fprintf (file
, _("CTL_DFLOC (define location)\n"));
6171 case ETIR__C_CTL_STLOC
:
6172 fprintf (file
, _("CTL_STLOC (set location)\n"));
6174 case ETIR__C_CTL_STKDL
:
6175 fprintf (file
, _("CTL_STKDL (stack defined location)\n"));
6178 fprintf (file
, _("*unhandled*\n"));
6186 evax_bfd_print_eobj (struct bfd
*abfd
, FILE *file
)
6188 bfd_boolean is_first
= TRUE
;
6189 bfd_boolean has_records
= FALSE
;
6193 unsigned int rec_len
;
6194 unsigned int pad_len
;
6196 unsigned int hdr_size
;
6201 unsigned char buf
[6];
6206 if (bfd_bread (buf
, sizeof (buf
), abfd
) != sizeof (buf
))
6208 fprintf (file
, _("cannot read GST record length\n"));
6211 rec_len
= bfd_getl16 (buf
+ 0);
6212 if (rec_len
== bfd_getl16 (buf
+ 4)
6213 && bfd_getl16 (buf
+ 2) == EOBJ__C_EMH
)
6215 /* The format is raw: record-size, type, record-size. */
6217 pad_len
= (rec_len
+ 1) & ~1U;
6220 else if (rec_len
== EOBJ__C_EMH
)
6222 has_records
= FALSE
;
6223 pad_len
= bfd_getl16 (buf
+ 2);
6229 fprintf (file
, _("cannot find EMH in first GST record\n"));
6232 rec
= bfd_malloc (pad_len
);
6233 memcpy (rec
, buf
+ sizeof (buf
) - hdr_size
, hdr_size
);
6237 unsigned int rec_len2
= 0;
6238 unsigned char hdr
[4];
6242 unsigned char buf_len
[2];
6244 if (bfd_bread (buf_len
, sizeof (buf_len
), abfd
)
6245 != sizeof (buf_len
))
6247 fprintf (file
, _("cannot read GST record length\n"));
6250 rec_len2
= (unsigned)bfd_getl16 (buf_len
);
6253 if (bfd_bread (hdr
, sizeof (hdr
), abfd
) != sizeof (hdr
))
6255 fprintf (file
, _("cannot read GST record header\n"));
6258 rec_len
= (unsigned)bfd_getl16 (hdr
+ 2);
6260 pad_len
= (rec_len
+ 1) & ~1U;
6263 rec
= bfd_malloc (pad_len
);
6264 memcpy (rec
, hdr
, sizeof (hdr
));
6265 hdr_size
= sizeof (hdr
);
6266 if (has_records
&& rec_len2
!= rec_len
)
6268 fprintf (file
, _(" corrupted GST\n"));
6273 if (bfd_bread (rec
+ hdr_size
, pad_len
- hdr_size
, abfd
)
6274 != pad_len
- hdr_size
)
6276 fprintf (file
, _("cannot read GST record\n"));
6280 type
= (unsigned)bfd_getl16 (rec
);
6285 evax_bfd_print_emh (file
, rec
, rec_len
);
6288 evax_bfd_print_egsd (file
, rec
, rec_len
);
6291 evax_bfd_print_eeom (file
, rec
, rec_len
);
6296 evax_bfd_print_etir (file
, "ETIR", rec
, rec_len
);
6299 evax_bfd_print_etir (file
, "EDBG", rec
, rec_len
);
6302 evax_bfd_print_etir (file
, "ETBT", rec
, rec_len
);
6305 fprintf (file
, _(" unhandled EOBJ record type %u\n"), type
);
6313 evax_bfd_print_relocation_records (FILE *file
, const unsigned char *rel
,
6314 unsigned int stride
)
6322 count
= bfd_getl32 (rel
+ 0);
6326 base
= bfd_getl32 (rel
+ 4);
6328 fprintf (file
, _(" bitcount: %u, base addr: 0x%08x\n"),
6332 for (j
= 0; count
> 0; j
+= 4, count
-= 32)
6338 val
= bfd_getl32 (rel
);
6341 fprintf (file
, _(" bitmap: 0x%08x (count: %u):\n"), val
, count
);
6343 for (k
= 0; k
< 32; k
++)
6348 fprintf (file
, _(" %08x"), base
+ (j
* 8 + k
) * stride
);
6363 evax_bfd_print_address_fixups (FILE *file
, const unsigned char *rel
)
6370 count
= bfd_getl32 (rel
+ 0);
6373 fprintf (file
, _(" image %u (%u entries)\n"),
6374 (unsigned)bfd_getl32 (rel
+ 4), count
);
6376 for (j
= 0; j
< count
; j
++)
6378 fprintf (file
, _(" offset: 0x%08x, val: 0x%08x\n"),
6379 (unsigned)bfd_getl32 (rel
+ 0),
6380 (unsigned)bfd_getl32 (rel
+ 4));
6387 evax_bfd_print_reference_fixups (FILE *file
, const unsigned char *rel
)
6396 count
= bfd_getl32 (rel
+ 0);
6399 fprintf (file
, _(" image %u (%u entries), offsets:\n"),
6400 (unsigned)bfd_getl32 (rel
+ 4), count
);
6402 for (j
= 0; j
< count
; j
++)
6406 fprintf (file
, _(" 0x%08x"), (unsigned)bfd_getl32 (rel
));
6421 evax_bfd_print_indent (int indent
, FILE *file
)
6423 for (; indent
; indent
--)
6428 evax_bfd_get_dsc_name (unsigned int v
)
6432 case DSC__K_DTYPE_Z
:
6433 return "Z (Unspecified)";
6434 case DSC__K_DTYPE_V
:
6436 case DSC__K_DTYPE_BU
:
6437 return "BU (Byte logical)";
6438 case DSC__K_DTYPE_WU
:
6439 return "WU (Word logical)";
6440 case DSC__K_DTYPE_LU
:
6441 return "LU (Longword logical)";
6442 case DSC__K_DTYPE_QU
:
6443 return "QU (Quadword logical)";
6444 case DSC__K_DTYPE_B
:
6445 return "B (Byte integer)";
6446 case DSC__K_DTYPE_W
:
6447 return "W (Word integer)";
6448 case DSC__K_DTYPE_L
:
6449 return "L (Longword integer)";
6450 case DSC__K_DTYPE_Q
:
6451 return "Q (Quadword integer)";
6452 case DSC__K_DTYPE_F
:
6453 return "F (Single-precision floating)";
6454 case DSC__K_DTYPE_D
:
6455 return "D (Double-precision floating)";
6456 case DSC__K_DTYPE_FC
:
6457 return "FC (Complex)";
6458 case DSC__K_DTYPE_DC
:
6459 return "DC (Double-precision Complex)";
6460 case DSC__K_DTYPE_T
:
6461 return "T (ASCII text string)";
6462 case DSC__K_DTYPE_NU
:
6463 return "NU (Numeric string, unsigned)";
6464 case DSC__K_DTYPE_NL
:
6465 return "NL (Numeric string, left separate sign)";
6466 case DSC__K_DTYPE_NLO
:
6467 return "NLO (Numeric string, left overpunched sign)";
6468 case DSC__K_DTYPE_NR
:
6469 return "NR (Numeric string, right separate sign)";
6470 case DSC__K_DTYPE_NRO
:
6471 return "NRO (Numeric string, right overpunched sig)";
6472 case DSC__K_DTYPE_NZ
:
6473 return "NZ (Numeric string, zoned sign)";
6474 case DSC__K_DTYPE_P
:
6475 return "P (Packed decimal string)";
6476 case DSC__K_DTYPE_ZI
:
6477 return "ZI (Sequence of instructions)";
6478 case DSC__K_DTYPE_ZEM
:
6479 return "ZEM (Procedure entry mask)";
6480 case DSC__K_DTYPE_DSC
:
6481 return "DSC (Descriptor, used for arrays of dyn strings)";
6482 case DSC__K_DTYPE_OU
:
6483 return "OU (Octaword logical)";
6484 case DSC__K_DTYPE_O
:
6485 return "O (Octaword integer)";
6486 case DSC__K_DTYPE_G
:
6487 return "G (Double precision G floating, 64 bit)";
6488 case DSC__K_DTYPE_H
:
6489 return "H (Quadruple precision floating, 128 bit)";
6490 case DSC__K_DTYPE_GC
:
6491 return "GC (Double precision complex, G floating)";
6492 case DSC__K_DTYPE_HC
:
6493 return "HC (Quadruple precision complex, H floating)";
6494 case DSC__K_DTYPE_CIT
:
6495 return "CIT (COBOL intermediate temporary)";
6496 case DSC__K_DTYPE_BPV
:
6497 return "BPV (Bound Procedure Value)";
6498 case DSC__K_DTYPE_BLV
:
6499 return "BLV (Bound Label Value)";
6500 case DSC__K_DTYPE_VU
:
6501 return "VU (Bit Unaligned)";
6502 case DSC__K_DTYPE_ADT
:
6503 return "ADT (Absolute Date-Time)";
6504 case DSC__K_DTYPE_VT
:
6505 return "VT (Varying Text)";
6506 case DSC__K_DTYPE_T2
:
6507 return "T2 (16-bit char)";
6508 case DSC__K_DTYPE_VT2
:
6509 return "VT2 (16-bit varying char)";
6511 return "?? (unknown)";
6516 evax_bfd_print_desc (const unsigned char *buf
, int indent
, FILE *file
)
6518 unsigned char bclass
= buf
[3];
6519 unsigned char dtype
= buf
[2];
6520 unsigned int len
= (unsigned)bfd_getl16 (buf
);
6521 unsigned int pointer
= (unsigned)bfd_getl32 (buf
+ 4);
6523 evax_bfd_print_indent (indent
, file
);
6525 if (len
== 1 && pointer
== 0xffffffffUL
)
6528 fprintf (file
, _("64 bits *unhandled*\n"));
6532 fprintf (file
, _("class: %u, dtype: %u, length: %u, pointer: 0x%08x\n"),
6533 bclass
, dtype
, len
, pointer
);
6536 case DSC__K_CLASS_NCA
:
6538 const struct vms_dsc_nca
*dsc
= (const void *)buf
;
6540 const unsigned char *b
;
6542 evax_bfd_print_indent (indent
, file
);
6543 fprintf (file
, _("non-contiguous array of %s\n"),
6544 evax_bfd_get_dsc_name (dsc
->dtype
));
6545 evax_bfd_print_indent (indent
+ 1, file
);
6547 _("dimct: %u, aflags: 0x%02x, digits: %u, scale: %u\n"),
6548 dsc
->dimct
, dsc
->aflags
, dsc
->digits
, dsc
->scale
);
6549 evax_bfd_print_indent (indent
+ 1, file
);
6551 _("arsize: %u, a0: 0x%08x\n"),
6552 (unsigned)bfd_getl32 (dsc
->arsize
),
6553 (unsigned)bfd_getl32 (dsc
->a0
));
6554 evax_bfd_print_indent (indent
+ 1, file
);
6555 fprintf (file
, _("Strides:\n"));
6556 b
= buf
+ sizeof (*dsc
);
6557 for (i
= 0; i
< dsc
->dimct
; i
++)
6559 evax_bfd_print_indent (indent
+ 2, file
);
6560 fprintf (file
, _("[%u]: %u\n"), i
+ 1,
6561 (unsigned)bfd_getl32 (b
));
6564 evax_bfd_print_indent (indent
+ 1, file
);
6565 fprintf (file
, _("Bounds:\n"));
6566 b
= buf
+ sizeof (*dsc
);
6567 for (i
= 0; i
< dsc
->dimct
; i
++)
6569 evax_bfd_print_indent (indent
+ 2, file
);
6570 fprintf (file
, _("[%u]: Lower: %u, upper: %u\n"), i
+ 1,
6571 (unsigned)bfd_getl32 (b
+ 0),
6572 (unsigned)bfd_getl32 (b
+ 4));
6577 case DSC__K_CLASS_UBS
:
6579 const struct vms_dsc_ubs
*ubs
= (const void *)buf
;
6581 evax_bfd_print_indent (indent
, file
);
6582 fprintf (file
, _("unaligned bit-string of %s\n"),
6583 evax_bfd_get_dsc_name (ubs
->dtype
));
6584 evax_bfd_print_indent (indent
+ 1, file
);
6586 _("base: %u, pos: %u\n"),
6587 (unsigned)bfd_getl32 (ubs
->base
),
6588 (unsigned)bfd_getl32 (ubs
->pos
));
6592 fprintf (file
, _("*unhandled*\n"));
6599 evax_bfd_print_valspec (const unsigned char *buf
, int indent
, FILE *file
)
6601 unsigned int vflags
= buf
[0];
6602 unsigned int value
= (unsigned)bfd_getl32 (buf
+ 1);
6603 unsigned int len
= 5;
6605 evax_bfd_print_indent (indent
, file
);
6606 fprintf (file
, _("vflags: 0x%02x, value: 0x%08x "), vflags
, value
);
6611 case DST__K_VFLAGS_NOVAL
:
6612 fprintf (file
, _("(no value)\n"));
6614 case DST__K_VFLAGS_NOTACTIVE
:
6615 fprintf (file
, _("(not active)\n"));
6617 case DST__K_VFLAGS_UNALLOC
:
6618 fprintf (file
, _("(not allocated)\n"));
6620 case DST__K_VFLAGS_DSC
:
6621 fprintf (file
, _("(descriptor)\n"));
6622 evax_bfd_print_desc (buf
+ value
, indent
+ 1, file
);
6624 case DST__K_VFLAGS_TVS
:
6625 fprintf (file
, _("(trailing value)\n"));
6627 case DST__K_VS_FOLLOWS
:
6628 fprintf (file
, _("(value spec follows)\n"));
6630 case DST__K_VFLAGS_BITOFFS
:
6631 fprintf (file
, _("(at bit offset %u)\n"), value
);
6634 fprintf (file
, _("(reg: %u, disp: %u, indir: %u, kind: "),
6635 (vflags
& DST__K_REGNUM_MASK
) >> DST__K_REGNUM_SHIFT
,
6636 vflags
& DST__K_DISP
? 1 : 0,
6637 vflags
& DST__K_INDIR
? 1 : 0);
6638 switch (vflags
& DST__K_VALKIND_MASK
)
6640 case DST__K_VALKIND_LITERAL
:
6641 fputs (_("literal"), file
);
6643 case DST__K_VALKIND_ADDR
:
6644 fputs (_("address"), file
);
6646 case DST__K_VALKIND_DESC
:
6647 fputs (_("desc"), file
);
6649 case DST__K_VALKIND_REG
:
6650 fputs (_("reg"), file
);
6653 fputs (")\n", file
);
6660 evax_bfd_print_typspec (const unsigned char *buf
, int indent
, FILE *file
)
6662 unsigned char kind
= buf
[2];
6663 unsigned int len
= (unsigned)bfd_getl16 (buf
);
6665 evax_bfd_print_indent (indent
, file
);
6666 fprintf (file
, ("len: %2u, kind: %2u "), len
, kind
);
6670 case DST__K_TS_ATOM
:
6671 fprintf (file
, ("atomic, type=0x%02x %s\n"),
6672 buf
[0], evax_bfd_get_dsc_name (buf
[0]));
6675 fprintf (file
, ("indirect, defined at 0x%08x\n"),
6676 (unsigned)bfd_getl32 (buf
));
6678 case DST__K_TS_TPTR
:
6679 fprintf (file
, ("typed pointer\n"));
6680 evax_bfd_print_typspec (buf
, indent
+ 1, file
);
6683 fprintf (file
, ("pointer\n"));
6685 case DST__K_TS_ARRAY
:
6687 const unsigned char *vs
;
6688 unsigned int vec_len
;
6691 fprintf (file
, ("array, dim: %u, bitmap: "), buf
[0]);
6692 vec_len
= (buf
[0] + 1 + 7) / 8;
6693 for (i
= 0; i
< vec_len
; i
++)
6694 fprintf (file
, " %02x", buf
[i
+ 1]);
6696 vs
= buf
+ 1 + vec_len
;
6697 evax_bfd_print_indent (indent
, file
);
6698 fprintf (file
, ("array descriptor:\n"));
6699 vs
+= evax_bfd_print_valspec (vs
, indent
+ 1, file
);
6700 for (i
= 0; i
< buf
[0] + 1U; i
++)
6701 if (buf
[1 + i
/ 8] & (1 << (i
% 8)))
6703 evax_bfd_print_indent (indent
, file
);
6705 fprintf (file
, ("type spec for element:\n"));
6707 fprintf (file
, ("type spec for subscript %u:\n"), i
);
6708 evax_bfd_print_typspec (vs
, indent
+ 1, file
);
6709 vs
+= bfd_getl16 (vs
);
6714 fprintf (file
, ("*unhandled*\n"));
6719 evax_bfd_print_dst (struct bfd
*abfd
, unsigned int dst_size
, FILE *file
)
6721 unsigned int off
= 0;
6722 unsigned int pc
= 0;
6723 unsigned int line
= 0;
6725 fprintf (file
, _("Debug symbol table:\n"));
6727 while (dst_size
> 0)
6729 struct vms_dst_header dsth
;
6734 if (bfd_bread (&dsth
, sizeof (dsth
), abfd
) != sizeof (dsth
))
6736 fprintf (file
, _("cannot read DST header\n"));
6739 len
= bfd_getl16 (dsth
.length
);
6740 type
= bfd_getl16 (dsth
.type
);
6741 fprintf (file
, _(" type: %3u, len: %3u (at 0x%08x): "),
6751 len
-= sizeof (dsth
);
6752 buf
= bfd_malloc (len
);
6753 if (bfd_bread (buf
, len
, abfd
) != len
)
6755 fprintf (file
, _("cannot read DST symbol\n"));
6760 case DSC__K_DTYPE_V
:
6761 case DSC__K_DTYPE_BU
:
6762 case DSC__K_DTYPE_WU
:
6763 case DSC__K_DTYPE_LU
:
6764 case DSC__K_DTYPE_QU
:
6765 case DSC__K_DTYPE_B
:
6766 case DSC__K_DTYPE_W
:
6767 case DSC__K_DTYPE_L
:
6768 case DSC__K_DTYPE_Q
:
6769 case DSC__K_DTYPE_F
:
6770 case DSC__K_DTYPE_D
:
6771 case DSC__K_DTYPE_FC
:
6772 case DSC__K_DTYPE_DC
:
6773 case DSC__K_DTYPE_T
:
6774 case DSC__K_DTYPE_NU
:
6775 case DSC__K_DTYPE_NL
:
6776 case DSC__K_DTYPE_NLO
:
6777 case DSC__K_DTYPE_NR
:
6778 case DSC__K_DTYPE_NRO
:
6779 case DSC__K_DTYPE_NZ
:
6780 case DSC__K_DTYPE_P
:
6781 case DSC__K_DTYPE_ZI
:
6782 case DSC__K_DTYPE_ZEM
:
6783 case DSC__K_DTYPE_DSC
:
6784 case DSC__K_DTYPE_OU
:
6785 case DSC__K_DTYPE_O
:
6786 case DSC__K_DTYPE_G
:
6787 case DSC__K_DTYPE_H
:
6788 case DSC__K_DTYPE_GC
:
6789 case DSC__K_DTYPE_HC
:
6790 case DSC__K_DTYPE_CIT
:
6791 case DSC__K_DTYPE_BPV
:
6792 case DSC__K_DTYPE_BLV
:
6793 case DSC__K_DTYPE_VU
:
6794 case DSC__K_DTYPE_ADT
:
6795 case DSC__K_DTYPE_VT
:
6796 case DSC__K_DTYPE_T2
:
6797 case DSC__K_DTYPE_VT2
:
6798 fprintf (file
, _("standard data: %s\n"),
6799 evax_bfd_get_dsc_name (type
));
6800 evax_bfd_print_valspec (buf
, 4, file
);
6801 fprintf (file
, _(" name: %.*s\n"), buf
[5], buf
+ 6);
6805 struct vms_dst_modbeg
*dst
= (void *)buf
;
6806 const char *name
= (const char *)buf
+ sizeof (*dst
);
6808 fprintf (file
, _("modbeg\n"));
6809 fprintf (file
, _(" flags: %d, language: %u, "
6810 "major: %u, minor: %u\n"),
6812 (unsigned)bfd_getl32 (dst
->language
),
6813 (unsigned)bfd_getl16 (dst
->major
),
6814 (unsigned)bfd_getl16 (dst
->minor
));
6815 fprintf (file
, _(" module name: %.*s\n"),
6817 name
+= name
[0] + 1;
6818 fprintf (file
, _(" compiler : %.*s\n"),
6823 fprintf (file
, _("modend\n"));
6827 struct vms_dst_rtnbeg
*dst
= (void *)buf
;
6828 const char *name
= (const char *)buf
+ sizeof (*dst
);
6830 fputs (_("rtnbeg\n"), file
);
6831 fprintf (file
, _(" flags: %u, address: 0x%08x, "
6832 "pd-address: 0x%08x\n"),
6834 (unsigned)bfd_getl32 (dst
->address
),
6835 (unsigned)bfd_getl32 (dst
->pd_address
));
6836 fprintf (file
, _(" routine name: %.*s\n"),
6842 struct vms_dst_rtnend
*dst
= (void *)buf
;
6844 fprintf (file
, _("rtnend: size 0x%08x\n"),
6845 (unsigned)bfd_getl32 (dst
->size
));
6850 struct vms_dst_prolog
*dst
= (void *)buf
;
6852 fprintf (file
, _("prolog: bkpt address 0x%08x\n"),
6853 (unsigned)bfd_getl32 (dst
->bkpt_addr
));
6858 struct vms_dst_epilog
*dst
= (void *)buf
;
6860 fprintf (file
, _("epilog: flags: %u, count: %u\n"),
6861 dst
->flags
, (unsigned)bfd_getl32 (dst
->count
));
6866 struct vms_dst_blkbeg
*dst
= (void *)buf
;
6867 const char *name
= (const char *)buf
+ sizeof (*dst
);
6869 fprintf (file
, _("blkbeg: address: 0x%08x, name: %.*s\n"),
6870 (unsigned)bfd_getl32 (dst
->address
),
6876 struct vms_dst_blkend
*dst
= (void *)buf
;
6878 fprintf (file
, _("blkend: size: 0x%08x\n"),
6879 (unsigned)bfd_getl32 (dst
->size
));
6882 case DST__K_TYPSPEC
:
6884 fprintf (file
, _("typspec (len: %u)\n"), len
);
6885 fprintf (file
, _(" name: %.*s\n"), buf
[0], buf
+ 1);
6886 evax_bfd_print_typspec (buf
+ 1 + buf
[0], 5, file
);
6891 fprintf (file
, _("septyp, name: %.*s\n"), buf
[5], buf
+ 6);
6892 evax_bfd_print_valspec (buf
, 4, file
);
6897 struct vms_dst_recbeg
*recbeg
= (void *)buf
;
6898 const char *name
= (const char *)buf
+ sizeof (*recbeg
);
6900 fprintf (file
, _("recbeg: name: %.*s\n"), name
[0], name
+ 1);
6901 evax_bfd_print_valspec (buf
, 4, file
);
6902 fprintf (file
, (" len: %u bits\n"),
6903 (unsigned)bfd_getl32 (name
+ 1 + name
[0]));
6907 fprintf (file
, _("recend\n"));
6909 case DST__K_ENUMBEG
:
6910 fprintf (file
, _("enumbeg, len: %u, name: %.*s\n"),
6911 buf
[0], buf
[1], buf
+ 2);
6913 case DST__K_ENUMELT
:
6914 fprintf (file
, _("enumelt, name: %.*s\n"), buf
[5], buf
+ 6);
6915 evax_bfd_print_valspec (buf
, 4, file
);
6917 case DST__K_ENUMEND
:
6918 fprintf (file
, _("enumend\n"));
6922 struct vms_dst_label
*lab
= (void *)buf
;
6923 fprintf (file
, ("label, name: %.*s\n"),
6924 lab
->name
[0], lab
->name
+ 1);
6925 fprintf (file
, (" address: 0x%08x\n"),
6926 (unsigned)bfd_getl32 (lab
->value
));
6929 case DST__K_DIS_RANGE
:
6931 unsigned int cnt
= bfd_getl32 (buf
);
6932 unsigned char *rng
= buf
+ 4;
6935 fprintf (file
, _("discontiguous range (nbr: %u)\n"), cnt
);
6936 for (i
= 0; i
< cnt
; i
++, rng
+= 8)
6937 fprintf (file
, _(" address: 0x%08x, size: %u\n"),
6938 (unsigned)bfd_getl32 (rng
),
6939 (unsigned)bfd_getl32 (rng
+ 4));
6943 case DST__K_LINE_NUM
:
6945 unsigned char *buf_orig
= buf
;
6947 fprintf (file
, _("line num (len: %u)\n"), len
);
6952 unsigned char cmdlen
;
6962 case DST__K_DELTA_PC_W
:
6963 val
= bfd_getl16 (buf
+ 1);
6964 fprintf (file
, _("delta_pc_w %u\n"), val
);
6969 case DST__K_INCR_LINUM
:
6971 fprintf (file
, _("incr_linum(b): +%u\n"), val
);
6975 case DST__K_INCR_LINUM_W
:
6976 val
= bfd_getl16 (buf
+ 1);
6977 fprintf (file
, _("incr_linum_w: +%u\n"), val
);
6981 case DST__K_INCR_LINUM_L
:
6982 val
= bfd_getl32 (buf
+ 1);
6983 fprintf (file
, _("incr_linum_l: +%u\n"), val
);
6987 case DST__K_SET_LINUM
:
6988 line
= bfd_getl16 (buf
+ 1);
6989 fprintf (file
, _("set_line_num(w) %u\n"), line
);
6992 case DST__K_SET_LINUM_B
:
6994 fprintf (file
, _("set_line_num_b %u\n"), line
);
6997 case DST__K_SET_LINUM_L
:
6998 line
= bfd_getl32 (buf
+ 1);
6999 fprintf (file
, _("set_line_num_l %u\n"), line
);
7002 case DST__K_SET_ABS_PC
:
7003 pc
= bfd_getl32 (buf
+ 1);
7004 fprintf (file
, _("set_abs_pc: 0x%08x\n"), pc
);
7007 case DST__K_DELTA_PC_L
:
7008 fprintf (file
, _("delta_pc_l: +0x%08x\n"),
7009 (unsigned)bfd_getl32 (buf
+ 1));
7013 fprintf (file
, _("term(b): 0x%02x"), buf
[1]);
7015 fprintf (file
, _(" pc: 0x%08x\n"), pc
);
7019 val
= bfd_getl16 (buf
+ 1);
7020 fprintf (file
, _("term_w: 0x%04x"), val
);
7022 fprintf (file
, _(" pc: 0x%08x\n"), pc
);
7028 fprintf (file
, _("delta pc +%-4d"), -cmd
);
7029 line
++; /* FIXME: curr increment. */
7031 fprintf (file
, _(" pc: 0x%08x line: %5u\n"),
7036 fprintf (file
, _(" *unhandled* cmd %u\n"), cmd
);
7049 unsigned char *buf_orig
= buf
;
7051 fprintf (file
, _("source (len: %u)\n"), len
);
7055 signed char cmd
= buf
[0];
7056 unsigned char cmdlen
= 0;
7060 case DST__K_SRC_DECLFILE
:
7062 struct vms_dst_src_decl_src
*src
= (void *)(buf
+ 1);
7065 fprintf (file
, _(" declfile: len: %u, flags: %u, "
7067 src
->length
, src
->flags
,
7068 (unsigned)bfd_getl16 (src
->fileid
));
7069 fprintf (file
, _(" rms: cdt: 0x%08x %08x, "
7070 "ebk: 0x%08x, ffb: 0x%04x, "
7072 (unsigned)bfd_getl32 (src
->rms_cdt
+ 4),
7073 (unsigned)bfd_getl32 (src
->rms_cdt
+ 0),
7074 (unsigned)bfd_getl32 (src
->rms_ebk
),
7075 (unsigned)bfd_getl16 (src
->rms_ffb
),
7077 name
= (const char *)buf
+ 1 + sizeof (*src
);
7078 fprintf (file
, _(" filename : %.*s\n"),
7080 name
+= name
[0] + 1;
7081 fprintf (file
, _(" module name: %.*s\n"),
7083 cmdlen
= 2 + src
->length
;
7086 case DST__K_SRC_SETFILE
:
7087 fprintf (file
, _(" setfile %u\n"),
7088 (unsigned)bfd_getl16 (buf
+ 1));
7091 case DST__K_SRC_SETREC_W
:
7092 fprintf (file
, _(" setrec %u\n"),
7093 (unsigned)bfd_getl16 (buf
+ 1));
7096 case DST__K_SRC_SETREC_L
:
7097 fprintf (file
, _(" setrec %u\n"),
7098 (unsigned)bfd_getl32 (buf
+ 1));
7101 case DST__K_SRC_SETLNUM_W
:
7102 fprintf (file
, _(" setlnum %u\n"),
7103 (unsigned)bfd_getl16 (buf
+ 1));
7106 case DST__K_SRC_SETLNUM_L
:
7107 fprintf (file
, _(" setlnum %u\n"),
7108 (unsigned)bfd_getl32 (buf
+ 1));
7111 case DST__K_SRC_DEFLINES_W
:
7112 fprintf (file
, _(" deflines %u\n"),
7113 (unsigned)bfd_getl16 (buf
+ 1));
7116 case DST__K_SRC_DEFLINES_B
:
7117 fprintf (file
, _(" deflines %u\n"), buf
[1]);
7120 case DST__K_SRC_FORMFEED
:
7121 fprintf (file
, _(" formfeed\n"));
7125 fprintf (file
, _(" *unhandled* cmd %u\n"), cmd
);
7137 fprintf (file
, _("*unhandled* dst type %u\n"), type
);
7145 evax_bfd_print_image (bfd
*abfd
, FILE *file
)
7147 struct vms_eihd eihd
;
7150 unsigned int eiha_off
;
7151 unsigned int eihi_off
;
7152 unsigned int eihs_off
;
7153 unsigned int eisd_off
;
7154 unsigned int eihef_off
= 0;
7155 unsigned int eihnp_off
= 0;
7156 unsigned int dmt_vbn
= 0;
7157 unsigned int dmt_size
= 0;
7158 unsigned int dst_vbn
= 0;
7159 unsigned int dst_size
= 0;
7160 unsigned int gst_vbn
= 0;
7161 unsigned int gst_size
= 0;
7162 unsigned int eiaf_vbn
= 0;
7163 unsigned int eiaf_size
= 0;
7164 unsigned int eihvn_off
;
7166 if (bfd_seek (abfd
, (file_ptr
) 0, SEEK_SET
)
7167 || bfd_bread (&eihd
, sizeof (eihd
), abfd
) != sizeof (eihd
))
7169 fprintf (file
, _("cannot read EIHD\n"));
7172 fprintf (file
, _("EIHD: (size: %u, nbr blocks: %u)\n"),
7173 (unsigned)bfd_getl32 (eihd
.size
),
7174 (unsigned)bfd_getl32 (eihd
.hdrblkcnt
));
7175 fprintf (file
, _(" majorid: %u, minorid: %u\n"),
7176 (unsigned)bfd_getl32 (eihd
.majorid
),
7177 (unsigned)bfd_getl32 (eihd
.minorid
));
7179 val
= (unsigned)bfd_getl32 (eihd
.imgtype
);
7183 name
= _("executable");
7186 name
= _("linkable image");
7189 name
= _("unknown");
7192 fprintf (file
, _(" image type: %u (%s)"), val
, name
);
7194 val
= (unsigned)bfd_getl32 (eihd
.subtype
);
7197 case EIHD__C_NATIVE
:
7204 name
= _("unknown");
7207 fprintf (file
, _(", subtype: %u (%s)\n"), val
, name
);
7209 eisd_off
= bfd_getl32 (eihd
.isdoff
);
7210 eiha_off
= bfd_getl32 (eihd
.activoff
);
7211 eihi_off
= bfd_getl32 (eihd
.imgidoff
);
7212 eihs_off
= bfd_getl32 (eihd
.symdbgoff
);
7213 fprintf (file
, _(" offsets: isd: %u, activ: %u, symdbg: %u, "
7214 "imgid: %u, patch: %u\n"),
7215 eisd_off
, eiha_off
, eihs_off
, eihi_off
,
7216 (unsigned)bfd_getl32 (eihd
.patchoff
));
7217 fprintf (file
, _(" fixup info rva: "));
7218 bfd_fprintf_vma (abfd
, file
, bfd_getl64 (eihd
.iafva
));
7219 fprintf (file
, _(", symbol vector rva: "));
7220 bfd_fprintf_vma (abfd
, file
, bfd_getl64 (eihd
.symvva
));
7221 eihvn_off
= bfd_getl32 (eihd
.version_array_off
);
7222 fprintf (file
, _("\n"
7223 " version array off: %u\n"),
7226 _(" img I/O count: %u, nbr channels: %u, req pri: %08x%08x\n"),
7227 (unsigned)bfd_getl32 (eihd
.imgiocnt
),
7228 (unsigned)bfd_getl32 (eihd
.iochancnt
),
7229 (unsigned)bfd_getl32 (eihd
.privreqs
+ 4),
7230 (unsigned)bfd_getl32 (eihd
.privreqs
+ 0));
7231 val
= (unsigned)bfd_getl32 (eihd
.lnkflags
);
7232 fprintf (file
, _(" linker flags: %08x:"), val
);
7233 if (val
& EIHD__M_LNKDEBUG
)
7234 fprintf (file
, " LNKDEBUG");
7235 if (val
& EIHD__M_LNKNOTFR
)
7236 fprintf (file
, " LNKNOTFR");
7237 if (val
& EIHD__M_NOP0BUFS
)
7238 fprintf (file
, " NOP0BUFS");
7239 if (val
& EIHD__M_PICIMG
)
7240 fprintf (file
, " PICIMG");
7241 if (val
& EIHD__M_P0IMAGE
)
7242 fprintf (file
, " P0IMAGE");
7243 if (val
& EIHD__M_DBGDMT
)
7244 fprintf (file
, " DBGDMT");
7245 if (val
& EIHD__M_INISHR
)
7246 fprintf (file
, " INISHR");
7247 if (val
& EIHD__M_XLATED
)
7248 fprintf (file
, " XLATED");
7249 if (val
& EIHD__M_BIND_CODE_SEC
)
7250 fprintf (file
, " BIND_CODE_SEC");
7251 if (val
& EIHD__M_BIND_DATA_SEC
)
7252 fprintf (file
, " BIND_DATA_SEC");
7253 if (val
& EIHD__M_MKTHREADS
)
7254 fprintf (file
, " MKTHREADS");
7255 if (val
& EIHD__M_UPCALLS
)
7256 fprintf (file
, " UPCALLS");
7257 if (val
& EIHD__M_OMV_READY
)
7258 fprintf (file
, " OMV_READY");
7259 if (val
& EIHD__M_EXT_BIND_SECT
)
7260 fprintf (file
, " EXT_BIND_SECT");
7261 fprintf (file
, "\n");
7262 fprintf (file
, _(" ident: 0x%08x, sysver: 0x%08x, "
7263 "match ctrl: %u, symvect_size: %u\n"),
7264 (unsigned)bfd_getl32 (eihd
.ident
),
7265 (unsigned)bfd_getl32 (eihd
.sysver
),
7267 (unsigned)bfd_getl32 (eihd
.symvect_size
));
7268 fprintf (file
, _(" BPAGE: %u"),
7269 (unsigned)bfd_getl32 (eihd
.virt_mem_block_size
));
7270 if (val
& (EIHD__M_OMV_READY
| EIHD__M_EXT_BIND_SECT
))
7272 eihef_off
= bfd_getl32 (eihd
.ext_fixup_off
);
7273 eihnp_off
= bfd_getl32 (eihd
.noopt_psect_off
);
7274 fprintf (file
, _(", ext fixup offset: %u, no_opt psect off: %u"),
7275 eihef_off
, eihnp_off
);
7277 fprintf (file
, _(", alias: %u\n"), (unsigned)bfd_getl16 (eihd
.alias
));
7281 struct vms_eihvn eihvn
;
7285 fprintf (file
, _("system version array information:\n"));
7286 if (bfd_seek (abfd
, (file_ptr
) eihvn_off
, SEEK_SET
)
7287 || bfd_bread (&eihvn
, sizeof (eihvn
), abfd
) != sizeof (eihvn
))
7289 fprintf (file
, _("cannot read EIHVN header\n"));
7292 mask
= bfd_getl32 (eihvn
.subsystem_mask
);
7293 for (j
= 0; j
< 32; j
++)
7294 if (mask
& (1 << j
))
7296 struct vms_eihvn_subversion ver
;
7297 if (bfd_bread (&ver
, sizeof (ver
), abfd
) != sizeof (ver
))
7299 fprintf (file
, _("cannot read EIHVN version\n"));
7302 fprintf (file
, _(" %02u "), j
);
7305 case EIHVN__BASE_IMAGE_BIT
:
7306 fputs (_("BASE_IMAGE "), file
);
7308 case EIHVN__MEMORY_MANAGEMENT_BIT
:
7309 fputs (_("MEMORY_MANAGEMENT"), file
);
7312 fputs (_("IO "), file
);
7314 case EIHVN__FILES_VOLUMES_BIT
:
7315 fputs (_("FILES_VOLUMES "), file
);
7317 case EIHVN__PROCESS_SCHED_BIT
:
7318 fputs (_("PROCESS_SCHED "), file
);
7320 case EIHVN__SYSGEN_BIT
:
7321 fputs (_("SYSGEN "), file
);
7323 case EIHVN__CLUSTERS_LOCKMGR_BIT
:
7324 fputs (_("CLUSTERS_LOCKMGR "), file
);
7326 case EIHVN__LOGICAL_NAMES_BIT
:
7327 fputs (_("LOGICAL_NAMES "), file
);
7329 case EIHVN__SECURITY_BIT
:
7330 fputs (_("SECURITY "), file
);
7332 case EIHVN__IMAGE_ACTIVATOR_BIT
:
7333 fputs (_("IMAGE_ACTIVATOR "), file
);
7335 case EIHVN__NETWORKS_BIT
:
7336 fputs (_("NETWORKS "), file
);
7338 case EIHVN__COUNTERS_BIT
:
7339 fputs (_("COUNTERS "), file
);
7341 case EIHVN__STABLE_BIT
:
7342 fputs (_("STABLE "), file
);
7344 case EIHVN__MISC_BIT
:
7345 fputs (_("MISC "), file
);
7347 case EIHVN__CPU_BIT
:
7348 fputs (_("CPU "), file
);
7350 case EIHVN__VOLATILE_BIT
:
7351 fputs (_("VOLATILE "), file
);
7353 case EIHVN__SHELL_BIT
:
7354 fputs (_("SHELL "), file
);
7356 case EIHVN__POSIX_BIT
:
7357 fputs (_("POSIX "), file
);
7359 case EIHVN__MULTI_PROCESSING_BIT
:
7360 fputs (_("MULTI_PROCESSING "), file
);
7362 case EIHVN__GALAXY_BIT
:
7363 fputs (_("GALAXY "), file
);
7366 fputs (_("*unknown* "), file
);
7369 fprintf (file
, _(": %u.%u\n"),
7370 (unsigned)bfd_getl16 (ver
.major
),
7371 (unsigned)bfd_getl16 (ver
.minor
));
7377 struct vms_eiha eiha
;
7379 if (bfd_seek (abfd
, (file_ptr
) eiha_off
, SEEK_SET
)
7380 || bfd_bread (&eiha
, sizeof (eiha
), abfd
) != sizeof (eiha
))
7382 fprintf (file
, _("cannot read EIHA\n"));
7385 fprintf (file
, _("Image activation: (size=%u)\n"),
7386 (unsigned)bfd_getl32 (eiha
.size
));
7387 fprintf (file
, _(" First address : 0x%08x 0x%08x\n"),
7388 (unsigned)bfd_getl32 (eiha
.tfradr1_h
),
7389 (unsigned)bfd_getl32 (eiha
.tfradr1
));
7390 fprintf (file
, _(" Second address: 0x%08x 0x%08x\n"),
7391 (unsigned)bfd_getl32 (eiha
.tfradr2_h
),
7392 (unsigned)bfd_getl32 (eiha
.tfradr2
));
7393 fprintf (file
, _(" Third address : 0x%08x 0x%08x\n"),
7394 (unsigned)bfd_getl32 (eiha
.tfradr3_h
),
7395 (unsigned)bfd_getl32 (eiha
.tfradr3
));
7396 fprintf (file
, _(" Fourth address: 0x%08x 0x%08x\n"),
7397 (unsigned)bfd_getl32 (eiha
.tfradr4_h
),
7398 (unsigned)bfd_getl32 (eiha
.tfradr4
));
7399 fprintf (file
, _(" Shared image : 0x%08x 0x%08x\n"),
7400 (unsigned)bfd_getl32 (eiha
.inishr_h
),
7401 (unsigned)bfd_getl32 (eiha
.inishr
));
7405 struct vms_eihi eihi
;
7407 if (bfd_seek (abfd
, (file_ptr
) eihi_off
, SEEK_SET
)
7408 || bfd_bread (&eihi
, sizeof (eihi
), abfd
) != sizeof (eihi
))
7410 fprintf (file
, _("cannot read EIHI\n"));
7413 fprintf (file
, _("Image identification: (major: %u, minor: %u)\n"),
7414 (unsigned)bfd_getl32 (eihi
.majorid
),
7415 (unsigned)bfd_getl32 (eihi
.minorid
));
7416 fprintf (file
, _(" image name : %.*s\n"),
7417 eihi
.imgnam
[0], eihi
.imgnam
+ 1);
7418 fprintf (file
, _(" link time : %s\n"),
7419 vms_time_to_str (eihi
.linktime
));
7420 fprintf (file
, _(" image ident : %.*s\n"),
7421 eihi
.imgid
[0], eihi
.imgid
+ 1);
7422 fprintf (file
, _(" linker ident : %.*s\n"),
7423 eihi
.linkid
[0], eihi
.linkid
+ 1);
7424 fprintf (file
, _(" image build ident: %.*s\n"),
7425 eihi
.imgbid
[0], eihi
.imgbid
+ 1);
7429 struct vms_eihs eihs
;
7431 if (bfd_seek (abfd
, (file_ptr
) eihs_off
, SEEK_SET
)
7432 || bfd_bread (&eihs
, sizeof (eihs
), abfd
) != sizeof (eihs
))
7434 fprintf (file
, _("cannot read EIHS\n"));
7437 fprintf (file
, _("Image symbol & debug table: (major: %u, minor: %u)\n"),
7438 (unsigned)bfd_getl32 (eihs
.majorid
),
7439 (unsigned)bfd_getl32 (eihs
.minorid
));
7440 dst_vbn
= bfd_getl32 (eihs
.dstvbn
);
7441 dst_size
= bfd_getl32 (eihs
.dstsize
);
7442 fprintf (file
, _(" debug symbol table : vbn: %u, size: %u (0x%x)\n"),
7443 dst_vbn
, dst_size
, dst_size
);
7444 gst_vbn
= bfd_getl32 (eihs
.gstvbn
);
7445 gst_size
= bfd_getl32 (eihs
.gstsize
);
7446 fprintf (file
, _(" global symbol table: vbn: %u, records: %u\n"),
7448 dmt_vbn
= bfd_getl32 (eihs
.dmtvbn
);
7449 dmt_size
= bfd_getl32 (eihs
.dmtsize
);
7450 fprintf (file
, _(" debug module table : vbn: %u, size: %u\n"),
7453 while (eisd_off
!= 0)
7455 struct vms_eisd eisd
;
7460 if (bfd_seek (abfd
, (file_ptr
) eisd_off
, SEEK_SET
)
7461 || bfd_bread (&eisd
, sizeof (eisd
), abfd
) != sizeof (eisd
))
7463 fprintf (file
, _("cannot read EISD\n"));
7466 len
= (unsigned)bfd_getl32 (eisd
.eisdsize
);
7467 if (len
!= (unsigned)-1)
7471 eisd_off
= (eisd_off
+ VMS_BLOCK_SIZE
) & ~(VMS_BLOCK_SIZE
- 1);
7473 fprintf (file
, _("Image section descriptor: (major: %u, minor: %u, "
7474 "size: %u, offset: %u)\n"),
7475 (unsigned)bfd_getl32 (eisd
.majorid
),
7476 (unsigned)bfd_getl32 (eisd
.minorid
),
7480 fprintf (file
, _(" section: base: 0x%08x%08x size: 0x%08x\n"),
7481 (unsigned)bfd_getl32 (eisd
.virt_addr
+ 4),
7482 (unsigned)bfd_getl32 (eisd
.virt_addr
+ 0),
7483 (unsigned)bfd_getl32 (eisd
.secsize
));
7484 val
= (unsigned)bfd_getl32 (eisd
.flags
);
7485 fprintf (file
, _(" flags: 0x%04x"), val
);
7486 if (val
& EISD__M_GBL
)
7487 fprintf (file
, " GBL");
7488 if (val
& EISD__M_CRF
)
7489 fprintf (file
, " CRF");
7490 if (val
& EISD__M_DZRO
)
7491 fprintf (file
, " DZRO");
7492 if (val
& EISD__M_WRT
)
7493 fprintf (file
, " WRT");
7494 if (val
& EISD__M_INITALCODE
)
7495 fprintf (file
, " INITALCODE");
7496 if (val
& EISD__M_BASED
)
7497 fprintf (file
, " BASED");
7498 if (val
& EISD__M_FIXUPVEC
)
7499 fprintf (file
, " FIXUPVEC");
7500 if (val
& EISD__M_RESIDENT
)
7501 fprintf (file
, " RESIDENT");
7502 if (val
& EISD__M_VECTOR
)
7503 fprintf (file
, " VECTOR");
7504 if (val
& EISD__M_PROTECT
)
7505 fprintf (file
, " PROTECT");
7506 if (val
& EISD__M_LASTCLU
)
7507 fprintf (file
, " LASTCLU");
7508 if (val
& EISD__M_EXE
)
7509 fprintf (file
, " EXE");
7510 if (val
& EISD__M_NONSHRADR
)
7511 fprintf (file
, " NONSHRADR");
7512 if (val
& EISD__M_QUAD_LENGTH
)
7513 fprintf (file
, " QUAD_LENGTH");
7514 if (val
& EISD__M_ALLOC_64BIT
)
7515 fprintf (file
, " ALLOC_64BIT");
7516 fprintf (file
, "\n");
7517 if (val
& EISD__M_FIXUPVEC
)
7519 eiaf_vbn
= bfd_getl32 (eisd
.vbn
);
7520 eiaf_size
= bfd_getl32 (eisd
.secsize
);
7522 fprintf (file
, _(" vbn: %u, pfc: %u, matchctl: %u type: %u ("),
7523 (unsigned)bfd_getl32 (eisd
.vbn
),
7524 eisd
.pfc
, eisd
.matchctl
, eisd
.type
);
7527 case EISD__K_NORMAL
:
7528 fputs (_("NORMAL"), file
);
7530 case EISD__K_SHRFXD
:
7531 fputs (_("SHRFXD"), file
);
7533 case EISD__K_PRVFXD
:
7534 fputs (_("PRVFXD"), file
);
7536 case EISD__K_SHRPIC
:
7537 fputs (_("SHRPIC"), file
);
7539 case EISD__K_PRVPIC
:
7540 fputs (_("PRVPIC"), file
);
7542 case EISD__K_USRSTACK
:
7543 fputs (_("USRSTACK"), file
);
7546 fputs (_("*unknown*"), file
);
7549 fputs (_(")\n"), file
);
7550 if (val
& EISD__M_GBL
)
7551 fprintf (file
, _(" ident: 0x%08x, name: %.*s\n"),
7552 (unsigned)bfd_getl32 (eisd
.ident
),
7553 eisd
.gblnam
[0], eisd
.gblnam
+ 1);
7559 if (bfd_seek (abfd
, (file_ptr
) (dmt_vbn
- 1) * VMS_BLOCK_SIZE
, SEEK_SET
))
7561 fprintf (file
, _("cannot read DMT\n"));
7565 fprintf (file
, _("Debug module table:\n"));
7567 while (dmt_size
> 0)
7569 struct vms_dmt_header dmth
;
7572 if (bfd_bread (&dmth
, sizeof (dmth
), abfd
) != sizeof (dmth
))
7574 fprintf (file
, _("cannot read DMT header\n"));
7577 count
= bfd_getl16 (dmth
.psect_count
);
7579 _(" module offset: 0x%08x, size: 0x%08x, (%u psects)\n"),
7580 (unsigned)bfd_getl32 (dmth
.modbeg
),
7581 (unsigned)bfd_getl32 (dmth
.size
), count
);
7582 dmt_size
-= sizeof (dmth
);
7585 struct vms_dmt_psect dmtp
;
7587 if (bfd_bread (&dmtp
, sizeof (dmtp
), abfd
) != sizeof (dmtp
))
7589 fprintf (file
, _("cannot read DMT psect\n"));
7592 fprintf (file
, _(" psect start: 0x%08x, length: %u\n"),
7593 (unsigned)bfd_getl32 (dmtp
.start
),
7594 (unsigned)bfd_getl32 (dmtp
.length
));
7596 dmt_size
-= sizeof (dmtp
);
7603 if (bfd_seek (abfd
, (file_ptr
) (dst_vbn
- 1) * VMS_BLOCK_SIZE
, SEEK_SET
))
7605 fprintf (file
, _("cannot read DST\n"));
7609 evax_bfd_print_dst (abfd
, dst_size
, file
);
7613 if (bfd_seek (abfd
, (file_ptr
) (gst_vbn
- 1) * VMS_BLOCK_SIZE
, SEEK_SET
))
7615 fprintf (file
, _("cannot read GST\n"));
7619 fprintf (file
, _("Global symbol table:\n"));
7620 evax_bfd_print_eobj (abfd
, file
);
7625 struct vms_eiaf
*eiaf
;
7626 unsigned int qrelfixoff
;
7627 unsigned int lrelfixoff
;
7628 unsigned int qdotadroff
;
7629 unsigned int ldotadroff
;
7630 unsigned int shrimgcnt
;
7631 unsigned int shlstoff
;
7632 unsigned int codeadroff
;
7633 unsigned int lpfixoff
;
7634 unsigned int chgprtoff
;
7636 buf
= bfd_malloc (eiaf_size
);
7638 if (bfd_seek (abfd
, (file_ptr
) (eiaf_vbn
- 1) * VMS_BLOCK_SIZE
, SEEK_SET
)
7639 || bfd_bread (buf
, eiaf_size
, abfd
) != eiaf_size
)
7641 fprintf (file
, _("cannot read EIHA\n"));
7645 eiaf
= (struct vms_eiaf
*)buf
;
7647 _("Image activator fixup: (major: %u, minor: %u)\n"),
7648 (unsigned)bfd_getl32 (eiaf
->majorid
),
7649 (unsigned)bfd_getl32 (eiaf
->minorid
));
7650 fprintf (file
, _(" iaflink : 0x%08x %08x\n"),
7651 (unsigned)bfd_getl32 (eiaf
->iaflink
+ 0),
7652 (unsigned)bfd_getl32 (eiaf
->iaflink
+ 4));
7653 fprintf (file
, _(" fixuplnk: 0x%08x %08x\n"),
7654 (unsigned)bfd_getl32 (eiaf
->fixuplnk
+ 0),
7655 (unsigned)bfd_getl32 (eiaf
->fixuplnk
+ 4));
7656 fprintf (file
, _(" size : %u\n"),
7657 (unsigned)bfd_getl32 (eiaf
->size
));
7658 fprintf (file
, _(" flags: 0x%08x\n"),
7659 (unsigned)bfd_getl32 (eiaf
->flags
));
7660 qrelfixoff
= bfd_getl32 (eiaf
->qrelfixoff
);
7661 lrelfixoff
= bfd_getl32 (eiaf
->lrelfixoff
);
7662 fprintf (file
, _(" qrelfixoff: %5u, lrelfixoff: %5u\n"),
7663 qrelfixoff
, lrelfixoff
);
7664 qdotadroff
= bfd_getl32 (eiaf
->qdotadroff
);
7665 ldotadroff
= bfd_getl32 (eiaf
->ldotadroff
);
7666 fprintf (file
, _(" qdotadroff: %5u, ldotadroff: %5u\n"),
7667 qdotadroff
, ldotadroff
);
7668 codeadroff
= bfd_getl32 (eiaf
->codeadroff
);
7669 lpfixoff
= bfd_getl32 (eiaf
->lpfixoff
);
7670 fprintf (file
, _(" codeadroff: %5u, lpfixoff : %5u\n"),
7671 codeadroff
, lpfixoff
);
7672 chgprtoff
= bfd_getl32 (eiaf
->chgprtoff
);
7673 fprintf (file
, _(" chgprtoff : %5u\n"), chgprtoff
);
7674 shrimgcnt
= bfd_getl32 (eiaf
->shrimgcnt
);
7675 shlstoff
= bfd_getl32 (eiaf
->shlstoff
);
7676 fprintf (file
, _(" shlstoff : %5u, shrimgcnt : %5u\n"),
7677 shlstoff
, shrimgcnt
);
7678 fprintf (file
, _(" shlextra : %5u, permctx : %5u\n"),
7679 (unsigned)bfd_getl32 (eiaf
->shlextra
),
7680 (unsigned)bfd_getl32 (eiaf
->permctx
));
7681 fprintf (file
, _(" base_va : 0x%08x\n"),
7682 (unsigned)bfd_getl32 (eiaf
->base_va
));
7683 fprintf (file
, _(" lppsbfixoff: %5u\n"),
7684 (unsigned)bfd_getl32 (eiaf
->lppsbfixoff
));
7688 struct vms_shl
*shl
= (struct vms_shl
*)(buf
+ shlstoff
);
7691 fprintf (file
, _(" Shareable images:\n"));
7692 for (j
= 0; j
< shrimgcnt
; j
++, shl
++)
7695 _(" %u: size: %u, flags: 0x%02x, name: %.*s\n"),
7696 j
, shl
->size
, shl
->flags
,
7697 shl
->imgnam
[0], shl
->imgnam
+ 1);
7700 if (qrelfixoff
!= 0)
7702 fprintf (file
, _(" quad-word relocation fixups:\n"));
7703 evax_bfd_print_relocation_records (file
, buf
+ qrelfixoff
, 8);
7705 if (lrelfixoff
!= 0)
7707 fprintf (file
, _(" long-word relocation fixups:\n"));
7708 evax_bfd_print_relocation_records (file
, buf
+ lrelfixoff
, 4);
7710 if (qdotadroff
!= 0)
7712 fprintf (file
, _(" quad-word .address reference fixups:\n"));
7713 evax_bfd_print_address_fixups (file
, buf
+ qdotadroff
);
7715 if (ldotadroff
!= 0)
7717 fprintf (file
, _(" long-word .address reference fixups:\n"));
7718 evax_bfd_print_address_fixups (file
, buf
+ ldotadroff
);
7720 if (codeadroff
!= 0)
7722 fprintf (file
, _(" Code Address Reference Fixups:\n"));
7723 evax_bfd_print_reference_fixups (file
, buf
+ codeadroff
);
7727 fprintf (file
, _(" Linkage Pairs Reference Fixups:\n"));
7728 evax_bfd_print_reference_fixups (file
, buf
+ lpfixoff
);
7732 unsigned int count
= (unsigned)bfd_getl32 (buf
+ chgprtoff
);
7733 struct vms_eicp
*eicp
= (struct vms_eicp
*)(buf
+ chgprtoff
+ 4);
7736 fprintf (file
, _(" Change Protection (%u entries):\n"), count
);
7737 for (j
= 0; j
< count
; j
++, eicp
++)
7739 unsigned int prot
= bfd_getl32 (eicp
->newprt
);
7741 _(" base: 0x%08x %08x, size: 0x%08x, prot: 0x%08x "),
7742 (unsigned)bfd_getl32 (eicp
->baseva
+ 4),
7743 (unsigned)bfd_getl32 (eicp
->baseva
+ 0),
7744 (unsigned)bfd_getl32 (eicp
->size
),
7745 (unsigned)bfd_getl32 (eicp
->newprt
));
7749 fprintf (file
, "NA");
7751 case PRT__C_RESERVED
:
7752 fprintf (file
, "RES");
7755 fprintf (file
, "KW");
7758 fprintf (file
, "KR");
7761 fprintf (file
, "UW");
7764 fprintf (file
, "EW");
7767 fprintf (file
, "ERKW");
7770 fprintf (file
, "ER");
7773 fprintf (file
, "SW");
7776 fprintf (file
, "SREW");
7779 fprintf (file
, "SRKW");
7782 fprintf (file
, "SR");
7785 fprintf (file
, "URSW");
7788 fprintf (file
, "UREW");
7791 fprintf (file
, "URKW");
7794 fprintf (file
, "UR");
7808 vms_bfd_print_private_bfd_data (bfd
*abfd
, void *ptr
)
7810 FILE *file
= (FILE *)ptr
;
7812 if (bfd_get_file_flags (abfd
) & (EXEC_P
| DYNAMIC
))
7813 evax_bfd_print_image (abfd
, file
);
7816 if (bfd_seek (abfd
, 0, SEEK_SET
))
7818 evax_bfd_print_eobj (abfd
, file
);
7825 /* Slurp ETIR/EDBG/ETBT VMS object records. */
7828 alpha_vms_read_sections_content (bfd
*abfd
, struct bfd_link_info
*info
)
7830 asection
*cur_section
;
7831 file_ptr cur_offset
;
7832 asection
*dst_section
;
7833 file_ptr dst_offset
;
7835 if (bfd_seek (abfd
, 0, SEEK_SET
) != 0)
7841 dst_section
= PRIV (dst_section
);
7845 if (info
->strip
== strip_all
|| info
->strip
== strip_debugger
)
7847 /* Discard the DST section. */
7851 else if (dst_section
)
7853 dst_offset
= dst_section
->output_offset
;
7854 dst_section
= dst_section
->output_section
;
7863 type
= _bfd_vms_get_object_record (abfd
);
7866 vms_debug2 ((2, "next_record failed\n"));
7872 PRIV (image_section
) = cur_section
;
7873 PRIV (image_offset
) = cur_offset
;
7874 res
= _bfd_vms_slurp_etir (abfd
, info
);
7875 cur_section
= PRIV (image_section
);
7876 cur_offset
= PRIV (image_offset
);
7880 if (dst_section
== NULL
)
7882 PRIV (image_section
) = dst_section
;
7883 PRIV (image_offset
) = dst_offset
;
7884 res
= _bfd_vms_slurp_etir (abfd
, info
);
7885 dst_offset
= PRIV (image_offset
);
7894 vms_debug2 ((2, "slurp eobj type %d failed\n", type
));
7901 alpha_vms_sizeof_headers (bfd
*abfd ATTRIBUTE_UNUSED
,
7902 struct bfd_link_info
*info ATTRIBUTE_UNUSED
)
7907 /* Add a linkage pair fixup at address SECT + OFFSET to SHLIB. */
7910 alpha_vms_add_fixup_lp (struct bfd_link_info
*info
, bfd
*src
, bfd
*shlib
)
7912 struct alpha_vms_shlib_el
*sl
;
7913 asection
*sect
= PRIV2 (src
, image_section
);
7914 file_ptr offset
= PRIV2 (src
, image_offset
);
7916 sl
= &VEC_EL (alpha_vms_link_hash (info
)->shrlibs
,
7917 struct alpha_vms_shlib_el
, PRIV2 (shlib
, shr_index
));
7918 sl
->has_fixups
= TRUE
;
7919 VEC_APPEND_EL (sl
->lp
, bfd_vma
,
7920 sect
->output_section
->vma
+ sect
->output_offset
+ offset
);
7921 sect
->output_section
->flags
|= SEC_RELOC
;
7924 /* Add a code address fixup at address SECT + OFFSET to SHLIB. */
7927 alpha_vms_add_fixup_ca (struct bfd_link_info
*info
, bfd
*src
, bfd
*shlib
)
7929 struct alpha_vms_shlib_el
*sl
;
7930 asection
*sect
= PRIV2 (src
, image_section
);
7931 file_ptr offset
= PRIV2 (src
, image_offset
);
7933 sl
= &VEC_EL (alpha_vms_link_hash (info
)->shrlibs
,
7934 struct alpha_vms_shlib_el
, PRIV2 (shlib
, shr_index
));
7935 sl
->has_fixups
= TRUE
;
7936 VEC_APPEND_EL (sl
->ca
, bfd_vma
,
7937 sect
->output_section
->vma
+ sect
->output_offset
+ offset
);
7938 sect
->output_section
->flags
|= SEC_RELOC
;
7941 /* Add a quad word relocation fixup at address SECT + OFFSET to SHLIB. */
7944 alpha_vms_add_fixup_qr (struct bfd_link_info
*info
, bfd
*src
,
7945 bfd
*shlib
, bfd_vma vec
)
7947 struct alpha_vms_shlib_el
*sl
;
7948 struct alpha_vms_vma_ref
*r
;
7949 asection
*sect
= PRIV2 (src
, image_section
);
7950 file_ptr offset
= PRIV2 (src
, image_offset
);
7952 sl
= &VEC_EL (alpha_vms_link_hash (info
)->shrlibs
,
7953 struct alpha_vms_shlib_el
, PRIV2 (shlib
, shr_index
));
7954 sl
->has_fixups
= TRUE
;
7955 r
= VEC_APPEND (sl
->qr
, struct alpha_vms_vma_ref
);
7956 r
->vma
= sect
->output_section
->vma
+ sect
->output_offset
+ offset
;
7958 sect
->output_section
->flags
|= SEC_RELOC
;
7962 alpha_vms_add_fixup_lr (struct bfd_link_info
*info ATTRIBUTE_UNUSED
,
7963 unsigned int shr ATTRIBUTE_UNUSED
,
7964 bfd_vma vec ATTRIBUTE_UNUSED
)
7966 /* Not yet supported. */
7970 /* Add relocation. FIXME: Not yet emitted. */
7973 alpha_vms_add_lw_reloc (struct bfd_link_info
*info ATTRIBUTE_UNUSED
)
7978 alpha_vms_add_qw_reloc (struct bfd_link_info
*info ATTRIBUTE_UNUSED
)
7982 static struct bfd_hash_entry
*
7983 alpha_vms_link_hash_newfunc (struct bfd_hash_entry
*entry
,
7984 struct bfd_hash_table
*table
,
7987 struct alpha_vms_link_hash_entry
*ret
=
7988 (struct alpha_vms_link_hash_entry
*) entry
;
7990 /* Allocate the structure if it has not already been allocated by a
7993 ret
= ((struct alpha_vms_link_hash_entry
*)
7994 bfd_hash_allocate (table
,
7995 sizeof (struct alpha_vms_link_hash_entry
)));
7999 /* Call the allocation method of the superclass. */
8000 ret
= ((struct alpha_vms_link_hash_entry
*)
8001 _bfd_link_hash_newfunc ((struct bfd_hash_entry
*) ret
,
8006 return (struct bfd_hash_entry
*) ret
;
8009 /* Create an Alpha/VMS link hash table. */
8011 static struct bfd_link_hash_table
*
8012 alpha_vms_bfd_link_hash_table_create (bfd
*abfd
)
8014 struct alpha_vms_link_hash_table
*ret
;
8015 bfd_size_type amt
= sizeof (struct alpha_vms_link_hash_table
);
8017 ret
= (struct alpha_vms_link_hash_table
*) bfd_malloc (amt
);
8020 if (!_bfd_link_hash_table_init (&ret
->root
, abfd
,
8021 alpha_vms_link_hash_newfunc
,
8022 sizeof (struct alpha_vms_link_hash_entry
)))
8028 VEC_INIT (ret
->shrlibs
);
8035 alpha_vms_link_add_object_symbols (bfd
*abfd
, struct bfd_link_info
*info
)
8039 for (i
= 0; i
< PRIV (gsd_sym_count
); i
++)
8041 struct vms_symbol_entry
*e
= PRIV (syms
)[i
];
8042 struct alpha_vms_link_hash_entry
*h
;
8043 struct bfd_link_hash_entry
*h_root
;
8046 if (!alpha_vms_convert_symbol (abfd
, e
, &sym
))
8049 if ((e
->flags
& EGSY__V_DEF
) && abfd
->selective_search
)
8051 /* In selective_search mode, only add definition that are
8053 h
= (struct alpha_vms_link_hash_entry
*)bfd_link_hash_lookup
8054 (info
->hash
, sym
.name
, FALSE
, FALSE
, FALSE
);
8055 if (h
== NULL
|| h
->root
.type
!= bfd_link_hash_undefined
)
8061 h_root
= (struct bfd_link_hash_entry
*) h
;
8062 if (_bfd_generic_link_add_one_symbol
8063 (info
, abfd
, sym
.name
, sym
.flags
, sym
.section
, sym
.value
,
8064 NULL
, FALSE
, FALSE
, &h_root
) == FALSE
)
8066 h
= (struct alpha_vms_link_hash_entry
*) h_root
;
8068 if ((e
->flags
& EGSY__V_DEF
)
8070 && abfd
->xvec
== info
->output_bfd
->xvec
)
8074 if (abfd
->flags
& DYNAMIC
)
8076 struct alpha_vms_shlib_el
*shlib
;
8078 /* We do not want to include any of the sections in a dynamic
8079 object in the output file. See comment in elflink.c. */
8080 bfd_section_list_clear (abfd
);
8082 shlib
= VEC_APPEND (alpha_vms_link_hash (info
)->shrlibs
,
8083 struct alpha_vms_shlib_el
);
8085 VEC_INIT (shlib
->ca
);
8086 VEC_INIT (shlib
->lp
);
8087 VEC_INIT (shlib
->qr
);
8088 PRIV (shr_index
) = VEC_COUNT (alpha_vms_link_hash (info
)->shrlibs
) - 1;
8095 alpha_vms_link_add_archive_symbols (bfd
*abfd
, struct bfd_link_info
*info
)
8098 struct bfd_link_hash_entry
**pundef
;
8099 struct bfd_link_hash_entry
**next_pundef
;
8101 /* We only accept VMS libraries. */
8102 if (info
->output_bfd
->xvec
!= abfd
->xvec
)
8104 bfd_set_error (bfd_error_wrong_format
);
8108 /* The archive_pass field in the archive itself is used to
8109 initialize PASS, since we may search the same archive multiple
8111 pass
= ++abfd
->archive_pass
;
8113 /* Look through the list of undefined symbols. */
8114 for (pundef
= &info
->hash
->undefs
; *pundef
!= NULL
; pundef
= next_pundef
)
8116 struct bfd_link_hash_entry
*h
;
8122 next_pundef
= &(*pundef
)->u
.undef
.next
;
8124 /* When a symbol is defined, it is not necessarily removed from
8126 if (h
->type
!= bfd_link_hash_undefined
8127 && h
->type
!= bfd_link_hash_common
)
8129 /* Remove this entry from the list, for general cleanliness
8130 and because we are going to look through the list again
8131 if we search any more libraries. We can't remove the
8132 entry if it is the tail, because that would lose any
8133 entries we add to the list later on. */
8134 if (*pundef
!= info
->hash
->undefs_tail
)
8136 *pundef
= *next_pundef
;
8137 next_pundef
= pundef
;
8142 /* Look for this symbol in the archive hash table. */
8143 symidx
= _bfd_vms_lib_find_symbol (abfd
, h
->root
.string
);
8144 if (symidx
== BFD_NO_MORE_SYMBOLS
)
8146 /* Nothing in this slot. */
8150 element
= bfd_get_elt_at_index (abfd
, symidx
);
8151 if (element
== NULL
)
8154 if (element
->archive_pass
== -1 || element
->archive_pass
== pass
)
8156 /* Next symbol if this archive is wrong or already handled. */
8160 if (! bfd_check_format (element
, bfd_object
))
8162 element
->archive_pass
= -1;
8166 orig_element
= element
;
8167 if (bfd_is_thin_archive (abfd
))
8169 element
= _bfd_vms_lib_get_imagelib_file (element
);
8170 if (element
== NULL
|| !bfd_check_format (element
, bfd_object
))
8172 orig_element
->archive_pass
= -1;
8177 /* Unlike the generic linker, we know that this element provides
8178 a definition for an undefined symbol and we know that we want
8179 to include it. We don't need to check anything. */
8180 if (!(*info
->callbacks
8181 ->add_archive_element
) (info
, element
, h
->root
.string
, &element
))
8183 if (!alpha_vms_link_add_object_symbols (element
, info
))
8186 orig_element
->archive_pass
= pass
;
8193 alpha_vms_bfd_link_add_symbols (bfd
*abfd
, struct bfd_link_info
*info
)
8195 switch (bfd_get_format (abfd
))
8198 vms_debug2 ((2, "vms_link_add_symbols for object %s\n",
8200 return alpha_vms_link_add_object_symbols (abfd
, info
);
8203 vms_debug2 ((2, "vms_link_add_symbols for archive %s\n",
8205 return alpha_vms_link_add_archive_symbols (abfd
, info
);
8208 bfd_set_error (bfd_error_wrong_format
);
8214 alpha_vms_build_fixups (struct bfd_link_info
*info
)
8216 struct alpha_vms_link_hash_table
*t
= alpha_vms_link_hash (info
);
8217 unsigned char *content
;
8219 unsigned int sz
= 0;
8220 unsigned int lp_sz
= 0;
8221 unsigned int ca_sz
= 0;
8222 unsigned int qr_sz
= 0;
8223 unsigned int shrimg_cnt
= 0;
8224 unsigned int chgprt_num
= 0;
8225 unsigned int chgprt_sz
= 0;
8226 struct vms_eiaf
*eiaf
;
8230 /* Shared libraries. */
8231 for (i
= 0; i
< VEC_COUNT (t
->shrlibs
); i
++)
8233 struct alpha_vms_shlib_el
*shlib
;
8235 shlib
= &VEC_EL (t
->shrlibs
, struct alpha_vms_shlib_el
, i
);
8237 if (!shlib
->has_fixups
)
8242 if (VEC_COUNT (shlib
->ca
) > 0)
8244 /* Header + entries. */
8246 ca_sz
+= VEC_COUNT (shlib
->ca
) * 4;
8248 if (VEC_COUNT (shlib
->lp
) > 0)
8250 /* Header + entries. */
8252 lp_sz
+= VEC_COUNT (shlib
->lp
) * 4;
8254 if (VEC_COUNT (shlib
->qr
) > 0)
8256 /* Header + entries. */
8258 qr_sz
+= VEC_COUNT (shlib
->qr
) * 8;
8269 /* Finish now if there is no content. */
8270 if (ca_sz
+ lp_sz
+ qr_sz
== 0)
8273 /* Add an eicp entry for the fixup itself. */
8275 for (sec
= info
->output_bfd
->sections
; sec
!= NULL
; sec
= sec
->next
)
8277 /* This isect could be made RO or EXE after relocations are applied. */
8278 if ((sec
->flags
& SEC_RELOC
) != 0
8279 && (sec
->flags
& (SEC_CODE
| SEC_READONLY
)) != 0)
8282 chgprt_sz
= 4 + chgprt_num
* sizeof (struct vms_eicp
);
8284 /* Allocate section content (round-up size) */
8285 sz
= sizeof (struct vms_eiaf
) + shrimg_cnt
* sizeof (struct vms_shl
)
8286 + ca_sz
+ lp_sz
+ qr_sz
+ chgprt_sz
;
8287 sz
= (sz
+ VMS_BLOCK_SIZE
- 1) & ~(VMS_BLOCK_SIZE
- 1);
8288 content
= bfd_zalloc (info
->output_bfd
, sz
);
8289 if (content
== NULL
)
8292 sec
= alpha_vms_link_hash (info
)->fixup
;
8293 sec
->contents
= content
;
8296 eiaf
= (struct vms_eiaf
*)content
;
8297 off
= sizeof (struct vms_eiaf
);
8298 bfd_putl32 (0, eiaf
->majorid
);
8299 bfd_putl32 (0, eiaf
->minorid
);
8300 bfd_putl32 (0, eiaf
->iaflink
);
8301 bfd_putl32 (0, eiaf
->fixuplnk
);
8302 bfd_putl32 (sizeof (struct vms_eiaf
), eiaf
->size
);
8303 bfd_putl32 (0, eiaf
->flags
);
8304 bfd_putl32 (0, eiaf
->qrelfixoff
);
8305 bfd_putl32 (0, eiaf
->lrelfixoff
);
8306 bfd_putl32 (0, eiaf
->qdotadroff
);
8307 bfd_putl32 (0, eiaf
->ldotadroff
);
8308 bfd_putl32 (0, eiaf
->codeadroff
);
8309 bfd_putl32 (0, eiaf
->lpfixoff
);
8310 bfd_putl32 (0, eiaf
->chgprtoff
);
8311 bfd_putl32 (shrimg_cnt
? off
: 0, eiaf
->shlstoff
);
8312 bfd_putl32 (shrimg_cnt
, eiaf
->shrimgcnt
);
8313 bfd_putl32 (0, eiaf
->shlextra
);
8314 bfd_putl32 (0, eiaf
->permctx
);
8315 bfd_putl32 (0, eiaf
->base_va
);
8316 bfd_putl32 (0, eiaf
->lppsbfixoff
);
8323 for (i
= 0; i
< VEC_COUNT (t
->shrlibs
); i
++)
8325 struct alpha_vms_shlib_el
*shlib
;
8326 struct vms_shl
*shl
;
8328 shlib
= &VEC_EL (t
->shrlibs
, struct alpha_vms_shlib_el
, i
);
8330 if (!shlib
->has_fixups
)
8333 /* Renumber shared images. */
8334 PRIV2 (shlib
->abfd
, shr_index
) = shrimg_cnt
++;
8336 shl
= (struct vms_shl
*)(content
+ off
);
8337 bfd_putl32 (0, shl
->baseva
);
8338 bfd_putl32 (0, shl
->shlptr
);
8339 bfd_putl32 (0, shl
->ident
);
8340 bfd_putl32 (0, shl
->permctx
);
8341 shl
->size
= sizeof (struct vms_shl
);
8342 bfd_putl16 (0, shl
->fill_1
);
8344 bfd_putl32 (0, shl
->icb
);
8345 shl
->imgnam
[0] = strlen (PRIV2 (shlib
->abfd
, hdr_data
.hdr_t_name
));
8346 memcpy (shl
->imgnam
+ 1, PRIV2 (shlib
->abfd
, hdr_data
.hdr_t_name
),
8349 off
+= sizeof (struct vms_shl
);
8355 bfd_putl32 (off
, eiaf
->codeadroff
);
8357 for (i
= 0; i
< VEC_COUNT (t
->shrlibs
); i
++)
8359 struct alpha_vms_shlib_el
*shlib
;
8362 shlib
= &VEC_EL (t
->shrlibs
, struct alpha_vms_shlib_el
, i
);
8364 if (VEC_COUNT (shlib
->ca
) == 0)
8367 bfd_putl32 (VEC_COUNT (shlib
->ca
), content
+ off
);
8368 bfd_putl32 (PRIV2 (shlib
->abfd
, shr_index
), content
+ off
+ 4);
8371 for (j
= 0; j
< VEC_COUNT (shlib
->ca
); j
++)
8373 bfd_putl32 (VEC_EL (shlib
->ca
, bfd_vma
, j
) - t
->base_addr
,
8379 bfd_putl32 (0, content
+ off
);
8380 bfd_putl32 (0, content
+ off
+ 4);
8387 bfd_putl32 (off
, eiaf
->lpfixoff
);
8389 for (i
= 0; i
< VEC_COUNT (t
->shrlibs
); i
++)
8391 struct alpha_vms_shlib_el
*shlib
;
8394 shlib
= &VEC_EL (t
->shrlibs
, struct alpha_vms_shlib_el
, i
);
8396 if (VEC_COUNT (shlib
->lp
) == 0)
8399 bfd_putl32 (VEC_COUNT (shlib
->lp
), content
+ off
);
8400 bfd_putl32 (PRIV2 (shlib
->abfd
, shr_index
), content
+ off
+ 4);
8403 for (j
= 0; j
< VEC_COUNT (shlib
->lp
); j
++)
8405 bfd_putl32 (VEC_EL (shlib
->lp
, bfd_vma
, j
) - t
->base_addr
,
8411 bfd_putl32 (0, content
+ off
);
8412 bfd_putl32 (0, content
+ off
+ 4);
8419 bfd_putl32 (off
, eiaf
->qdotadroff
);
8421 for (i
= 0; i
< VEC_COUNT (t
->shrlibs
); i
++)
8423 struct alpha_vms_shlib_el
*shlib
;
8426 shlib
= &VEC_EL (t
->shrlibs
, struct alpha_vms_shlib_el
, i
);
8428 if (VEC_COUNT (shlib
->qr
) == 0)
8431 bfd_putl32 (VEC_COUNT (shlib
->qr
), content
+ off
);
8432 bfd_putl32 (PRIV2 (shlib
->abfd
, shr_index
), content
+ off
+ 4);
8435 for (j
= 0; j
< VEC_COUNT (shlib
->qr
); j
++)
8437 struct alpha_vms_vma_ref
*r
;
8438 r
= &VEC_EL (shlib
->qr
, struct alpha_vms_vma_ref
, j
);
8439 bfd_putl32 (r
->vma
- t
->base_addr
, content
+ off
);
8440 bfd_putl32 (r
->ref
, content
+ off
+ 4);
8445 bfd_putl32 (0, content
+ off
);
8446 bfd_putl32 (0, content
+ off
+ 4);
8451 /* Write the change protection table. */
8452 bfd_putl32 (off
, eiaf
->chgprtoff
);
8453 bfd_putl32 (chgprt_num
, content
+ off
);
8456 for (sec
= info
->output_bfd
->sections
; sec
!= NULL
; sec
= sec
->next
)
8458 struct vms_eicp
*eicp
;
8461 if ((sec
->flags
& SEC_LINKER_CREATED
) != 0 &&
8462 strcmp (sec
->name
, "$FIXUP$") == 0)
8464 else if ((sec
->flags
& SEC_RELOC
) != 0
8465 && (sec
->flags
& (SEC_CODE
| SEC_READONLY
)) != 0)
8470 eicp
= (struct vms_eicp
*)(content
+ off
);
8471 bfd_putl64 (sec
->vma
- t
->base_addr
, eicp
->baseva
);
8472 bfd_putl32 ((sec
->size
+ VMS_BLOCK_SIZE
- 1) & ~(VMS_BLOCK_SIZE
- 1),
8474 bfd_putl32 (prot
, eicp
->newprt
);
8475 off
+= sizeof (struct vms_eicp
);
8481 /* Called by bfd_hash_traverse to fill the symbol table.
8482 Return FALSE in case of failure. */
8485 alpha_vms_link_output_symbol (struct bfd_hash_entry
*bh
, void *infov
)
8487 struct bfd_link_hash_entry
*hc
= (struct bfd_link_hash_entry
*) bh
;
8488 struct bfd_link_info
*info
= (struct bfd_link_info
*)infov
;
8489 struct alpha_vms_link_hash_entry
*h
;
8490 struct vms_symbol_entry
*sym
;
8492 if (hc
->type
== bfd_link_hash_warning
)
8495 if (hc
->type
== bfd_link_hash_new
)
8498 h
= (struct alpha_vms_link_hash_entry
*) hc
;
8500 switch (h
->root
.type
)
8502 case bfd_link_hash_undefined
:
8504 case bfd_link_hash_new
:
8505 case bfd_link_hash_warning
:
8507 case bfd_link_hash_undefweak
:
8509 case bfd_link_hash_defined
:
8510 case bfd_link_hash_defweak
:
8512 asection
*sec
= h
->root
.u
.def
.section
;
8514 /* FIXME: this is certainly a symbol from a dynamic library. */
8515 if (bfd_is_abs_section (sec
))
8518 if (sec
->owner
->flags
& DYNAMIC
)
8522 case bfd_link_hash_common
:
8524 case bfd_link_hash_indirect
:
8528 /* Do not write not kept symbols. */
8529 if (info
->strip
== strip_some
8530 && bfd_hash_lookup (info
->keep_hash
, h
->root
.root
.string
,
8531 FALSE
, FALSE
) != NULL
)
8536 /* This symbol doesn't come from a VMS object. So we suppose it is
8538 int len
= strlen (h
->root
.root
.string
);
8540 sym
= (struct vms_symbol_entry
*)bfd_zalloc (info
->output_bfd
,
8541 sizeof (*sym
) + len
);
8545 memcpy (sym
->name
, h
->root
.root
.string
, len
);
8547 sym
->owner
= info
->output_bfd
;
8549 sym
->typ
= EGSD__C_SYMG
;
8551 sym
->flags
= EGSY__V_DEF
| EGSY__V_REL
;
8552 sym
->symbol_vector
= h
->root
.u
.def
.value
;
8553 sym
->section
= h
->root
.u
.def
.section
;
8554 sym
->value
= h
->root
.u
.def
.value
;
8559 if (!add_symbol_entry (info
->output_bfd
, sym
))
8566 alpha_vms_bfd_final_link (bfd
*abfd
, struct bfd_link_info
*info
)
8569 struct bfd_link_order
*p
;
8577 if (info
->relocatable
)
8579 /* FIXME: we do not yet support relocatable link. It is not obvious
8580 how to do it for debug infos. */
8581 (*info
->callbacks
->einfo
)(_("%P: relocatable link is not supported\n"));
8585 bfd_get_outsymbols (abfd
) = NULL
;
8586 bfd_get_symcount (abfd
) = 0;
8588 /* Mark all sections which will be included in the output file. */
8589 for (o
= abfd
->sections
; o
!= NULL
; o
= o
->next
)
8590 for (p
= o
->map_head
.link_order
; p
!= NULL
; p
= p
->next
)
8591 if (p
->type
== bfd_indirect_link_order
)
8592 p
->u
.indirect
.section
->linker_mark
= TRUE
;
8595 /* Handle all the link order information for the sections. */
8596 for (o
= abfd
->sections
; o
!= NULL
; o
= o
->next
)
8598 printf ("For section %s (at 0x%08x, flags=0x%08x):\n",
8599 o
->name
, (unsigned)o
->vma
, (unsigned)o
->flags
);
8601 for (p
= o
->map_head
.link_order
; p
!= NULL
; p
= p
->next
)
8603 printf (" at 0x%08x - 0x%08x: ",
8604 (unsigned)p
->offset
, (unsigned)(p
->offset
+ p
->size
- 1));
8607 case bfd_section_reloc_link_order
:
8608 case bfd_symbol_reloc_link_order
:
8609 printf (" section/symbol reloc\n");
8611 case bfd_indirect_link_order
:
8612 printf (" section %s of %s\n",
8613 p
->u
.indirect
.section
->name
,
8614 p
->u
.indirect
.section
->owner
->filename
);
8616 case bfd_data_link_order
:
8617 printf (" explicit data\n");
8620 printf (" *unknown* type %u\n", p
->type
);
8627 /* Generate the symbol table. */
8628 BFD_ASSERT (PRIV (syms
) == NULL
);
8629 if (info
->strip
!= strip_all
)
8630 bfd_hash_traverse (&info
->hash
->table
, alpha_vms_link_output_symbol
, info
);
8632 /* Find the entry point. */
8633 if (bfd_get_start_address (abfd
) == 0)
8635 bfd
*startbfd
= NULL
;
8637 for (sub
= info
->input_bfds
; sub
!= NULL
; sub
= sub
->link
.next
)
8639 /* Consider only VMS object files. */
8640 if (sub
->xvec
!= abfd
->xvec
)
8643 if (!PRIV2 (sub
, eom_data
).eom_has_transfer
)
8645 if ((PRIV2 (sub
, eom_data
).eom_b_tfrflg
& EEOM__M_WKTFR
) && startbfd
)
8647 if (startbfd
!= NULL
8648 && !(PRIV2 (sub
, eom_data
).eom_b_tfrflg
& EEOM__M_WKTFR
))
8650 (*info
->callbacks
->einfo
)
8651 (_("%P: multiple entry points: in modules %B and %B\n"),
8660 unsigned int ps_idx
= PRIV2 (startbfd
, eom_data
).eom_l_psindx
;
8661 bfd_vma tfradr
= PRIV2 (startbfd
, eom_data
).eom_l_tfradr
;
8664 sec
= PRIV2 (startbfd
, sections
)[ps_idx
];
8666 bfd_set_start_address
8667 (abfd
, sec
->output_section
->vma
+ sec
->output_offset
+ tfradr
);
8671 /* Set transfer addresses. */
8674 struct bfd_link_hash_entry
*h
;
8677 PRIV (transfer_address
[i
++]) = 0xffffffff00000340ULL
; /* SYS$IMGACT */
8678 h
= bfd_link_hash_lookup (info
->hash
, "LIB$INITIALIZE", FALSE
, FALSE
, TRUE
);
8679 if (h
!= NULL
&& h
->type
== bfd_link_hash_defined
)
8680 PRIV (transfer_address
[i
++]) =
8681 alpha_vms_get_sym_value (h
->u
.def
.section
, h
->u
.def
.value
);
8682 PRIV (transfer_address
[i
++]) = bfd_get_start_address (abfd
);
8684 PRIV (transfer_address
[i
++]) = 0;
8687 /* Allocate contents.
8688 Also compute the virtual base address. */
8689 base_addr
= (bfd_vma
)-1;
8691 for (o
= abfd
->sections
; o
!= NULL
; o
= o
->next
)
8693 if (o
->flags
& SEC_HAS_CONTENTS
)
8695 o
->contents
= bfd_alloc (abfd
, o
->size
);
8696 if (o
->contents
== NULL
)
8699 if (o
->flags
& SEC_LOAD
)
8701 if (o
->vma
< base_addr
)
8703 if (o
->vma
+ o
->size
> last_addr
)
8704 last_addr
= o
->vma
+ o
->size
;
8706 /* Clear the RELOC flags. Currently we don't support incremental
8707 linking. We use the RELOC flag for computing the eicp entries. */
8708 o
->flags
&= ~SEC_RELOC
;
8711 /* Create the fixup section. */
8712 fixupsec
= bfd_make_section_anyway_with_flags
8713 (info
->output_bfd
, "$FIXUP$",
8714 SEC_ALLOC
| SEC_LOAD
| SEC_HAS_CONTENTS
| SEC_LINKER_CREATED
);
8715 if (fixupsec
== NULL
)
8717 last_addr
= (last_addr
+ 0xffff) & ~0xffff;
8718 fixupsec
->vma
= last_addr
;
8720 alpha_vms_link_hash (info
)->fixup
= fixupsec
;
8721 alpha_vms_link_hash (info
)->base_addr
= base_addr
;
8723 /* Create the DMT section, if necessary. */
8724 BFD_ASSERT (PRIV (dst_section
) == NULL
);
8725 dst
= bfd_get_section_by_name (abfd
, "$DST$");
8726 if (dst
!= NULL
&& dst
->size
== 0)
8730 PRIV (dst_section
) = dst
;
8731 dmt
= bfd_make_section_anyway_with_flags
8732 (info
->output_bfd
, "$DMT$",
8733 SEC_DEBUGGING
| SEC_HAS_CONTENTS
| SEC_LINKER_CREATED
);
8740 /* Read all sections from the inputs. */
8741 for (sub
= info
->input_bfds
; sub
!= NULL
; sub
= sub
->link
.next
)
8743 if (sub
->flags
& DYNAMIC
)
8745 alpha_vms_create_eisd_for_shared (abfd
, sub
);
8749 if (!alpha_vms_read_sections_content (sub
, info
))
8753 /* Handle all the link order information for the sections.
8754 Note: past this point, it is not possible to create new sections. */
8755 for (o
= abfd
->sections
; o
!= NULL
; o
= o
->next
)
8757 for (p
= o
->map_head
.link_order
; p
!= NULL
; p
= p
->next
)
8761 case bfd_section_reloc_link_order
:
8762 case bfd_symbol_reloc_link_order
:
8765 case bfd_indirect_link_order
:
8769 if (! _bfd_default_link_order (abfd
, info
, o
, p
))
8776 /* Compute fixups. */
8777 if (!alpha_vms_build_fixups (info
))
8780 /* Compute the DMT. */
8784 unsigned char *contents
= NULL
;
8786 /* In pass 1, compute the size. In pass 2, write the DMT contents. */
8787 for (pass
= 0; pass
< 2; pass
++)
8789 unsigned int off
= 0;
8791 /* For each object file (ie for each module). */
8792 for (sub
= info
->input_bfds
; sub
!= NULL
; sub
= sub
->link
.next
)
8795 struct vms_dmt_header
*dmth
= NULL
;
8796 unsigned int psect_count
;
8798 /* Skip this module if it has no DST. */
8799 sub_dst
= PRIV2 (sub
, dst_section
);
8800 if (sub_dst
== NULL
|| sub_dst
->size
== 0)
8805 /* Write the header. */
8806 dmth
= (struct vms_dmt_header
*)(contents
+ off
);
8807 bfd_putl32 (sub_dst
->output_offset
, dmth
->modbeg
);
8808 bfd_putl32 (sub_dst
->size
, dmth
->size
);
8811 off
+= sizeof (struct vms_dmt_header
);
8814 /* For each section (ie for each psect). */
8815 for (o
= sub
->sections
; o
!= NULL
; o
= o
->next
)
8817 /* Only consider interesting sections. */
8818 if (!(o
->flags
& SEC_ALLOC
))
8820 if (o
->flags
& SEC_LINKER_CREATED
)
8825 /* Write an entry. */
8826 struct vms_dmt_psect
*dmtp
;
8828 dmtp
= (struct vms_dmt_psect
*)(contents
+ off
);
8829 bfd_putl32 (o
->output_offset
+ o
->output_section
->vma
,
8831 bfd_putl32 (o
->size
, dmtp
->length
);
8834 off
+= sizeof (struct vms_dmt_psect
);
8837 bfd_putl32 (psect_count
, dmth
->psect_count
);
8842 contents
= bfd_zalloc (info
->output_bfd
, off
);
8843 if (contents
== NULL
)
8845 dmt
->contents
= contents
;
8850 BFD_ASSERT (off
== dmt
->size
);
8858 /* Read the contents of a section.
8859 buf points to a buffer of buf_size bytes to be filled with
8860 section data (starting at offset into section) */
8863 alpha_vms_get_section_contents (bfd
*abfd
, asection
*section
,
8864 void *buf
, file_ptr offset
,
8865 bfd_size_type count
)
8869 /* Image are easy. */
8870 if (bfd_get_file_flags (abfd
) & (EXEC_P
| DYNAMIC
))
8871 return _bfd_generic_get_section_contents (abfd
, section
,
8872 buf
, offset
, count
);
8875 if (offset
+ count
< count
8876 || offset
+ count
> section
->size
)
8878 bfd_set_error (bfd_error_invalid_operation
);
8882 /* If the section is already in memory, just copy it. */
8883 if (section
->flags
& SEC_IN_MEMORY
)
8885 BFD_ASSERT (section
->contents
!= NULL
);
8886 memcpy (buf
, section
->contents
+ offset
, count
);
8889 if (section
->size
== 0)
8892 /* Alloc in memory and read ETIRs. */
8893 for (sec
= abfd
->sections
; sec
; sec
= sec
->next
)
8895 BFD_ASSERT (sec
->contents
== NULL
);
8897 if (sec
->size
!= 0 && (sec
->flags
& SEC_HAS_CONTENTS
))
8899 sec
->contents
= bfd_alloc (abfd
, sec
->size
);
8900 if (sec
->contents
== NULL
)
8904 if (!alpha_vms_read_sections_content (abfd
, NULL
))
8906 for (sec
= abfd
->sections
; sec
; sec
= sec
->next
)
8908 sec
->flags
|= SEC_IN_MEMORY
;
8909 memcpy (buf
, section
->contents
+ offset
, count
);
8914 /* Set the format of a file being written. */
8917 alpha_vms_mkobject (bfd
* abfd
)
8919 const bfd_arch_info_type
*arch
;
8921 vms_debug2 ((1, "alpha_vms_mkobject (%p)\n", abfd
));
8923 if (!vms_initialize (abfd
))
8926 PRIV (recwr
.buf
) = bfd_alloc (abfd
, MAX_OUTREC_SIZE
);
8927 if (PRIV (recwr
.buf
) == NULL
)
8930 arch
= bfd_scan_arch ("alpha");
8934 bfd_set_error (bfd_error_wrong_format
);
8938 abfd
->arch_info
= arch
;
8945 /* Called when the BFD is being closed to do any necessary cleanup. */
8948 vms_close_and_cleanup (bfd
* abfd
)
8950 vms_debug2 ((1, "vms_close_and_cleanup (%p)\n", abfd
));
8952 if (abfd
== NULL
|| abfd
->tdata
.any
== NULL
)
8955 if (abfd
->format
== bfd_archive
)
8957 bfd_release (abfd
, abfd
->tdata
.any
);
8958 abfd
->tdata
.any
= NULL
;
8962 if (PRIV (recrd
.buf
) != NULL
)
8963 free (PRIV (recrd
.buf
));
8965 if (PRIV (sections
) != NULL
)
8966 free (PRIV (sections
));
8968 bfd_release (abfd
, abfd
->tdata
.any
);
8969 abfd
->tdata
.any
= NULL
;
8972 if (abfd
->direction
== write_direction
)
8974 /* Last step on VMS is to convert the file to variable record length
8976 if (bfd_cache_close (abfd
) != TRUE
)
8978 if (_bfd_vms_convert_to_var_unix_filename (abfd
->filename
) != TRUE
)
8986 /* Called when a new section is created. */
8989 vms_new_section_hook (bfd
* abfd
, asection
*section
)
8993 vms_debug2 ((1, "vms_new_section_hook (%p, [%d]%s)\n",
8994 abfd
, section
->index
, section
->name
));
8996 if (! bfd_set_section_alignment (abfd
, section
, 0))
8999 vms_debug2 ((7, "%d: %s\n", section
->index
, section
->name
));
9001 amt
= sizeof (struct vms_section_data_struct
);
9002 section
->used_by_bfd
= bfd_zalloc (abfd
, amt
);
9003 if (section
->used_by_bfd
== NULL
)
9006 /* Create the section symbol. */
9007 return _bfd_generic_new_section_hook (abfd
, section
);
9010 /* Part 4.5, symbols. */
9012 /* Print symbol to file according to how. how is one of
9013 bfd_print_symbol_name just print the name
9014 bfd_print_symbol_more print more (???)
9015 bfd_print_symbol_all print all we know, which is not much right now :-). */
9018 vms_print_symbol (bfd
* abfd
,
9021 bfd_print_symbol_type how
)
9023 vms_debug2 ((1, "vms_print_symbol (%p, %p, %p, %d)\n",
9024 abfd
, file
, symbol
, how
));
9028 case bfd_print_symbol_name
:
9029 case bfd_print_symbol_more
:
9030 fprintf ((FILE *)file
," %s", symbol
->name
);
9033 case bfd_print_symbol_all
:
9035 const char *section_name
= symbol
->section
->name
;
9037 bfd_print_symbol_vandf (abfd
, file
, symbol
);
9039 fprintf ((FILE *) file
," %-8s %s", section_name
, symbol
->name
);
9045 /* Return information about symbol in ret.
9047 fill type, value and name
9050 B bss segment symbol
9052 D data segment symbol
9054 t a static function symbol
9055 T text segment symbol
9060 vms_get_symbol_info (bfd
* abfd ATTRIBUTE_UNUSED
,
9066 vms_debug2 ((1, "vms_get_symbol_info (%p, %p, %p)\n", abfd
, symbol
, ret
));
9068 sec
= symbol
->section
;
9075 else if (bfd_is_com_section (sec
))
9077 else if (bfd_is_abs_section (sec
))
9079 else if (bfd_is_und_section (sec
))
9081 else if (bfd_is_ind_section (sec
))
9083 else if ((symbol
->flags
& BSF_FUNCTION
)
9084 || (bfd_get_section_flags (abfd
, sec
) & SEC_CODE
))
9086 else if (bfd_get_section_flags (abfd
, sec
) & SEC_DATA
)
9088 else if (bfd_get_section_flags (abfd
, sec
) & SEC_ALLOC
)
9093 if (ret
->type
!= 'U')
9094 ret
->value
= symbol
->value
+ symbol
->section
->vma
;
9097 ret
->name
= symbol
->name
;
9100 /* Return TRUE if the given symbol sym in the BFD abfd is
9101 a compiler generated local label, else return FALSE. */
9104 vms_bfd_is_local_label_name (bfd
* abfd ATTRIBUTE_UNUSED
,
9107 return name
[0] == '$';
9110 /* Part 4.7, writing an object file. */
9112 /* Sets the contents of the section section in BFD abfd to the data starting
9113 in memory at LOCATION. The data is written to the output section starting
9114 at offset offset for count bytes.
9116 Normally TRUE is returned, else FALSE. Possible error returns are:
9117 o bfd_error_no_contents - The output section does not have the
9118 SEC_HAS_CONTENTS attribute, so nothing can be written to it.
9119 o and some more too */
9122 _bfd_vms_set_section_contents (bfd
* abfd
,
9124 const void * location
,
9126 bfd_size_type count
)
9128 if (section
->contents
== NULL
)
9130 section
->contents
= bfd_alloc (abfd
, section
->size
);
9131 if (section
->contents
== NULL
)
9134 memcpy (section
->contents
+ offset
, location
, (size_t) count
);
9140 /* Set the architecture and machine type in BFD abfd to arch and mach.
9141 Find the correct pointer to a structure and insert it into the arch_info
9145 alpha_vms_set_arch_mach (bfd
*abfd
,
9146 enum bfd_architecture arch
, unsigned long mach
)
9148 if (arch
!= bfd_arch_alpha
9149 && arch
!= bfd_arch_unknown
)
9152 return bfd_default_set_arch_mach (abfd
, arch
, mach
);
9155 /* Set section VMS flags. Clear NO_FLAGS and set FLAGS. */
9158 bfd_vms_set_section_flags (bfd
*abfd ATTRIBUTE_UNUSED
,
9159 asection
*sec
, flagword no_flags
, flagword flags
)
9161 vms_section_data (sec
)->no_flags
= no_flags
;
9162 vms_section_data (sec
)->flags
= flags
;
9165 struct vms_private_data_struct
*
9166 bfd_vms_get_data (bfd
*abfd
)
9168 return (struct vms_private_data_struct
*)abfd
->tdata
.any
;
9171 #define vms_bfd_is_target_special_symbol ((bfd_boolean (*) (bfd *, asymbol *)) bfd_false)
9172 #define vms_bfd_link_just_syms _bfd_generic_link_just_syms
9173 #define vms_bfd_copy_link_hash_symbol_type \
9174 _bfd_generic_copy_link_hash_symbol_type
9175 #define vms_bfd_is_group_section bfd_generic_is_group_section
9176 #define vms_bfd_discard_group bfd_generic_discard_group
9177 #define vms_section_already_linked _bfd_generic_section_already_linked
9178 #define vms_bfd_define_common_symbol bfd_generic_define_common_symbol
9179 #define vms_bfd_copy_private_header_data _bfd_generic_bfd_copy_private_header_data
9181 #define vms_bfd_copy_private_bfd_data _bfd_generic_bfd_copy_private_bfd_data
9182 #define vms_bfd_free_cached_info _bfd_generic_bfd_free_cached_info
9183 #define vms_bfd_copy_private_section_data _bfd_generic_bfd_copy_private_section_data
9184 #define vms_bfd_copy_private_symbol_data _bfd_generic_bfd_copy_private_symbol_data
9185 #define vms_bfd_set_private_flags _bfd_generic_bfd_set_private_flags
9186 #define vms_bfd_merge_private_bfd_data _bfd_generic_bfd_merge_private_bfd_data
9188 /* Symbols table. */
9189 #define alpha_vms_make_empty_symbol _bfd_generic_make_empty_symbol
9190 #define alpha_vms_bfd_is_target_special_symbol \
9191 ((bfd_boolean (*) (bfd *, asymbol *)) bfd_false)
9192 #define alpha_vms_print_symbol vms_print_symbol
9193 #define alpha_vms_get_symbol_info vms_get_symbol_info
9194 #define alpha_vms_read_minisymbols _bfd_generic_read_minisymbols
9195 #define alpha_vms_minisymbol_to_symbol _bfd_generic_minisymbol_to_symbol
9196 #define alpha_vms_get_lineno _bfd_nosymbols_get_lineno
9197 #define alpha_vms_find_inliner_info _bfd_nosymbols_find_inliner_info
9198 #define alpha_vms_bfd_make_debug_symbol _bfd_nosymbols_bfd_make_debug_symbol
9199 #define alpha_vms_find_nearest_line _bfd_vms_find_nearest_line
9200 #define alpha_vms_find_line _bfd_nosymbols_find_line
9201 #define alpha_vms_bfd_is_local_label_name vms_bfd_is_local_label_name
9203 /* Generic table. */
9204 #define alpha_vms_close_and_cleanup vms_close_and_cleanup
9205 #define alpha_vms_bfd_free_cached_info vms_bfd_free_cached_info
9206 #define alpha_vms_new_section_hook vms_new_section_hook
9207 #define alpha_vms_set_section_contents _bfd_vms_set_section_contents
9208 #define alpha_vms_get_section_contents_in_window _bfd_generic_get_section_contents_in_window
9210 #define alpha_vms_bfd_get_relocated_section_contents \
9211 bfd_generic_get_relocated_section_contents
9213 #define alpha_vms_bfd_relax_section bfd_generic_relax_section
9214 #define alpha_vms_bfd_gc_sections bfd_generic_gc_sections
9215 #define alpha_vms_bfd_lookup_section_flags bfd_generic_lookup_section_flags
9216 #define alpha_vms_bfd_merge_sections bfd_generic_merge_sections
9217 #define alpha_vms_bfd_is_group_section bfd_generic_is_group_section
9218 #define alpha_vms_bfd_discard_group bfd_generic_discard_group
9219 #define alpha_vms_section_already_linked \
9220 _bfd_generic_section_already_linked
9222 #define alpha_vms_bfd_define_common_symbol bfd_generic_define_common_symbol
9223 #define alpha_vms_bfd_link_just_syms _bfd_generic_link_just_syms
9224 #define alpha_vms_bfd_copy_link_hash_symbol_type \
9225 _bfd_generic_copy_link_hash_symbol_type
9227 #define alpha_vms_bfd_link_split_section _bfd_generic_link_split_section
9229 #define alpha_vms_get_dynamic_symtab_upper_bound \
9230 _bfd_nodynamic_get_dynamic_symtab_upper_bound
9231 #define alpha_vms_canonicalize_dynamic_symtab \
9232 _bfd_nodynamic_canonicalize_dynamic_symtab
9233 #define alpha_vms_get_dynamic_reloc_upper_bound \
9234 _bfd_nodynamic_get_dynamic_reloc_upper_bound
9235 #define alpha_vms_canonicalize_dynamic_reloc \
9236 _bfd_nodynamic_canonicalize_dynamic_reloc
9238 const bfd_target alpha_vms_vec
=
9240 "vms-alpha", /* Name. */
9241 bfd_target_evax_flavour
,
9242 BFD_ENDIAN_LITTLE
, /* Data byte order is little. */
9243 BFD_ENDIAN_LITTLE
, /* Header byte order is little. */
9245 (HAS_RELOC
| EXEC_P
| HAS_LINENO
| HAS_DEBUG
| HAS_SYMS
| HAS_LOCALS
9246 | WP_TEXT
| D_PAGED
), /* Object flags. */
9247 (SEC_ALLOC
| SEC_LOAD
| SEC_RELOC
9248 | SEC_READONLY
| SEC_CODE
| SEC_DATA
9249 | SEC_HAS_CONTENTS
| SEC_IN_MEMORY
), /* Sect flags. */
9250 0, /* symbol_leading_char. */
9251 ' ', /* ar_pad_char. */
9252 15, /* ar_max_namelen. */
9253 0, /* match priority. */
9254 bfd_getl64
, bfd_getl_signed_64
, bfd_putl64
,
9255 bfd_getl32
, bfd_getl_signed_32
, bfd_putl32
,
9256 bfd_getl16
, bfd_getl_signed_16
, bfd_putl16
,
9257 bfd_getl64
, bfd_getl_signed_64
, bfd_putl64
,
9258 bfd_getl32
, bfd_getl_signed_32
, bfd_putl32
,
9259 bfd_getl16
, bfd_getl_signed_16
, bfd_putl16
,
9261 {_bfd_dummy_target
, alpha_vms_object_p
, /* bfd_check_format. */
9262 _bfd_vms_lib_alpha_archive_p
, _bfd_dummy_target
},
9263 {bfd_false
, alpha_vms_mkobject
, /* bfd_set_format. */
9264 _bfd_vms_lib_alpha_mkarchive
, bfd_false
},
9265 {bfd_false
, alpha_vms_write_object_contents
, /* bfd_write_contents. */
9266 _bfd_vms_lib_write_archive_contents
, bfd_false
},
9268 BFD_JUMP_TABLE_GENERIC (alpha_vms
),
9269 BFD_JUMP_TABLE_COPY (vms
),
9270 BFD_JUMP_TABLE_CORE (_bfd_nocore
),
9271 BFD_JUMP_TABLE_ARCHIVE (_bfd_vms_lib
),
9272 BFD_JUMP_TABLE_SYMBOLS (alpha_vms
),
9273 BFD_JUMP_TABLE_RELOCS (alpha_vms
),
9274 BFD_JUMP_TABLE_WRITE (alpha_vms
),
9275 BFD_JUMP_TABLE_LINK (alpha_vms
),
9276 BFD_JUMP_TABLE_DYNAMIC (alpha_vms
),