1 /* vms.c -- BFD back-end for EVAX (openVMS/Alpha) files.
2 Copyright (C) 1996-2020 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 bfd_boolean
alpha_vms_add_fixup_lp (struct bfd_link_info
*,
373 static bfd_boolean
alpha_vms_add_fixup_ca (struct bfd_link_info
*,
375 static bfd_boolean
alpha_vms_add_fixup_qr (struct bfd_link_info
*,
376 bfd
*, bfd
*, bfd_vma
);
377 static bfd_boolean
alpha_vms_add_fixup_lr (struct bfd_link_info
*,
378 unsigned int, bfd_vma
);
379 static bfd_boolean
alpha_vms_add_lw_reloc (struct bfd_link_info
*);
380 static bfd_boolean
alpha_vms_add_qw_reloc (struct bfd_link_info
*);
389 /* Number of elements in VEC. */
391 #define VEC_COUNT(VEC) ((VEC).nbr_el)
393 /* Get the address of the Nth element. */
395 #define VEC_EL(VEC, TYPE, N) (((TYPE *)((VEC).els))[N])
397 #define VEC_INIT(VEC) \
404 /* Be sure there is room for a new element. */
406 static void *vector_grow1 (struct vector_type
*vec
, size_t elsz
);
408 /* Allocate room for a new element and return its address. */
410 #define VEC_APPEND(VEC, TYPE) \
411 ((TYPE *) vector_grow1 (&VEC, sizeof (TYPE)))
413 struct alpha_vms_vma_ref
415 bfd_vma vma
; /* Vma in the output. */
416 bfd_vma ref
; /* Reference in the input. */
419 struct alpha_vms_shlib_el
422 bfd_boolean has_fixups
;
424 struct vector_type lp
; /* Vector of bfd_vma. */
425 struct vector_type ca
; /* Vector of bfd_vma. */
426 struct vector_type qr
; /* Vector of struct alpha_vms_vma_ref. */
429 /* Alpha VMS linker hash table. */
431 struct alpha_vms_link_hash_table
433 struct bfd_link_hash_table root
;
435 /* Vector of shared libraries. */
436 struct vector_type shrlibs
;
441 /* Base address. Used by fixups. */
445 #define alpha_vms_link_hash(INFO) \
446 ((struct alpha_vms_link_hash_table *)(INFO->hash))
448 /* Alpha VMS linker hash table entry. */
450 struct alpha_vms_link_hash_entry
452 struct bfd_link_hash_entry root
;
454 /* Pointer to the original vms symbol. */
455 struct vms_symbol_entry
*sym
;
460 /* Read & process EIHD record.
461 Return TRUE on success, FALSE on error. */
464 _bfd_vms_slurp_eihd (bfd
*abfd
, unsigned int *eisd_offset
,
465 unsigned int *eihs_offset
)
467 unsigned int imgtype
, size
;
469 struct vms_eihd
*eihd
= (struct vms_eihd
*)PRIV (recrd
.rec
);
471 vms_debug2 ((8, "_bfd_vms_slurp_eihd\n"));
473 /* PR 21813: Check for an undersized record. */
474 if (PRIV (recrd
.buf_size
) < sizeof (* eihd
))
476 _bfd_error_handler (_("corrupt EIHD record - size is too small"));
477 bfd_set_error (bfd_error_bad_value
);
481 size
= bfd_getl32 (eihd
->size
);
482 imgtype
= bfd_getl32 (eihd
->imgtype
);
484 if (imgtype
== EIHD__K_EXE
|| imgtype
== EIHD__K_LIM
)
485 abfd
->flags
|= EXEC_P
;
487 symvva
= bfd_getl64 (eihd
->symvva
);
490 PRIV (symvva
) = symvva
;
491 abfd
->flags
|= DYNAMIC
;
494 PRIV (ident
) = bfd_getl32 (eihd
->ident
);
495 PRIV (matchctl
) = eihd
->matchctl
;
497 *eisd_offset
= bfd_getl32 (eihd
->isdoff
);
498 *eihs_offset
= bfd_getl32 (eihd
->symdbgoff
);
500 vms_debug2 ((4, "EIHD size %d imgtype %d symvva 0x%lx eisd %d eihs %d\n",
501 size
, imgtype
, (unsigned long)symvva
,
502 *eisd_offset
, *eihs_offset
));
508 /* Read & process EISD record.
509 Return TRUE on success, FALSE on error. */
512 _bfd_vms_slurp_eisd (bfd
*abfd
, unsigned int offset
)
514 int section_count
= 0;
516 vms_debug2 ((8, "_bfd_vms_slurp_eisd\n"));
520 struct vms_eisd
*eisd
;
521 unsigned int rec_size
;
530 /* PR 17512: file: 3d9e9fe9. */
531 if (offset
> PRIV (recrd
.rec_size
)
532 || (PRIV (recrd
.rec_size
) - offset
533 < offsetof (struct vms_eisd
, eisdsize
) + 4))
535 eisd
= (struct vms_eisd
*) (PRIV (recrd
.rec
) + offset
);
536 rec_size
= bfd_getl32 (eisd
->eisdsize
);
540 /* Skip to next block if pad. */
541 if (rec_size
== 0xffffffff)
543 offset
= (offset
+ VMS_BLOCK_SIZE
) & ~(VMS_BLOCK_SIZE
- 1);
547 /* Make sure that there is enough data present in the record. */
548 if (rec_size
< offsetof (struct vms_eisd
, type
) + 1)
550 /* Make sure that the record is not too big either. */
551 if (rec_size
> PRIV (recrd
.rec_size
) - offset
)
556 size
= bfd_getl32 (eisd
->secsize
);
557 vaddr
= bfd_getl64 (eisd
->virt_addr
);
558 flags
= bfd_getl32 (eisd
->flags
);
559 vbn
= bfd_getl32 (eisd
->vbn
);
561 vms_debug2 ((4, "EISD at 0x%x size 0x%x addr 0x%lx flags 0x%x blk %d\n",
562 offset
, size
, (unsigned long)vaddr
, flags
, vbn
));
564 /* VMS combines psects from .obj files into isects in the .exe. This
565 process doesn't preserve enough information to reliably determine
566 what's in each section without examining the data. This is
567 especially true of DWARF debug sections. */
568 bfd_flags
= SEC_ALLOC
;
570 bfd_flags
|= SEC_HAS_CONTENTS
| SEC_LOAD
;
572 if (flags
& EISD__M_EXE
)
573 bfd_flags
|= SEC_CODE
;
575 if (flags
& EISD__M_NONSHRADR
)
576 bfd_flags
|= SEC_DATA
;
578 if (!(flags
& EISD__M_WRT
))
579 bfd_flags
|= SEC_READONLY
;
581 if (flags
& EISD__M_DZRO
)
582 bfd_flags
|= SEC_DATA
;
584 if (flags
& EISD__M_FIXUPVEC
)
585 bfd_flags
|= SEC_DATA
;
587 if (flags
& EISD__M_CRF
)
588 bfd_flags
|= SEC_DATA
;
590 if (flags
& EISD__M_GBL
)
592 if (rec_size
<= offsetof (struct vms_eisd
, gblnam
))
594 else if (rec_size
< sizeof (struct vms_eisd
))
595 name
= _bfd_vms_save_counted_string (abfd
, eisd
->gblnam
,
596 rec_size
- offsetof (struct vms_eisd
, gblnam
));
598 name
= _bfd_vms_save_counted_string (abfd
, eisd
->gblnam
,
600 if (name
== NULL
|| name
[0] == 0)
602 bfd_flags
|= SEC_COFF_SHARED_LIBRARY
;
603 bfd_flags
&= ~(SEC_ALLOC
| SEC_LOAD
);
605 else if (flags
& EISD__M_FIXUPVEC
)
607 else if (eisd
->type
== EISD__K_USRSTACK
)
613 name
= (char *) bfd_alloc (abfd
, 32);
616 if (flags
& EISD__M_DZRO
)
618 else if (flags
& EISD__M_EXE
)
620 else if (!(flags
& EISD__M_WRT
))
624 BFD_ASSERT (section_count
< 999);
625 sprintf (name
, "$%s_%03d$", pfx
, section_count
++);
628 section
= bfd_make_section (abfd
, name
);
633 section
->filepos
= vbn
? VMS_BLOCK_SIZE
* (vbn
- 1) : 0;
634 section
->size
= size
;
635 section
->vma
= vaddr
;
637 if (!bfd_set_section_flags (section
, bfd_flags
))
644 /* Read & process EIHS record.
645 Return TRUE on success, FALSE on error. */
648 _bfd_vms_slurp_eihs (bfd
*abfd
, unsigned int offset
)
650 unsigned char *p
= PRIV (recrd
.rec
) + offset
;
652 unsigned int gstsize ATTRIBUTE_UNUSED
;
654 unsigned int dstsize
;
656 unsigned int dmtbytes
;
659 /* PR 21611: Check that offset is valid. */
660 if (offset
> PRIV (recrd
.rec_size
) - (EIHS__L_DMTBYTES
+ 4))
662 _bfd_error_handler (_("unable to read EIHS record at offset %#x"),
664 bfd_set_error (bfd_error_file_truncated
);
668 gstvbn
= bfd_getl32 (p
+ EIHS__L_GSTVBN
);
669 gstsize
= bfd_getl32 (p
+ EIHS__L_GSTSIZE
);
670 dstvbn
= bfd_getl32 (p
+ EIHS__L_DSTVBN
);
671 dstsize
= bfd_getl32 (p
+ EIHS__L_DSTSIZE
);
672 dmtvbn
= bfd_getl32 (p
+ EIHS__L_DMTVBN
);
673 dmtbytes
= bfd_getl32 (p
+ EIHS__L_DMTBYTES
);
676 vms_debug (8, "_bfd_vms_slurp_ihs\n");
677 vms_debug (4, "EIHS record gstvbn %d gstsize %d dstvbn %d dstsize %d dmtvbn %d dmtbytes %d\n",
678 gstvbn
, gstsize
, dstvbn
, dstsize
, dmtvbn
, dmtbytes
);
683 flagword bfd_flags
= SEC_HAS_CONTENTS
| SEC_DEBUGGING
;
685 section
= bfd_make_section (abfd
, "$DST$");
689 section
->size
= dstsize
;
690 section
->filepos
= VMS_BLOCK_SIZE
* (dstvbn
- 1);
692 if (!bfd_set_section_flags (section
, bfd_flags
))
695 PRIV (dst_section
) = section
;
696 abfd
->flags
|= (HAS_DEBUG
| HAS_LINENO
);
701 flagword bfd_flags
= SEC_HAS_CONTENTS
| SEC_DEBUGGING
;
703 section
= bfd_make_section (abfd
, "$DMT$");
707 section
->size
= dmtbytes
;
708 section
->filepos
= VMS_BLOCK_SIZE
* (dmtvbn
- 1);
710 if (!bfd_set_section_flags (section
, bfd_flags
))
716 if (bfd_seek (abfd
, VMS_BLOCK_SIZE
* (gstvbn
- 1), SEEK_SET
))
718 bfd_set_error (bfd_error_file_truncated
);
722 if (!_bfd_vms_slurp_object_records (abfd
))
725 abfd
->flags
|= HAS_SYMS
;
731 /* Object file reading. */
733 /* Object file input functions. */
735 /* Get next record from object file to vms_buf.
736 Set PRIV(buf_size) and return it
738 This is a little tricky since it should be portable.
740 The openVMS object file has 'variable length' which means that
741 read() returns data in chunks of (hopefully) correct and expected
742 size. The linker (and other tools on VMS) depend on that. Unix
743 doesn't know about 'formatted' files, so reading and writing such
744 an object file in a Unix environment is not trivial.
746 With the tool 'file' (available on all VMS FTP sites), one
747 can view and change the attributes of a file. Changing from
748 'variable length' to 'fixed length, 512 bytes' reveals the
749 record size at the first 2 bytes of every record. The same
750 may happen during the transfer of object files from VMS to Unix,
751 at least with UCX, the DEC implementation of TCP/IP.
753 The VMS format repeats the size at bytes 2 & 3 of every record.
755 On the first call (file_format == FF_UNKNOWN) we check if
756 the first and the third byte pair (!) of the record match.
757 If they do it's an object file in an Unix environment or with
758 wrong attributes (FF_FOREIGN), else we should be in a VMS
759 environment where read() returns the record size (FF_NATIVE).
761 Reading is always done in 2 steps:
762 1. first just the record header is read and the size extracted,
763 2. then the read buffer is adjusted and the remaining bytes are
766 All file I/O is done on even file positions. */
768 #define VMS_OBJECT_ADJUSTMENT 2
771 maybe_adjust_record_pointer_for_object (bfd
*abfd
)
773 /* Set the file format once for all on the first invocation. */
774 if (PRIV (recrd
.file_format
) == FF_UNKNOWN
)
776 if (PRIV (recrd
.rec
)[0] == PRIV (recrd
.rec
)[4]
777 && PRIV (recrd
.rec
)[1] == PRIV (recrd
.rec
)[5])
778 PRIV (recrd
.file_format
) = FF_FOREIGN
;
780 PRIV (recrd
.file_format
) = FF_NATIVE
;
783 /* The adjustment is needed only in an Unix environment. */
784 if (PRIV (recrd
.file_format
) == FF_FOREIGN
)
785 PRIV (recrd
.rec
) += VMS_OBJECT_ADJUSTMENT
;
788 /* Implement step #1 of the object record reading procedure.
789 Return the record type or -1 on failure. */
792 _bfd_vms_get_object_record (bfd
*abfd
)
794 unsigned int test_len
= 6;
797 vms_debug2 ((8, "_bfd_vms_get_obj_record\n"));
799 /* Skip alignment byte if the current position is odd. */
800 if (PRIV (recrd
.file_format
) == FF_FOREIGN
&& (bfd_tell (abfd
) & 1))
802 if (bfd_bread (PRIV (recrd
.buf
), 1, abfd
) != 1)
804 bfd_set_error (bfd_error_file_truncated
);
809 /* Read the record header */
810 if (bfd_bread (PRIV (recrd
.buf
), test_len
, abfd
) != test_len
)
812 bfd_set_error (bfd_error_file_truncated
);
816 /* Reset the record pointer. */
817 PRIV (recrd
.rec
) = PRIV (recrd
.buf
);
818 maybe_adjust_record_pointer_for_object (abfd
);
820 if (vms_get_remaining_object_record (abfd
, test_len
) <= 0)
823 type
= bfd_getl16 (PRIV (recrd
.rec
));
825 vms_debug2 ((8, "_bfd_vms_get_obj_record: rec %p, size %d, type %d\n",
826 PRIV (recrd
.rec
), PRIV (recrd
.rec_size
), type
));
831 /* Implement step #2 of the object record reading procedure.
832 Return the size of the record or 0 on failure. */
835 vms_get_remaining_object_record (bfd
*abfd
, unsigned int read_so_far
)
837 unsigned int to_read
;
839 vms_debug2 ((8, "vms_get_remaining_obj_record\n"));
841 /* Extract record size. */
842 PRIV (recrd
.rec_size
) = bfd_getl16 (PRIV (recrd
.rec
) + 2);
844 if (PRIV (recrd
.rec_size
) == 0)
846 bfd_set_error (bfd_error_file_truncated
);
850 /* That's what the linker manual says. */
851 if (PRIV (recrd
.rec_size
) > EOBJ__C_MAXRECSIZ
)
853 bfd_set_error (bfd_error_file_truncated
);
857 /* Take into account object adjustment. */
858 to_read
= PRIV (recrd
.rec_size
);
859 if (PRIV (recrd
.file_format
) == FF_FOREIGN
)
860 to_read
+= VMS_OBJECT_ADJUSTMENT
;
862 /* Adjust the buffer. */
863 if (to_read
> PRIV (recrd
.buf_size
))
866 = (unsigned char *) bfd_realloc_or_free (PRIV (recrd
.buf
), to_read
);
867 if (PRIV (recrd
.buf
) == NULL
)
869 PRIV (recrd
.buf_size
) = to_read
;
871 /* PR 17512: file: 025-1974-0.004. */
872 else if (to_read
<= read_so_far
)
875 /* Read the remaining record. */
876 to_read
-= read_so_far
;
878 vms_debug2 ((8, "vms_get_remaining_obj_record: to_read %d\n", to_read
));
880 if (bfd_bread (PRIV (recrd
.buf
) + read_so_far
, to_read
, abfd
) != to_read
)
882 bfd_set_error (bfd_error_file_truncated
);
886 /* Reset the record pointer. */
887 PRIV (recrd
.rec
) = PRIV (recrd
.buf
);
888 maybe_adjust_record_pointer_for_object (abfd
);
890 vms_debug2 ((8, "vms_get_remaining_obj_record: size %d\n",
891 PRIV (recrd
.rec_size
)));
893 return PRIV (recrd
.rec_size
);
896 /* Read and process emh record.
897 Return TRUE on success, FALSE on error. */
900 _bfd_vms_slurp_ehdr (bfd
*abfd
)
903 unsigned char *vms_rec
;
907 vms_rec
= PRIV (recrd
.rec
);
908 /* PR 17512: file: 62736583. */
909 end
= PRIV (recrd
.buf
) + PRIV (recrd
.buf_size
);
911 vms_debug2 ((2, "HDR/EMH\n"));
913 subtype
= bfd_getl16 (vms_rec
+ 4);
915 vms_debug2 ((3, "subtype %d\n", subtype
));
921 if (vms_rec
+ 21 >= end
)
923 PRIV (hdr_data
).hdr_b_strlvl
= vms_rec
[6];
924 PRIV (hdr_data
).hdr_l_arch1
= bfd_getl32 (vms_rec
+ 8);
925 PRIV (hdr_data
).hdr_l_arch2
= bfd_getl32 (vms_rec
+ 12);
926 PRIV (hdr_data
).hdr_l_recsiz
= bfd_getl32 (vms_rec
+ 16);
927 if ((vms_rec
+ 20 + vms_rec
[20] + 1) >= end
)
929 PRIV (hdr_data
).hdr_t_name
930 = _bfd_vms_save_counted_string (abfd
, vms_rec
+ 20, vms_rec
[20]);
931 ptr
= vms_rec
+ 20 + vms_rec
[20] + 1;
932 if ((ptr
+ *ptr
+ 1) >= end
)
934 PRIV (hdr_data
).hdr_t_version
935 = _bfd_vms_save_counted_string (abfd
, ptr
, *ptr
);
939 PRIV (hdr_data
).hdr_t_date
940 = _bfd_vms_save_sized_string (abfd
, ptr
, 17);
944 if (vms_rec
+ PRIV (recrd
.rec_size
- 6) > end
)
946 PRIV (hdr_data
).hdr_c_lnm
947 = _bfd_vms_save_sized_string (abfd
, vms_rec
, PRIV (recrd
.rec_size
- 6));
951 if (vms_rec
+ PRIV (recrd
.rec_size
- 6) > end
)
953 PRIV (hdr_data
).hdr_c_src
954 = _bfd_vms_save_sized_string (abfd
, vms_rec
, PRIV (recrd
.rec_size
- 6));
958 if (vms_rec
+ PRIV (recrd
.rec_size
- 6) > end
)
960 PRIV (hdr_data
).hdr_c_ttl
961 = _bfd_vms_save_sized_string (abfd
, vms_rec
, PRIV (recrd
.rec_size
- 6));
971 bfd_set_error (bfd_error_wrong_format
);
978 /* Typical sections for evax object files. */
980 #define EVAX_ABS_NAME "$ABS$"
981 #define EVAX_CODE_NAME "$CODE$"
982 #define EVAX_LINK_NAME "$LINK$"
983 #define EVAX_DATA_NAME "$DATA$"
984 #define EVAX_BSS_NAME "$BSS$"
985 #define EVAX_READONLYADDR_NAME "$READONLY_ADDR$"
986 #define EVAX_READONLY_NAME "$READONLY$"
987 #define EVAX_LITERAL_NAME "$LITERAL$"
988 #define EVAX_LITERALS_NAME "$LITERALS"
989 #define EVAX_COMMON_NAME "$COMMON$"
990 #define EVAX_LOCAL_NAME "$LOCAL$"
992 struct sec_flags_struct
994 const char *name
; /* Name of section. */
996 flagword flags_always
; /* Flags we set always. */
998 flagword flags_hassize
; /* Flags we set if the section has a size > 0. */
1001 /* These flags are deccrtl/vaxcrtl (openVMS 6.2 Alpha) compatible. */
1003 static const struct sec_flags_struct evax_section_flags
[] =
1011 EGPS__V_PIC
| EGPS__V_REL
| EGPS__V_SHR
| EGPS__V_EXE
,
1012 SEC_CODE
| SEC_READONLY
,
1013 EGPS__V_PIC
| EGPS__V_REL
| EGPS__V_SHR
| EGPS__V_EXE
,
1014 SEC_CODE
| SEC_READONLY
| SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_LOAD
},
1015 { EVAX_LITERAL_NAME
,
1016 EGPS__V_PIC
| EGPS__V_REL
| EGPS__V_SHR
| EGPS__V_RD
| EGPS__V_NOMOD
,
1017 SEC_DATA
| SEC_READONLY
,
1018 EGPS__V_PIC
| EGPS__V_REL
| EGPS__V_SHR
| EGPS__V_RD
,
1019 SEC_DATA
| SEC_READONLY
| SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_LOAD
},
1021 EGPS__V_REL
| EGPS__V_RD
,
1022 SEC_DATA
| SEC_READONLY
,
1023 EGPS__V_REL
| EGPS__V_RD
,
1024 SEC_DATA
| SEC_READONLY
| SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_LOAD
},
1026 EGPS__V_REL
| EGPS__V_RD
| EGPS__V_WRT
| EGPS__V_NOMOD
,
1028 EGPS__V_REL
| EGPS__V_RD
| EGPS__V_WRT
,
1029 SEC_DATA
| SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_LOAD
},
1031 EGPS__V_REL
| EGPS__V_RD
| EGPS__V_WRT
| EGPS__V_NOMOD
,
1033 EGPS__V_REL
| EGPS__V_RD
| EGPS__V_WRT
| EGPS__V_NOMOD
,
1035 { EVAX_READONLYADDR_NAME
,
1036 EGPS__V_PIC
| EGPS__V_REL
| EGPS__V_RD
,
1037 SEC_DATA
| SEC_READONLY
,
1038 EGPS__V_PIC
| EGPS__V_REL
| EGPS__V_RD
,
1039 SEC_DATA
| SEC_READONLY
| SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_LOAD
},
1040 { EVAX_READONLY_NAME
,
1041 EGPS__V_PIC
| EGPS__V_REL
| EGPS__V_SHR
| EGPS__V_RD
| EGPS__V_NOMOD
,
1042 SEC_DATA
| SEC_READONLY
,
1043 EGPS__V_PIC
| EGPS__V_REL
| EGPS__V_SHR
| EGPS__V_RD
,
1044 SEC_DATA
| SEC_READONLY
| SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_LOAD
},
1046 EGPS__V_REL
| EGPS__V_RD
| EGPS__V_WRT
,
1048 EGPS__V_REL
| EGPS__V_RD
| EGPS__V_WRT
,
1049 SEC_DATA
| SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_LOAD
},
1050 { EVAX_LITERALS_NAME
,
1051 EGPS__V_PIC
| EGPS__V_OVR
,
1052 SEC_DATA
| SEC_READONLY
,
1053 EGPS__V_PIC
| EGPS__V_OVR
,
1054 SEC_DATA
| SEC_READONLY
| SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_LOAD
},
1056 EGPS__V_REL
| EGPS__V_RD
| EGPS__V_WRT
,
1058 EGPS__V_REL
| EGPS__V_RD
| EGPS__V_WRT
,
1059 SEC_DATA
| SEC_HAS_CONTENTS
| SEC_ALLOC
| SEC_LOAD
}
1062 /* Retrieve BFD section flags by name and size. */
1065 vms_secflag_by_name (const struct sec_flags_struct
*section_flags
,
1071 while (section_flags
[i
].name
!= NULL
)
1073 if (strcmp (name
, section_flags
[i
].name
) == 0)
1076 return section_flags
[i
].flags_hassize
;
1078 return section_flags
[i
].flags_always
;
1083 return section_flags
[i
].flags_hassize
;
1084 return section_flags
[i
].flags_always
;
1087 /* Retrieve VMS section flags by name and size. */
1090 vms_esecflag_by_name (const struct sec_flags_struct
*section_flags
,
1096 while (section_flags
[i
].name
!= NULL
)
1098 if (strcmp (name
, section_flags
[i
].name
) == 0)
1101 return section_flags
[i
].vflags_hassize
;
1103 return section_flags
[i
].vflags_always
;
1108 return section_flags
[i
].vflags_hassize
;
1109 return section_flags
[i
].vflags_always
;
1112 /* Add SYM to the symbol table of ABFD.
1113 Return FALSE in case of error. */
1116 add_symbol_entry (bfd
*abfd
, struct vms_symbol_entry
*sym
)
1118 if (PRIV (gsd_sym_count
) >= PRIV (max_sym_count
))
1120 if (PRIV (max_sym_count
) == 0)
1122 PRIV (max_sym_count
) = 128;
1123 PRIV (syms
) = bfd_malloc
1124 (PRIV (max_sym_count
) * sizeof (struct vms_symbol_entry
*));
1128 PRIV (max_sym_count
) *= 2;
1129 PRIV (syms
) = bfd_realloc_or_free
1131 (PRIV (max_sym_count
) * sizeof (struct vms_symbol_entry
*)));
1133 if (PRIV (syms
) == NULL
)
1137 PRIV (syms
)[PRIV (gsd_sym_count
)++] = sym
;
1141 /* Create a symbol whose name is ASCIC and add it to ABFD.
1142 Return NULL in case of error. */
1144 static struct vms_symbol_entry
*
1145 add_symbol (bfd
*abfd
, const unsigned char *ascic
, unsigned int max
)
1147 struct vms_symbol_entry
*entry
;
1154 _bfd_error_handler (_("record is too small for symbol name length"));
1155 bfd_set_error (bfd_error_bad_value
);
1159 entry
= (struct vms_symbol_entry
*)bfd_zalloc (abfd
, sizeof (*entry
) + len
);
1162 entry
->namelen
= len
;
1163 memcpy (entry
->name
, ascic
, len
);
1164 entry
->name
[len
] = 0;
1165 entry
->owner
= abfd
;
1167 if (!add_symbol_entry (abfd
, entry
))
1172 /* Read and process EGSD. Return FALSE on failure. */
1175 _bfd_vms_slurp_egsd (bfd
*abfd
)
1178 unsigned int gsd_size
;
1179 unsigned char *vms_rec
;
1183 vms_debug2 ((2, "EGSD\n"));
1185 if (PRIV (recrd
.rec_size
) < 8)
1187 _bfd_error_handler (_("corrupt EGSD record: its size (%#x) is too small"),
1188 PRIV (recrd
.rec_size
));
1189 bfd_set_error (bfd_error_bad_value
);
1193 PRIV (recrd
.rec
) += 8; /* Skip type, size, align pad. */
1194 PRIV (recrd
.rec_size
) -= 8;
1196 /* Calculate base address for each section. */
1199 while (PRIV (recrd
.rec_size
) > 4)
1201 vms_rec
= PRIV (recrd
.rec
);
1203 gsd_type
= bfd_getl16 (vms_rec
);
1204 gsd_size
= bfd_getl16 (vms_rec
+ 2);
1206 vms_debug2 ((3, "egsd_type %d\n", gsd_type
));
1208 /* PR 21615: Check for size overflow. */
1209 if (PRIV (recrd
.rec_size
) < gsd_size
)
1211 _bfd_error_handler (_("corrupt EGSD record type %d: size (%#x) "
1212 "is larger than remaining space (%#x)"),
1213 gsd_type
, gsd_size
, PRIV (recrd
.rec_size
));
1214 bfd_set_error (bfd_error_bad_value
);
1221 _bfd_error_handler (_("corrupt EGSD record type %d: size (%#x) "
1223 gsd_type
, gsd_size
);
1224 bfd_set_error (bfd_error_bad_value
);
1231 /* Program section definition. */
1233 struct vms_egps
*egps
= (struct vms_egps
*) vms_rec
;
1234 flagword new_flags
, vms_flags
;
1237 if (offsetof (struct vms_egps
, flags
) + 2 > gsd_size
)
1239 vms_flags
= bfd_getl16 (egps
->flags
);
1241 if ((vms_flags
& EGPS__V_REL
) == 0)
1243 /* Use the global absolute section for all
1244 absolute sections. */
1245 section
= bfd_abs_section_ptr
;
1253 if (offsetof (struct vms_egps
, namlng
) >= gsd_size
)
1255 left
= gsd_size
- offsetof (struct vms_egps
, namlng
);
1256 name
= _bfd_vms_save_counted_string (abfd
, &egps
->namlng
, left
);
1257 if (name
== NULL
|| name
[0] == 0)
1260 section
= bfd_make_section (abfd
, name
);
1264 section
->filepos
= 0;
1265 section
->size
= bfd_getl32 (egps
->alloc
);
1266 section
->alignment_power
= egps
->align
& 31;
1268 vms_section_data (section
)->flags
= vms_flags
;
1269 vms_section_data (section
)->no_flags
= 0;
1271 new_flags
= vms_secflag_by_name (evax_section_flags
,
1274 if (section
->size
> 0)
1275 new_flags
|= SEC_LOAD
;
1276 if (!(vms_flags
& EGPS__V_NOMOD
) && section
->size
> 0)
1278 /* Set RELOC and HAS_CONTENTS if the section is not
1279 demand-zero and not empty. */
1280 new_flags
|= SEC_HAS_CONTENTS
;
1281 if (vms_flags
& EGPS__V_REL
)
1282 new_flags
|= SEC_RELOC
;
1284 if (vms_flags
& EGPS__V_EXE
)
1286 /* Set CODE if section is executable. */
1287 new_flags
|= SEC_CODE
;
1288 new_flags
&= ~SEC_DATA
;
1290 if (!bfd_set_section_flags (section
, new_flags
))
1293 /* Give a non-overlapping vma to non absolute sections. */
1294 align_addr
= (bfd_vma
) 1 << section
->alignment_power
;
1295 base_addr
= (base_addr
+ align_addr
- 1) & -align_addr
;
1296 section
->vma
= base_addr
;
1297 base_addr
+= section
->size
;
1300 /* Append it to the section array. */
1301 if (PRIV (section_count
) >= PRIV (section_max
))
1303 if (PRIV (section_max
) == 0)
1304 PRIV (section_max
) = 16;
1306 PRIV (section_max
) *= 2;
1307 PRIV (sections
) = bfd_realloc_or_free
1308 (PRIV (sections
), PRIV (section_max
) * sizeof (asection
*));
1309 if (PRIV (sections
) == NULL
)
1313 PRIV (sections
)[PRIV (section_count
)] = section
;
1314 PRIV (section_count
)++;
1320 unsigned int nameoff
;
1321 struct vms_symbol_entry
*entry
;
1322 struct vms_egsy
*egsy
= (struct vms_egsy
*) vms_rec
;
1325 if (offsetof (struct vms_egsy
, flags
) + 2 > gsd_size
)
1327 old_flags
= bfd_getl16 (egsy
->flags
);
1328 if (old_flags
& EGSY__V_DEF
)
1329 nameoff
= ESDF__B_NAMLNG
;
1331 nameoff
= ESRF__B_NAMLNG
;
1333 if (nameoff
>= gsd_size
)
1335 entry
= add_symbol (abfd
, vms_rec
+ nameoff
, gsd_size
- nameoff
);
1339 /* Allow only duplicate reference. */
1340 if ((entry
->flags
& EGSY__V_DEF
) && (old_flags
& EGSY__V_DEF
))
1343 if (entry
->typ
== 0)
1345 entry
->typ
= gsd_type
;
1346 entry
->data_type
= egsy
->datyp
;
1347 entry
->flags
= old_flags
;
1350 if (old_flags
& EGSY__V_DEF
)
1352 struct vms_esdf
*esdf
= (struct vms_esdf
*) vms_rec
;
1354 entry
->value
= bfd_getl64 (esdf
->value
);
1355 if (PRIV (sections
) == NULL
)
1358 psindx
= bfd_getl32 (esdf
->psindx
);
1359 /* PR 21813: Check for an out of range index. */
1360 if (psindx
< 0 || psindx
>= (int) PRIV (section_count
))
1363 _bfd_error_handler (_("corrupt EGSD record: its psindx "
1364 "field is too big (%#lx)"),
1366 bfd_set_error (bfd_error_bad_value
);
1369 entry
->section
= PRIV (sections
)[psindx
];
1371 if (old_flags
& EGSY__V_NORM
)
1373 PRIV (norm_sym_count
)++;
1375 entry
->code_value
= bfd_getl64 (esdf
->code_address
);
1376 psindx
= bfd_getl32 (esdf
->ca_psindx
);
1377 /* PR 21813: Check for an out of range index. */
1378 if (psindx
< 0 || psindx
>= (int) PRIV (section_count
))
1380 entry
->code_section
= PRIV (sections
)[psindx
];
1388 struct vms_symbol_entry
*entry
;
1389 struct vms_egst
*egst
= (struct vms_egst
*)vms_rec
;
1391 unsigned int nameoff
= offsetof (struct vms_egst
, namlng
);
1393 old_flags
= bfd_getl16 (egst
->header
.flags
);
1395 if (nameoff
>= gsd_size
)
1397 entry
= add_symbol (abfd
, &egst
->namlng
, gsd_size
- nameoff
);
1401 entry
->typ
= gsd_type
;
1402 entry
->data_type
= egst
->header
.datyp
;
1403 entry
->flags
= old_flags
;
1405 entry
->symbol_vector
= bfd_getl32 (egst
->value
);
1407 if (old_flags
& EGSY__V_REL
)
1409 if (PRIV (sections
) == NULL
)
1411 psindx
= bfd_getl32 (egst
->psindx
);
1412 /* PR 21813: Check for an out of range index. */
1413 if (psindx
< 0 || psindx
>= (int) PRIV (section_count
))
1415 entry
->section
= PRIV (sections
)[psindx
];
1418 entry
->section
= bfd_abs_section_ptr
;
1420 entry
->value
= bfd_getl64 (egst
->lp_2
);
1422 if (old_flags
& EGSY__V_NORM
)
1424 PRIV (norm_sym_count
)++;
1426 entry
->code_value
= bfd_getl64 (egst
->lp_1
);
1427 entry
->code_section
= bfd_abs_section_ptr
;
1434 /* Currently ignored. */
1439 _bfd_error_handler (_("unknown EGSD subtype %d"), gsd_type
);
1440 bfd_set_error (bfd_error_bad_value
);
1444 PRIV (recrd
.rec_size
) -= gsd_size
;
1445 PRIV (recrd
.rec
) += gsd_size
;
1448 /* FIXME: Should we complain if PRIV (recrd.rec_size) is not zero ? */
1450 if (PRIV (gsd_sym_count
) > 0)
1451 abfd
->flags
|= HAS_SYMS
;
1456 /* Stack routines for vms ETIR commands. */
1458 /* Push value and section index. */
1461 _bfd_vms_push (bfd
*abfd
, bfd_vma val
, unsigned int reloc
)
1463 vms_debug2 ((4, "<push %08lx (0x%08x) at %d>\n",
1464 (unsigned long)val
, reloc
, PRIV (stackptr
)));
1466 PRIV (stack
[PRIV (stackptr
)]).value
= val
;
1467 PRIV (stack
[PRIV (stackptr
)]).reloc
= reloc
;
1469 if (PRIV (stackptr
) >= STACKSIZE
)
1471 bfd_set_error (bfd_error_bad_value
);
1472 _bfd_error_handler (_("stack overflow (%d) in _bfd_vms_push"), PRIV (stackptr
));
1478 /* Pop value and section index. */
1481 _bfd_vms_pop (bfd
*abfd
, bfd_vma
*val
, unsigned int *rel
)
1483 if (PRIV (stackptr
) == 0)
1485 bfd_set_error (bfd_error_bad_value
);
1486 _bfd_error_handler (_("stack underflow in _bfd_vms_pop"));
1490 *val
= PRIV (stack
[PRIV (stackptr
)]).value
;
1491 *rel
= PRIV (stack
[PRIV (stackptr
)]).reloc
;
1493 vms_debug2 ((4, "<pop %08lx (0x%08x)>\n", (unsigned long)*val
, *rel
));
1497 /* Routines to fill sections contents during tir/etir read. */
1499 /* Initialize image buffer pointer to be filled. */
1502 image_set_ptr (bfd
*abfd
, bfd_vma vma
, int sect
, struct bfd_link_info
*info
)
1506 vms_debug2 ((4, "image_set_ptr (0x%08x, sect=%d)\n", (unsigned)vma
, sect
));
1508 if (PRIV (sections
) == NULL
)
1510 if (sect
< 0 || sect
>= (int) PRIV (section_count
))
1513 sec
= PRIV (sections
)[sect
];
1517 /* Reading contents to an output bfd. */
1519 if (sec
->output_section
== NULL
)
1521 /* Section discarded. */
1522 vms_debug2 ((5, " section %s discarded\n", sec
->name
));
1524 /* This is not used. */
1525 PRIV (image_section
) = NULL
;
1526 PRIV (image_offset
) = 0;
1529 PRIV (image_offset
) = sec
->output_offset
+ vma
;
1530 PRIV (image_section
) = sec
->output_section
;
1534 PRIV (image_offset
) = vma
;
1535 PRIV (image_section
) = sec
;
1539 /* Increment image buffer pointer by offset. */
1542 image_inc_ptr (bfd
*abfd
, bfd_vma offset
)
1544 vms_debug2 ((4, "image_inc_ptr (%u)\n", (unsigned)offset
));
1546 PRIV (image_offset
) += offset
;
1549 /* Save current DST location counter under specified index. */
1552 dst_define_location (bfd
*abfd
, unsigned int loc
)
1554 vms_debug2 ((4, "dst_define_location (%d)\n", (int)loc
));
1558 /* 16M entries ought to be plenty. */
1559 bfd_set_error (bfd_error_bad_value
);
1560 _bfd_error_handler (_("dst_define_location %u too large"), loc
);
1564 /* Grow the ptr offset table if necessary. */
1565 if (loc
+ 1 > PRIV (dst_ptr_offsets_count
))
1567 PRIV (dst_ptr_offsets
)
1568 = bfd_realloc_or_free (PRIV (dst_ptr_offsets
),
1569 (loc
+ 1) * sizeof (unsigned int));
1570 if (PRIV (dst_ptr_offsets
) == NULL
)
1572 PRIV (dst_ptr_offsets_count
) = loc
+ 1;
1575 PRIV (dst_ptr_offsets
)[loc
] = PRIV (image_offset
);
1579 /* Restore saved DST location counter from specified index. */
1582 dst_restore_location (bfd
*abfd
, unsigned int loc
)
1584 vms_debug2 ((4, "dst_restore_location (%d)\n", (int)loc
));
1586 if (loc
< PRIV (dst_ptr_offsets_count
))
1588 PRIV (image_offset
) = PRIV (dst_ptr_offsets
)[loc
];
1594 /* Retrieve saved DST location counter from specified index. */
1597 dst_retrieve_location (bfd
*abfd
, bfd_vma
*loc
)
1599 vms_debug2 ((4, "dst_retrieve_location (%d)\n", (int) *loc
));
1601 if (*loc
< PRIV (dst_ptr_offsets_count
))
1603 *loc
= PRIV (dst_ptr_offsets
)[*loc
];
1609 /* Write multiple bytes to section image. */
1612 image_write (bfd
*abfd
, unsigned char *ptr
, unsigned int size
)
1615 _bfd_vms_debug (8, "image_write from (%p, %d) to (%ld)\n", ptr
, size
,
1616 (long)PRIV (image_offset
));
1619 if (PRIV (image_section
)->contents
!= NULL
)
1621 asection
*sec
= PRIV (image_section
);
1622 size_t off
= PRIV (image_offset
);
1626 || size
> sec
->size
- off
)
1628 bfd_set_error (bfd_error_bad_value
);
1632 memcpy (sec
->contents
+ off
, ptr
, size
);
1635 _bfd_hexdump (9, ptr
, size
, 0);
1638 PRIV (image_offset
) += size
;
1642 /* Write byte to section image. */
1645 image_write_b (bfd
* abfd
, unsigned int value
)
1647 unsigned char data
[1];
1649 vms_debug2 ((6, "image_write_b (%02x)\n", (int) value
));
1653 return image_write (abfd
, data
, sizeof (data
));
1656 /* Write 2-byte word to image. */
1659 image_write_w (bfd
* abfd
, unsigned int value
)
1661 unsigned char data
[2];
1663 vms_debug2 ((6, "image_write_w (%04x)\n", (int) value
));
1665 bfd_putl16 (value
, data
);
1666 return image_write (abfd
, data
, sizeof (data
));
1669 /* Write 4-byte long to image. */
1672 image_write_l (bfd
* abfd
, unsigned long value
)
1674 unsigned char data
[4];
1676 vms_debug2 ((6, "image_write_l (%08lx)\n", value
));
1678 bfd_putl32 (value
, data
);
1679 return image_write (abfd
, data
, sizeof (data
));
1682 /* Write 8-byte quad to image. */
1685 image_write_q (bfd
* abfd
, bfd_vma value
)
1687 unsigned char data
[8];
1689 vms_debug2 ((6, "image_write_q (%08lx)\n", (unsigned long)value
));
1691 bfd_putl64 (value
, data
);
1692 return image_write (abfd
, data
, sizeof (data
));
1696 _bfd_vms_etir_name (int cmd
)
1700 case ETIR__C_STA_GBL
: return "ETIR__C_STA_GBL";
1701 case ETIR__C_STA_LW
: return "ETIR__C_STA_LW";
1702 case ETIR__C_STA_QW
: return "ETIR__C_STA_QW";
1703 case ETIR__C_STA_PQ
: return "ETIR__C_STA_PQ";
1704 case ETIR__C_STA_LI
: return "ETIR__C_STA_LI";
1705 case ETIR__C_STA_MOD
: return "ETIR__C_STA_MOD";
1706 case ETIR__C_STA_CKARG
: return "ETIR__C_STA_CKARG";
1707 case ETIR__C_STO_B
: return "ETIR__C_STO_B";
1708 case ETIR__C_STO_W
: return "ETIR__C_STO_W";
1709 case ETIR__C_STO_GBL
: return "ETIR__C_STO_GBL";
1710 case ETIR__C_STO_CA
: return "ETIR__C_STO_CA";
1711 case ETIR__C_STO_RB
: return "ETIR__C_STO_RB";
1712 case ETIR__C_STO_AB
: return "ETIR__C_STO_AB";
1713 case ETIR__C_STO_OFF
: return "ETIR__C_STO_OFF";
1714 case ETIR__C_STO_IMM
: return "ETIR__C_STO_IMM";
1715 case ETIR__C_STO_IMMR
: return "ETIR__C_STO_IMMR";
1716 case ETIR__C_STO_LW
: return "ETIR__C_STO_LW";
1717 case ETIR__C_STO_QW
: return "ETIR__C_STO_QW";
1718 case ETIR__C_STO_GBL_LW
: return "ETIR__C_STO_GBL_LW";
1719 case ETIR__C_STO_LP_PSB
: return "ETIR__C_STO_LP_PSB";
1720 case ETIR__C_STO_HINT_GBL
: return "ETIR__C_STO_HINT_GBL";
1721 case ETIR__C_STO_HINT_PS
: return "ETIR__C_STO_HINT_PS";
1722 case ETIR__C_OPR_ADD
: return "ETIR__C_OPR_ADD";
1723 case ETIR__C_OPR_SUB
: return "ETIR__C_OPR_SUB";
1724 case ETIR__C_OPR_INSV
: return "ETIR__C_OPR_INSV";
1725 case ETIR__C_OPR_USH
: return "ETIR__C_OPR_USH";
1726 case ETIR__C_OPR_ROT
: return "ETIR__C_OPR_ROT";
1727 case ETIR__C_OPR_REDEF
: return "ETIR__C_OPR_REDEF";
1728 case ETIR__C_OPR_DFLIT
: return "ETIR__C_OPR_DFLIT";
1729 case ETIR__C_STC_LP
: return "ETIR__C_STC_LP";
1730 case ETIR__C_STC_GBL
: return "ETIR__C_STC_GBL";
1731 case ETIR__C_STC_GCA
: return "ETIR__C_STC_GCA";
1732 case ETIR__C_STC_PS
: return "ETIR__C_STC_PS";
1733 case ETIR__C_STC_NBH_PS
: return "ETIR__C_STC_NBH_PS";
1734 case ETIR__C_STC_NOP_GBL
: return "ETIR__C_STC_NOP_GBL";
1735 case ETIR__C_STC_NOP_PS
: return "ETIR__C_STC_NOP_PS";
1736 case ETIR__C_STC_BSR_GBL
: return "ETIR__C_STC_BSR_GBL";
1737 case ETIR__C_STC_BSR_PS
: return "ETIR__C_STC_BSR_PS";
1738 case ETIR__C_STC_LDA_GBL
: return "ETIR__C_STC_LDA_GBL";
1739 case ETIR__C_STC_LDA_PS
: return "ETIR__C_STC_LDA_PS";
1740 case ETIR__C_STC_BOH_GBL
: return "ETIR__C_STC_BOH_GBL";
1741 case ETIR__C_STC_BOH_PS
: return "ETIR__C_STC_BOH_PS";
1742 case ETIR__C_STC_NBH_GBL
: return "ETIR__C_STC_NBH_GBL";
1743 case ETIR__C_STC_LP_PSB
: return "ETIR__C_STC_LP_PSB";
1744 case ETIR__C_CTL_SETRB
: return "ETIR__C_CTL_SETRB";
1745 case ETIR__C_CTL_AUGRB
: return "ETIR__C_CTL_AUGRB";
1746 case ETIR__C_CTL_DFLOC
: return "ETIR__C_CTL_DFLOC";
1747 case ETIR__C_CTL_STLOC
: return "ETIR__C_CTL_STLOC";
1748 case ETIR__C_CTL_STKDL
: return "ETIR__C_CTL_STKDL";
1751 /* These names have not yet been added to this switch statement. */
1752 _bfd_error_handler (_("unknown ETIR command %d"), cmd
);
1757 #define HIGHBIT(op) ((op & 0x80000000L) == 0x80000000L)
1760 _bfd_vms_get_value (bfd
*abfd
,
1761 const unsigned char *ascic
,
1762 const unsigned char *max_ascic
,
1763 struct bfd_link_info
*info
,
1765 struct alpha_vms_link_hash_entry
**hp
)
1770 struct alpha_vms_link_hash_entry
*h
;
1772 /* Not linking. Do not try to resolve the symbol. */
1781 if (ascic
+ len
>= max_ascic
)
1783 _bfd_error_handler (_("corrupt vms value"));
1789 for (i
= 0; i
< len
; i
++)
1790 name
[i
] = ascic
[i
+ 1];
1793 h
= (struct alpha_vms_link_hash_entry
*)
1794 bfd_link_hash_lookup (info
->hash
, name
, FALSE
, FALSE
, TRUE
);
1799 && (h
->root
.type
== bfd_link_hash_defined
1800 || h
->root
.type
== bfd_link_hash_defweak
))
1801 *vma
= h
->root
.u
.def
.value
1802 + h
->root
.u
.def
.section
->output_offset
1803 + h
->root
.u
.def
.section
->output_section
->vma
;
1804 else if (h
&& h
->root
.type
== bfd_link_hash_undefweak
)
1808 (*info
->callbacks
->undefined_symbol
)
1809 (info
, name
, abfd
, PRIV (image_section
), PRIV (image_offset
), TRUE
);
1816 #define RELC_SHR_BASE 0x10000
1817 #define RELC_SEC_BASE 0x20000
1818 #define RELC_MASK 0x0ffff
1821 alpha_vms_sym_to_ctxt (struct alpha_vms_link_hash_entry
*h
)
1823 /* Handle undefined symbols. */
1824 if (h
== NULL
|| h
->sym
== NULL
)
1827 if (h
->sym
->typ
== EGSD__C_SYMG
)
1829 if (h
->sym
->flags
& EGSY__V_REL
)
1830 return RELC_SHR_BASE
+ PRIV2 (h
->sym
->owner
, shr_index
);
1833 /* Can this happen (non-relocatable symg) ? I'd like to see
1838 if (h
->sym
->typ
== EGSD__C_SYM
)
1840 if (h
->sym
->flags
& EGSY__V_REL
)
1849 alpha_vms_get_sym_value (asection
*sect
, bfd_vma addr
)
1851 return sect
->output_section
->vma
+ sect
->output_offset
+ addr
;
1855 alpha_vms_fix_sec_rel (bfd
*abfd
, struct bfd_link_info
*info
,
1856 unsigned int rel
, bfd_vma vma
)
1860 if (PRIV (sections
) == NULL
)
1863 sec
= PRIV (sections
)[rel
& RELC_MASK
];
1867 if (sec
->output_section
== NULL
)
1869 return vma
+ sec
->output_section
->vma
+ sec
->output_offset
;
1872 return vma
+ sec
->vma
;
1875 /* Read an ETIR record from ABFD. If INFO is not null, put the content into
1876 the output section (used during linking).
1877 Return FALSE in case of error. */
1880 _bfd_vms_slurp_etir (bfd
*abfd
, struct bfd_link_info
*info
)
1883 unsigned int length
;
1884 unsigned char *maxptr
;
1887 unsigned int rel1
= RELC_NONE
;
1888 unsigned int rel2
= RELC_NONE
;
1889 struct alpha_vms_link_hash_entry
*h
;
1891 PRIV (recrd
.rec
) += ETIR__C_HEADER_SIZE
;
1892 PRIV (recrd
.rec_size
) -= ETIR__C_HEADER_SIZE
;
1894 ptr
= PRIV (recrd
.rec
);
1895 length
= PRIV (recrd
.rec_size
);
1896 maxptr
= ptr
+ length
;
1898 vms_debug2 ((2, "ETIR: %d bytes\n", length
));
1900 while (ptr
< maxptr
)
1902 int cmd
, cmd_length
;
1904 if (ptr
+ 4 > maxptr
)
1907 cmd
= bfd_getl16 (ptr
);
1908 cmd_length
= bfd_getl16 (ptr
+ 2);
1910 /* PR 21589 and 21579: Check for a corrupt ETIR record. */
1911 if (cmd_length
< 4 || ptr
+ cmd_length
> maxptr
)
1914 _bfd_error_handler (_("corrupt ETIR record encountered"));
1915 bfd_set_error (bfd_error_bad_value
);
1921 _bfd_vms_debug (4, "etir: %s(%d)\n",
1922 _bfd_vms_etir_name (cmd
), cmd
);
1923 _bfd_hexdump (8, ptr
, cmd_length
- 4, 0);
1931 stack 32 bit value of symbol (high bits set to 0). */
1932 case ETIR__C_STA_GBL
:
1933 _bfd_vms_get_value (abfd
, ptr
, maxptr
, info
, &op1
, &h
);
1934 if (!_bfd_vms_push (abfd
, op1
, alpha_vms_sym_to_ctxt (h
)))
1941 stack 32 bit value, sign extend to 64 bit. */
1942 case ETIR__C_STA_LW
:
1943 if (ptr
+ 4 > maxptr
)
1945 if (!_bfd_vms_push (abfd
, bfd_getl32 (ptr
), RELC_NONE
))
1952 stack 64 bit value of symbol. */
1953 case ETIR__C_STA_QW
:
1954 if (ptr
+ 8 > maxptr
)
1956 if (!_bfd_vms_push (abfd
, bfd_getl64 (ptr
), RELC_NONE
))
1960 /* Stack psect base plus quadword offset
1961 arg: lw section index
1962 qw signed quadword offset (low 32 bits)
1964 Stack qw argument and section index
1965 (see ETIR__C_STO_OFF, ETIR__C_CTL_SETRB). */
1966 case ETIR__C_STA_PQ
:
1970 if (ptr
+ 12 > maxptr
)
1972 psect
= bfd_getl32 (ptr
);
1973 if ((unsigned int) psect
>= PRIV (section_count
))
1975 _bfd_error_handler (_("bad section index in %s"),
1976 _bfd_vms_etir_name (cmd
));
1977 bfd_set_error (bfd_error_bad_value
);
1980 op1
= bfd_getl64 (ptr
+ 4);
1981 if (!_bfd_vms_push (abfd
, op1
, psect
| RELC_SEC_BASE
))
1986 case ETIR__C_STA_LI
:
1987 case ETIR__C_STA_MOD
:
1988 case ETIR__C_STA_CKARG
:
1989 _bfd_error_handler (_("unsupported STA cmd %s"),
1990 _bfd_vms_etir_name (cmd
));
1994 /* Store byte: pop stack, write byte
1997 if (!_bfd_vms_pop (abfd
, &op1
, &rel1
))
1999 if (rel1
!= RELC_NONE
)
2001 image_write_b (abfd
, (unsigned int) op1
& 0xff);
2004 /* Store word: pop stack, write word
2007 if (!_bfd_vms_pop (abfd
, &op1
, &rel1
))
2009 if (rel1
!= RELC_NONE
)
2011 image_write_w (abfd
, (unsigned int) op1
& 0xffff);
2014 /* Store longword: pop stack, write longword
2016 case ETIR__C_STO_LW
:
2017 if (!_bfd_vms_pop (abfd
, &op1
, &rel1
))
2019 if (rel1
& RELC_SEC_BASE
)
2021 op1
= alpha_vms_fix_sec_rel (abfd
, info
, rel1
, op1
);
2024 else if (rel1
& RELC_SHR_BASE
)
2026 if (!alpha_vms_add_fixup_lr (info
, rel1
& RELC_MASK
, op1
))
2030 if (rel1
!= RELC_NONE
)
2032 if (rel1
!= RELC_REL
)
2034 if (!alpha_vms_add_lw_reloc (info
))
2037 image_write_l (abfd
, op1
);
2040 /* Store quadword: pop stack, write quadword
2042 case ETIR__C_STO_QW
:
2043 if (!_bfd_vms_pop (abfd
, &op1
, &rel1
))
2045 if (rel1
& RELC_SEC_BASE
)
2047 op1
= alpha_vms_fix_sec_rel (abfd
, info
, rel1
, op1
);
2050 else if (rel1
& RELC_SHR_BASE
)
2052 if (rel1
!= RELC_NONE
)
2054 if (rel1
!= RELC_REL
)
2056 if (!alpha_vms_add_qw_reloc (info
))
2059 image_write_q (abfd
, op1
);
2062 /* Store immediate repeated: pop stack for repeat count
2065 case ETIR__C_STO_IMMR
:
2069 if (ptr
+ 4 > maxptr
)
2071 size
= bfd_getl32 (ptr
);
2072 if (!_bfd_vms_pop (abfd
, &op1
, &rel1
))
2074 if (rel1
!= RELC_NONE
)
2077 image_write (abfd
, ptr
+ 4, size
);
2081 /* Store global: write symbol value
2082 arg: cs global symbol name. */
2083 case ETIR__C_STO_GBL
:
2084 _bfd_vms_get_value (abfd
, ptr
, maxptr
, info
, &op1
, &h
);
2087 if (h
->sym
->typ
== EGSD__C_SYMG
)
2089 if (!alpha_vms_add_fixup_qr (info
, abfd
, h
->sym
->owner
,
2090 h
->sym
->symbol_vector
))
2096 op1
= alpha_vms_get_sym_value (h
->sym
->section
,
2098 if (!alpha_vms_add_qw_reloc (info
))
2102 image_write_q (abfd
, op1
);
2105 /* Store code address: write address of entry point
2106 arg: cs global symbol name (procedure). */
2107 case ETIR__C_STO_CA
:
2108 _bfd_vms_get_value (abfd
, ptr
, maxptr
, info
, &op1
, &h
);
2111 if (h
->sym
->flags
& EGSY__V_NORM
)
2113 /* That's really a procedure. */
2114 if (h
->sym
->typ
== EGSD__C_SYMG
)
2116 if (!alpha_vms_add_fixup_ca (info
, abfd
, h
->sym
->owner
))
2118 op1
= h
->sym
->symbol_vector
;
2122 op1
= alpha_vms_get_sym_value (h
->sym
->code_section
,
2123 h
->sym
->code_value
);
2124 if (!alpha_vms_add_qw_reloc (info
))
2130 /* Symbol is not a procedure. */
2134 image_write_q (abfd
, op1
);
2137 /* Store offset to psect: pop stack, add low 32 bits to base of psect
2139 case ETIR__C_STO_OFF
:
2140 if (!_bfd_vms_pop (abfd
, &op1
, &rel1
))
2143 if (!(rel1
& RELC_SEC_BASE
))
2146 op1
= alpha_vms_fix_sec_rel (abfd
, info
, rel1
, op1
);
2148 image_write_q (abfd
, op1
);
2152 arg: lw count of bytes
2154 case ETIR__C_STO_IMM
:
2158 if (ptr
+ 4 > maxptr
)
2160 size
= bfd_getl32 (ptr
);
2161 image_write (abfd
, ptr
+ 4, size
);
2165 /* This code is 'reserved to digital' according to the openVMS
2166 linker manual, however it is generated by the DEC C compiler
2167 and defined in the include file.
2168 FIXME, since the following is just a guess
2169 store global longword: store 32bit value of symbol
2170 arg: cs symbol name. */
2171 case ETIR__C_STO_GBL_LW
:
2172 _bfd_vms_get_value (abfd
, ptr
, maxptr
, info
, &op1
, &h
);
2176 image_write_l (abfd
, op1
);
2179 case ETIR__C_STO_RB
:
2180 case ETIR__C_STO_AB
:
2181 case ETIR__C_STO_LP_PSB
:
2182 _bfd_error_handler (_("%s: not supported"),
2183 _bfd_vms_etir_name (cmd
));
2186 case ETIR__C_STO_HINT_GBL
:
2187 case ETIR__C_STO_HINT_PS
:
2188 _bfd_error_handler (_("%s: not implemented"),
2189 _bfd_vms_etir_name (cmd
));
2193 /* 200 Store-conditional Linkage Pair
2195 case ETIR__C_STC_LP
:
2197 /* 202 Store-conditional Address at global address
2201 case ETIR__C_STC_GBL
:
2203 /* 203 Store-conditional Code Address at global address
2205 cs procedure name. */
2206 case ETIR__C_STC_GCA
:
2208 /* 204 Store-conditional Address at psect + offset
2212 case ETIR__C_STC_PS
:
2213 _bfd_error_handler (_("%s: not supported"),
2214 _bfd_vms_etir_name (cmd
));
2218 /* 201 Store-conditional Linkage Pair with Procedure Signature
2224 case ETIR__C_STC_LP_PSB
:
2225 _bfd_vms_get_value (abfd
, ptr
+ 4, maxptr
, info
, &op1
, &h
);
2228 if (h
->sym
->typ
== EGSD__C_SYMG
)
2230 if (!alpha_vms_add_fixup_lp (info
, abfd
, h
->sym
->owner
))
2232 op1
= h
->sym
->symbol_vector
;
2237 op1
= alpha_vms_get_sym_value (h
->sym
->code_section
,
2238 h
->sym
->code_value
);
2239 op2
= alpha_vms_get_sym_value (h
->sym
->section
,
2245 /* Undefined symbol. */
2249 image_write_q (abfd
, op1
);
2250 image_write_q (abfd
, op2
);
2253 /* 205 Store-conditional NOP at address of global
2255 case ETIR__C_STC_NOP_GBL
:
2258 /* 207 Store-conditional BSR at global address
2261 case ETIR__C_STC_BSR_GBL
:
2264 /* 209 Store-conditional LDA at global address
2267 case ETIR__C_STC_LDA_GBL
:
2270 /* 211 Store-conditional BSR or Hint at global address
2273 case ETIR__C_STC_BOH_GBL
:
2274 /* Currentl ignored. */
2277 /* 213 Store-conditional NOP,BSR or HINT at global address
2280 case ETIR__C_STC_NBH_GBL
:
2282 /* 206 Store-conditional NOP at pect + offset
2285 case ETIR__C_STC_NOP_PS
:
2287 /* 208 Store-conditional BSR at pect + offset
2290 case ETIR__C_STC_BSR_PS
:
2292 /* 210 Store-conditional LDA at psect + offset
2295 case ETIR__C_STC_LDA_PS
:
2297 /* 212 Store-conditional BSR or Hint at pect + offset
2300 case ETIR__C_STC_BOH_PS
:
2302 /* 214 Store-conditional NOP, BSR or HINT at psect + offset
2304 case ETIR__C_STC_NBH_PS
:
2305 _bfd_error_handler (_("%s: not supported"),
2306 _bfd_vms_etir_name (cmd
));
2310 /* Det relocation base: pop stack, set image location counter
2312 case ETIR__C_CTL_SETRB
:
2313 if (!_bfd_vms_pop (abfd
, &op1
, &rel1
))
2315 if (!(rel1
& RELC_SEC_BASE
))
2317 image_set_ptr (abfd
, op1
, rel1
& RELC_MASK
, info
);
2320 /* Augment relocation base: increment image location counter by offset
2321 arg: lw offset value. */
2322 case ETIR__C_CTL_AUGRB
:
2323 if (ptr
+ 4 > maxptr
)
2325 op1
= bfd_getl32 (ptr
);
2326 image_inc_ptr (abfd
, op1
);
2329 /* Define location: pop index, save location counter under index
2331 case ETIR__C_CTL_DFLOC
:
2332 if (!_bfd_vms_pop (abfd
, &op1
, &rel1
))
2334 if (rel1
!= RELC_NONE
)
2336 if (!dst_define_location (abfd
, op1
))
2340 /* Set location: pop index, restore location counter from index
2342 case ETIR__C_CTL_STLOC
:
2343 if (!_bfd_vms_pop (abfd
, &op1
, &rel1
))
2345 if (rel1
!= RELC_NONE
)
2347 if (!dst_restore_location (abfd
, op1
))
2349 bfd_set_error (bfd_error_bad_value
);
2350 _bfd_error_handler (_("invalid %s"), "ETIR__C_CTL_STLOC");
2355 /* Stack defined location: pop index, push location counter from index
2357 case ETIR__C_CTL_STKDL
:
2358 if (!_bfd_vms_pop (abfd
, &op1
, &rel1
))
2360 if (rel1
!= RELC_NONE
)
2362 if (!dst_retrieve_location (abfd
, &op1
))
2364 bfd_set_error (bfd_error_bad_value
);
2365 _bfd_error_handler (_("invalid %s"), "ETIR__C_CTL_STKDL");
2368 if (!_bfd_vms_push (abfd
, op1
, RELC_NONE
))
2372 case ETIR__C_OPR_NOP
: /* No-op. */
2375 case ETIR__C_OPR_ADD
: /* Add. */
2376 if (!_bfd_vms_pop (abfd
, &op1
, &rel1
)
2377 || !_bfd_vms_pop (abfd
, &op2
, &rel2
))
2379 if (rel1
== RELC_NONE
&& rel2
!= RELC_NONE
)
2381 else if (rel1
!= RELC_NONE
&& rel2
!= RELC_NONE
)
2383 if (!_bfd_vms_push (abfd
, op1
+ op2
, rel1
))
2387 case ETIR__C_OPR_SUB
: /* Subtract. */
2388 if (!_bfd_vms_pop (abfd
, &op1
, &rel1
)
2389 || !_bfd_vms_pop (abfd
, &op2
, &rel2
))
2391 if (rel1
== RELC_NONE
&& rel2
!= RELC_NONE
)
2393 else if ((rel1
& RELC_SEC_BASE
) && (rel2
& RELC_SEC_BASE
))
2395 op1
= alpha_vms_fix_sec_rel (abfd
, info
, rel1
, op1
);
2396 op2
= alpha_vms_fix_sec_rel (abfd
, info
, rel2
, op2
);
2399 else if (rel1
!= RELC_NONE
&& rel2
!= RELC_NONE
)
2401 if (!_bfd_vms_push (abfd
, op2
- op1
, rel1
))
2405 case ETIR__C_OPR_MUL
: /* Multiply. */
2406 if (!_bfd_vms_pop (abfd
, &op1
, &rel1
)
2407 || !_bfd_vms_pop (abfd
, &op2
, &rel2
))
2409 if (rel1
!= RELC_NONE
|| rel2
!= RELC_NONE
)
2411 if (!_bfd_vms_push (abfd
, op1
* op2
, RELC_NONE
))
2415 case ETIR__C_OPR_DIV
: /* Divide. */
2416 if (!_bfd_vms_pop (abfd
, &op1
, &rel1
)
2417 || !_bfd_vms_pop (abfd
, &op2
, &rel2
))
2419 if (rel1
!= RELC_NONE
|| rel2
!= RELC_NONE
)
2423 if (!_bfd_vms_push (abfd
, 0, RELC_NONE
))
2428 if (!_bfd_vms_push (abfd
, op2
/ op1
, RELC_NONE
))
2433 case ETIR__C_OPR_AND
: /* Logical AND. */
2434 if (!_bfd_vms_pop (abfd
, &op1
, &rel1
)
2435 || !_bfd_vms_pop (abfd
, &op2
, &rel2
))
2437 if (rel1
!= RELC_NONE
|| rel2
!= RELC_NONE
)
2439 if (!_bfd_vms_push (abfd
, op1
& op2
, RELC_NONE
))
2443 case ETIR__C_OPR_IOR
: /* Logical inclusive OR. */
2444 if (!_bfd_vms_pop (abfd
, &op1
, &rel1
)
2445 || !_bfd_vms_pop (abfd
, &op2
, &rel2
))
2447 if (rel1
!= RELC_NONE
|| rel2
!= RELC_NONE
)
2449 if (!_bfd_vms_push (abfd
, op1
| op2
, RELC_NONE
))
2453 case ETIR__C_OPR_EOR
: /* Logical exclusive OR. */
2454 if (!_bfd_vms_pop (abfd
, &op1
, &rel1
)
2455 || !_bfd_vms_pop (abfd
, &op2
, &rel2
))
2457 if (rel1
!= RELC_NONE
|| rel2
!= RELC_NONE
)
2459 if (!_bfd_vms_push (abfd
, op1
^ op2
, RELC_NONE
))
2463 case ETIR__C_OPR_NEG
: /* Negate. */
2464 if (!_bfd_vms_pop (abfd
, &op1
, &rel1
))
2466 if (rel1
!= RELC_NONE
)
2468 if (!_bfd_vms_push (abfd
, -op1
, RELC_NONE
))
2472 case ETIR__C_OPR_COM
: /* Complement. */
2473 if (!_bfd_vms_pop (abfd
, &op1
, &rel1
))
2475 if (rel1
!= RELC_NONE
)
2477 if (!_bfd_vms_push (abfd
, ~op1
, RELC_NONE
))
2481 case ETIR__C_OPR_ASH
: /* Arithmetic shift. */
2482 if (!_bfd_vms_pop (abfd
, &op1
, &rel1
)
2483 || !_bfd_vms_pop (abfd
, &op2
, &rel2
))
2485 if (rel1
!= RELC_NONE
|| rel2
!= RELC_NONE
)
2488 _bfd_error_handler (_("invalid use of %s with contexts"),
2489 _bfd_vms_etir_name (cmd
));
2492 if ((int)op2
< 0) /* Shift right. */
2494 else /* Shift left. */
2496 if (!_bfd_vms_push (abfd
, op1
, RELC_NONE
)) /* FIXME: sym. */
2500 case ETIR__C_OPR_INSV
: /* Insert field. */
2501 case ETIR__C_OPR_USH
: /* Unsigned shift. */
2502 case ETIR__C_OPR_ROT
: /* Rotate. */
2503 case ETIR__C_OPR_REDEF
: /* Redefine symbol to current location. */
2504 case ETIR__C_OPR_DFLIT
: /* Define a literal. */
2505 _bfd_error_handler (_("%s: not supported"),
2506 _bfd_vms_etir_name (cmd
));
2510 case ETIR__C_OPR_SEL
: /* Select. */
2511 if (!_bfd_vms_pop (abfd
, &op1
, &rel1
))
2515 if (!_bfd_vms_pop (abfd
, &op1
, &rel1
))
2520 if (!_bfd_vms_pop (abfd
, &op1
, &rel1
)
2521 || !_bfd_vms_pop (abfd
, &op2
, &rel2
))
2523 if (!_bfd_vms_push (abfd
, op1
, rel1
))
2529 _bfd_error_handler (_("reserved cmd %d"), cmd
);
2534 ptr
+= cmd_length
- 4;
2540 /* Process EDBG/ETBT record.
2541 Return TRUE on success, FALSE on error */
2544 vms_slurp_debug (bfd
*abfd
)
2546 asection
*section
= PRIV (dst_section
);
2548 if (section
== NULL
)
2550 /* We have no way to find out beforehand how much debug info there
2551 is in an object file, so pick an initial amount and grow it as
2553 flagword flags
= SEC_HAS_CONTENTS
| SEC_DEBUGGING
| SEC_RELOC
2556 section
= bfd_make_section (abfd
, "$DST$");
2559 if (!bfd_set_section_flags (section
, flags
))
2561 PRIV (dst_section
) = section
;
2564 PRIV (image_section
) = section
;
2565 PRIV (image_offset
) = section
->size
;
2567 if (!_bfd_vms_slurp_etir (abfd
, NULL
))
2570 section
->size
= PRIV (image_offset
);
2574 /* Process EDBG record.
2575 Return TRUE on success, FALSE on error. */
2578 _bfd_vms_slurp_edbg (bfd
*abfd
)
2580 vms_debug2 ((2, "EDBG\n"));
2582 abfd
->flags
|= HAS_DEBUG
| HAS_LINENO
;
2584 return vms_slurp_debug (abfd
);
2587 /* Process ETBT record.
2588 Return TRUE on success, FALSE on error. */
2591 _bfd_vms_slurp_etbt (bfd
*abfd
)
2593 vms_debug2 ((2, "ETBT\n"));
2595 abfd
->flags
|= HAS_LINENO
;
2597 return vms_slurp_debug (abfd
);
2600 /* Process EEOM record.
2601 Return TRUE on success, FALSE on error. */
2604 _bfd_vms_slurp_eeom (bfd
*abfd
)
2606 struct vms_eeom
*eeom
= (struct vms_eeom
*) PRIV (recrd
.rec
);
2608 vms_debug2 ((2, "EEOM\n"));
2610 /* PR 21813: Check for an undersized record. */
2611 if (PRIV (recrd
.buf_size
) < sizeof (* eeom
))
2613 _bfd_error_handler (_("corrupt EEOM record - size is too small"));
2614 bfd_set_error (bfd_error_bad_value
);
2618 PRIV (eom_data
).eom_l_total_lps
= bfd_getl32 (eeom
->total_lps
);
2619 PRIV (eom_data
).eom_w_comcod
= bfd_getl16 (eeom
->comcod
);
2620 if (PRIV (eom_data
).eom_w_comcod
> 1)
2622 _bfd_error_handler (_("object module not error-free !"));
2623 bfd_set_error (bfd_error_bad_value
);
2627 PRIV (eom_data
).eom_has_transfer
= FALSE
;
2628 if (PRIV (recrd
.rec_size
) > 10)
2630 PRIV (eom_data
).eom_has_transfer
= TRUE
;
2631 PRIV (eom_data
).eom_b_tfrflg
= eeom
->tfrflg
;
2632 PRIV (eom_data
).eom_l_psindx
= bfd_getl32 (eeom
->psindx
);
2633 PRIV (eom_data
).eom_l_tfradr
= bfd_getl32 (eeom
->tfradr
);
2635 abfd
->start_address
= PRIV (eom_data
).eom_l_tfradr
;
2640 /* Slurp an ordered set of VMS object records. Return FALSE on error. */
2643 _bfd_vms_slurp_object_records (bfd
* abfd
)
2650 vms_debug2 ((7, "reading at %08lx\n", (unsigned long)bfd_tell (abfd
)));
2652 type
= _bfd_vms_get_object_record (abfd
);
2655 vms_debug2 ((2, "next_record failed\n"));
2662 ok
= _bfd_vms_slurp_ehdr (abfd
);
2665 ok
= _bfd_vms_slurp_eeom (abfd
);
2668 ok
= _bfd_vms_slurp_egsd (abfd
);
2671 ok
= TRUE
; /* _bfd_vms_slurp_etir (abfd); */
2674 ok
= _bfd_vms_slurp_edbg (abfd
);
2677 ok
= _bfd_vms_slurp_etbt (abfd
);
2684 vms_debug2 ((2, "slurp type %d failed\n", type
));
2688 while (type
!= EOBJ__C_EEOM
);
2693 /* Initialize private data */
2695 vms_initialize (bfd
* abfd
)
2699 amt
= sizeof (struct vms_private_data_struct
);
2700 abfd
->tdata
.any
= bfd_zalloc (abfd
, amt
);
2701 if (abfd
->tdata
.any
== NULL
)
2704 PRIV (recrd
.file_format
) = FF_UNKNOWN
;
2706 amt
= sizeof (struct stack_struct
) * STACKSIZE
;
2707 PRIV (stack
) = bfd_alloc (abfd
, amt
);
2708 if (PRIV (stack
) == NULL
)
2714 bfd_release (abfd
, abfd
->tdata
.any
);
2715 abfd
->tdata
.any
= NULL
;
2719 /* Free malloc'd memory. */
2722 alpha_vms_free_private (bfd
*abfd
)
2724 struct module
*module
;
2726 free (PRIV (recrd
.buf
));
2727 free (PRIV (sections
));
2729 free (PRIV (dst_ptr_offsets
));
2731 for (module
= PRIV (modules
); module
; module
= module
->next
)
2732 free (module
->file_table
);
2735 /* Check the format for a file being read.
2736 Return a (bfd_target *) if it's an object file or zero if not. */
2739 alpha_vms_object_p (bfd
*abfd
)
2741 void *tdata_save
= abfd
->tdata
.any
;
2742 unsigned int test_len
;
2745 vms_debug2 ((1, "vms_object_p(%p)\n", abfd
));
2747 /* Allocate alpha-vms specific data. */
2748 if (!vms_initialize (abfd
))
2750 abfd
->tdata
.any
= tdata_save
;
2754 if (bfd_seek (abfd
, (file_ptr
) 0, SEEK_SET
))
2757 /* The first challenge with VMS is to discover the kind of the file.
2759 Image files (executable or shared images) are stored as a raw
2760 stream of bytes (like on UNIX), but there is no magic number.
2762 Object files are written with RMS (record management service), ie
2763 each records are preceeded by its length (on a word - 2 bytes), and
2764 padded for word-alignment. That would be simple but when files
2765 are transfered to a UNIX filesystem (using ftp), records are lost.
2766 Only the raw content of the records are transfered. Fortunately,
2767 the Alpha Object file format also store the length of the record
2768 in the records. Is that clear ? */
2770 /* Minimum is 6 bytes for objects (2 bytes size, 2 bytes record id,
2771 2 bytes size repeated) and 12 bytes for images (4 bytes major id,
2772 4 bytes minor id, 4 bytes length). */
2774 buf
= _bfd_malloc_and_read (abfd
, test_len
, test_len
);
2777 PRIV (recrd
.buf
) = buf
;
2778 PRIV (recrd
.buf_size
) = test_len
;
2779 PRIV (recrd
.rec
) = buf
;
2781 /* Is it an image? */
2782 if ((bfd_getl32 (buf
) == EIHD__K_MAJORID
)
2783 && (bfd_getl32 (buf
+ 4) == EIHD__K_MINORID
))
2785 unsigned int eisd_offset
, eihs_offset
;
2787 /* Extract the header size. */
2788 PRIV (recrd
.rec_size
) = bfd_getl32 (buf
+ EIHD__L_SIZE
);
2790 /* The header size is 0 for DSF files. */
2791 if (PRIV (recrd
.rec_size
) == 0)
2792 PRIV (recrd
.rec_size
) = sizeof (struct vms_eihd
);
2794 /* PR 21813: Check for a truncated record. */
2795 /* PR 17512: file: 7d7c57c2. */
2796 if (PRIV (recrd
.rec_size
) < sizeof (struct vms_eihd
))
2797 goto err_wrong_format
;
2799 if (bfd_seek (abfd
, (file_ptr
) 0, SEEK_SET
))
2802 free (PRIV (recrd
.buf
));
2803 PRIV (recrd
.buf
) = NULL
;
2804 buf
= _bfd_malloc_and_read (abfd
, PRIV (recrd
.rec_size
),
2805 PRIV (recrd
.rec_size
));
2809 PRIV (recrd
.buf
) = buf
;
2810 PRIV (recrd
.buf_size
) = PRIV (recrd
.rec_size
);
2811 PRIV (recrd
.rec
) = buf
;
2813 vms_debug2 ((2, "file type is image\n"));
2815 if (!_bfd_vms_slurp_eihd (abfd
, &eisd_offset
, &eihs_offset
))
2816 goto err_wrong_format
;
2818 if (!_bfd_vms_slurp_eisd (abfd
, eisd_offset
))
2819 goto err_wrong_format
;
2821 /* EIHS is optional. */
2822 if (eihs_offset
!= 0 && !_bfd_vms_slurp_eihs (abfd
, eihs_offset
))
2823 goto err_wrong_format
;
2829 /* Assume it's a module and adjust record pointer if necessary. */
2830 maybe_adjust_record_pointer_for_object (abfd
);
2832 /* But is it really a module? */
2833 if (bfd_getl16 (PRIV (recrd
.rec
)) <= EOBJ__C_MAXRECTYP
2834 && bfd_getl16 (PRIV (recrd
.rec
) + 2) <= EOBJ__C_MAXRECSIZ
)
2836 if (vms_get_remaining_object_record (abfd
, test_len
) <= 0)
2837 goto err_wrong_format
;
2839 vms_debug2 ((2, "file type is module\n"));
2841 type
= bfd_getl16 (PRIV (recrd
.rec
));
2842 if (type
!= EOBJ__C_EMH
|| !_bfd_vms_slurp_ehdr (abfd
))
2843 goto err_wrong_format
;
2845 if (!_bfd_vms_slurp_object_records (abfd
))
2846 goto err_wrong_format
;
2849 goto err_wrong_format
;
2852 /* Set arch_info to alpha. */
2854 if (! bfd_default_set_arch_mach (abfd
, bfd_arch_alpha
, 0))
2855 goto err_wrong_format
;
2857 return alpha_vms_free_private
;
2860 bfd_set_error (bfd_error_wrong_format
);
2863 alpha_vms_free_private (abfd
);
2864 if (abfd
->tdata
.any
!= tdata_save
&& abfd
->tdata
.any
!= NULL
)
2865 bfd_release (abfd
, abfd
->tdata
.any
);
2866 abfd
->tdata
.any
= tdata_save
;
2872 /* Write an EMH/MHD record. */
2875 _bfd_vms_write_emh (bfd
*abfd
)
2877 struct vms_rec_wr
*recwr
= &PRIV (recwr
);
2879 _bfd_vms_output_alignment (recwr
, 2);
2882 _bfd_vms_output_begin (recwr
, EOBJ__C_EMH
);
2883 _bfd_vms_output_short (recwr
, EMH__C_MHD
);
2884 _bfd_vms_output_short (recwr
, EOBJ__C_STRLVL
);
2885 _bfd_vms_output_long (recwr
, 0);
2886 _bfd_vms_output_long (recwr
, 0);
2887 _bfd_vms_output_long (recwr
, MAX_OUTREC_SIZE
);
2889 /* Create module name from filename. */
2890 if (bfd_get_filename (abfd
) != 0)
2892 char *module
= vms_get_module_name (bfd_get_filename (abfd
), TRUE
);
2893 _bfd_vms_output_counted (recwr
, module
);
2897 _bfd_vms_output_counted (recwr
, "NONAME");
2899 _bfd_vms_output_counted (recwr
, BFD_VERSION_STRING
);
2900 _bfd_vms_output_dump (recwr
, get_vms_time_string (), EMH_DATE_LENGTH
);
2901 _bfd_vms_output_fill (recwr
, 0, EMH_DATE_LENGTH
);
2902 _bfd_vms_output_end (abfd
, recwr
);
2905 /* Write an EMH/LMN record. */
2908 _bfd_vms_write_lmn (bfd
*abfd
, const char *name
)
2911 struct vms_rec_wr
*recwr
= &PRIV (recwr
);
2912 unsigned int ver
= BFD_VERSION
/ 10000;
2915 _bfd_vms_output_begin (recwr
, EOBJ__C_EMH
);
2916 _bfd_vms_output_short (recwr
, EMH__C_LNM
);
2917 snprintf (version
, sizeof (version
), "%s %d.%d.%d", name
,
2918 ver
/ 10000, (ver
/ 100) % 100, ver
% 100);
2919 _bfd_vms_output_dump (recwr
, (unsigned char *)version
, strlen (version
));
2920 _bfd_vms_output_end (abfd
, recwr
);
2924 /* Write eom record for bfd abfd. Return FALSE on error. */
2927 _bfd_vms_write_eeom (bfd
*abfd
)
2929 struct vms_rec_wr
*recwr
= &PRIV (recwr
);
2931 vms_debug2 ((2, "vms_write_eeom\n"));
2933 _bfd_vms_output_alignment (recwr
, 2);
2935 _bfd_vms_output_begin (recwr
, EOBJ__C_EEOM
);
2936 _bfd_vms_output_long (recwr
, PRIV (vms_linkage_index
+ 1) >> 1);
2937 _bfd_vms_output_byte (recwr
, 0); /* Completion code. */
2938 _bfd_vms_output_byte (recwr
, 0); /* Fill byte. */
2940 if ((abfd
->flags
& EXEC_P
) == 0
2941 && bfd_get_start_address (abfd
) != (bfd_vma
)-1)
2945 section
= bfd_get_section_by_name (abfd
, ".link");
2948 bfd_set_error (bfd_error_nonrepresentable_section
);
2951 _bfd_vms_output_short (recwr
, 0);
2952 _bfd_vms_output_long (recwr
, (unsigned long) section
->target_index
);
2953 _bfd_vms_output_long (recwr
,
2954 (unsigned long) bfd_get_start_address (abfd
));
2955 _bfd_vms_output_long (recwr
, 0);
2958 _bfd_vms_output_end (abfd
, recwr
);
2963 vector_grow1 (struct vector_type
*vec
, size_t elsz
)
2965 if (vec
->nbr_el
>= vec
->max_el
)
2967 if (vec
->max_el
== 0)
2970 vec
->els
= bfd_malloc (vec
->max_el
* elsz
);
2975 if (vec
->max_el
> -1u / 2)
2977 bfd_set_error (bfd_error_file_too_big
);
2981 if (_bfd_mul_overflow (vec
->max_el
, elsz
, &amt
))
2983 bfd_set_error (bfd_error_file_too_big
);
2986 vec
->els
= bfd_realloc_or_free (vec
->els
, amt
);
2989 if (vec
->els
== NULL
)
2991 return (char *) vec
->els
+ elsz
* vec
->nbr_el
++;
2994 /* Bump ABFD file position to next block. */
2997 alpha_vms_file_position_block (bfd
*abfd
)
3000 PRIV (file_pos
) += VMS_BLOCK_SIZE
- 1;
3001 PRIV (file_pos
) -= (PRIV (file_pos
) % VMS_BLOCK_SIZE
);
3004 /* Convert from internal structure SRC to external structure DST. */
3007 alpha_vms_swap_eisd_out (struct vms_internal_eisd_map
*src
,
3008 struct vms_eisd
*dst
)
3010 bfd_putl32 (src
->u
.eisd
.majorid
, dst
->majorid
);
3011 bfd_putl32 (src
->u
.eisd
.minorid
, dst
->minorid
);
3012 bfd_putl32 (src
->u
.eisd
.eisdsize
, dst
->eisdsize
);
3013 if (src
->u
.eisd
.eisdsize
<= EISD__K_LENEND
)
3015 bfd_putl32 (src
->u
.eisd
.secsize
, dst
->secsize
);
3016 bfd_putl64 (src
->u
.eisd
.virt_addr
, dst
->virt_addr
);
3017 bfd_putl32 (src
->u
.eisd
.flags
, dst
->flags
);
3018 bfd_putl32 (src
->u
.eisd
.vbn
, dst
->vbn
);
3019 dst
->pfc
= src
->u
.eisd
.pfc
;
3020 dst
->matchctl
= src
->u
.eisd
.matchctl
;
3021 dst
->type
= src
->u
.eisd
.type
;
3023 if (src
->u
.eisd
.flags
& EISD__M_GBL
)
3025 bfd_putl32 (src
->u
.gbl_eisd
.ident
, dst
->ident
);
3026 memcpy (dst
->gblnam
, src
->u
.gbl_eisd
.gblnam
,
3027 src
->u
.gbl_eisd
.gblnam
[0] + 1);
3031 /* Append EISD to the list of extra eisd for ABFD. */
3034 alpha_vms_append_extra_eisd (bfd
*abfd
, struct vms_internal_eisd_map
*eisd
)
3037 if (PRIV (gbl_eisd_head
) == NULL
)
3038 PRIV (gbl_eisd_head
) = eisd
;
3040 PRIV (gbl_eisd_tail
)->next
= eisd
;
3041 PRIV (gbl_eisd_tail
) = eisd
;
3044 /* Create an EISD for shared image SHRIMG.
3045 Return FALSE in case of error. */
3048 alpha_vms_create_eisd_for_shared (bfd
*abfd
, bfd
*shrimg
)
3050 struct vms_internal_eisd_map
*eisd
;
3053 namlen
= strlen (PRIV2 (shrimg
, hdr_data
.hdr_t_name
));
3054 if (namlen
+ 5 > EISD__K_GBLNAMLEN
)
3060 eisd
= bfd_alloc (abfd
, sizeof (*eisd
));
3064 /* Fill the fields. */
3065 eisd
->u
.gbl_eisd
.common
.majorid
= EISD__K_MAJORID
;
3066 eisd
->u
.gbl_eisd
.common
.minorid
= EISD__K_MINORID
;
3067 eisd
->u
.gbl_eisd
.common
.eisdsize
= (EISD__K_LEN
+ 4 + namlen
+ 5 + 3) & ~3;
3068 eisd
->u
.gbl_eisd
.common
.secsize
= VMS_BLOCK_SIZE
; /* Must not be 0. */
3069 eisd
->u
.gbl_eisd
.common
.virt_addr
= 0;
3070 eisd
->u
.gbl_eisd
.common
.flags
= EISD__M_GBL
;
3071 eisd
->u
.gbl_eisd
.common
.vbn
= 0;
3072 eisd
->u
.gbl_eisd
.common
.pfc
= 0;
3073 eisd
->u
.gbl_eisd
.common
.matchctl
= PRIV2 (shrimg
, matchctl
);
3074 eisd
->u
.gbl_eisd
.common
.type
= EISD__K_SHRPIC
;
3076 eisd
->u
.gbl_eisd
.ident
= PRIV2 (shrimg
, ident
);
3077 eisd
->u
.gbl_eisd
.gblnam
[0] = namlen
+ 4;
3078 memcpy (eisd
->u
.gbl_eisd
.gblnam
+ 1, PRIV2 (shrimg
, hdr_data
.hdr_t_name
),
3080 memcpy (eisd
->u
.gbl_eisd
.gblnam
+ 1 + namlen
, "_001", 4);
3082 /* Append it to the list. */
3083 alpha_vms_append_extra_eisd (abfd
, eisd
);
3088 /* Create an EISD for section SEC.
3089 Return FALSE in case of failure. */
3092 alpha_vms_create_eisd_for_section (bfd
*abfd
, asection
*sec
)
3094 struct vms_internal_eisd_map
*eisd
;
3096 /* Only for allocating section. */
3097 if (!(sec
->flags
& SEC_ALLOC
))
3100 BFD_ASSERT (vms_section_data (sec
)->eisd
== NULL
);
3101 eisd
= bfd_alloc (abfd
, sizeof (*eisd
));
3104 vms_section_data (sec
)->eisd
= eisd
;
3106 /* Fill the fields. */
3107 eisd
->u
.eisd
.majorid
= EISD__K_MAJORID
;
3108 eisd
->u
.eisd
.minorid
= EISD__K_MINORID
;
3109 eisd
->u
.eisd
.eisdsize
= EISD__K_LEN
;
3110 eisd
->u
.eisd
.secsize
=
3111 (sec
->size
+ VMS_BLOCK_SIZE
- 1) & ~(VMS_BLOCK_SIZE
- 1);
3112 eisd
->u
.eisd
.virt_addr
= sec
->vma
;
3113 eisd
->u
.eisd
.flags
= 0;
3114 eisd
->u
.eisd
.vbn
= 0; /* To be later defined. */
3115 eisd
->u
.eisd
.pfc
= 0; /* Default. */
3116 eisd
->u
.eisd
.matchctl
= EISD__K_MATALL
;
3117 eisd
->u
.eisd
.type
= EISD__K_NORMAL
;
3119 if (sec
->flags
& SEC_CODE
)
3120 eisd
->u
.eisd
.flags
|= EISD__M_EXE
;
3121 if (!(sec
->flags
& SEC_READONLY
))
3122 eisd
->u
.eisd
.flags
|= EISD__M_WRT
| EISD__M_CRF
;
3124 /* If relocations or fixup will be applied, make this isect writeable. */
3125 if (sec
->flags
& SEC_RELOC
)
3126 eisd
->u
.eisd
.flags
|= EISD__M_WRT
| EISD__M_CRF
;
3128 if (!(sec
->flags
& SEC_HAS_CONTENTS
))
3130 eisd
->u
.eisd
.flags
|= EISD__M_DZRO
;
3131 eisd
->u
.eisd
.flags
&= ~EISD__M_CRF
;
3133 if (sec
->flags
& SEC_LINKER_CREATED
)
3135 if (strcmp (sec
->name
, "$FIXUP$") == 0)
3136 eisd
->u
.eisd
.flags
|= EISD__M_FIXUPVEC
;
3139 /* Append it to the list. */
3141 if (PRIV (eisd_head
) == NULL
)
3142 PRIV (eisd_head
) = eisd
;
3144 PRIV (eisd_tail
)->next
= eisd
;
3145 PRIV (eisd_tail
) = eisd
;
3150 /* Layout executable ABFD and write it to the disk.
3151 Return FALSE in case of failure. */
3154 alpha_vms_write_exec (bfd
*abfd
)
3156 struct vms_eihd eihd
;
3157 struct vms_eiha
*eiha
;
3158 struct vms_eihi
*eihi
;
3159 struct vms_eihs
*eihs
= NULL
;
3161 struct vms_internal_eisd_map
*first_eisd
;
3162 struct vms_internal_eisd_map
*eisd
;
3165 file_ptr gst_filepos
= 0;
3166 unsigned int lnkflags
= 0;
3168 /* Build the EIHD. */
3169 PRIV (file_pos
) = EIHD__C_LENGTH
;
3171 memset (&eihd
, 0, sizeof (eihd
));
3172 memset (eihd
.fill_2
, 0xff, sizeof (eihd
.fill_2
));
3174 bfd_putl32 (EIHD__K_MAJORID
, eihd
.majorid
);
3175 bfd_putl32 (EIHD__K_MINORID
, eihd
.minorid
);
3177 bfd_putl32 (sizeof (eihd
), eihd
.size
);
3178 bfd_putl32 (0, eihd
.isdoff
);
3179 bfd_putl32 (0, eihd
.activoff
);
3180 bfd_putl32 (0, eihd
.symdbgoff
);
3181 bfd_putl32 (0, eihd
.imgidoff
);
3182 bfd_putl32 (0, eihd
.patchoff
);
3183 bfd_putl64 (0, eihd
.iafva
);
3184 bfd_putl32 (0, eihd
.version_array_off
);
3186 bfd_putl32 (EIHD__K_EXE
, eihd
.imgtype
);
3187 bfd_putl32 (0, eihd
.subtype
);
3189 bfd_putl32 (0, eihd
.imgiocnt
);
3190 bfd_putl32 (-1, eihd
.privreqs
);
3191 bfd_putl32 (-1, eihd
.privreqs
+ 4);
3193 bfd_putl32 ((sizeof (eihd
) + VMS_BLOCK_SIZE
- 1) / VMS_BLOCK_SIZE
,
3195 bfd_putl32 (0, eihd
.ident
);
3196 bfd_putl32 (0, eihd
.sysver
);
3199 bfd_putl32 (0, eihd
.symvect_size
);
3200 bfd_putl32 (16, eihd
.virt_mem_block_size
);
3201 bfd_putl32 (0, eihd
.ext_fixup_off
);
3202 bfd_putl32 (0, eihd
.noopt_psect_off
);
3203 bfd_putl32 (-1, eihd
.alias
);
3206 eiha
= (struct vms_eiha
*)((char *) &eihd
+ PRIV (file_pos
));
3207 bfd_putl32 (PRIV (file_pos
), eihd
.activoff
);
3208 PRIV (file_pos
) += sizeof (struct vms_eiha
);
3210 bfd_putl32 (sizeof (struct vms_eiha
), eiha
->size
);
3211 bfd_putl32 (0, eiha
->spare
);
3212 bfd_putl64 (PRIV (transfer_address
[0]), eiha
->tfradr1
);
3213 bfd_putl64 (PRIV (transfer_address
[1]), eiha
->tfradr2
);
3214 bfd_putl64 (PRIV (transfer_address
[2]), eiha
->tfradr3
);
3215 bfd_putl64 (PRIV (transfer_address
[3]), eiha
->tfradr4
);
3216 bfd_putl64 (0, eiha
->inishr
);
3219 eihi
= (struct vms_eihi
*)((char *) &eihd
+ PRIV (file_pos
));
3220 bfd_putl32 (PRIV (file_pos
), eihd
.imgidoff
);
3221 PRIV (file_pos
) += sizeof (struct vms_eihi
);
3223 bfd_putl32 (EIHI__K_MAJORID
, eihi
->majorid
);
3224 bfd_putl32 (EIHI__K_MINORID
, eihi
->minorid
);
3229 /* Set module name. */
3230 module
= vms_get_module_name (bfd_get_filename (abfd
), TRUE
);
3231 len
= strlen (module
);
3232 if (len
> sizeof (eihi
->imgnam
) - 1)
3233 len
= sizeof (eihi
->imgnam
) - 1;
3234 eihi
->imgnam
[0] = len
;
3235 memcpy (eihi
->imgnam
+ 1, module
, len
);
3243 vms_get_time (&hi
, &lo
);
3244 bfd_putl32 (lo
, eihi
->linktime
+ 0);
3245 bfd_putl32 (hi
, eihi
->linktime
+ 4);
3248 eihi
->linkid
[0] = 0;
3249 eihi
->imgbid
[0] = 0;
3252 dst
= PRIV (dst_section
);
3253 dmt
= bfd_get_section_by_name (abfd
, "$DMT$");
3254 if (dst
!= NULL
&& dst
->size
!= 0)
3256 eihs
= (struct vms_eihs
*)((char *) &eihd
+ PRIV (file_pos
));
3257 bfd_putl32 (PRIV (file_pos
), eihd
.symdbgoff
);
3258 PRIV (file_pos
) += sizeof (struct vms_eihs
);
3260 bfd_putl32 (EIHS__K_MAJORID
, eihs
->majorid
);
3261 bfd_putl32 (EIHS__K_MINORID
, eihs
->minorid
);
3262 bfd_putl32 (0, eihs
->dstvbn
);
3263 bfd_putl32 (0, eihs
->dstsize
);
3264 bfd_putl32 (0, eihs
->gstvbn
);
3265 bfd_putl32 (0, eihs
->gstsize
);
3266 bfd_putl32 (0, eihs
->dmtvbn
);
3267 bfd_putl32 (0, eihs
->dmtsize
);
3270 /* One EISD per section. */
3271 for (sec
= abfd
->sections
; sec
; sec
= sec
->next
)
3273 if (!alpha_vms_create_eisd_for_section (abfd
, sec
))
3277 /* Merge section EIDS which extra ones. */
3278 if (PRIV (eisd_tail
))
3279 PRIV (eisd_tail
)->next
= PRIV (gbl_eisd_head
);
3281 PRIV (eisd_head
) = PRIV (gbl_eisd_head
);
3282 if (PRIV (gbl_eisd_tail
))
3283 PRIV (eisd_tail
) = PRIV (gbl_eisd_tail
);
3285 first_eisd
= PRIV (eisd_head
);
3287 /* Add end of eisd. */
3290 eisd
= bfd_zalloc (abfd
, sizeof (*eisd
));
3293 eisd
->u
.eisd
.majorid
= 0;
3294 eisd
->u
.eisd
.minorid
= 0;
3295 eisd
->u
.eisd
.eisdsize
= 0;
3296 alpha_vms_append_extra_eisd (abfd
, eisd
);
3299 /* Place EISD in the file. */
3300 for (eisd
= first_eisd
; eisd
; eisd
= eisd
->next
)
3302 file_ptr room
= VMS_BLOCK_SIZE
- (PRIV (file_pos
) % VMS_BLOCK_SIZE
);
3304 /* First block is a little bit special: there is a word at the end. */
3305 if (PRIV (file_pos
) < VMS_BLOCK_SIZE
&& room
> 2)
3307 if (room
< eisd
->u
.eisd
.eisdsize
+ EISD__K_LENEND
)
3308 alpha_vms_file_position_block (abfd
);
3310 eisd
->file_pos
= PRIV (file_pos
);
3311 PRIV (file_pos
) += eisd
->u
.eisd
.eisdsize
;
3313 if (eisd
->u
.eisd
.flags
& EISD__M_FIXUPVEC
)
3314 bfd_putl64 (eisd
->u
.eisd
.virt_addr
, eihd
.iafva
);
3317 if (first_eisd
!= NULL
)
3319 bfd_putl32 (first_eisd
->file_pos
, eihd
.isdoff
);
3320 /* Real size of end of eisd marker. */
3321 PRIV (file_pos
) += EISD__K_LENEND
;
3324 bfd_putl32 (PRIV (file_pos
), eihd
.size
);
3325 bfd_putl32 ((PRIV (file_pos
) + VMS_BLOCK_SIZE
- 1) / VMS_BLOCK_SIZE
,
3328 /* Place sections. */
3329 for (sec
= abfd
->sections
; sec
; sec
= sec
->next
)
3331 if (!(sec
->flags
& SEC_HAS_CONTENTS
))
3334 eisd
= vms_section_data (sec
)->eisd
;
3336 /* Align on a block. */
3337 alpha_vms_file_position_block (abfd
);
3338 sec
->filepos
= PRIV (file_pos
);
3341 eisd
->u
.eisd
.vbn
= (sec
->filepos
/ VMS_BLOCK_SIZE
) + 1;
3343 PRIV (file_pos
) += sec
->size
;
3347 if (eihs
!= NULL
&& dst
!= NULL
)
3349 bfd_putl32 ((dst
->filepos
/ VMS_BLOCK_SIZE
) + 1, eihs
->dstvbn
);
3350 bfd_putl32 (dst
->size
, eihs
->dstsize
);
3354 lnkflags
|= EIHD__M_DBGDMT
;
3355 bfd_putl32 ((dmt
->filepos
/ VMS_BLOCK_SIZE
) + 1, eihs
->dmtvbn
);
3356 bfd_putl32 (dmt
->size
, eihs
->dmtsize
);
3358 if (PRIV (gsd_sym_count
) != 0)
3360 alpha_vms_file_position_block (abfd
);
3361 gst_filepos
= PRIV (file_pos
);
3362 bfd_putl32 ((gst_filepos
/ VMS_BLOCK_SIZE
) + 1, eihs
->gstvbn
);
3363 bfd_putl32 ((PRIV (gsd_sym_count
) + 4) / 5 + 4, eihs
->gstsize
);
3367 /* Write EISD in hdr. */
3368 for (eisd
= first_eisd
; eisd
&& eisd
->file_pos
< VMS_BLOCK_SIZE
;
3370 alpha_vms_swap_eisd_out
3371 (eisd
, (struct vms_eisd
*)((char *)&eihd
+ eisd
->file_pos
));
3373 /* Write first block. */
3374 bfd_putl32 (lnkflags
, eihd
.lnkflags
);
3375 if (bfd_bwrite (&eihd
, sizeof (eihd
), abfd
) != sizeof (eihd
))
3378 /* Write remaining eisd. */
3381 unsigned char blk
[VMS_BLOCK_SIZE
];
3382 struct vms_internal_eisd_map
*next_eisd
;
3384 memset (blk
, 0xff, sizeof (blk
));
3385 while (eisd
!= NULL
)
3387 alpha_vms_swap_eisd_out
3389 (struct vms_eisd
*)(blk
+ (eisd
->file_pos
% VMS_BLOCK_SIZE
)));
3391 next_eisd
= eisd
->next
;
3392 if (next_eisd
== NULL
3393 || (next_eisd
->file_pos
/ VMS_BLOCK_SIZE
3394 != eisd
->file_pos
/ VMS_BLOCK_SIZE
))
3396 if (bfd_bwrite (blk
, sizeof (blk
), abfd
) != sizeof (blk
))
3399 memset (blk
, 0xff, sizeof (blk
));
3405 /* Write sections. */
3406 for (sec
= abfd
->sections
; sec
; sec
= sec
->next
)
3408 unsigned char blk
[VMS_BLOCK_SIZE
];
3411 if (sec
->size
== 0 || !(sec
->flags
& SEC_HAS_CONTENTS
))
3413 if (bfd_bwrite (sec
->contents
, sec
->size
, abfd
) != sec
->size
)
3417 len
= VMS_BLOCK_SIZE
- sec
->size
% VMS_BLOCK_SIZE
;
3418 if (len
!= VMS_BLOCK_SIZE
)
3420 memset (blk
, 0, len
);
3421 if (bfd_bwrite (blk
, len
, abfd
) != len
)
3427 if (gst_filepos
!= 0)
3429 struct vms_rec_wr
*recwr
= &PRIV (recwr
);
3432 _bfd_vms_write_emh (abfd
);
3433 _bfd_vms_write_lmn (abfd
, "GNU LD");
3435 /* PSC for the absolute section. */
3436 _bfd_vms_output_begin (recwr
, EOBJ__C_EGSD
);
3437 _bfd_vms_output_long (recwr
, 0);
3438 _bfd_vms_output_begin_subrec (recwr
, EGSD__C_PSC
);
3439 _bfd_vms_output_short (recwr
, 0);
3440 _bfd_vms_output_short (recwr
, EGPS__V_PIC
| EGPS__V_LIB
| EGPS__V_RD
);
3441 _bfd_vms_output_long (recwr
, 0);
3442 _bfd_vms_output_counted (recwr
, ".$$ABS$$.");
3443 _bfd_vms_output_end_subrec (recwr
);
3444 _bfd_vms_output_end (abfd
, recwr
);
3446 for (i
= 0; i
< PRIV (gsd_sym_count
); i
++)
3448 struct vms_symbol_entry
*sym
= PRIV (syms
)[i
];
3454 _bfd_vms_output_alignment (recwr
, 8);
3455 _bfd_vms_output_begin (recwr
, EOBJ__C_EGSD
);
3456 _bfd_vms_output_long (recwr
, 0);
3458 _bfd_vms_output_begin_subrec (recwr
, EGSD__C_SYMG
);
3459 _bfd_vms_output_short (recwr
, 0); /* Data type, alignment. */
3460 _bfd_vms_output_short (recwr
, sym
->flags
);
3462 if (sym
->code_section
)
3463 ep
= alpha_vms_get_sym_value (sym
->code_section
, sym
->code_value
);
3466 BFD_ASSERT (sym
->code_value
== 0);
3469 val
= alpha_vms_get_sym_value (sym
->section
, sym
->value
);
3470 _bfd_vms_output_quad
3471 (recwr
, sym
->typ
== EGSD__C_SYMG
? sym
->symbol_vector
: val
);
3472 _bfd_vms_output_quad (recwr
, ep
);
3473 _bfd_vms_output_quad (recwr
, val
);
3474 _bfd_vms_output_long (recwr
, 0);
3475 _bfd_vms_output_counted (recwr
, sym
->name
);
3476 _bfd_vms_output_end_subrec (recwr
);
3478 _bfd_vms_output_end (abfd
, recwr
);
3481 _bfd_vms_output_end (abfd
, recwr
);
3483 if (!_bfd_vms_write_eeom (abfd
))
3491 /* Write section and symbol directory of bfd abfd. Return FALSE on error. */
3494 _bfd_vms_write_egsd (bfd
*abfd
)
3498 unsigned int symnum
;
3500 flagword new_flags
, old_flags
;
3501 int abs_section_index
= -1;
3502 unsigned int target_index
= 0;
3503 struct vms_rec_wr
*recwr
= &PRIV (recwr
);
3505 vms_debug2 ((2, "vms_write_egsd\n"));
3507 /* Egsd is quadword aligned. */
3508 _bfd_vms_output_alignment (recwr
, 8);
3510 _bfd_vms_output_begin (recwr
, EOBJ__C_EGSD
);
3511 _bfd_vms_output_long (recwr
, 0);
3513 /* Number sections. */
3514 for (section
= abfd
->sections
; section
!= NULL
; section
= section
->next
)
3516 if (section
->flags
& SEC_DEBUGGING
)
3518 if (!strcmp (section
->name
, ".vmsdebug"))
3520 section
->flags
|= SEC_DEBUGGING
;
3523 section
->target_index
= target_index
++;
3526 for (section
= abfd
->sections
; section
!= NULL
; section
= section
->next
)
3528 vms_debug2 ((3, "Section #%d %s, %d bytes\n",
3529 section
->target_index
, section
->name
, (int)section
->size
));
3531 /* Don't write out the VMS debug info section since it is in the
3532 ETBT and EDBG sections in etir. */
3533 if (section
->flags
& SEC_DEBUGGING
)
3536 /* 13 bytes egsd, max 31 chars name -> should be 44 bytes. */
3537 if (_bfd_vms_output_check (recwr
, 64) < 0)
3539 _bfd_vms_output_end (abfd
, recwr
);
3540 _bfd_vms_output_begin (recwr
, EOBJ__C_EGSD
);
3541 _bfd_vms_output_long (recwr
, 0);
3544 /* Don't know if this is necessary for the linker but for now it keeps
3545 vms_slurp_gsd happy. */
3546 sname
= section
->name
;
3549 /* Remove leading dot. */
3551 if ((*sname
== 't') && (strcmp (sname
, "text") == 0))
3552 sname
= EVAX_CODE_NAME
;
3553 else if ((*sname
== 'd') && (strcmp (sname
, "data") == 0))
3554 sname
= EVAX_DATA_NAME
;
3555 else if ((*sname
== 'b') && (strcmp (sname
, "bss") == 0))
3556 sname
= EVAX_BSS_NAME
;
3557 else if ((*sname
== 'l') && (strcmp (sname
, "link") == 0))
3558 sname
= EVAX_LINK_NAME
;
3559 else if ((*sname
== 'r') && (strcmp (sname
, "rdata") == 0))
3560 sname
= EVAX_READONLY_NAME
;
3561 else if ((*sname
== 'l') && (strcmp (sname
, "literal") == 0))
3562 sname
= EVAX_LITERAL_NAME
;
3563 else if ((*sname
== 'l') && (strcmp (sname
, "literals") == 0))
3564 sname
= EVAX_LITERALS_NAME
;
3565 else if ((*sname
== 'c') && (strcmp (sname
, "comm") == 0))
3566 sname
= EVAX_COMMON_NAME
;
3567 else if ((*sname
== 'l') && (strcmp (sname
, "lcomm") == 0))
3568 sname
= EVAX_LOCAL_NAME
;
3571 if (bfd_is_com_section (section
))
3572 new_flags
= (EGPS__V_OVR
| EGPS__V_REL
| EGPS__V_GBL
| EGPS__V_RD
3573 | EGPS__V_WRT
| EGPS__V_NOMOD
| EGPS__V_COM
);
3575 new_flags
= vms_esecflag_by_name (evax_section_flags
, sname
,
3578 /* Modify them as directed. */
3579 if (section
->flags
& SEC_READONLY
)
3580 new_flags
&= ~EGPS__V_WRT
;
3582 new_flags
&= ~vms_section_data (section
)->no_flags
;
3583 new_flags
|= vms_section_data (section
)->flags
;
3585 vms_debug2 ((3, "sec flags %x\n", section
->flags
));
3586 vms_debug2 ((3, "new_flags %x, _raw_size %lu\n",
3587 new_flags
, (unsigned long)section
->size
));
3589 _bfd_vms_output_begin_subrec (recwr
, EGSD__C_PSC
);
3590 _bfd_vms_output_short (recwr
, section
->alignment_power
& 0xff);
3591 _bfd_vms_output_short (recwr
, new_flags
);
3592 _bfd_vms_output_long (recwr
, (unsigned long) section
->size
);
3593 _bfd_vms_output_counted (recwr
, sname
);
3594 _bfd_vms_output_end_subrec (recwr
);
3596 /* If the section is an obsolute one, remind its index as it will be
3597 used later for absolute symbols. */
3598 if ((new_flags
& EGPS__V_REL
) == 0 && abs_section_index
< 0)
3599 abs_section_index
= section
->target_index
;
3602 /* Output symbols. */
3603 vms_debug2 ((3, "%d symbols found\n", abfd
->symcount
));
3605 bfd_set_start_address (abfd
, (bfd_vma
) -1);
3607 for (symnum
= 0; symnum
< abfd
->symcount
; symnum
++)
3609 symbol
= abfd
->outsymbols
[symnum
];
3610 old_flags
= symbol
->flags
;
3612 /* Work-around a missing feature: consider __main as the main entry
3614 if (symbol
->name
[0] == '_' && strcmp (symbol
->name
, "__main") == 0)
3615 bfd_set_start_address (abfd
, (bfd_vma
)symbol
->value
);
3617 /* Only put in the GSD the global and the undefined symbols. */
3618 if (old_flags
& BSF_FILE
)
3621 if ((old_flags
& BSF_GLOBAL
) == 0 && !bfd_is_und_section (symbol
->section
))
3623 /* If the LIB$INITIIALIZE section is present, add a reference to
3624 LIB$INITIALIZE symbol. FIXME: this should be done explicitely
3625 in the assembly file. */
3626 if (!((old_flags
& BSF_SECTION_SYM
) != 0
3627 && strcmp (symbol
->section
->name
, "LIB$INITIALIZE") == 0))
3631 /* 13 bytes egsd, max 64 chars name -> should be 77 bytes. Add 16 more
3632 bytes for a possible ABS section. */
3633 if (_bfd_vms_output_check (recwr
, 80 + 16) < 0)
3635 _bfd_vms_output_end (abfd
, recwr
);
3636 _bfd_vms_output_begin (recwr
, EOBJ__C_EGSD
);
3637 _bfd_vms_output_long (recwr
, 0);
3640 if ((old_flags
& BSF_GLOBAL
) != 0
3641 && bfd_is_abs_section (symbol
->section
)
3642 && abs_section_index
<= 0)
3644 /* Create an absolute section if none was defined. It is highly
3645 unlikely that the name $ABS$ clashes with a user defined
3646 non-absolute section name. */
3647 _bfd_vms_output_begin_subrec (recwr
, EGSD__C_PSC
);
3648 _bfd_vms_output_short (recwr
, 4);
3649 _bfd_vms_output_short (recwr
, EGPS__V_SHR
);
3650 _bfd_vms_output_long (recwr
, 0);
3651 _bfd_vms_output_counted (recwr
, "$ABS$");
3652 _bfd_vms_output_end_subrec (recwr
);
3654 abs_section_index
= target_index
++;
3657 _bfd_vms_output_begin_subrec (recwr
, EGSD__C_SYM
);
3659 /* Data type, alignment. */
3660 _bfd_vms_output_short (recwr
, 0);
3664 if (old_flags
& BSF_WEAK
)
3665 new_flags
|= EGSY__V_WEAK
;
3666 if (bfd_is_com_section (symbol
->section
)) /* .comm */
3667 new_flags
|= (EGSY__V_WEAK
| EGSY__V_COMM
);
3669 if (old_flags
& BSF_FUNCTION
)
3671 new_flags
|= EGSY__V_NORM
;
3672 new_flags
|= EGSY__V_REL
;
3674 if (old_flags
& BSF_GLOBAL
)
3676 new_flags
|= EGSY__V_DEF
;
3677 if (!bfd_is_abs_section (symbol
->section
))
3678 new_flags
|= EGSY__V_REL
;
3680 _bfd_vms_output_short (recwr
, new_flags
);
3682 if (old_flags
& BSF_GLOBAL
)
3684 /* Symbol definition. */
3685 bfd_vma code_address
= 0;
3686 unsigned long ca_psindx
= 0;
3687 unsigned long psindx
;
3689 if ((old_flags
& BSF_FUNCTION
) && symbol
->udata
.p
!= NULL
)
3694 ((struct evax_private_udata_struct
*)symbol
->udata
.p
)->enbsym
;
3695 code_address
= sym
->value
;
3696 ca_psindx
= sym
->section
->target_index
;
3698 if (bfd_is_abs_section (symbol
->section
))
3699 psindx
= abs_section_index
;
3701 psindx
= symbol
->section
->target_index
;
3703 _bfd_vms_output_quad (recwr
, symbol
->value
);
3704 _bfd_vms_output_quad (recwr
, code_address
);
3705 _bfd_vms_output_long (recwr
, ca_psindx
);
3706 _bfd_vms_output_long (recwr
, psindx
);
3708 _bfd_vms_output_counted (recwr
, symbol
->name
);
3710 _bfd_vms_output_end_subrec (recwr
);
3713 _bfd_vms_output_alignment (recwr
, 8);
3714 _bfd_vms_output_end (abfd
, recwr
);
3719 /* Write object header for bfd abfd. Return FALSE on error. */
3722 _bfd_vms_write_ehdr (bfd
*abfd
)
3725 unsigned int symnum
;
3726 struct vms_rec_wr
*recwr
= &PRIV (recwr
);
3728 vms_debug2 ((2, "vms_write_ehdr (%p)\n", abfd
));
3730 _bfd_vms_output_alignment (recwr
, 2);
3732 _bfd_vms_write_emh (abfd
);
3733 _bfd_vms_write_lmn (abfd
, "GNU AS");
3736 _bfd_vms_output_begin (recwr
, EOBJ__C_EMH
);
3737 _bfd_vms_output_short (recwr
, EMH__C_SRC
);
3739 for (symnum
= 0; symnum
< abfd
->symcount
; symnum
++)
3741 symbol
= abfd
->outsymbols
[symnum
];
3743 if (symbol
->flags
& BSF_FILE
)
3745 _bfd_vms_output_dump (recwr
, (unsigned char *) symbol
->name
,
3746 (int) strlen (symbol
->name
));
3751 if (symnum
== abfd
->symcount
)
3752 _bfd_vms_output_dump (recwr
, (unsigned char *) STRING_COMMA_LEN ("noname"));
3754 _bfd_vms_output_end (abfd
, recwr
);
3757 _bfd_vms_output_begin (recwr
, EOBJ__C_EMH
);
3758 _bfd_vms_output_short (recwr
, EMH__C_TTL
);
3759 _bfd_vms_output_dump (recwr
, (unsigned char *) STRING_COMMA_LEN ("TTL"));
3760 _bfd_vms_output_end (abfd
, recwr
);
3763 _bfd_vms_output_begin (recwr
, EOBJ__C_EMH
);
3764 _bfd_vms_output_short (recwr
, EMH__C_CPR
);
3765 _bfd_vms_output_dump (recwr
,
3766 (unsigned char *)"GNU BFD ported by Klaus Kämpf 1994-1996",
3768 _bfd_vms_output_end (abfd
, recwr
);
3773 /* Part 4.6, relocations. */
3776 /* WRITE ETIR SECTION
3778 This is still under construction and therefore not documented. */
3780 /* Close the etir/etbt record. */
3783 end_etir_record (bfd
* abfd
)
3785 struct vms_rec_wr
*recwr
= &PRIV (recwr
);
3787 _bfd_vms_output_end (abfd
, recwr
);
3791 start_etir_or_etbt_record (bfd
*abfd
, asection
*section
, bfd_vma offset
)
3793 struct vms_rec_wr
*recwr
= &PRIV (recwr
);
3795 if (section
->flags
& SEC_DEBUGGING
)
3797 _bfd_vms_output_begin (recwr
, EOBJ__C_ETBT
);
3801 /* Push start offset. */
3802 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STA_LW
);
3803 _bfd_vms_output_long (recwr
, (unsigned long) 0);
3804 _bfd_vms_output_end_subrec (recwr
);
3807 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_CTL_DFLOC
);
3808 _bfd_vms_output_end_subrec (recwr
);
3813 _bfd_vms_output_begin (recwr
, EOBJ__C_ETIR
);
3817 /* Push start offset. */
3818 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STA_PQ
);
3819 _bfd_vms_output_long (recwr
, (unsigned long) section
->target_index
);
3820 _bfd_vms_output_quad (recwr
, offset
);
3821 _bfd_vms_output_end_subrec (recwr
);
3823 /* Start = pop (). */
3824 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_CTL_SETRB
);
3825 _bfd_vms_output_end_subrec (recwr
);
3830 /* Output a STO_IMM command for SSIZE bytes of data from CPR at virtual
3831 address VADDR in section specified by SEC_INDEX and NAME. */
3834 sto_imm (bfd
*abfd
, asection
*section
,
3835 bfd_size_type ssize
, unsigned char *cptr
, bfd_vma vaddr
)
3838 struct vms_rec_wr
*recwr
= &PRIV (recwr
);
3841 _bfd_vms_debug (8, "sto_imm %d bytes\n", (int) ssize
);
3842 _bfd_hexdump (9, cptr
, (int) ssize
, (int) vaddr
);
3847 /* Try all the rest. */
3850 if (_bfd_vms_output_check (recwr
, size
) < 0)
3852 /* Doesn't fit, split ! */
3853 end_etir_record (abfd
);
3855 start_etir_or_etbt_record (abfd
, section
, vaddr
);
3857 size
= _bfd_vms_output_check (recwr
, 0); /* get max size */
3858 if (size
> ssize
) /* more than what's left ? */
3862 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STO_IMM
);
3863 _bfd_vms_output_long (recwr
, (unsigned long) (size
));
3864 _bfd_vms_output_dump (recwr
, cptr
, size
);
3865 _bfd_vms_output_end_subrec (recwr
);
3868 _bfd_vms_debug (10, "dumped %d bytes\n", (int) size
);
3869 _bfd_hexdump (10, cptr
, (int) size
, (int) vaddr
);
3879 etir_output_check (bfd
*abfd
, asection
*section
, bfd_vma vaddr
, int checklen
)
3881 if (_bfd_vms_output_check (&PRIV (recwr
), checklen
) < 0)
3883 /* Not enough room in this record. Close it and open a new one. */
3884 end_etir_record (abfd
);
3885 start_etir_or_etbt_record (abfd
, section
, vaddr
);
3889 /* Return whether RELOC must be deferred till the end. */
3892 defer_reloc_p (arelent
*reloc
)
3894 switch (reloc
->howto
->type
)
3907 /* Write section contents for bfd abfd. Return FALSE on error. */
3910 _bfd_vms_write_etir (bfd
* abfd
, int objtype ATTRIBUTE_UNUSED
)
3913 struct vms_rec_wr
*recwr
= &PRIV (recwr
);
3915 vms_debug2 ((2, "vms_write_tir (%p, %d)\n", abfd
, objtype
));
3917 _bfd_vms_output_alignment (recwr
, 4);
3919 PRIV (vms_linkage_index
) = 0;
3921 for (section
= abfd
->sections
; section
; section
= section
->next
)
3923 vms_debug2 ((4, "writing %d. section '%s' (%d bytes)\n",
3924 section
->target_index
, section
->name
, (int) (section
->size
)));
3926 if (!(section
->flags
& SEC_HAS_CONTENTS
)
3927 || bfd_is_com_section (section
))
3930 if (!section
->contents
)
3932 bfd_set_error (bfd_error_no_contents
);
3936 start_etir_or_etbt_record (abfd
, section
, 0);
3938 if (section
->flags
& SEC_RELOC
)
3940 bfd_vma curr_addr
= 0;
3941 unsigned char *curr_data
= section
->contents
;
3943 int pass2_needed
= 0;
3944 int pass2_in_progress
= 0;
3947 if (section
->reloc_count
== 0)
3949 (_("SEC_RELOC with no relocs in section %pA"), section
);
3954 int i
= section
->reloc_count
;
3955 arelent
**rptr
= section
->orelocation
;
3956 _bfd_vms_debug (4, "%d relocations:\n", i
);
3959 _bfd_vms_debug (4, "sym %s in sec %s, value %08lx, "
3960 "addr %08lx, off %08lx, len %d: %s\n",
3961 (*(*rptr
)->sym_ptr_ptr
)->name
,
3962 (*(*rptr
)->sym_ptr_ptr
)->section
->name
,
3963 (long) (*(*rptr
)->sym_ptr_ptr
)->value
,
3964 (unsigned long)(*rptr
)->address
,
3965 (unsigned long)(*rptr
)->addend
,
3966 bfd_get_reloc_size ((*rptr
)->howto
),
3967 ( *rptr
)->howto
->name
);
3974 for (irel
= 0; irel
< section
->reloc_count
; irel
++)
3976 struct evax_private_udata_struct
*udata
;
3977 arelent
*rptr
= section
->orelocation
[irel
];
3978 bfd_vma addr
= rptr
->address
;
3979 asymbol
*sym
= *rptr
->sym_ptr_ptr
;
3980 asection
*sec
= sym
->section
;
3981 bfd_boolean defer
= defer_reloc_p (rptr
);
3984 if (pass2_in_progress
)
3986 /* Non-deferred relocs have already been output. */
3992 /* Deferred relocs must be output at the very end. */
3999 /* Regular relocs are intertwined with binary data. */
4000 if (curr_addr
> addr
)
4001 _bfd_error_handler (_("size error in section %pA"),
4003 size
= addr
- curr_addr
;
4004 sto_imm (abfd
, section
, size
, curr_data
, curr_addr
);
4009 size
= bfd_get_reloc_size (rptr
->howto
);
4011 switch (rptr
->howto
->type
)
4013 case ALPHA_R_IGNORE
:
4016 case ALPHA_R_REFLONG
:
4017 if (bfd_is_und_section (sym
->section
))
4019 bfd_vma addend
= rptr
->addend
;
4020 slen
= strlen ((char *) sym
->name
);
4021 etir_output_check (abfd
, section
, curr_addr
, slen
);
4024 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STA_GBL
);
4025 _bfd_vms_output_counted (recwr
, sym
->name
);
4026 _bfd_vms_output_end_subrec (recwr
);
4027 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STA_LW
);
4028 _bfd_vms_output_long (recwr
, (unsigned long) addend
);
4029 _bfd_vms_output_end_subrec (recwr
);
4030 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_OPR_ADD
);
4031 _bfd_vms_output_end_subrec (recwr
);
4032 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STO_LW
);
4033 _bfd_vms_output_end_subrec (recwr
);
4037 _bfd_vms_output_begin_subrec
4038 (recwr
, ETIR__C_STO_GBL_LW
);
4039 _bfd_vms_output_counted (recwr
, sym
->name
);
4040 _bfd_vms_output_end_subrec (recwr
);
4043 else if (bfd_is_abs_section (sym
->section
))
4045 etir_output_check (abfd
, section
, curr_addr
, 16);
4046 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STA_LW
);
4047 _bfd_vms_output_long (recwr
, (unsigned long) sym
->value
);
4048 _bfd_vms_output_end_subrec (recwr
);
4049 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STO_LW
);
4050 _bfd_vms_output_end_subrec (recwr
);
4054 etir_output_check (abfd
, section
, curr_addr
, 32);
4055 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STA_PQ
);
4056 _bfd_vms_output_long (recwr
,
4057 (unsigned long) sec
->target_index
);
4058 _bfd_vms_output_quad (recwr
, rptr
->addend
+ sym
->value
);
4059 _bfd_vms_output_end_subrec (recwr
);
4060 /* ??? Table B-8 of the OpenVMS Linker Utilily Manual
4061 says that we should have a ETIR__C_STO_OFF here.
4062 But the relocation would not be BFD_RELOC_32 then.
4063 This case is very likely unreachable. */
4064 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STO_LW
);
4065 _bfd_vms_output_end_subrec (recwr
);
4069 case ALPHA_R_REFQUAD
:
4070 if (bfd_is_und_section (sym
->section
))
4072 bfd_vma addend
= rptr
->addend
;
4073 slen
= strlen ((char *) sym
->name
);
4074 etir_output_check (abfd
, section
, curr_addr
, slen
);
4077 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STA_GBL
);
4078 _bfd_vms_output_counted (recwr
, sym
->name
);
4079 _bfd_vms_output_end_subrec (recwr
);
4080 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STA_QW
);
4081 _bfd_vms_output_quad (recwr
, addend
);
4082 _bfd_vms_output_end_subrec (recwr
);
4083 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_OPR_ADD
);
4084 _bfd_vms_output_end_subrec (recwr
);
4085 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STO_QW
);
4086 _bfd_vms_output_end_subrec (recwr
);
4090 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STO_GBL
);
4091 _bfd_vms_output_counted (recwr
, sym
->name
);
4092 _bfd_vms_output_end_subrec (recwr
);
4095 else if (bfd_is_abs_section (sym
->section
))
4097 etir_output_check (abfd
, section
, curr_addr
, 16);
4098 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STA_QW
);
4099 _bfd_vms_output_quad (recwr
, sym
->value
);
4100 _bfd_vms_output_end_subrec (recwr
);
4101 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STO_QW
);
4102 _bfd_vms_output_end_subrec (recwr
);
4106 etir_output_check (abfd
, section
, curr_addr
, 32);
4107 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STA_PQ
);
4108 _bfd_vms_output_long (recwr
,
4109 (unsigned long) sec
->target_index
);
4110 _bfd_vms_output_quad (recwr
, rptr
->addend
+ sym
->value
);
4111 _bfd_vms_output_end_subrec (recwr
);
4112 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STO_OFF
);
4113 _bfd_vms_output_end_subrec (recwr
);
4118 sto_imm (abfd
, section
, size
, curr_data
, curr_addr
);
4121 case ALPHA_R_LINKAGE
:
4123 etir_output_check (abfd
, section
, curr_addr
, 64);
4124 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STC_LP_PSB
);
4125 _bfd_vms_output_long
4126 (recwr
, (unsigned long) rptr
->addend
);
4127 if (rptr
->addend
> PRIV (vms_linkage_index
))
4128 PRIV (vms_linkage_index
) = rptr
->addend
;
4129 _bfd_vms_output_counted (recwr
, sym
->name
);
4130 _bfd_vms_output_byte (recwr
, 0);
4131 _bfd_vms_output_end_subrec (recwr
);
4134 case ALPHA_R_CODEADDR
:
4135 slen
= strlen ((char *) sym
->name
);
4136 etir_output_check (abfd
, section
, curr_addr
, slen
);
4137 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STO_CA
);
4138 _bfd_vms_output_counted (recwr
, sym
->name
);
4139 _bfd_vms_output_end_subrec (recwr
);
4144 = (struct evax_private_udata_struct
*) rptr
->sym_ptr_ptr
;
4145 etir_output_check (abfd
, section
, curr_addr
,
4146 32 + 1 + strlen (udata
->origname
));
4147 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STC_NOP_GBL
);
4148 _bfd_vms_output_long (recwr
, (unsigned long) udata
->lkindex
);
4149 _bfd_vms_output_long
4150 (recwr
, (unsigned long) section
->target_index
);
4151 _bfd_vms_output_quad (recwr
, rptr
->address
);
4152 _bfd_vms_output_long (recwr
, (unsigned long) 0x47ff041f);
4153 _bfd_vms_output_long
4154 (recwr
, (unsigned long) section
->target_index
);
4155 _bfd_vms_output_quad (recwr
, rptr
->addend
);
4156 _bfd_vms_output_counted (recwr
, udata
->origname
);
4157 _bfd_vms_output_end_subrec (recwr
);
4161 _bfd_error_handler (_("spurious ALPHA_R_BSR reloc"));
4166 = (struct evax_private_udata_struct
*) rptr
->sym_ptr_ptr
;
4167 etir_output_check (abfd
, section
, curr_addr
,
4168 32 + 1 + strlen (udata
->origname
));
4169 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STC_LDA_GBL
);
4170 _bfd_vms_output_long
4171 (recwr
, (unsigned long) udata
->lkindex
+ 1);
4172 _bfd_vms_output_long
4173 (recwr
, (unsigned long) section
->target_index
);
4174 _bfd_vms_output_quad (recwr
, rptr
->address
);
4175 _bfd_vms_output_long (recwr
, (unsigned long) 0x237B0000);
4176 _bfd_vms_output_long
4177 (recwr
, (unsigned long) udata
->bsym
->section
->target_index
);
4178 _bfd_vms_output_quad (recwr
, rptr
->addend
);
4179 _bfd_vms_output_counted (recwr
, udata
->origname
);
4180 _bfd_vms_output_end_subrec (recwr
);
4185 = (struct evax_private_udata_struct
*) rptr
->sym_ptr_ptr
;
4186 etir_output_check (abfd
, section
, curr_addr
,
4187 32 + 1 + strlen (udata
->origname
));
4188 _bfd_vms_output_begin_subrec (recwr
, ETIR__C_STC_BOH_GBL
);
4189 _bfd_vms_output_long (recwr
, (unsigned long) udata
->lkindex
);
4190 _bfd_vms_output_long
4191 (recwr
, (unsigned long) section
->target_index
);
4192 _bfd_vms_output_quad (recwr
, rptr
->address
);
4193 _bfd_vms_output_long (recwr
, (unsigned long) 0xD3400000);
4194 _bfd_vms_output_long
4195 (recwr
, (unsigned long) section
->target_index
);
4196 _bfd_vms_output_quad (recwr
, rptr
->addend
);
4197 _bfd_vms_output_counted (recwr
, udata
->origname
);
4198 _bfd_vms_output_end_subrec (recwr
);
4202 _bfd_error_handler (_("unhandled relocation %s"),
4209 } /* End of relocs loop. */
4211 if (!pass2_in_progress
)
4213 /* Output rest of section. */
4214 if (curr_addr
> section
->size
)
4216 _bfd_error_handler (_("size error in section %pA"), section
);
4219 size
= section
->size
- curr_addr
;
4220 sto_imm (abfd
, section
, size
, curr_data
, curr_addr
);
4226 pass2_in_progress
= 1;
4232 else /* (section->flags & SEC_RELOC) */
4233 sto_imm (abfd
, section
, section
->size
, section
->contents
, 0);
4235 end_etir_record (abfd
);
4238 _bfd_vms_output_alignment (recwr
, 2);
4242 /* Write cached information into a file being written, at bfd_close. */
4245 alpha_vms_write_object_contents (bfd
*abfd
)
4247 vms_debug2 ((1, "vms_write_object_contents (%p)\n", abfd
));
4249 if (abfd
->flags
& (EXEC_P
| DYNAMIC
))
4251 return alpha_vms_write_exec (abfd
);
4255 if (abfd
->section_count
> 0) /* we have sections */
4257 if (!_bfd_vms_write_ehdr (abfd
))
4259 if (!_bfd_vms_write_egsd (abfd
))
4261 if (!_bfd_vms_write_etir (abfd
, EOBJ__C_ETIR
))
4263 if (!_bfd_vms_write_eeom (abfd
))
4270 /* Debug stuff: nearest line. */
4272 #define SET_MODULE_PARSED(m) \
4273 do { if ((m)->name == NULL) (m)->name = ""; } while (0)
4274 #define IS_MODULE_PARSED(m) ((m)->name != NULL)
4276 /* Build a new module for the specified BFD. */
4278 static struct module
*
4279 new_module (bfd
*abfd
)
4281 struct module
*module
4282 = (struct module
*) bfd_zalloc (abfd
, sizeof (struct module
));
4283 module
->file_table_count
= 16; /* Arbitrary. */
4285 = bfd_malloc (module
->file_table_count
* sizeof (struct fileinfo
));
4289 /* Parse debug info for a module and internalize it. */
4292 parse_module (bfd
*abfd
, struct module
*module
, unsigned char *ptr
,
4295 unsigned char *maxptr
= ptr
+ length
;
4296 unsigned char *src_ptr
, *pcl_ptr
;
4297 unsigned int prev_linum
= 0, curr_linenum
= 0;
4298 bfd_vma prev_pc
= 0, curr_pc
= 0;
4299 struct srecinfo
*curr_srec
, *srec
;
4300 struct lineinfo
*curr_line
, *line
;
4301 struct funcinfo
*funcinfo
;
4303 /* Initialize tables with zero element. */
4304 curr_srec
= (struct srecinfo
*) bfd_zalloc (abfd
, sizeof (struct srecinfo
));
4305 module
->srec_table
= curr_srec
;
4307 curr_line
= (struct lineinfo
*) bfd_zalloc (abfd
, sizeof (struct lineinfo
));
4308 module
->line_table
= curr_line
;
4310 while (length
== -1 || ptr
< maxptr
)
4312 /* The first byte is not counted in the recorded length. */
4313 int rec_length
= bfd_getl16 (ptr
) + 1;
4314 int rec_type
= bfd_getl16 (ptr
+ 2);
4316 vms_debug2 ((2, "DST record: leng %d, type %d\n", rec_length
, rec_type
));
4318 if (length
== -1 && rec_type
== DST__K_MODEND
)
4325 = _bfd_vms_save_counted_string (abfd
, ptr
+ DST_S_B_MODBEG_NAME
,
4326 maxptr
- (ptr
+ DST_S_B_MODBEG_NAME
));
4333 vms_debug2 ((3, "module: %s\n", module
->name
));
4340 funcinfo
= (struct funcinfo
*)
4341 bfd_zalloc (abfd
, sizeof (struct funcinfo
));
4343 = _bfd_vms_save_counted_string (abfd
, ptr
+ DST_S_B_RTNBEG_NAME
,
4344 maxptr
- (ptr
+ DST_S_B_RTNBEG_NAME
));
4345 funcinfo
->low
= bfd_getl32 (ptr
+ DST_S_L_RTNBEG_ADDRESS
);
4346 funcinfo
->next
= module
->func_table
;
4347 module
->func_table
= funcinfo
;
4349 vms_debug2 ((3, "routine: %s at 0x%lx\n",
4350 funcinfo
->name
, (unsigned long) funcinfo
->low
));
4354 module
->func_table
->high
= module
->func_table
->low
4355 + bfd_getl32 (ptr
+ DST_S_L_RTNEND_SIZE
) - 1;
4357 if (module
->func_table
->high
> module
->high
)
4358 module
->high
= module
->func_table
->high
;
4360 vms_debug2 ((3, "end routine\n"));
4364 vms_debug2 ((3, "prologue\n"));
4368 vms_debug2 ((3, "epilog\n"));
4372 vms_debug2 ((3, "block\n"));
4376 vms_debug2 ((3, "end block\n"));
4380 src_ptr
= ptr
+ DST_S_C_SOURCE_HEADER_SIZE
;
4382 vms_debug2 ((3, "source info\n"));
4384 while (src_ptr
< ptr
+ rec_length
)
4386 int cmd
= src_ptr
[0], cmd_length
, data
;
4390 case DST__K_SRC_DECLFILE
:
4393 = bfd_getl16 (src_ptr
+ DST_S_W_SRC_DF_FILEID
);
4394 char *filename
= _bfd_vms_save_counted_string
4396 src_ptr
+ DST_S_B_SRC_DF_FILENAME
,
4397 ptr
+ rec_length
- (src_ptr
+ DST_S_B_SRC_DF_FILENAME
));
4399 while (fileid
>= module
->file_table_count
)
4401 module
->file_table_count
*= 2;
4403 = bfd_realloc_or_free (module
->file_table
,
4404 module
->file_table_count
4405 * sizeof (struct fileinfo
));
4406 if (module
->file_table
== NULL
)
4410 module
->file_table
[fileid
].name
= filename
;
4411 module
->file_table
[fileid
].srec
= 1;
4412 cmd_length
= src_ptr
[DST_S_B_SRC_DF_LENGTH
] + 2;
4413 vms_debug2 ((4, "DST_S_C_SRC_DECLFILE: %d, %s\n",
4414 fileid
, module
->file_table
[fileid
].name
));
4418 case DST__K_SRC_DEFLINES_B
:
4419 /* Perform the association and set the next higher index
4421 data
= src_ptr
[DST_S_B_SRC_UNSBYTE
];
4422 srec
= (struct srecinfo
*)
4423 bfd_zalloc (abfd
, sizeof (struct srecinfo
));
4424 srec
->line
= curr_srec
->line
+ data
;
4425 srec
->srec
= curr_srec
->srec
+ data
;
4426 srec
->sfile
= curr_srec
->sfile
;
4427 curr_srec
->next
= srec
;
4430 vms_debug2 ((4, "DST_S_C_SRC_DEFLINES_B: %d\n", data
));
4433 case DST__K_SRC_DEFLINES_W
:
4434 /* Perform the association and set the next higher index
4436 data
= bfd_getl16 (src_ptr
+ DST_S_W_SRC_UNSWORD
);
4437 srec
= (struct srecinfo
*)
4438 bfd_zalloc (abfd
, sizeof (struct srecinfo
));
4439 srec
->line
= curr_srec
->line
+ data
;
4440 srec
->srec
= curr_srec
->srec
+ data
,
4441 srec
->sfile
= curr_srec
->sfile
;
4442 curr_srec
->next
= srec
;
4445 vms_debug2 ((4, "DST_S_C_SRC_DEFLINES_W: %d\n", data
));
4448 case DST__K_SRC_INCRLNUM_B
:
4449 data
= src_ptr
[DST_S_B_SRC_UNSBYTE
];
4450 curr_srec
->line
+= data
;
4452 vms_debug2 ((4, "DST_S_C_SRC_INCRLNUM_B: %d\n", data
));
4455 case DST__K_SRC_SETFILE
:
4456 data
= bfd_getl16 (src_ptr
+ DST_S_W_SRC_UNSWORD
);
4457 curr_srec
->sfile
= data
;
4458 curr_srec
->srec
= module
->file_table
[data
].srec
;
4460 vms_debug2 ((4, "DST_S_C_SRC_SETFILE: %d\n", data
));
4463 case DST__K_SRC_SETLNUM_L
:
4464 data
= bfd_getl32 (src_ptr
+ DST_S_L_SRC_UNSLONG
);
4465 curr_srec
->line
= data
;
4467 vms_debug2 ((4, "DST_S_C_SRC_SETLNUM_L: %d\n", data
));
4470 case DST__K_SRC_SETLNUM_W
:
4471 data
= bfd_getl16 (src_ptr
+ DST_S_W_SRC_UNSWORD
);
4472 curr_srec
->line
= data
;
4474 vms_debug2 ((4, "DST_S_C_SRC_SETLNUM_W: %d\n", data
));
4477 case DST__K_SRC_SETREC_L
:
4478 data
= bfd_getl32 (src_ptr
+ DST_S_L_SRC_UNSLONG
);
4479 curr_srec
->srec
= data
;
4480 module
->file_table
[curr_srec
->sfile
].srec
= data
;
4482 vms_debug2 ((4, "DST_S_C_SRC_SETREC_L: %d\n", data
));
4485 case DST__K_SRC_SETREC_W
:
4486 data
= bfd_getl16 (src_ptr
+ DST_S_W_SRC_UNSWORD
);
4487 curr_srec
->srec
= data
;
4488 module
->file_table
[curr_srec
->sfile
].srec
= data
;
4490 vms_debug2 ((4, "DST_S_C_SRC_SETREC_W: %d\n", data
));
4493 case DST__K_SRC_FORMFEED
:
4495 vms_debug2 ((4, "DST_S_C_SRC_FORMFEED\n"));
4499 _bfd_error_handler (_("unknown source command %d"),
4505 src_ptr
+= cmd_length
;
4509 case DST__K_LINE_NUM
:
4510 pcl_ptr
= ptr
+ DST_S_C_LINE_NUM_HEADER_SIZE
;
4512 vms_debug2 ((3, "line info\n"));
4514 while (pcl_ptr
< ptr
+ rec_length
)
4516 /* The command byte is signed so we must sign-extend it. */
4517 int cmd
= ((signed char *)pcl_ptr
)[0], cmd_length
, data
;
4521 case DST__K_DELTA_PC_W
:
4522 data
= bfd_getl16 (pcl_ptr
+ DST_S_W_PCLINE_UNSWORD
);
4526 vms_debug2 ((4, "DST__K_DELTA_PC_W: %d\n", data
));
4529 case DST__K_DELTA_PC_L
:
4530 data
= bfd_getl32 (pcl_ptr
+ DST_S_L_PCLINE_UNSLONG
);
4534 vms_debug2 ((4, "DST__K_DELTA_PC_L: %d\n", data
));
4537 case DST__K_INCR_LINUM
:
4538 data
= pcl_ptr
[DST_S_B_PCLINE_UNSBYTE
];
4539 curr_linenum
+= data
;
4541 vms_debug2 ((4, "DST__K_INCR_LINUM: %d\n", data
));
4544 case DST__K_INCR_LINUM_W
:
4545 data
= bfd_getl16 (pcl_ptr
+ DST_S_W_PCLINE_UNSWORD
);
4546 curr_linenum
+= data
;
4548 vms_debug2 ((4, "DST__K_INCR_LINUM_W: %d\n", data
));
4551 case DST__K_INCR_LINUM_L
:
4552 data
= bfd_getl32 (pcl_ptr
+ DST_S_L_PCLINE_UNSLONG
);
4553 curr_linenum
+= data
;
4555 vms_debug2 ((4, "DST__K_INCR_LINUM_L: %d\n", data
));
4558 case DST__K_SET_LINUM_INCR
:
4560 (_("%s not implemented"), "DST__K_SET_LINUM_INCR");
4564 case DST__K_SET_LINUM_INCR_W
:
4566 (_("%s not implemented"), "DST__K_SET_LINUM_INCR_W");
4570 case DST__K_RESET_LINUM_INCR
:
4572 (_("%s not implemented"), "DST__K_RESET_LINUM_INCR");
4576 case DST__K_BEG_STMT_MODE
:
4578 (_("%s not implemented"), "DST__K_BEG_STMT_MODE");
4582 case DST__K_END_STMT_MODE
:
4584 (_("%s not implemented"), "DST__K_END_STMT_MODE");
4588 case DST__K_SET_LINUM_B
:
4589 data
= pcl_ptr
[DST_S_B_PCLINE_UNSBYTE
];
4590 curr_linenum
= data
;
4592 vms_debug2 ((4, "DST__K_SET_LINUM_B: %d\n", data
));
4595 case DST__K_SET_LINUM
:
4596 data
= bfd_getl16 (pcl_ptr
+ DST_S_W_PCLINE_UNSWORD
);
4597 curr_linenum
= data
;
4599 vms_debug2 ((4, "DST__K_SET_LINE_NUM: %d\n", data
));
4602 case DST__K_SET_LINUM_L
:
4603 data
= bfd_getl32 (pcl_ptr
+ DST_S_L_PCLINE_UNSLONG
);
4604 curr_linenum
= data
;
4606 vms_debug2 ((4, "DST__K_SET_LINUM_L: %d\n", data
));
4611 (_("%s not implemented"), "DST__K_SET_PC");
4615 case DST__K_SET_PC_W
:
4617 (_("%s not implemented"), "DST__K_SET_PC_W");
4621 case DST__K_SET_PC_L
:
4623 (_("%s not implemented"), "DST__K_SET_PC_L");
4627 case DST__K_SET_STMTNUM
:
4629 (_("%s not implemented"), "DST__K_SET_STMTNUM");
4634 data
= pcl_ptr
[DST_S_B_PCLINE_UNSBYTE
];
4637 vms_debug2 ((4, "DST__K_TERM: %d\n", data
));
4641 data
= bfd_getl16 (pcl_ptr
+ DST_S_W_PCLINE_UNSWORD
);
4644 vms_debug2 ((4, "DST__K_TERM_W: %d\n", data
));
4648 data
= bfd_getl32 (pcl_ptr
+ DST_S_L_PCLINE_UNSLONG
);
4651 vms_debug2 ((4, "DST__K_TERM_L: %d\n", data
));
4654 case DST__K_SET_ABS_PC
:
4655 data
= bfd_getl32 (pcl_ptr
+ DST_S_L_PCLINE_UNSLONG
);
4658 vms_debug2 ((4, "DST__K_SET_ABS_PC: 0x%x\n", data
));
4667 vms_debug2 ((4, "bump pc to 0x%lx and line to %d\n",
4668 (unsigned long)curr_pc
, curr_linenum
));
4672 _bfd_error_handler (_("unknown line command %d"), cmd
);
4678 if ((curr_linenum
!= prev_linum
&& curr_pc
!= prev_pc
)
4680 || cmd
== DST__K_DELTA_PC_L
4681 || cmd
== DST__K_DELTA_PC_W
)
4683 line
= (struct lineinfo
*)
4684 bfd_zalloc (abfd
, sizeof (struct lineinfo
));
4685 line
->address
= curr_pc
;
4686 line
->line
= curr_linenum
;
4688 curr_line
->next
= line
;
4691 prev_linum
= curr_linenum
;
4693 vms_debug2 ((4, "-> correlate pc 0x%lx with line %d\n",
4694 (unsigned long)curr_pc
, curr_linenum
));
4697 pcl_ptr
+= cmd_length
;
4701 case 0x17: /* Undocumented type used by DEC C to declare equates. */
4702 vms_debug2 ((3, "undocumented type 0x17\n"));
4706 vms_debug2 ((3, "ignoring record\n"));
4714 /* Finalize tables with EOL marker. */
4715 srec
= (struct srecinfo
*) bfd_zalloc (abfd
, sizeof (struct srecinfo
));
4716 srec
->line
= (unsigned int) -1;
4717 srec
->srec
= (unsigned int) -1;
4718 curr_srec
->next
= srec
;
4720 line
= (struct lineinfo
*) bfd_zalloc (abfd
, sizeof (struct lineinfo
));
4721 line
->line
= (unsigned int) -1;
4722 line
->address
= (bfd_vma
) -1;
4723 curr_line
->next
= line
;
4725 /* Advertise that this module has been parsed. This is needed
4726 because parsing can be either performed at module creation
4727 or deferred until debug info is consumed. */
4728 SET_MODULE_PARSED (module
);
4732 /* Build the list of modules for the specified BFD. */
4734 static struct module
*
4735 build_module_list (bfd
*abfd
)
4737 struct module
*module
, *list
= NULL
;
4740 if ((dmt
= bfd_get_section_by_name (abfd
, "$DMT$")))
4742 /* We have a DMT section so this must be an image. Parse the
4743 section and build the list of modules. This is sufficient
4744 since we can compute the start address and the end address
4745 of every module from the section contents. */
4746 bfd_size_type size
= bfd_section_size (dmt
);
4747 unsigned char *ptr
, *end
;
4749 ptr
= (unsigned char *) bfd_alloc (abfd
, size
);
4753 if (! bfd_get_section_contents (abfd
, dmt
, ptr
, 0, size
))
4756 vms_debug2 ((2, "DMT\n"));
4762 /* Each header declares a module with its start offset and size
4763 of debug info in the DST section, as well as the count of
4764 program sections (i.e. address spans) it contains. */
4765 int modbeg
= bfd_getl32 (ptr
+ DBG_S_L_DMT_MODBEG
);
4766 int msize
= bfd_getl32 (ptr
+ DBG_S_L_DST_SIZE
);
4767 int count
= bfd_getl16 (ptr
+ DBG_S_W_DMT_PSECT_COUNT
);
4768 ptr
+= DBG_S_C_DMT_HEADER_SIZE
;
4770 vms_debug2 ((3, "module: modbeg = %d, size = %d, count = %d\n",
4771 modbeg
, msize
, count
));
4773 /* We create a 'module' structure for each program section since
4774 we only support contiguous addresses in a 'module' structure.
4775 As a consequence, the actual debug info in the DST section is
4776 shared and can be parsed multiple times; that doesn't seem to
4777 cause problems in practice. */
4780 int start
= bfd_getl32 (ptr
+ DBG_S_L_DMT_PSECT_START
);
4781 int length
= bfd_getl32 (ptr
+ DBG_S_L_DMT_PSECT_LENGTH
);
4782 module
= new_module (abfd
);
4783 module
->modbeg
= modbeg
;
4784 module
->size
= msize
;
4785 module
->low
= start
;
4786 module
->high
= start
+ length
;
4787 module
->next
= list
;
4789 ptr
+= DBG_S_C_DMT_PSECT_SIZE
;
4791 vms_debug2 ((4, "section: start = 0x%x, length = %d\n",
4798 /* We don't have a DMT section so this must be an object. Parse
4799 the module right now in order to compute its start address and
4801 void *dst
= PRIV (dst_section
)->contents
;
4806 module
= new_module (abfd
);
4807 if (!parse_module (abfd
, module
, PRIV (dst_section
)->contents
, -1))
4815 /* Calculate and return the name of the source file and the line nearest
4816 to the wanted location in the specified module. */
4819 module_find_nearest_line (bfd
*abfd
, struct module
*module
, bfd_vma addr
,
4820 const char **file
, const char **func
,
4823 struct funcinfo
*funcinfo
;
4824 struct lineinfo
*lineinfo
;
4825 struct srecinfo
*srecinfo
;
4826 bfd_boolean ret
= FALSE
;
4828 /* Parse this module if that was not done at module creation. */
4829 if (! IS_MODULE_PARSED (module
))
4831 unsigned int size
= module
->size
;
4832 unsigned int modbeg
= PRIV (dst_section
)->filepos
+ module
->modbeg
;
4833 unsigned char *buffer
;
4835 if (bfd_seek (abfd
, modbeg
, SEEK_SET
) != 0
4836 || (buffer
= _bfd_malloc_and_read (abfd
, size
, size
)) == NULL
)
4838 bfd_set_error (bfd_error_no_debug_section
);
4842 ret
= parse_module (abfd
, module
, buffer
, size
);
4848 /* Find out the function (if any) that contains the address. */
4849 for (funcinfo
= module
->func_table
; funcinfo
; funcinfo
= funcinfo
->next
)
4850 if (addr
>= funcinfo
->low
&& addr
<= funcinfo
->high
)
4852 *func
= funcinfo
->name
;
4857 /* Find out the source file and the line nearest to the address. */
4858 for (lineinfo
= module
->line_table
; lineinfo
; lineinfo
= lineinfo
->next
)
4859 if (lineinfo
->next
&& addr
< lineinfo
->next
->address
)
4861 for (srecinfo
= module
->srec_table
; srecinfo
; srecinfo
= srecinfo
->next
)
4862 if (srecinfo
->next
&& lineinfo
->line
< srecinfo
->next
->line
)
4864 if (srecinfo
->sfile
> 0)
4866 *file
= module
->file_table
[srecinfo
->sfile
].name
;
4867 *line
= srecinfo
->srec
+ lineinfo
->line
- srecinfo
->line
;
4871 *file
= module
->name
;
4872 *line
= lineinfo
->line
;
4883 /* Provided a BFD, a section and an offset into the section, calculate and
4884 return the name of the source file and the line nearest to the wanted
4888 _bfd_vms_find_nearest_line (bfd
*abfd
,
4889 asymbol
**symbols ATTRIBUTE_UNUSED
,
4895 unsigned int *discriminator
)
4897 struct module
*module
;
4899 /* What address are we looking for? */
4900 bfd_vma addr
= section
->vma
+ offset
;
4908 /* We can't do anything if there is no DST (debug symbol table). */
4909 if (PRIV (dst_section
) == NULL
)
4912 /* Create the module list - if not already done. */
4913 if (PRIV (modules
) == NULL
)
4915 PRIV (modules
) = build_module_list (abfd
);
4916 if (PRIV (modules
) == NULL
)
4920 for (module
= PRIV (modules
); module
; module
= module
->next
)
4921 if (addr
>= module
->low
&& addr
<= module
->high
)
4922 return module_find_nearest_line (abfd
, module
, addr
, file
, func
, line
);
4927 /* Canonicalizations. */
4928 /* Set name, value, section and flags of SYM from E. */
4931 alpha_vms_convert_symbol (bfd
*abfd
, struct vms_symbol_entry
*e
, asymbol
*sym
)
4940 flags
= BSF_NO_FLAGS
;
4946 if (e
->flags
& EGSY__V_WEAK
)
4949 if (e
->flags
& EGSY__V_DEF
)
4951 /* Symbol definition. */
4952 flags
|= BSF_GLOBAL
;
4953 if (e
->flags
& EGSY__V_NORM
)
4954 flags
|= BSF_FUNCTION
;
4960 /* Symbol reference. */
4961 sec
= bfd_und_section_ptr
;
4966 /* A universal symbol is by definition global... */
4967 flags
|= BSF_GLOBAL
;
4969 /* ...and dynamic in shared libraries. */
4970 if (abfd
->flags
& DYNAMIC
)
4971 flags
|= BSF_DYNAMIC
;
4973 if (e
->flags
& EGSY__V_WEAK
)
4976 if (!(e
->flags
& EGSY__V_DEF
))
4979 if (e
->flags
& EGSY__V_NORM
)
4980 flags
|= BSF_FUNCTION
;
4983 /* sec = e->section; */
4984 sec
= bfd_abs_section_ptr
;
4999 /* Return the number of bytes required to store a vector of pointers
5000 to asymbols for all the symbols in the BFD abfd, including a
5001 terminal NULL pointer. If there are no symbols in the BFD,
5002 then return 0. If an error occurs, return -1. */
5005 alpha_vms_get_symtab_upper_bound (bfd
*abfd
)
5007 vms_debug2 ((1, "alpha_vms_get_symtab_upper_bound (%p), %d symbols\n",
5008 abfd
, PRIV (gsd_sym_count
)));
5010 return (PRIV (gsd_sym_count
) + 1) * sizeof (asymbol
*);
5013 /* Read the symbols from the BFD abfd, and fills in the vector
5014 location with pointers to the symbols and a trailing NULL.
5016 Return number of symbols read. */
5019 alpha_vms_canonicalize_symtab (bfd
*abfd
, asymbol
**symbols
)
5023 vms_debug2 ((1, "alpha_vms_canonicalize_symtab (%p, <ret>)\n", abfd
));
5025 if (PRIV (csymbols
) == NULL
)
5027 PRIV (csymbols
) = (asymbol
**) bfd_alloc
5028 (abfd
, PRIV (gsd_sym_count
) * sizeof (asymbol
*));
5030 /* Traverse table and fill symbols vector. */
5031 for (i
= 0; i
< PRIV (gsd_sym_count
); i
++)
5033 struct vms_symbol_entry
*e
= PRIV (syms
)[i
];
5036 sym
= bfd_make_empty_symbol (abfd
);
5037 if (sym
== NULL
|| !alpha_vms_convert_symbol (abfd
, e
, sym
))
5039 bfd_release (abfd
, PRIV (csymbols
));
5040 PRIV (csymbols
) = NULL
;
5044 PRIV (csymbols
)[i
] = sym
;
5048 if (symbols
!= NULL
)
5050 for (i
= 0; i
< PRIV (gsd_sym_count
); i
++)
5051 symbols
[i
] = PRIV (csymbols
)[i
];
5055 return PRIV (gsd_sym_count
);
5058 /* Read and convert relocations from ETIR. We do it once for all sections. */
5061 alpha_vms_slurp_relocs (bfd
*abfd
)
5065 vms_debug2 ((3, "alpha_vms_slurp_relocs\n"));
5067 /* We slurp relocs only once, for all sections. */
5068 if (PRIV (reloc_done
))
5070 PRIV (reloc_done
) = TRUE
;
5072 if (alpha_vms_canonicalize_symtab (abfd
, NULL
) < 0)
5075 if (bfd_seek (abfd
, 0, SEEK_SET
) != 0)
5080 unsigned char *begin
;
5083 bfd_reloc_code_real_type reloc_code
;
5089 bfd_vma cur_address
;
5091 unsigned char *cur_sym
= NULL
;
5093 bfd_vma cur_addend
= 0;
5095 /* Skip non-ETIR records. */
5096 type
= _bfd_vms_get_object_record (abfd
);
5097 if (type
== EOBJ__C_EEOM
)
5099 if (type
!= EOBJ__C_ETIR
)
5102 begin
= PRIV (recrd
.rec
) + 4;
5103 end
= PRIV (recrd
.rec
) + PRIV (recrd
.rec_size
);
5105 for (ptr
= begin
; ptr
< end
; ptr
+= length
)
5109 cmd
= bfd_getl16 (ptr
);
5110 length
= bfd_getl16 (ptr
+ 2);
5112 cur_address
= vaddr
;
5114 vms_debug2 ((4, "alpha_vms_slurp_relocs: etir %s\n",
5115 _bfd_vms_etir_name (cmd
)));
5119 case ETIR__C_STA_GBL
: /* ALPHA_R_REFLONG und_section, step 1 */
5120 /* ALPHA_R_REFQUAD und_section, step 1 */
5125 case ETIR__C_STA_PQ
: /* ALPHA_R_REF{LONG|QUAD}, others part 1 */
5126 cur_psidx
= bfd_getl32 (ptr
+ 4);
5127 cur_addend
= bfd_getl64 (ptr
+ 8);
5131 case ETIR__C_CTL_SETRB
:
5132 if (prev_cmd
!= ETIR__C_STA_PQ
)
5135 /* xgettext:c-format */
5136 (_("unknown reloc %s + %s"), _bfd_vms_etir_name (prev_cmd
),
5137 _bfd_vms_etir_name (cmd
));
5140 cur_psect
= cur_psidx
;
5146 case ETIR__C_STA_LW
: /* ALPHA_R_REFLONG abs_section, step 1 */
5147 /* ALPHA_R_REFLONG und_section, step 2 */
5150 if (prev_cmd
!= ETIR__C_STA_GBL
)
5153 /* xgettext:c-format */
5154 (_("unknown reloc %s + %s"), _bfd_vms_etir_name (cmd
),
5155 _bfd_vms_etir_name (ETIR__C_STA_LW
));
5159 cur_addend
= bfd_getl32 (ptr
+ 4);
5163 case ETIR__C_STA_QW
: /* ALPHA_R_REFQUAD abs_section, step 1 */
5164 /* ALPHA_R_REFQUAD und_section, step 2 */
5165 if (prev_cmd
!= -1 && prev_cmd
!= ETIR__C_STA_GBL
)
5168 /* xgettext:c-format */
5169 (_("unknown reloc %s + %s"), _bfd_vms_etir_name (cmd
),
5170 _bfd_vms_etir_name (ETIR__C_STA_QW
));
5173 cur_addend
= bfd_getl64 (ptr
+ 4);
5177 case ETIR__C_STO_LW
: /* ALPHA_R_REFLONG und_section, step 4 */
5178 /* ALPHA_R_REFLONG abs_section, step 2 */
5179 /* ALPHA_R_REFLONG others, step 2 */
5180 if (prev_cmd
!= ETIR__C_OPR_ADD
5181 && prev_cmd
!= ETIR__C_STA_LW
5182 && prev_cmd
!= ETIR__C_STA_PQ
)
5184 /* xgettext:c-format */
5185 _bfd_error_handler (_("unknown reloc %s + %s"),
5186 _bfd_vms_etir_name (prev_cmd
),
5187 _bfd_vms_etir_name (ETIR__C_STO_LW
));
5190 reloc_code
= BFD_RELOC_32
;
5193 case ETIR__C_STO_QW
: /* ALPHA_R_REFQUAD und_section, step 4 */
5194 /* ALPHA_R_REFQUAD abs_section, step 2 */
5195 if (prev_cmd
!= ETIR__C_OPR_ADD
&& prev_cmd
!= ETIR__C_STA_QW
)
5197 /* xgettext:c-format */
5198 _bfd_error_handler (_("unknown reloc %s + %s"),
5199 _bfd_vms_etir_name (prev_cmd
),
5200 _bfd_vms_etir_name (ETIR__C_STO_QW
));
5203 reloc_code
= BFD_RELOC_64
;
5206 case ETIR__C_STO_OFF
: /* ALPHA_R_REFQUAD others, step 2 */
5207 if (prev_cmd
!= ETIR__C_STA_PQ
)
5209 /* xgettext:c-format */
5210 _bfd_error_handler (_("unknown reloc %s + %s"),
5211 _bfd_vms_etir_name (prev_cmd
),
5212 _bfd_vms_etir_name (ETIR__C_STO_OFF
));
5215 reloc_code
= BFD_RELOC_64
;
5218 case ETIR__C_OPR_ADD
: /* ALPHA_R_REFLONG und_section, step 3 */
5219 /* ALPHA_R_REFQUAD und_section, step 3 */
5220 if (prev_cmd
!= ETIR__C_STA_LW
&& prev_cmd
!= ETIR__C_STA_QW
)
5222 /* xgettext:c-format */
5223 _bfd_error_handler (_("unknown reloc %s + %s"),
5224 _bfd_vms_etir_name (prev_cmd
),
5225 _bfd_vms_etir_name (ETIR__C_OPR_ADD
));
5228 prev_cmd
= ETIR__C_OPR_ADD
;
5231 case ETIR__C_STO_CA
: /* ALPHA_R_CODEADDR */
5232 reloc_code
= BFD_RELOC_ALPHA_CODEADDR
;
5236 case ETIR__C_STO_GBL
: /* ALPHA_R_REFQUAD und_section */
5237 reloc_code
= BFD_RELOC_64
;
5241 case ETIR__C_STO_GBL_LW
: /* ALPHA_R_REFLONG und_section */
5242 reloc_code
= BFD_RELOC_32
;
5246 case ETIR__C_STC_LP_PSB
: /* ALPHA_R_LINKAGE */
5247 reloc_code
= BFD_RELOC_ALPHA_LINKAGE
;
5251 case ETIR__C_STC_NOP_GBL
: /* ALPHA_R_NOP */
5252 reloc_code
= BFD_RELOC_ALPHA_NOP
;
5255 case ETIR__C_STC_BSR_GBL
: /* ALPHA_R_BSR */
5256 reloc_code
= BFD_RELOC_ALPHA_BSR
;
5259 case ETIR__C_STC_LDA_GBL
: /* ALPHA_R_LDA */
5260 reloc_code
= BFD_RELOC_ALPHA_LDA
;
5263 case ETIR__C_STC_BOH_GBL
: /* ALPHA_R_BOH */
5264 reloc_code
= BFD_RELOC_ALPHA_BOH
;
5268 cur_sym
= ptr
+ 4 + 32;
5269 cur_address
= bfd_getl64 (ptr
+ 4 + 8);
5270 cur_addend
= bfd_getl64 (ptr
+ 4 + 24);
5273 case ETIR__C_STO_IMM
:
5274 vaddr
+= bfd_getl32 (ptr
+ 4);
5278 _bfd_error_handler (_("unknown reloc %s"),
5279 _bfd_vms_etir_name (cmd
));
5285 struct vms_section_data_struct
*vms_sec
;
5289 /* Get section to which the relocation applies. */
5290 if (cur_psect
< 0 || cur_psect
> (int)PRIV (section_count
))
5292 _bfd_error_handler (_("invalid section index in ETIR"));
5296 if (PRIV (sections
) == NULL
)
5298 sec
= PRIV (sections
)[cur_psect
];
5299 if (sec
== bfd_abs_section_ptr
)
5301 _bfd_error_handler (_("relocation for non-REL psect"));
5305 vms_sec
= vms_section_data (sec
);
5307 /* Allocate a reloc entry. */
5308 if (sec
->reloc_count
>= vms_sec
->reloc_max
)
5310 if (vms_sec
->reloc_max
== 0)
5312 vms_sec
->reloc_max
= 64;
5313 sec
->relocation
= bfd_zmalloc
5314 (vms_sec
->reloc_max
* sizeof (arelent
));
5318 vms_sec
->reloc_max
*= 2;
5319 sec
->relocation
= bfd_realloc_or_free
5320 (sec
->relocation
, vms_sec
->reloc_max
* sizeof (arelent
));
5321 if (sec
->relocation
== NULL
)
5325 reloc
= &sec
->relocation
[sec
->reloc_count
];
5328 reloc
->howto
= bfd_reloc_type_lookup (abfd
, reloc_code
);
5330 if (cur_sym
!= NULL
)
5333 unsigned int symlen
= *cur_sym
;
5336 /* Linear search. */
5341 for (j
= 0; j
< PRIV (gsd_sym_count
); j
++)
5342 if (PRIV (syms
)[j
]->namelen
== symlen
5343 && memcmp (PRIV (syms
)[j
]->name
, cur_sym
, symlen
) == 0)
5345 sym
= &PRIV (csymbols
)[j
];
5350 _bfd_error_handler (_("unknown symbol in command %s"),
5351 _bfd_vms_etir_name (cmd
));
5352 reloc
->sym_ptr_ptr
= NULL
;
5355 reloc
->sym_ptr_ptr
= sym
;
5357 else if (cur_psidx
>= 0)
5359 if (PRIV (sections
) == NULL
|| cur_psidx
>= (int) PRIV (section_count
))
5361 reloc
->sym_ptr_ptr
=
5362 PRIV (sections
)[cur_psidx
]->symbol_ptr_ptr
;
5365 reloc
->sym_ptr_ptr
= NULL
;
5367 reloc
->address
= cur_address
;
5368 reloc
->addend
= cur_addend
;
5370 if (reloc_code
== ALPHA_R_LINKAGE
)
5373 size
= bfd_get_reloc_size (reloc
->howto
);
5383 vms_debug2 ((3, "alpha_vms_slurp_relocs: result = TRUE\n"));
5388 /* Return the number of bytes required to store the relocation
5389 information associated with the given section. */
5392 alpha_vms_get_reloc_upper_bound (bfd
*abfd ATTRIBUTE_UNUSED
, asection
*section
)
5394 alpha_vms_slurp_relocs (abfd
);
5396 return (section
->reloc_count
+ 1) * sizeof (arelent
*);
5399 /* Convert relocations from VMS (external) form into BFD internal
5400 form. Return the number of relocations. */
5403 alpha_vms_canonicalize_reloc (bfd
*abfd
, asection
*section
, arelent
**relptr
,
5404 asymbol
**symbols ATTRIBUTE_UNUSED
)
5409 if (!alpha_vms_slurp_relocs (abfd
))
5412 count
= section
->reloc_count
;
5413 tblptr
= section
->relocation
;
5416 *relptr
++ = tblptr
++;
5418 *relptr
= (arelent
*) NULL
;
5419 return section
->reloc_count
;
5422 /* Install a new set of internal relocs. */
5424 #define alpha_vms_set_reloc _bfd_generic_set_reloc
5427 /* This is just copied from ecoff-alpha, needs to be fixed probably. */
5429 /* How to process the various reloc types. */
5431 static bfd_reloc_status_type
5432 reloc_nil (bfd
* abfd ATTRIBUTE_UNUSED
,
5433 arelent
*reloc ATTRIBUTE_UNUSED
,
5434 asymbol
*sym ATTRIBUTE_UNUSED
,
5435 void * data ATTRIBUTE_UNUSED
,
5436 asection
*sec ATTRIBUTE_UNUSED
,
5437 bfd
*output_bfd ATTRIBUTE_UNUSED
,
5438 char **error_message ATTRIBUTE_UNUSED
)
5441 vms_debug (1, "reloc_nil (abfd %p, output_bfd %p)\n", abfd
, output_bfd
);
5442 vms_debug (2, "In section %s, symbol %s\n",
5443 sec
->name
, sym
->name
);
5444 vms_debug (2, "reloc sym %s, addr %08lx, addend %08lx, reloc is a %s\n",
5445 reloc
->sym_ptr_ptr
[0]->name
,
5446 (unsigned long)reloc
->address
,
5447 (unsigned long)reloc
->addend
, reloc
->howto
->name
);
5448 vms_debug (2, "data at %p\n", data
);
5449 /* _bfd_hexdump (2, data, bfd_get_reloc_size (reloc->howto), 0); */
5452 return bfd_reloc_ok
;
5455 /* In case we're on a 32-bit machine, construct a 64-bit "-1" value
5456 from smaller values. Start with zero, widen, *then* decrement. */
5457 #define MINUS_ONE (((bfd_vma)0) - 1)
5459 static reloc_howto_type alpha_howto_table
[] =
5461 HOWTO (ALPHA_R_IGNORE
, /* Type. */
5462 0, /* Rightshift. */
5463 0, /* Size (0 = byte, 1 = short, 2 = long). */
5465 TRUE
, /* PC relative. */
5467 complain_overflow_dont
,/* Complain_on_overflow. */
5468 reloc_nil
, /* Special_function. */
5469 "IGNORE", /* Name. */
5470 TRUE
, /* Partial_inplace. */
5471 0, /* Source mask */
5473 TRUE
), /* PC rel offset. */
5475 /* A 64 bit reference to a symbol. */
5476 HOWTO (ALPHA_R_REFQUAD
, /* Type. */
5477 0, /* Rightshift. */
5478 4, /* Size (0 = byte, 1 = short, 2 = long). */
5480 FALSE
, /* PC relative. */
5482 complain_overflow_bitfield
, /* Complain_on_overflow. */
5483 reloc_nil
, /* Special_function. */
5484 "REFQUAD", /* Name. */
5485 TRUE
, /* Partial_inplace. */
5486 MINUS_ONE
, /* Source mask. */
5487 MINUS_ONE
, /* Dest mask. */
5488 FALSE
), /* PC rel offset. */
5490 /* A 21 bit branch. The native assembler generates these for
5491 branches within the text segment, and also fills in the PC
5492 relative offset in the instruction. */
5493 HOWTO (ALPHA_R_BRADDR
, /* Type. */
5494 2, /* Rightshift. */
5495 2, /* Size (0 = byte, 1 = short, 2 = long). */
5497 TRUE
, /* PC relative. */
5499 complain_overflow_signed
, /* Complain_on_overflow. */
5500 reloc_nil
, /* Special_function. */
5501 "BRADDR", /* Name. */
5502 TRUE
, /* Partial_inplace. */
5503 0x1fffff, /* Source mask. */
5504 0x1fffff, /* Dest mask. */
5505 FALSE
), /* PC rel offset. */
5507 /* A hint for a jump to a register. */
5508 HOWTO (ALPHA_R_HINT
, /* Type. */
5509 2, /* Rightshift. */
5510 1, /* Size (0 = byte, 1 = short, 2 = long). */
5512 TRUE
, /* PC relative. */
5514 complain_overflow_dont
,/* Complain_on_overflow. */
5515 reloc_nil
, /* Special_function. */
5517 TRUE
, /* Partial_inplace. */
5518 0x3fff, /* Source mask. */
5519 0x3fff, /* Dest mask. */
5520 FALSE
), /* PC rel offset. */
5522 /* 16 bit PC relative offset. */
5523 HOWTO (ALPHA_R_SREL16
, /* Type. */
5524 0, /* Rightshift. */
5525 1, /* Size (0 = byte, 1 = short, 2 = long). */
5527 TRUE
, /* PC relative. */
5529 complain_overflow_signed
, /* Complain_on_overflow. */
5530 reloc_nil
, /* Special_function. */
5531 "SREL16", /* Name. */
5532 TRUE
, /* Partial_inplace. */
5533 0xffff, /* Source mask. */
5534 0xffff, /* Dest mask. */
5535 FALSE
), /* PC rel offset. */
5537 /* 32 bit PC relative offset. */
5538 HOWTO (ALPHA_R_SREL32
, /* Type. */
5539 0, /* Rightshift. */
5540 2, /* Size (0 = byte, 1 = short, 2 = long). */
5542 TRUE
, /* PC relative. */
5544 complain_overflow_signed
, /* Complain_on_overflow. */
5545 reloc_nil
, /* Special_function. */
5546 "SREL32", /* Name. */
5547 TRUE
, /* Partial_inplace. */
5548 0xffffffff, /* Source mask. */
5549 0xffffffff, /* Dest mask. */
5550 FALSE
), /* PC rel offset. */
5552 /* A 64 bit PC relative offset. */
5553 HOWTO (ALPHA_R_SREL64
, /* Type. */
5554 0, /* Rightshift. */
5555 4, /* Size (0 = byte, 1 = short, 2 = long). */
5557 TRUE
, /* PC relative. */
5559 complain_overflow_signed
, /* Complain_on_overflow. */
5560 reloc_nil
, /* Special_function. */
5561 "SREL64", /* Name. */
5562 TRUE
, /* Partial_inplace. */
5563 MINUS_ONE
, /* Source mask. */
5564 MINUS_ONE
, /* Dest mask. */
5565 FALSE
), /* PC rel offset. */
5567 /* Push a value on the reloc evaluation stack. */
5568 HOWTO (ALPHA_R_OP_PUSH
, /* Type. */
5569 0, /* Rightshift. */
5570 0, /* Size (0 = byte, 1 = short, 2 = long). */
5572 FALSE
, /* PC relative. */
5574 complain_overflow_dont
,/* Complain_on_overflow. */
5575 reloc_nil
, /* Special_function. */
5576 "OP_PUSH", /* Name. */
5577 FALSE
, /* Partial_inplace. */
5578 0, /* Source mask. */
5580 FALSE
), /* PC rel offset. */
5582 /* Store the value from the stack at the given address. Store it in
5583 a bitfield of size r_size starting at bit position r_offset. */
5584 HOWTO (ALPHA_R_OP_STORE
, /* Type. */
5585 0, /* Rightshift. */
5586 4, /* Size (0 = byte, 1 = short, 2 = long). */
5588 FALSE
, /* PC relative. */
5590 complain_overflow_dont
,/* Complain_on_overflow. */
5591 reloc_nil
, /* Special_function. */
5592 "OP_STORE", /* Name. */
5593 FALSE
, /* Partial_inplace. */
5594 0, /* Source mask. */
5595 MINUS_ONE
, /* Dest mask. */
5596 FALSE
), /* PC rel offset. */
5598 /* Subtract the reloc address from the value on the top of the
5599 relocation stack. */
5600 HOWTO (ALPHA_R_OP_PSUB
, /* Type. */
5601 0, /* Rightshift. */
5602 0, /* Size (0 = byte, 1 = short, 2 = long). */
5604 FALSE
, /* PC relative. */
5606 complain_overflow_dont
,/* Complain_on_overflow. */
5607 reloc_nil
, /* Special_function. */
5608 "OP_PSUB", /* Name. */
5609 FALSE
, /* Partial_inplace. */
5610 0, /* Source mask. */
5612 FALSE
), /* PC rel offset. */
5614 /* Shift the value on the top of the relocation stack right by the
5616 HOWTO (ALPHA_R_OP_PRSHIFT
, /* Type. */
5617 0, /* Rightshift. */
5618 0, /* Size (0 = byte, 1 = short, 2 = long). */
5620 FALSE
, /* PC relative. */
5622 complain_overflow_dont
,/* Complain_on_overflow. */
5623 reloc_nil
, /* Special_function. */
5624 "OP_PRSHIFT", /* Name. */
5625 FALSE
, /* Partial_inplace. */
5626 0, /* Source mask. */
5628 FALSE
), /* PC rel offset. */
5630 /* Hack. Linkage is done by linker. */
5631 HOWTO (ALPHA_R_LINKAGE
, /* Type. */
5632 0, /* Rightshift. */
5633 0, /* Size (0 = byte, 1 = short, 2 = long). */
5635 FALSE
, /* PC relative. */
5637 complain_overflow_dont
,/* Complain_on_overflow. */
5638 reloc_nil
, /* Special_function. */
5639 "LINKAGE", /* Name. */
5640 FALSE
, /* Partial_inplace. */
5641 0, /* Source mask. */
5643 FALSE
), /* PC rel offset. */
5645 /* A 32 bit reference to a symbol. */
5646 HOWTO (ALPHA_R_REFLONG
, /* Type. */
5647 0, /* Rightshift. */
5648 2, /* Size (0 = byte, 1 = short, 2 = long). */
5650 FALSE
, /* PC relative. */
5652 complain_overflow_bitfield
, /* Complain_on_overflow. */
5653 reloc_nil
, /* Special_function. */
5654 "REFLONG", /* Name. */
5655 TRUE
, /* Partial_inplace. */
5656 0xffffffff, /* Source mask. */
5657 0xffffffff, /* Dest mask. */
5658 FALSE
), /* PC rel offset. */
5660 /* A 64 bit reference to a procedure, written as 32 bit value. */
5661 HOWTO (ALPHA_R_CODEADDR
, /* Type. */
5662 0, /* Rightshift. */
5663 4, /* Size (0 = byte, 1 = short, 2 = long). */
5665 FALSE
, /* PC relative. */
5667 complain_overflow_signed
,/* Complain_on_overflow. */
5668 reloc_nil
, /* Special_function. */
5669 "CODEADDR", /* Name. */
5670 FALSE
, /* Partial_inplace. */
5671 0xffffffff, /* Source mask. */
5672 0xffffffff, /* Dest mask. */
5673 FALSE
), /* PC rel offset. */
5675 HOWTO (ALPHA_R_NOP
, /* Type. */
5676 0, /* Rightshift. */
5677 3, /* Size (0 = byte, 1 = short, 2 = long). */
5679 /* The following value must match that of ALPHA_R_BSR/ALPHA_R_BOH
5680 because the calculations for the 3 relocations are the same.
5681 See B.4.5.2 of the OpenVMS Linker Utility Manual. */
5682 TRUE
, /* PC relative. */
5684 complain_overflow_dont
,/* Complain_on_overflow. */
5685 reloc_nil
, /* Special_function. */
5687 FALSE
, /* Partial_inplace. */
5688 0xffffffff, /* Source mask. */
5689 0xffffffff, /* Dest mask. */
5690 FALSE
), /* PC rel offset. */
5692 HOWTO (ALPHA_R_BSR
, /* Type. */
5693 0, /* Rightshift. */
5694 3, /* Size (0 = byte, 1 = short, 2 = long). */
5696 TRUE
, /* PC relative. */
5698 complain_overflow_dont
,/* Complain_on_overflow. */
5699 reloc_nil
, /* Special_function. */
5701 FALSE
, /* Partial_inplace. */
5702 0xffffffff, /* Source mask. */
5703 0xffffffff, /* Dest mask. */
5704 FALSE
), /* PC rel offset. */
5706 HOWTO (ALPHA_R_LDA
, /* Type. */
5707 0, /* Rightshift. */
5708 3, /* Size (0 = byte, 1 = short, 2 = long). */
5710 FALSE
, /* PC relative. */
5712 complain_overflow_dont
,/* Complain_on_overflow. */
5713 reloc_nil
, /* Special_function. */
5715 FALSE
, /* Partial_inplace. */
5716 0xffffffff, /* Source mask. */
5717 0xffffffff, /* Dest mask. */
5718 FALSE
), /* PC rel offset. */
5720 HOWTO (ALPHA_R_BOH
, /* Type. */
5721 0, /* Rightshift. */
5722 3, /* Size (0 = byte, 1 = short, 2 = long, 3 = nil). */
5724 TRUE
, /* PC relative. */
5726 complain_overflow_dont
,/* Complain_on_overflow. */
5727 reloc_nil
, /* Special_function. */
5729 FALSE
, /* Partial_inplace. */
5730 0xffffffff, /* Source mask. */
5731 0xffffffff, /* Dest mask. */
5732 FALSE
), /* PC rel offset. */
5735 /* Return a pointer to a howto structure which, when invoked, will perform
5736 the relocation code on data from the architecture noted. */
5738 static reloc_howto_type
*
5739 alpha_vms_bfd_reloc_type_lookup (bfd
* abfd ATTRIBUTE_UNUSED
,
5740 bfd_reloc_code_real_type code
)
5744 vms_debug2 ((1, "vms_bfd_reloc_type_lookup (%p, %d)\t", abfd
, code
));
5748 case BFD_RELOC_16
: alpha_type
= ALPHA_R_SREL16
; break;
5749 case BFD_RELOC_32
: alpha_type
= ALPHA_R_REFLONG
; break;
5750 case BFD_RELOC_64
: alpha_type
= ALPHA_R_REFQUAD
; break;
5751 case BFD_RELOC_CTOR
: alpha_type
= ALPHA_R_REFQUAD
; break;
5752 case BFD_RELOC_23_PCREL_S2
: alpha_type
= ALPHA_R_BRADDR
; break;
5753 case BFD_RELOC_ALPHA_HINT
: alpha_type
= ALPHA_R_HINT
; break;
5754 case BFD_RELOC_16_PCREL
: alpha_type
= ALPHA_R_SREL16
; break;
5755 case BFD_RELOC_32_PCREL
: alpha_type
= ALPHA_R_SREL32
; break;
5756 case BFD_RELOC_64_PCREL
: alpha_type
= ALPHA_R_SREL64
; break;
5757 case BFD_RELOC_ALPHA_LINKAGE
: alpha_type
= ALPHA_R_LINKAGE
; break;
5758 case BFD_RELOC_ALPHA_CODEADDR
: alpha_type
= ALPHA_R_CODEADDR
; break;
5759 case BFD_RELOC_ALPHA_NOP
: alpha_type
= ALPHA_R_NOP
; break;
5760 case BFD_RELOC_ALPHA_BSR
: alpha_type
= ALPHA_R_BSR
; break;
5761 case BFD_RELOC_ALPHA_LDA
: alpha_type
= ALPHA_R_LDA
; break;
5762 case BFD_RELOC_ALPHA_BOH
: alpha_type
= ALPHA_R_BOH
; break;
5764 _bfd_error_handler (_("reloc (%d) is *UNKNOWN*"), code
);
5767 vms_debug2 ((2, "reloc is %s\n", alpha_howto_table
[alpha_type
].name
));
5768 return & alpha_howto_table
[alpha_type
];
5771 static reloc_howto_type
*
5772 alpha_vms_bfd_reloc_name_lookup (bfd
*abfd ATTRIBUTE_UNUSED
,
5778 i
< sizeof (alpha_howto_table
) / sizeof (alpha_howto_table
[0]);
5780 if (alpha_howto_table
[i
].name
!= NULL
5781 && strcasecmp (alpha_howto_table
[i
].name
, r_name
) == 0)
5782 return &alpha_howto_table
[i
];
5788 alpha_vms_get_synthetic_symtab (bfd
*abfd
,
5789 long symcount ATTRIBUTE_UNUSED
,
5790 asymbol
**usyms ATTRIBUTE_UNUSED
,
5791 long dynsymcount ATTRIBUTE_UNUSED
,
5792 asymbol
**dynsyms ATTRIBUTE_UNUSED
,
5799 syms
= (asymbol
*) bfd_malloc (PRIV (norm_sym_count
) * sizeof (asymbol
));
5804 for (i
= 0; i
< PRIV (gsd_sym_count
); i
++)
5806 struct vms_symbol_entry
*e
= PRIV (syms
)[i
];
5817 flags
= BSF_LOCAL
| BSF_SYNTHETIC
;
5824 if ((e
->flags
& EGSY__V_DEF
) && (e
->flags
& EGSY__V_NORM
))
5826 value
= e
->code_value
;
5827 sec
= e
->code_section
;
5838 sname
= bfd_alloc (abfd
, l
+ 5);
5841 memcpy (sname
, name
, l
);
5842 memcpy (sname
+ l
, "..en", 5);
5849 sym
->udata
.p
= NULL
;
5858 vms_time_to_str (unsigned char *buf
)
5860 time_t t
= vms_rawtime_to_time_t (buf
);
5861 char *res
= ctime (&t
);
5864 res
= "*invalid time*";
5871 evax_bfd_print_emh (FILE *file
, unsigned char *rec
, unsigned int rec_len
)
5873 struct vms_emh_common
*emh
= (struct vms_emh_common
*)rec
;
5874 unsigned int subtype
;
5877 subtype
= (unsigned) bfd_getl16 (emh
->subtyp
);
5879 /* xgettext:c-format */
5880 fprintf (file
, _(" EMH %u (len=%u): "), subtype
, rec_len
);
5882 /* PR 21618: Check for invalid lengths. */
5883 if (rec_len
< sizeof (* emh
))
5885 fprintf (file
, _(" Error: The length is less than the length of an EMH record\n"));
5888 extra
= rec_len
- sizeof (struct vms_emh_common
);
5894 struct vms_emh_mhd
*mhd
= (struct vms_emh_mhd
*) rec
;
5896 const char * nextname
;
5897 const char * maxname
;
5899 /* PR 21840: Check for invalid lengths. */
5900 if (rec_len
< sizeof (* mhd
))
5902 fprintf (file
, _(" Error: The record length is less than the size of an EMH_MHD record\n"));
5905 fprintf (file
, _("Module header\n"));
5906 fprintf (file
, _(" structure level: %u\n"), mhd
->strlvl
);
5907 fprintf (file
, _(" max record size: %u\n"),
5908 (unsigned) bfd_getl32 (mhd
->recsiz
));
5909 name
= (char *)(mhd
+ 1);
5910 maxname
= (char *) rec
+ rec_len
;
5911 if (name
> maxname
- 2)
5913 fprintf (file
, _(" Error: The module name is missing\n"));
5916 nextname
= name
+ name
[0] + 1;
5917 if (nextname
>= maxname
)
5919 fprintf (file
, _(" Error: The module name is too long\n"));
5922 fprintf (file
, _(" module name : %.*s\n"), name
[0], name
+ 1);
5924 if (name
> maxname
- 2)
5926 fprintf (file
, _(" Error: The module version is missing\n"));
5929 nextname
= name
+ name
[0] + 1;
5930 if (nextname
>= maxname
)
5932 fprintf (file
, _(" Error: The module version is too long\n"));
5935 fprintf (file
, _(" module version : %.*s\n"), name
[0], name
+ 1);
5937 if ((maxname
- name
) < 17 && maxname
[-1] != 0)
5938 fprintf (file
, _(" Error: The compile date is truncated\n"));
5940 fprintf (file
, _(" compile date : %.17s\n"), name
);
5945 fprintf (file
, _("Language Processor Name\n"));
5946 fprintf (file
, _(" language name: %.*s\n"), extra
, (char *)(emh
+ 1));
5950 fprintf (file
, _("Source Files Header\n"));
5951 fprintf (file
, _(" file: %.*s\n"), extra
, (char *)(emh
+ 1));
5955 fprintf (file
, _("Title Text Header\n"));
5956 fprintf (file
, _(" title: %.*s\n"), extra
, (char *)(emh
+ 1));
5960 fprintf (file
, _("Copyright Header\n"));
5961 fprintf (file
, _(" copyright: %.*s\n"), extra
, (char *)(emh
+ 1));
5965 fprintf (file
, _("unhandled emh subtype %u\n"), subtype
);
5971 evax_bfd_print_eeom (FILE *file
, unsigned char *rec
, unsigned int rec_len
)
5973 struct vms_eeom
*eeom
= (struct vms_eeom
*)rec
;
5975 fprintf (file
, _(" EEOM (len=%u):\n"), rec_len
);
5977 /* PR 21618: Check for invalid lengths. */
5978 if (rec_len
< sizeof (* eeom
))
5980 fprintf (file
, _(" Error: The length is less than the length of an EEOM record\n"));
5984 fprintf (file
, _(" number of cond linkage pairs: %u\n"),
5985 (unsigned)bfd_getl32 (eeom
->total_lps
));
5986 fprintf (file
, _(" completion code: %u\n"),
5987 (unsigned)bfd_getl16 (eeom
->comcod
));
5990 fprintf (file
, _(" transfer addr flags: 0x%02x\n"), eeom
->tfrflg
);
5991 fprintf (file
, _(" transfer addr psect: %u\n"),
5992 (unsigned)bfd_getl32 (eeom
->psindx
));
5993 fprintf (file
, _(" transfer address : 0x%08x\n"),
5994 (unsigned)bfd_getl32 (eeom
->tfradr
));
5999 exav_bfd_print_egsy_flags (unsigned int flags
, FILE *file
)
6001 if (flags
& EGSY__V_WEAK
)
6002 fputs (_(" WEAK"), file
);
6003 if (flags
& EGSY__V_DEF
)
6004 fputs (_(" DEF"), file
);
6005 if (flags
& EGSY__V_UNI
)
6006 fputs (_(" UNI"), file
);
6007 if (flags
& EGSY__V_REL
)
6008 fputs (_(" REL"), file
);
6009 if (flags
& EGSY__V_COMM
)
6010 fputs (_(" COMM"), file
);
6011 if (flags
& EGSY__V_VECEP
)
6012 fputs (_(" VECEP"), file
);
6013 if (flags
& EGSY__V_NORM
)
6014 fputs (_(" NORM"), file
);
6015 if (flags
& EGSY__V_QUAD_VAL
)
6016 fputs (_(" QVAL"), file
);
6020 evax_bfd_print_egsd_flags (FILE *file
, unsigned int flags
)
6022 if (flags
& EGPS__V_PIC
)
6023 fputs (_(" PIC"), file
);
6024 if (flags
& EGPS__V_LIB
)
6025 fputs (_(" LIB"), file
);
6026 if (flags
& EGPS__V_OVR
)
6027 fputs (_(" OVR"), file
);
6028 if (flags
& EGPS__V_REL
)
6029 fputs (_(" REL"), file
);
6030 if (flags
& EGPS__V_GBL
)
6031 fputs (_(" GBL"), file
);
6032 if (flags
& EGPS__V_SHR
)
6033 fputs (_(" SHR"), file
);
6034 if (flags
& EGPS__V_EXE
)
6035 fputs (_(" EXE"), file
);
6036 if (flags
& EGPS__V_RD
)
6037 fputs (_(" RD"), file
);
6038 if (flags
& EGPS__V_WRT
)
6039 fputs (_(" WRT"), file
);
6040 if (flags
& EGPS__V_VEC
)
6041 fputs (_(" VEC"), file
);
6042 if (flags
& EGPS__V_NOMOD
)
6043 fputs (_(" NOMOD"), file
);
6044 if (flags
& EGPS__V_COM
)
6045 fputs (_(" COM"), file
);
6046 if (flags
& EGPS__V_ALLOC_64BIT
)
6047 fputs (_(" 64B"), file
);
6051 evax_bfd_print_egsd (FILE *file
, unsigned char *rec
, unsigned int rec_len
)
6053 unsigned int off
= sizeof (struct vms_egsd
);
6056 fprintf (file
, _(" EGSD (len=%u):\n"), rec_len
);
6059 for (off
= sizeof (struct vms_egsd
); off
< rec_len
; )
6061 struct vms_egsd_entry
*e
= (struct vms_egsd_entry
*)(rec
+ off
);
6065 type
= (unsigned)bfd_getl16 (e
->gsdtyp
);
6066 len
= (unsigned)bfd_getl16 (e
->gsdsiz
);
6068 /* xgettext:c-format */
6069 fprintf (file
, _(" EGSD entry %2u (type: %u, len: %u): "),
6073 if (off
+ len
> rec_len
|| off
+ len
< off
)
6075 fprintf (file
, _(" Error: length larger than remaining space in record\n"));
6083 struct vms_egps
*egps
= (struct vms_egps
*)e
;
6084 unsigned int flags
= bfd_getl16 (egps
->flags
);
6087 fprintf (file
, _("PSC - Program section definition\n"));
6088 fprintf (file
, _(" alignment : 2**%u\n"), egps
->align
);
6089 fprintf (file
, _(" flags : 0x%04x"), flags
);
6090 evax_bfd_print_egsd_flags (file
, flags
);
6092 l
= bfd_getl32 (egps
->alloc
);
6093 fprintf (file
, _(" alloc (len): %u (0x%08x)\n"), l
, l
);
6094 fprintf (file
, _(" name : %.*s\n"),
6095 egps
->namlng
, egps
->name
);
6100 struct vms_esgps
*esgps
= (struct vms_esgps
*)e
;
6101 unsigned int flags
= bfd_getl16 (esgps
->flags
);
6104 fprintf (file
, _("SPSC - Shared Image Program section def\n"));
6105 fprintf (file
, _(" alignment : 2**%u\n"), esgps
->align
);
6106 fprintf (file
, _(" flags : 0x%04x"), flags
);
6107 evax_bfd_print_egsd_flags (file
, flags
);
6109 l
= bfd_getl32 (esgps
->alloc
);
6110 fprintf (file
, _(" alloc (len) : %u (0x%08x)\n"), l
, l
);
6111 fprintf (file
, _(" image offset : 0x%08x\n"),
6112 (unsigned int)bfd_getl32 (esgps
->base
));
6113 fprintf (file
, _(" symvec offset : 0x%08x\n"),
6114 (unsigned int)bfd_getl32 (esgps
->value
));
6115 fprintf (file
, _(" name : %.*s\n"),
6116 esgps
->namlng
, esgps
->name
);
6121 struct vms_egsy
*egsy
= (struct vms_egsy
*)e
;
6122 unsigned int flags
= bfd_getl16 (egsy
->flags
);
6124 if (flags
& EGSY__V_DEF
)
6126 struct vms_esdf
*esdf
= (struct vms_esdf
*)e
;
6128 fprintf (file
, _("SYM - Global symbol definition\n"));
6129 fprintf (file
, _(" flags: 0x%04x"), flags
);
6130 exav_bfd_print_egsy_flags (flags
, file
);
6132 fprintf (file
, _(" psect offset: 0x%08x\n"),
6133 (unsigned)bfd_getl32 (esdf
->value
));
6134 if (flags
& EGSY__V_NORM
)
6136 fprintf (file
, _(" code address: 0x%08x\n"),
6137 (unsigned)bfd_getl32 (esdf
->code_address
));
6138 fprintf (file
, _(" psect index for entry point : %u\n"),
6139 (unsigned)bfd_getl32 (esdf
->ca_psindx
));
6141 fprintf (file
, _(" psect index : %u\n"),
6142 (unsigned)bfd_getl32 (esdf
->psindx
));
6143 fprintf (file
, _(" name : %.*s\n"),
6144 esdf
->namlng
, esdf
->name
);
6148 struct vms_esrf
*esrf
= (struct vms_esrf
*)e
;
6150 fprintf (file
, _("SYM - Global symbol reference\n"));
6151 fprintf (file
, _(" name : %.*s\n"),
6152 esrf
->namlng
, esrf
->name
);
6158 struct vms_eidc
*eidc
= (struct vms_eidc
*)e
;
6159 unsigned int flags
= bfd_getl32 (eidc
->flags
);
6162 fprintf (file
, _("IDC - Ident Consistency check\n"));
6163 fprintf (file
, _(" flags : 0x%08x"), flags
);
6164 if (flags
& EIDC__V_BINIDENT
)
6165 fputs (" BINDENT", file
);
6167 fprintf (file
, _(" id match : %x\n"),
6168 (flags
>> EIDC__V_IDMATCH_SH
) & EIDC__V_IDMATCH_MASK
);
6169 fprintf (file
, _(" error severity: %x\n"),
6170 (flags
>> EIDC__V_ERRSEV_SH
) & EIDC__V_ERRSEV_MASK
);
6172 fprintf (file
, _(" entity name : %.*s\n"), p
[0], p
+ 1);
6174 fprintf (file
, _(" object name : %.*s\n"), p
[0], p
+ 1);
6176 if (flags
& EIDC__V_BINIDENT
)
6177 fprintf (file
, _(" binary ident : 0x%08x\n"),
6178 (unsigned)bfd_getl32 (p
+ 1));
6180 fprintf (file
, _(" ascii ident : %.*s\n"), p
[0], p
+ 1);
6185 struct vms_egst
*egst
= (struct vms_egst
*)e
;
6186 unsigned int flags
= bfd_getl16 (egst
->header
.flags
);
6188 fprintf (file
, _("SYMG - Universal symbol definition\n"));
6189 fprintf (file
, _(" flags: 0x%04x"), flags
);
6190 exav_bfd_print_egsy_flags (flags
, file
);
6192 fprintf (file
, _(" symbol vector offset: 0x%08x\n"),
6193 (unsigned)bfd_getl32 (egst
->value
));
6194 fprintf (file
, _(" entry point: 0x%08x\n"),
6195 (unsigned)bfd_getl32 (egst
->lp_1
));
6196 fprintf (file
, _(" proc descr : 0x%08x\n"),
6197 (unsigned)bfd_getl32 (egst
->lp_2
));
6198 fprintf (file
, _(" psect index: %u\n"),
6199 (unsigned)bfd_getl32 (egst
->psindx
));
6200 fprintf (file
, _(" name : %.*s\n"),
6201 egst
->namlng
, egst
->name
);
6206 struct vms_esdfv
*esdfv
= (struct vms_esdfv
*)e
;
6207 unsigned int flags
= bfd_getl16 (esdfv
->flags
);
6209 fprintf (file
, _("SYMV - Vectored symbol definition\n"));
6210 fprintf (file
, _(" flags: 0x%04x"), flags
);
6211 exav_bfd_print_egsy_flags (flags
, file
);
6213 fprintf (file
, _(" vector : 0x%08x\n"),
6214 (unsigned)bfd_getl32 (esdfv
->vector
));
6215 fprintf (file
, _(" psect offset: %u\n"),
6216 (unsigned)bfd_getl32 (esdfv
->value
));
6217 fprintf (file
, _(" psect index : %u\n"),
6218 (unsigned)bfd_getl32 (esdfv
->psindx
));
6219 fprintf (file
, _(" name : %.*s\n"),
6220 esdfv
->namlng
, esdfv
->name
);
6225 struct vms_esdfm
*esdfm
= (struct vms_esdfm
*)e
;
6226 unsigned int flags
= bfd_getl16 (esdfm
->flags
);
6228 fprintf (file
, _("SYMM - Global symbol definition with version\n"));
6229 fprintf (file
, _(" flags: 0x%04x"), flags
);
6230 exav_bfd_print_egsy_flags (flags
, file
);
6232 fprintf (file
, _(" version mask: 0x%08x\n"),
6233 (unsigned)bfd_getl32 (esdfm
->version_mask
));
6234 fprintf (file
, _(" psect offset: %u\n"),
6235 (unsigned)bfd_getl32 (esdfm
->value
));
6236 fprintf (file
, _(" psect index : %u\n"),
6237 (unsigned)bfd_getl32 (esdfm
->psindx
));
6238 fprintf (file
, _(" name : %.*s\n"),
6239 esdfm
->namlng
, esdfm
->name
);
6243 fprintf (file
, _("unhandled egsd entry type %u\n"), type
);
6251 evax_bfd_print_hex (FILE *file
, const char *pfx
,
6252 const unsigned char *buf
, unsigned int len
)
6258 for (i
= 0; i
< len
; i
++)
6262 fprintf (file
, " %02x", buf
[i
]);
6275 evax_bfd_print_etir_stc_ir (FILE *file
, const unsigned char *buf
, int is_ps
)
6277 /* xgettext:c-format */
6278 fprintf (file
, _(" linkage index: %u, replacement insn: 0x%08x\n"),
6279 (unsigned)bfd_getl32 (buf
),
6280 (unsigned)bfd_getl32 (buf
+ 16));
6281 /* xgettext:c-format */
6282 fprintf (file
, _(" psect idx 1: %u, offset 1: 0x%08x %08x\n"),
6283 (unsigned)bfd_getl32 (buf
+ 4),
6284 (unsigned)bfd_getl32 (buf
+ 12),
6285 (unsigned)bfd_getl32 (buf
+ 8));
6286 /* xgettext:c-format */
6287 fprintf (file
, _(" psect idx 2: %u, offset 2: 0x%08x %08x\n"),
6288 (unsigned)bfd_getl32 (buf
+ 20),
6289 (unsigned)bfd_getl32 (buf
+ 28),
6290 (unsigned)bfd_getl32 (buf
+ 24));
6292 /* xgettext:c-format */
6293 fprintf (file
, _(" psect idx 3: %u, offset 3: 0x%08x %08x\n"),
6294 (unsigned)bfd_getl32 (buf
+ 32),
6295 (unsigned)bfd_getl32 (buf
+ 40),
6296 (unsigned)bfd_getl32 (buf
+ 36));
6298 fprintf (file
, _(" global name: %.*s\n"), buf
[32], buf
+ 33);
6302 evax_bfd_print_etir (FILE *file
, const char *name
,
6303 unsigned char *rec
, unsigned int rec_len
)
6305 unsigned int off
= sizeof (struct vms_egsd
);
6306 unsigned int sec_len
= 0;
6308 /* xgettext:c-format */
6309 fprintf (file
, _(" %s (len=%u+%u):\n"), name
,
6310 (unsigned)(rec_len
- sizeof (struct vms_eobjrec
)),
6311 (unsigned)sizeof (struct vms_eobjrec
));
6313 for (off
= sizeof (struct vms_eobjrec
); off
< rec_len
; )
6315 struct vms_etir
*etir
= (struct vms_etir
*)(rec
+ off
);
6320 type
= bfd_getl16 (etir
->rectyp
);
6321 size
= bfd_getl16 (etir
->size
);
6322 buf
= rec
+ off
+ sizeof (struct vms_etir
);
6324 if (off
+ size
> rec_len
|| off
+ size
< off
)
6326 fprintf (file
, _(" Error: length larger than remaining space in record\n"));
6330 /* xgettext:c-format */
6331 fprintf (file
, _(" (type: %3u, size: 4+%3u): "), type
, size
- 4);
6334 case ETIR__C_STA_GBL
:
6335 fprintf (file
, _("STA_GBL (stack global) %.*s\n"),
6338 case ETIR__C_STA_LW
:
6339 fprintf (file
, _("STA_LW (stack longword) 0x%08x\n"),
6340 (unsigned)bfd_getl32 (buf
));
6342 case ETIR__C_STA_QW
:
6343 fprintf (file
, _("STA_QW (stack quadword) 0x%08x %08x\n"),
6344 (unsigned)bfd_getl32 (buf
+ 4),
6345 (unsigned)bfd_getl32 (buf
+ 0));
6347 case ETIR__C_STA_PQ
:
6348 fprintf (file
, _("STA_PQ (stack psect base + offset)\n"));
6349 /* xgettext:c-format */
6350 fprintf (file
, _(" psect: %u, offset: 0x%08x %08x\n"),
6351 (unsigned)bfd_getl32 (buf
+ 0),
6352 (unsigned)bfd_getl32 (buf
+ 8),
6353 (unsigned)bfd_getl32 (buf
+ 4));
6355 case ETIR__C_STA_LI
:
6356 fprintf (file
, _("STA_LI (stack literal)\n"));
6358 case ETIR__C_STA_MOD
:
6359 fprintf (file
, _("STA_MOD (stack module)\n"));
6361 case ETIR__C_STA_CKARG
:
6362 fprintf (file
, _("STA_CKARG (compare procedure argument)\n"));
6366 fprintf (file
, _("STO_B (store byte)\n"));
6369 fprintf (file
, _("STO_W (store word)\n"));
6371 case ETIR__C_STO_LW
:
6372 fprintf (file
, _("STO_LW (store longword)\n"));
6374 case ETIR__C_STO_QW
:
6375 fprintf (file
, _("STO_QW (store quadword)\n"));
6377 case ETIR__C_STO_IMMR
:
6379 unsigned int len
= bfd_getl32 (buf
);
6381 _("STO_IMMR (store immediate repeat) %u bytes\n"),
6383 evax_bfd_print_hex (file
, " ", buf
+ 4, len
);
6387 case ETIR__C_STO_GBL
:
6388 fprintf (file
, _("STO_GBL (store global) %.*s\n"),
6391 case ETIR__C_STO_CA
:
6392 fprintf (file
, _("STO_CA (store code address) %.*s\n"),
6395 case ETIR__C_STO_RB
:
6396 fprintf (file
, _("STO_RB (store relative branch)\n"));
6398 case ETIR__C_STO_AB
:
6399 fprintf (file
, _("STO_AB (store absolute branch)\n"));
6401 case ETIR__C_STO_OFF
:
6402 fprintf (file
, _("STO_OFF (store offset to psect)\n"));
6404 case ETIR__C_STO_IMM
:
6406 unsigned int len
= bfd_getl32 (buf
);
6408 _("STO_IMM (store immediate) %u bytes\n"),
6410 evax_bfd_print_hex (file
, " ", buf
+ 4, len
);
6414 case ETIR__C_STO_GBL_LW
:
6415 fprintf (file
, _("STO_GBL_LW (store global longword) %.*s\n"),
6418 case ETIR__C_STO_LP_PSB
:
6419 fprintf (file
, _("STO_OFF (store LP with procedure signature)\n"));
6421 case ETIR__C_STO_HINT_GBL
:
6422 fprintf (file
, _("STO_BR_GBL (store branch global) *todo*\n"));
6424 case ETIR__C_STO_HINT_PS
:
6425 fprintf (file
, _("STO_BR_PS (store branch psect + offset) *todo*\n"));
6428 case ETIR__C_OPR_NOP
:
6429 fprintf (file
, _("OPR_NOP (no-operation)\n"));
6431 case ETIR__C_OPR_ADD
:
6432 fprintf (file
, _("OPR_ADD (add)\n"));
6434 case ETIR__C_OPR_SUB
:
6435 fprintf (file
, _("OPR_SUB (subtract)\n"));
6437 case ETIR__C_OPR_MUL
:
6438 fprintf (file
, _("OPR_MUL (multiply)\n"));
6440 case ETIR__C_OPR_DIV
:
6441 fprintf (file
, _("OPR_DIV (divide)\n"));
6443 case ETIR__C_OPR_AND
:
6444 fprintf (file
, _("OPR_AND (logical and)\n"));
6446 case ETIR__C_OPR_IOR
:
6447 fprintf (file
, _("OPR_IOR (logical inclusive or)\n"));
6449 case ETIR__C_OPR_EOR
:
6450 fprintf (file
, _("OPR_EOR (logical exclusive or)\n"));
6452 case ETIR__C_OPR_NEG
:
6453 fprintf (file
, _("OPR_NEG (negate)\n"));
6455 case ETIR__C_OPR_COM
:
6456 fprintf (file
, _("OPR_COM (complement)\n"));
6458 case ETIR__C_OPR_INSV
:
6459 fprintf (file
, _("OPR_INSV (insert field)\n"));
6461 case ETIR__C_OPR_ASH
:
6462 fprintf (file
, _("OPR_ASH (arithmetic shift)\n"));
6464 case ETIR__C_OPR_USH
:
6465 fprintf (file
, _("OPR_USH (unsigned shift)\n"));
6467 case ETIR__C_OPR_ROT
:
6468 fprintf (file
, _("OPR_ROT (rotate)\n"));
6470 case ETIR__C_OPR_SEL
:
6471 fprintf (file
, _("OPR_SEL (select)\n"));
6473 case ETIR__C_OPR_REDEF
:
6474 fprintf (file
, _("OPR_REDEF (redefine symbol to curr location)\n"));
6476 case ETIR__C_OPR_DFLIT
:
6477 fprintf (file
, _("OPR_REDEF (define a literal)\n"));
6480 case ETIR__C_STC_LP
:
6481 fprintf (file
, _("STC_LP (store cond linkage pair)\n"));
6483 case ETIR__C_STC_LP_PSB
:
6485 _("STC_LP_PSB (store cond linkage pair + signature)\n"));
6486 /* xgettext:c-format */
6487 fprintf (file
, _(" linkage index: %u, procedure: %.*s\n"),
6488 (unsigned)bfd_getl32 (buf
), buf
[4], buf
+ 5);
6489 buf
+= 4 + 1 + buf
[4];
6490 fprintf (file
, _(" signature: %.*s\n"), buf
[0], buf
+ 1);
6492 case ETIR__C_STC_GBL
:
6493 fprintf (file
, _("STC_GBL (store cond global)\n"));
6494 /* xgettext:c-format */
6495 fprintf (file
, _(" linkage index: %u, global: %.*s\n"),
6496 (unsigned)bfd_getl32 (buf
), buf
[4], buf
+ 5);
6498 case ETIR__C_STC_GCA
:
6499 fprintf (file
, _("STC_GCA (store cond code address)\n"));
6500 /* xgettext:c-format */
6501 fprintf (file
, _(" linkage index: %u, procedure name: %.*s\n"),
6502 (unsigned)bfd_getl32 (buf
), buf
[4], buf
+ 5);
6504 case ETIR__C_STC_PS
:
6505 fprintf (file
, _("STC_PS (store cond psect + offset)\n"));
6507 /* xgettext:c-format */
6508 _(" linkage index: %u, psect: %u, offset: 0x%08x %08x\n"),
6509 (unsigned)bfd_getl32 (buf
),
6510 (unsigned)bfd_getl32 (buf
+ 4),
6511 (unsigned)bfd_getl32 (buf
+ 12),
6512 (unsigned)bfd_getl32 (buf
+ 8));
6514 case ETIR__C_STC_NOP_GBL
:
6515 fprintf (file
, _("STC_NOP_GBL (store cond NOP at global addr)\n"));
6516 evax_bfd_print_etir_stc_ir (file
, buf
, 0);
6518 case ETIR__C_STC_NOP_PS
:
6519 fprintf (file
, _("STC_NOP_PS (store cond NOP at psect + offset)\n"));
6520 evax_bfd_print_etir_stc_ir (file
, buf
, 1);
6522 case ETIR__C_STC_BSR_GBL
:
6523 fprintf (file
, _("STC_BSR_GBL (store cond BSR at global addr)\n"));
6524 evax_bfd_print_etir_stc_ir (file
, buf
, 0);
6526 case ETIR__C_STC_BSR_PS
:
6527 fprintf (file
, _("STC_BSR_PS (store cond BSR at psect + offset)\n"));
6528 evax_bfd_print_etir_stc_ir (file
, buf
, 1);
6530 case ETIR__C_STC_LDA_GBL
:
6531 fprintf (file
, _("STC_LDA_GBL (store cond LDA at global addr)\n"));
6532 evax_bfd_print_etir_stc_ir (file
, buf
, 0);
6534 case ETIR__C_STC_LDA_PS
:
6535 fprintf (file
, _("STC_LDA_PS (store cond LDA at psect + offset)\n"));
6536 evax_bfd_print_etir_stc_ir (file
, buf
, 1);
6538 case ETIR__C_STC_BOH_GBL
:
6539 fprintf (file
, _("STC_BOH_GBL (store cond BOH at global addr)\n"));
6540 evax_bfd_print_etir_stc_ir (file
, buf
, 0);
6542 case ETIR__C_STC_BOH_PS
:
6543 fprintf (file
, _("STC_BOH_PS (store cond BOH at psect + offset)\n"));
6544 evax_bfd_print_etir_stc_ir (file
, buf
, 1);
6546 case ETIR__C_STC_NBH_GBL
:
6548 _("STC_NBH_GBL (store cond or hint at global addr)\n"));
6550 case ETIR__C_STC_NBH_PS
:
6552 _("STC_NBH_PS (store cond or hint at psect + offset)\n"));
6555 case ETIR__C_CTL_SETRB
:
6556 fprintf (file
, _("CTL_SETRB (set relocation base)\n"));
6559 case ETIR__C_CTL_AUGRB
:
6561 unsigned int val
= bfd_getl32 (buf
);
6562 fprintf (file
, _("CTL_AUGRB (augment relocation base) %u\n"), val
);
6565 case ETIR__C_CTL_DFLOC
:
6566 fprintf (file
, _("CTL_DFLOC (define location)\n"));
6568 case ETIR__C_CTL_STLOC
:
6569 fprintf (file
, _("CTL_STLOC (set location)\n"));
6571 case ETIR__C_CTL_STKDL
:
6572 fprintf (file
, _("CTL_STKDL (stack defined location)\n"));
6575 fprintf (file
, _("*unhandled*\n"));
6583 evax_bfd_print_eobj (struct bfd
*abfd
, FILE *file
)
6585 bfd_boolean is_first
= TRUE
;
6586 bfd_boolean has_records
= FALSE
;
6590 unsigned int rec_len
;
6591 unsigned int pad_len
;
6593 unsigned int hdr_size
;
6598 unsigned char buf
[6];
6603 if (bfd_bread (buf
, sizeof (buf
), abfd
) != sizeof (buf
))
6605 fprintf (file
, _("cannot read GST record length\n"));
6608 rec_len
= bfd_getl16 (buf
+ 0);
6609 if (rec_len
== bfd_getl16 (buf
+ 4)
6610 && bfd_getl16 (buf
+ 2) == EOBJ__C_EMH
)
6612 /* The format is raw: record-size, type, record-size. */
6614 pad_len
= (rec_len
+ 1) & ~1U;
6617 else if (rec_len
== EOBJ__C_EMH
)
6619 has_records
= FALSE
;
6620 pad_len
= bfd_getl16 (buf
+ 2);
6626 fprintf (file
, _("cannot find EMH in first GST record\n"));
6629 rec
= bfd_malloc (pad_len
);
6630 memcpy (rec
, buf
+ sizeof (buf
) - hdr_size
, hdr_size
);
6634 unsigned int rec_len2
= 0;
6635 unsigned char hdr
[4];
6639 unsigned char buf_len
[2];
6641 if (bfd_bread (buf_len
, sizeof (buf_len
), abfd
)
6642 != sizeof (buf_len
))
6644 fprintf (file
, _("cannot read GST record length\n"));
6647 rec_len2
= (unsigned)bfd_getl16 (buf_len
);
6650 if (bfd_bread (hdr
, sizeof (hdr
), abfd
) != sizeof (hdr
))
6652 fprintf (file
, _("cannot read GST record header\n"));
6655 rec_len
= (unsigned)bfd_getl16 (hdr
+ 2);
6657 pad_len
= (rec_len
+ 1) & ~1U;
6660 rec
= bfd_malloc (pad_len
);
6661 memcpy (rec
, hdr
, sizeof (hdr
));
6662 hdr_size
= sizeof (hdr
);
6663 if (has_records
&& rec_len2
!= rec_len
)
6665 fprintf (file
, _(" corrupted GST\n"));
6670 if (bfd_bread (rec
+ hdr_size
, pad_len
- hdr_size
, abfd
)
6671 != pad_len
- hdr_size
)
6673 fprintf (file
, _("cannot read GST record\n"));
6677 type
= (unsigned)bfd_getl16 (rec
);
6682 evax_bfd_print_emh (file
, rec
, rec_len
);
6685 evax_bfd_print_egsd (file
, rec
, rec_len
);
6688 evax_bfd_print_eeom (file
, rec
, rec_len
);
6693 evax_bfd_print_etir (file
, "ETIR", rec
, rec_len
);
6696 evax_bfd_print_etir (file
, "EDBG", rec
, rec_len
);
6699 evax_bfd_print_etir (file
, "ETBT", rec
, rec_len
);
6702 fprintf (file
, _(" unhandled EOBJ record type %u\n"), type
);
6710 evax_bfd_print_relocation_records (FILE *file
, const unsigned char *rel
,
6711 unsigned int stride
)
6719 count
= bfd_getl32 (rel
+ 0);
6723 base
= bfd_getl32 (rel
+ 4);
6725 /* xgettext:c-format */
6726 fprintf (file
, _(" bitcount: %u, base addr: 0x%08x\n"),
6730 for (j
= 0; count
> 0; j
+= 4, count
-= 32)
6736 val
= bfd_getl32 (rel
);
6739 /* xgettext:c-format */
6740 fprintf (file
, _(" bitmap: 0x%08x (count: %u):\n"), val
, count
);
6742 for (k
= 0; k
< 32; k
++)
6743 if (val
& (1u << k
))
6747 fprintf (file
, _(" %08x"), base
+ (j
* 8 + k
) * stride
);
6762 evax_bfd_print_address_fixups (FILE *file
, const unsigned char *rel
)
6769 count
= bfd_getl32 (rel
+ 0);
6772 /* xgettext:c-format */
6773 fprintf (file
, _(" image %u (%u entries)\n"),
6774 (unsigned)bfd_getl32 (rel
+ 4), count
);
6776 for (j
= 0; j
< count
; j
++)
6778 /* xgettext:c-format */
6779 fprintf (file
, _(" offset: 0x%08x, val: 0x%08x\n"),
6780 (unsigned)bfd_getl32 (rel
+ 0),
6781 (unsigned)bfd_getl32 (rel
+ 4));
6788 evax_bfd_print_reference_fixups (FILE *file
, const unsigned char *rel
)
6797 count
= bfd_getl32 (rel
+ 0);
6800 /* xgettext:c-format */
6801 fprintf (file
, _(" image %u (%u entries), offsets:\n"),
6802 (unsigned)bfd_getl32 (rel
+ 4), count
);
6804 for (j
= 0; j
< count
; j
++)
6808 fprintf (file
, _(" 0x%08x"), (unsigned)bfd_getl32 (rel
));
6823 evax_bfd_print_indent (int indent
, FILE *file
)
6825 for (; indent
; indent
--)
6830 evax_bfd_get_dsc_name (unsigned int v
)
6834 case DSC__K_DTYPE_Z
:
6835 return "Z (Unspecified)";
6836 case DSC__K_DTYPE_V
:
6838 case DSC__K_DTYPE_BU
:
6839 return "BU (Byte logical)";
6840 case DSC__K_DTYPE_WU
:
6841 return "WU (Word logical)";
6842 case DSC__K_DTYPE_LU
:
6843 return "LU (Longword logical)";
6844 case DSC__K_DTYPE_QU
:
6845 return "QU (Quadword logical)";
6846 case DSC__K_DTYPE_B
:
6847 return "B (Byte integer)";
6848 case DSC__K_DTYPE_W
:
6849 return "W (Word integer)";
6850 case DSC__K_DTYPE_L
:
6851 return "L (Longword integer)";
6852 case DSC__K_DTYPE_Q
:
6853 return "Q (Quadword integer)";
6854 case DSC__K_DTYPE_F
:
6855 return "F (Single-precision floating)";
6856 case DSC__K_DTYPE_D
:
6857 return "D (Double-precision floating)";
6858 case DSC__K_DTYPE_FC
:
6859 return "FC (Complex)";
6860 case DSC__K_DTYPE_DC
:
6861 return "DC (Double-precision Complex)";
6862 case DSC__K_DTYPE_T
:
6863 return "T (ASCII text string)";
6864 case DSC__K_DTYPE_NU
:
6865 return "NU (Numeric string, unsigned)";
6866 case DSC__K_DTYPE_NL
:
6867 return "NL (Numeric string, left separate sign)";
6868 case DSC__K_DTYPE_NLO
:
6869 return "NLO (Numeric string, left overpunched sign)";
6870 case DSC__K_DTYPE_NR
:
6871 return "NR (Numeric string, right separate sign)";
6872 case DSC__K_DTYPE_NRO
:
6873 return "NRO (Numeric string, right overpunched sig)";
6874 case DSC__K_DTYPE_NZ
:
6875 return "NZ (Numeric string, zoned sign)";
6876 case DSC__K_DTYPE_P
:
6877 return "P (Packed decimal string)";
6878 case DSC__K_DTYPE_ZI
:
6879 return "ZI (Sequence of instructions)";
6880 case DSC__K_DTYPE_ZEM
:
6881 return "ZEM (Procedure entry mask)";
6882 case DSC__K_DTYPE_DSC
:
6883 return "DSC (Descriptor, used for arrays of dyn strings)";
6884 case DSC__K_DTYPE_OU
:
6885 return "OU (Octaword logical)";
6886 case DSC__K_DTYPE_O
:
6887 return "O (Octaword integer)";
6888 case DSC__K_DTYPE_G
:
6889 return "G (Double precision G floating, 64 bit)";
6890 case DSC__K_DTYPE_H
:
6891 return "H (Quadruple precision floating, 128 bit)";
6892 case DSC__K_DTYPE_GC
:
6893 return "GC (Double precision complex, G floating)";
6894 case DSC__K_DTYPE_HC
:
6895 return "HC (Quadruple precision complex, H floating)";
6896 case DSC__K_DTYPE_CIT
:
6897 return "CIT (COBOL intermediate temporary)";
6898 case DSC__K_DTYPE_BPV
:
6899 return "BPV (Bound Procedure Value)";
6900 case DSC__K_DTYPE_BLV
:
6901 return "BLV (Bound Label Value)";
6902 case DSC__K_DTYPE_VU
:
6903 return "VU (Bit Unaligned)";
6904 case DSC__K_DTYPE_ADT
:
6905 return "ADT (Absolute Date-Time)";
6906 case DSC__K_DTYPE_VT
:
6907 return "VT (Varying Text)";
6908 case DSC__K_DTYPE_T2
:
6909 return "T2 (16-bit char)";
6910 case DSC__K_DTYPE_VT2
:
6911 return "VT2 (16-bit varying char)";
6913 return "?? (unknown)";
6918 evax_bfd_print_desc (const unsigned char *buf
, int indent
, FILE *file
)
6920 unsigned char bclass
= buf
[3];
6921 unsigned char dtype
= buf
[2];
6922 unsigned int len
= (unsigned)bfd_getl16 (buf
);
6923 unsigned int pointer
= (unsigned)bfd_getl32 (buf
+ 4);
6925 evax_bfd_print_indent (indent
, file
);
6927 if (len
== 1 && pointer
== 0xffffffffUL
)
6930 fprintf (file
, _("64 bits *unhandled*\n"));
6934 /* xgettext:c-format */
6935 fprintf (file
, _("class: %u, dtype: %u, length: %u, pointer: 0x%08x\n"),
6936 bclass
, dtype
, len
, pointer
);
6939 case DSC__K_CLASS_NCA
:
6941 const struct vms_dsc_nca
*dsc
= (const void *)buf
;
6943 const unsigned char *b
;
6945 evax_bfd_print_indent (indent
, file
);
6946 fprintf (file
, _("non-contiguous array of %s\n"),
6947 evax_bfd_get_dsc_name (dsc
->dtype
));
6948 evax_bfd_print_indent (indent
+ 1, file
);
6950 /* xgettext:c-format */
6951 _("dimct: %u, aflags: 0x%02x, digits: %u, scale: %u\n"),
6952 dsc
->dimct
, dsc
->aflags
, dsc
->digits
, dsc
->scale
);
6953 evax_bfd_print_indent (indent
+ 1, file
);
6955 /* xgettext:c-format */
6956 _("arsize: %u, a0: 0x%08x\n"),
6957 (unsigned)bfd_getl32 (dsc
->arsize
),
6958 (unsigned)bfd_getl32 (dsc
->a0
));
6959 evax_bfd_print_indent (indent
+ 1, file
);
6960 fprintf (file
, _("Strides:\n"));
6961 b
= buf
+ sizeof (*dsc
);
6962 for (i
= 0; i
< dsc
->dimct
; i
++)
6964 evax_bfd_print_indent (indent
+ 2, file
);
6965 fprintf (file
, "[%u]: %u\n", i
+ 1,
6966 (unsigned)bfd_getl32 (b
));
6969 evax_bfd_print_indent (indent
+ 1, file
);
6970 fprintf (file
, _("Bounds:\n"));
6971 b
= buf
+ sizeof (*dsc
);
6972 for (i
= 0; i
< dsc
->dimct
; i
++)
6974 evax_bfd_print_indent (indent
+ 2, file
);
6975 /* xgettext:c-format */
6976 fprintf (file
, _("[%u]: Lower: %u, upper: %u\n"), i
+ 1,
6977 (unsigned)bfd_getl32 (b
+ 0),
6978 (unsigned)bfd_getl32 (b
+ 4));
6983 case DSC__K_CLASS_UBS
:
6985 const struct vms_dsc_ubs
*ubs
= (const void *)buf
;
6987 evax_bfd_print_indent (indent
, file
);
6988 fprintf (file
, _("unaligned bit-string of %s\n"),
6989 evax_bfd_get_dsc_name (ubs
->dtype
));
6990 evax_bfd_print_indent (indent
+ 1, file
);
6992 /* xgettext:c-format */
6993 _("base: %u, pos: %u\n"),
6994 (unsigned)bfd_getl32 (ubs
->base
),
6995 (unsigned)bfd_getl32 (ubs
->pos
));
6999 fprintf (file
, _("*unhandled*\n"));
7006 evax_bfd_print_valspec (const unsigned char *buf
, int indent
, FILE *file
)
7008 unsigned int vflags
= buf
[0];
7009 unsigned int value
= (unsigned)bfd_getl32 (buf
+ 1);
7010 unsigned int len
= 5;
7012 evax_bfd_print_indent (indent
, file
);
7013 /* xgettext:c-format */
7014 fprintf (file
, _("vflags: 0x%02x, value: 0x%08x "), vflags
, value
);
7019 case DST__K_VFLAGS_NOVAL
:
7020 fprintf (file
, _("(no value)\n"));
7022 case DST__K_VFLAGS_NOTACTIVE
:
7023 fprintf (file
, _("(not active)\n"));
7025 case DST__K_VFLAGS_UNALLOC
:
7026 fprintf (file
, _("(not allocated)\n"));
7028 case DST__K_VFLAGS_DSC
:
7029 fprintf (file
, _("(descriptor)\n"));
7030 evax_bfd_print_desc (buf
+ value
, indent
+ 1, file
);
7032 case DST__K_VFLAGS_TVS
:
7033 fprintf (file
, _("(trailing value)\n"));
7035 case DST__K_VS_FOLLOWS
:
7036 fprintf (file
, _("(value spec follows)\n"));
7038 case DST__K_VFLAGS_BITOFFS
:
7039 fprintf (file
, _("(at bit offset %u)\n"), value
);
7042 /* xgettext:c-format */
7043 fprintf (file
, _("(reg: %u, disp: %u, indir: %u, kind: "),
7044 (vflags
& DST__K_REGNUM_MASK
) >> DST__K_REGNUM_SHIFT
,
7045 vflags
& DST__K_DISP
? 1 : 0,
7046 vflags
& DST__K_INDIR
? 1 : 0);
7047 switch (vflags
& DST__K_VALKIND_MASK
)
7049 case DST__K_VALKIND_LITERAL
:
7050 fputs (_("literal"), file
);
7052 case DST__K_VALKIND_ADDR
:
7053 fputs (_("address"), file
);
7055 case DST__K_VALKIND_DESC
:
7056 fputs (_("desc"), file
);
7058 case DST__K_VALKIND_REG
:
7059 fputs (_("reg"), file
);
7062 fputs (")\n", file
);
7069 evax_bfd_print_typspec (const unsigned char *buf
, int indent
, FILE *file
)
7071 unsigned char kind
= buf
[2];
7072 unsigned int len
= (unsigned)bfd_getl16 (buf
);
7074 evax_bfd_print_indent (indent
, file
);
7075 /* xgettext:c-format */
7076 fprintf (file
, _("len: %2u, kind: %2u "), len
, kind
);
7080 case DST__K_TS_ATOM
:
7081 /* xgettext:c-format */
7082 fprintf (file
, _("atomic, type=0x%02x %s\n"),
7083 buf
[0], evax_bfd_get_dsc_name (buf
[0]));
7086 fprintf (file
, _("indirect, defined at 0x%08x\n"),
7087 (unsigned)bfd_getl32 (buf
));
7089 case DST__K_TS_TPTR
:
7090 fprintf (file
, _("typed pointer\n"));
7091 evax_bfd_print_typspec (buf
, indent
+ 1, file
);
7094 fprintf (file
, _("pointer\n"));
7096 case DST__K_TS_ARRAY
:
7098 const unsigned char *vs
;
7099 unsigned int vec_len
;
7102 fprintf (file
, _("array, dim: %u, bitmap: "), buf
[0]);
7103 vec_len
= (buf
[0] + 1 + 7) / 8;
7104 for (i
= 0; i
< vec_len
; i
++)
7105 fprintf (file
, " %02x", buf
[i
+ 1]);
7107 vs
= buf
+ 1 + vec_len
;
7108 evax_bfd_print_indent (indent
, file
);
7109 fprintf (file
, _("array descriptor:\n"));
7110 vs
+= evax_bfd_print_valspec (vs
, indent
+ 1, file
);
7111 for (i
= 0; i
< buf
[0] + 1U; i
++)
7112 if (buf
[1 + i
/ 8] & (1 << (i
% 8)))
7114 evax_bfd_print_indent (indent
, file
);
7116 fprintf (file
, _("type spec for element:\n"));
7118 fprintf (file
, _("type spec for subscript %u:\n"), i
);
7119 evax_bfd_print_typspec (vs
, indent
+ 1, file
);
7120 vs
+= bfd_getl16 (vs
);
7125 fprintf (file
, _("*unhandled*\n"));
7130 evax_bfd_print_dst (struct bfd
*abfd
, unsigned int dst_size
, FILE *file
)
7132 unsigned int off
= 0;
7133 unsigned int pc
= 0;
7134 unsigned int line
= 0;
7136 fprintf (file
, _("Debug symbol table:\n"));
7138 while (dst_size
> 0)
7140 struct vms_dst_header dsth
;
7145 if (bfd_bread (&dsth
, sizeof (dsth
), abfd
) != sizeof (dsth
))
7147 fprintf (file
, _("cannot read DST header\n"));
7150 len
= bfd_getl16 (dsth
.length
);
7151 type
= bfd_getl16 (dsth
.type
);
7152 /* xgettext:c-format */
7153 fprintf (file
, _(" type: %3u, len: %3u (at 0x%08x): "),
7163 len
-= sizeof (dsth
);
7164 buf
= _bfd_malloc_and_read (abfd
, len
, len
);
7167 fprintf (file
, _("cannot read DST symbol\n"));
7172 case DSC__K_DTYPE_V
:
7173 case DSC__K_DTYPE_BU
:
7174 case DSC__K_DTYPE_WU
:
7175 case DSC__K_DTYPE_LU
:
7176 case DSC__K_DTYPE_QU
:
7177 case DSC__K_DTYPE_B
:
7178 case DSC__K_DTYPE_W
:
7179 case DSC__K_DTYPE_L
:
7180 case DSC__K_DTYPE_Q
:
7181 case DSC__K_DTYPE_F
:
7182 case DSC__K_DTYPE_D
:
7183 case DSC__K_DTYPE_FC
:
7184 case DSC__K_DTYPE_DC
:
7185 case DSC__K_DTYPE_T
:
7186 case DSC__K_DTYPE_NU
:
7187 case DSC__K_DTYPE_NL
:
7188 case DSC__K_DTYPE_NLO
:
7189 case DSC__K_DTYPE_NR
:
7190 case DSC__K_DTYPE_NRO
:
7191 case DSC__K_DTYPE_NZ
:
7192 case DSC__K_DTYPE_P
:
7193 case DSC__K_DTYPE_ZI
:
7194 case DSC__K_DTYPE_ZEM
:
7195 case DSC__K_DTYPE_DSC
:
7196 case DSC__K_DTYPE_OU
:
7197 case DSC__K_DTYPE_O
:
7198 case DSC__K_DTYPE_G
:
7199 case DSC__K_DTYPE_H
:
7200 case DSC__K_DTYPE_GC
:
7201 case DSC__K_DTYPE_HC
:
7202 case DSC__K_DTYPE_CIT
:
7203 case DSC__K_DTYPE_BPV
:
7204 case DSC__K_DTYPE_BLV
:
7205 case DSC__K_DTYPE_VU
:
7206 case DSC__K_DTYPE_ADT
:
7207 case DSC__K_DTYPE_VT
:
7208 case DSC__K_DTYPE_T2
:
7209 case DSC__K_DTYPE_VT2
:
7210 fprintf (file
, _("standard data: %s\n"),
7211 evax_bfd_get_dsc_name (type
));
7212 evax_bfd_print_valspec (buf
, 4, file
);
7213 fprintf (file
, _(" name: %.*s\n"), buf
[5], buf
+ 6);
7217 struct vms_dst_modbeg
*dst
= (void *)buf
;
7218 const char *name
= (const char *)buf
+ sizeof (*dst
);
7220 fprintf (file
, _("modbeg\n"));
7221 /* xgettext:c-format */
7222 fprintf (file
, _(" flags: %d, language: %u, "
7223 "major: %u, minor: %u\n"),
7225 (unsigned)bfd_getl32 (dst
->language
),
7226 (unsigned)bfd_getl16 (dst
->major
),
7227 (unsigned)bfd_getl16 (dst
->minor
));
7228 fprintf (file
, _(" module name: %.*s\n"),
7230 name
+= name
[0] + 1;
7231 fprintf (file
, _(" compiler : %.*s\n"),
7236 fprintf (file
, _("modend\n"));
7240 struct vms_dst_rtnbeg
*dst
= (void *)buf
;
7241 const char *name
= (const char *)buf
+ sizeof (*dst
);
7243 fputs (_("rtnbeg\n"), file
);
7244 /* xgettext:c-format */
7245 fprintf (file
, _(" flags: %u, address: 0x%08x, "
7246 "pd-address: 0x%08x\n"),
7248 (unsigned)bfd_getl32 (dst
->address
),
7249 (unsigned)bfd_getl32 (dst
->pd_address
));
7250 fprintf (file
, _(" routine name: %.*s\n"),
7256 struct vms_dst_rtnend
*dst
= (void *)buf
;
7258 fprintf (file
, _("rtnend: size 0x%08x\n"),
7259 (unsigned)bfd_getl32 (dst
->size
));
7264 struct vms_dst_prolog
*dst
= (void *)buf
;
7266 fprintf (file
, _("prolog: bkpt address 0x%08x\n"),
7267 (unsigned)bfd_getl32 (dst
->bkpt_addr
));
7272 struct vms_dst_epilog
*dst
= (void *)buf
;
7274 /* xgettext:c-format */
7275 fprintf (file
, _("epilog: flags: %u, count: %u\n"),
7276 dst
->flags
, (unsigned)bfd_getl32 (dst
->count
));
7281 struct vms_dst_blkbeg
*dst
= (void *)buf
;
7282 const char *name
= (const char *)buf
+ sizeof (*dst
);
7284 /* xgettext:c-format */
7285 fprintf (file
, _("blkbeg: address: 0x%08x, name: %.*s\n"),
7286 (unsigned)bfd_getl32 (dst
->address
),
7292 struct vms_dst_blkend
*dst
= (void *)buf
;
7294 fprintf (file
, _("blkend: size: 0x%08x\n"),
7295 (unsigned)bfd_getl32 (dst
->size
));
7298 case DST__K_TYPSPEC
:
7300 fprintf (file
, _("typspec (len: %u)\n"), len
);
7301 fprintf (file
, _(" name: %.*s\n"), buf
[0], buf
+ 1);
7302 evax_bfd_print_typspec (buf
+ 1 + buf
[0], 5, file
);
7307 fprintf (file
, _("septyp, name: %.*s\n"), buf
[5], buf
+ 6);
7308 evax_bfd_print_valspec (buf
, 4, file
);
7313 struct vms_dst_recbeg
*recbeg
= (void *)buf
;
7314 const char *name
= (const char *)buf
+ sizeof (*recbeg
);
7316 fprintf (file
, _("recbeg: name: %.*s\n"), name
[0], name
+ 1);
7317 evax_bfd_print_valspec (buf
, 4, file
);
7318 fprintf (file
, _(" len: %u bits\n"),
7319 (unsigned)bfd_getl32 (name
+ 1 + name
[0]));
7323 fprintf (file
, _("recend\n"));
7325 case DST__K_ENUMBEG
:
7326 /* xgettext:c-format */
7327 fprintf (file
, _("enumbeg, len: %u, name: %.*s\n"),
7328 buf
[0], buf
[1], buf
+ 2);
7330 case DST__K_ENUMELT
:
7331 fprintf (file
, _("enumelt, name: %.*s\n"), buf
[5], buf
+ 6);
7332 evax_bfd_print_valspec (buf
, 4, file
);
7334 case DST__K_ENUMEND
:
7335 fprintf (file
, _("enumend\n"));
7339 struct vms_dst_label
*lab
= (void *)buf
;
7340 fprintf (file
, _("label, name: %.*s\n"),
7341 lab
->name
[0], lab
->name
+ 1);
7342 fprintf (file
, _(" address: 0x%08x\n"),
7343 (unsigned)bfd_getl32 (lab
->value
));
7346 case DST__K_DIS_RANGE
:
7348 unsigned int cnt
= bfd_getl32 (buf
);
7349 unsigned char *rng
= buf
+ 4;
7352 fprintf (file
, _("discontiguous range (nbr: %u)\n"), cnt
);
7353 for (i
= 0; i
< cnt
; i
++, rng
+= 8)
7354 /* xgettext:c-format */
7355 fprintf (file
, _(" address: 0x%08x, size: %u\n"),
7356 (unsigned)bfd_getl32 (rng
),
7357 (unsigned)bfd_getl32 (rng
+ 4));
7361 case DST__K_LINE_NUM
:
7363 unsigned char *buf_orig
= buf
;
7365 fprintf (file
, _("line num (len: %u)\n"), len
);
7370 unsigned char cmdlen
;
7380 case DST__K_DELTA_PC_W
:
7381 val
= bfd_getl16 (buf
+ 1);
7382 fprintf (file
, _("delta_pc_w %u\n"), val
);
7387 case DST__K_INCR_LINUM
:
7389 fprintf (file
, _("incr_linum(b): +%u\n"), val
);
7393 case DST__K_INCR_LINUM_W
:
7394 val
= bfd_getl16 (buf
+ 1);
7395 fprintf (file
, _("incr_linum_w: +%u\n"), val
);
7399 case DST__K_INCR_LINUM_L
:
7400 val
= bfd_getl32 (buf
+ 1);
7401 fprintf (file
, _("incr_linum_l: +%u\n"), val
);
7405 case DST__K_SET_LINUM
:
7406 line
= bfd_getl16 (buf
+ 1);
7407 fprintf (file
, _("set_line_num(w) %u\n"), line
);
7410 case DST__K_SET_LINUM_B
:
7412 fprintf (file
, _("set_line_num_b %u\n"), line
);
7415 case DST__K_SET_LINUM_L
:
7416 line
= bfd_getl32 (buf
+ 1);
7417 fprintf (file
, _("set_line_num_l %u\n"), line
);
7420 case DST__K_SET_ABS_PC
:
7421 pc
= bfd_getl32 (buf
+ 1);
7422 fprintf (file
, _("set_abs_pc: 0x%08x\n"), pc
);
7425 case DST__K_DELTA_PC_L
:
7426 fprintf (file
, _("delta_pc_l: +0x%08x\n"),
7427 (unsigned)bfd_getl32 (buf
+ 1));
7431 fprintf (file
, _("term(b): 0x%02x"), buf
[1]);
7433 fprintf (file
, _(" pc: 0x%08x\n"), pc
);
7437 val
= bfd_getl16 (buf
+ 1);
7438 fprintf (file
, _("term_w: 0x%04x"), val
);
7440 fprintf (file
, _(" pc: 0x%08x\n"), pc
);
7446 fprintf (file
, _("delta pc +%-4d"), -cmd
);
7447 line
++; /* FIXME: curr increment. */
7449 /* xgettext:c-format */
7450 fprintf (file
, _(" pc: 0x%08x line: %5u\n"),
7455 fprintf (file
, _(" *unhandled* cmd %u\n"), cmd
);
7468 unsigned char *buf_orig
= buf
;
7470 fprintf (file
, _("source (len: %u)\n"), len
);
7474 signed char cmd
= buf
[0];
7475 unsigned char cmdlen
= 0;
7479 case DST__K_SRC_DECLFILE
:
7481 struct vms_dst_src_decl_src
*src
= (void *)(buf
+ 1);
7484 /* xgettext:c-format */
7485 fprintf (file
, _(" declfile: len: %u, flags: %u, "
7487 src
->length
, src
->flags
,
7488 (unsigned)bfd_getl16 (src
->fileid
));
7489 /* xgettext:c-format */
7490 fprintf (file
, _(" rms: cdt: 0x%08x %08x, "
7491 "ebk: 0x%08x, ffb: 0x%04x, "
7493 (unsigned)bfd_getl32 (src
->rms_cdt
+ 4),
7494 (unsigned)bfd_getl32 (src
->rms_cdt
+ 0),
7495 (unsigned)bfd_getl32 (src
->rms_ebk
),
7496 (unsigned)bfd_getl16 (src
->rms_ffb
),
7498 name
= (const char *)buf
+ 1 + sizeof (*src
);
7499 fprintf (file
, _(" filename : %.*s\n"),
7501 name
+= name
[0] + 1;
7502 fprintf (file
, _(" module name: %.*s\n"),
7504 cmdlen
= 2 + src
->length
;
7507 case DST__K_SRC_SETFILE
:
7508 fprintf (file
, _(" setfile %u\n"),
7509 (unsigned)bfd_getl16 (buf
+ 1));
7512 case DST__K_SRC_SETREC_W
:
7513 fprintf (file
, _(" setrec %u\n"),
7514 (unsigned)bfd_getl16 (buf
+ 1));
7517 case DST__K_SRC_SETREC_L
:
7518 fprintf (file
, _(" setrec %u\n"),
7519 (unsigned)bfd_getl32 (buf
+ 1));
7522 case DST__K_SRC_SETLNUM_W
:
7523 fprintf (file
, _(" setlnum %u\n"),
7524 (unsigned)bfd_getl16 (buf
+ 1));
7527 case DST__K_SRC_SETLNUM_L
:
7528 fprintf (file
, _(" setlnum %u\n"),
7529 (unsigned)bfd_getl32 (buf
+ 1));
7532 case DST__K_SRC_DEFLINES_W
:
7533 fprintf (file
, _(" deflines %u\n"),
7534 (unsigned)bfd_getl16 (buf
+ 1));
7537 case DST__K_SRC_DEFLINES_B
:
7538 fprintf (file
, _(" deflines %u\n"), buf
[1]);
7541 case DST__K_SRC_FORMFEED
:
7542 fprintf (file
, _(" formfeed\n"));
7546 fprintf (file
, _(" *unhandled* cmd %u\n"), cmd
);
7558 fprintf (file
, _("*unhandled* dst type %u\n"), type
);
7566 evax_bfd_print_image (bfd
*abfd
, FILE *file
)
7568 struct vms_eihd eihd
;
7571 unsigned int eiha_off
;
7572 unsigned int eihi_off
;
7573 unsigned int eihs_off
;
7574 unsigned int eisd_off
;
7575 unsigned int eihef_off
= 0;
7576 unsigned int eihnp_off
= 0;
7577 unsigned int dmt_vbn
= 0;
7578 unsigned int dmt_size
= 0;
7579 unsigned int dst_vbn
= 0;
7580 unsigned int dst_size
= 0;
7581 unsigned int gst_vbn
= 0;
7582 unsigned int gst_size
= 0;
7583 unsigned int eiaf_vbn
= 0;
7584 unsigned int eiaf_size
= 0;
7585 unsigned int eihvn_off
;
7587 if (bfd_seek (abfd
, (file_ptr
) 0, SEEK_SET
)
7588 || bfd_bread (&eihd
, sizeof (eihd
), abfd
) != sizeof (eihd
))
7590 fprintf (file
, _("cannot read EIHD\n"));
7593 /* xgettext:c-format */
7594 fprintf (file
, _("EIHD: (size: %u, nbr blocks: %u)\n"),
7595 (unsigned)bfd_getl32 (eihd
.size
),
7596 (unsigned)bfd_getl32 (eihd
.hdrblkcnt
));
7597 /* xgettext:c-format */
7598 fprintf (file
, _(" majorid: %u, minorid: %u\n"),
7599 (unsigned)bfd_getl32 (eihd
.majorid
),
7600 (unsigned)bfd_getl32 (eihd
.minorid
));
7602 val
= (unsigned)bfd_getl32 (eihd
.imgtype
);
7606 name
= _("executable");
7609 name
= _("linkable image");
7612 name
= _("unknown");
7615 /* xgettext:c-format */
7616 fprintf (file
, _(" image type: %u (%s)"), val
, name
);
7618 val
= (unsigned)bfd_getl32 (eihd
.subtype
);
7621 case EIHD__C_NATIVE
:
7628 name
= _("unknown");
7631 /* xgettext:c-format */
7632 fprintf (file
, _(", subtype: %u (%s)\n"), val
, name
);
7634 eisd_off
= bfd_getl32 (eihd
.isdoff
);
7635 eiha_off
= bfd_getl32 (eihd
.activoff
);
7636 eihi_off
= bfd_getl32 (eihd
.imgidoff
);
7637 eihs_off
= bfd_getl32 (eihd
.symdbgoff
);
7638 /* xgettext:c-format */
7639 fprintf (file
, _(" offsets: isd: %u, activ: %u, symdbg: %u, "
7640 "imgid: %u, patch: %u\n"),
7641 eisd_off
, eiha_off
, eihs_off
, eihi_off
,
7642 (unsigned)bfd_getl32 (eihd
.patchoff
));
7643 fprintf (file
, _(" fixup info rva: "));
7644 bfd_fprintf_vma (abfd
, file
, bfd_getl64 (eihd
.iafva
));
7645 fprintf (file
, _(", symbol vector rva: "));
7646 bfd_fprintf_vma (abfd
, file
, bfd_getl64 (eihd
.symvva
));
7647 eihvn_off
= bfd_getl32 (eihd
.version_array_off
);
7648 fprintf (file
, _("\n"
7649 " version array off: %u\n"),
7652 /* xgettext:c-format */
7653 _(" img I/O count: %u, nbr channels: %u, req pri: %08x%08x\n"),
7654 (unsigned)bfd_getl32 (eihd
.imgiocnt
),
7655 (unsigned)bfd_getl32 (eihd
.iochancnt
),
7656 (unsigned)bfd_getl32 (eihd
.privreqs
+ 4),
7657 (unsigned)bfd_getl32 (eihd
.privreqs
+ 0));
7658 val
= (unsigned)bfd_getl32 (eihd
.lnkflags
);
7659 fprintf (file
, _(" linker flags: %08x:"), val
);
7660 if (val
& EIHD__M_LNKDEBUG
)
7661 fprintf (file
, " LNKDEBUG");
7662 if (val
& EIHD__M_LNKNOTFR
)
7663 fprintf (file
, " LNKNOTFR");
7664 if (val
& EIHD__M_NOP0BUFS
)
7665 fprintf (file
, " NOP0BUFS");
7666 if (val
& EIHD__M_PICIMG
)
7667 fprintf (file
, " PICIMG");
7668 if (val
& EIHD__M_P0IMAGE
)
7669 fprintf (file
, " P0IMAGE");
7670 if (val
& EIHD__M_DBGDMT
)
7671 fprintf (file
, " DBGDMT");
7672 if (val
& EIHD__M_INISHR
)
7673 fprintf (file
, " INISHR");
7674 if (val
& EIHD__M_XLATED
)
7675 fprintf (file
, " XLATED");
7676 if (val
& EIHD__M_BIND_CODE_SEC
)
7677 fprintf (file
, " BIND_CODE_SEC");
7678 if (val
& EIHD__M_BIND_DATA_SEC
)
7679 fprintf (file
, " BIND_DATA_SEC");
7680 if (val
& EIHD__M_MKTHREADS
)
7681 fprintf (file
, " MKTHREADS");
7682 if (val
& EIHD__M_UPCALLS
)
7683 fprintf (file
, " UPCALLS");
7684 if (val
& EIHD__M_OMV_READY
)
7685 fprintf (file
, " OMV_READY");
7686 if (val
& EIHD__M_EXT_BIND_SECT
)
7687 fprintf (file
, " EXT_BIND_SECT");
7688 fprintf (file
, "\n");
7689 /* xgettext:c-format */
7690 fprintf (file
, _(" ident: 0x%08x, sysver: 0x%08x, "
7691 "match ctrl: %u, symvect_size: %u\n"),
7692 (unsigned)bfd_getl32 (eihd
.ident
),
7693 (unsigned)bfd_getl32 (eihd
.sysver
),
7695 (unsigned)bfd_getl32 (eihd
.symvect_size
));
7696 fprintf (file
, _(" BPAGE: %u"),
7697 (unsigned)bfd_getl32 (eihd
.virt_mem_block_size
));
7698 if (val
& (EIHD__M_OMV_READY
| EIHD__M_EXT_BIND_SECT
))
7700 eihef_off
= bfd_getl32 (eihd
.ext_fixup_off
);
7701 eihnp_off
= bfd_getl32 (eihd
.noopt_psect_off
);
7702 /* xgettext:c-format */
7703 fprintf (file
, _(", ext fixup offset: %u, no_opt psect off: %u"),
7704 eihef_off
, eihnp_off
);
7706 fprintf (file
, _(", alias: %u\n"), (unsigned)bfd_getl16 (eihd
.alias
));
7710 struct vms_eihvn eihvn
;
7714 fprintf (file
, _("system version array information:\n"));
7715 if (bfd_seek (abfd
, (file_ptr
) eihvn_off
, SEEK_SET
)
7716 || bfd_bread (&eihvn
, sizeof (eihvn
), abfd
) != sizeof (eihvn
))
7718 fprintf (file
, _("cannot read EIHVN header\n"));
7721 mask
= bfd_getl32 (eihvn
.subsystem_mask
);
7722 for (j
= 0; j
< 32; j
++)
7723 if (mask
& (1 << j
))
7725 struct vms_eihvn_subversion ver
;
7726 if (bfd_bread (&ver
, sizeof (ver
), abfd
) != sizeof (ver
))
7728 fprintf (file
, _("cannot read EIHVN version\n"));
7731 fprintf (file
, _(" %02u "), j
);
7734 case EIHVN__BASE_IMAGE_BIT
:
7735 fputs (_("BASE_IMAGE "), file
);
7737 case EIHVN__MEMORY_MANAGEMENT_BIT
:
7738 fputs (_("MEMORY_MANAGEMENT"), file
);
7741 fputs (_("IO "), file
);
7743 case EIHVN__FILES_VOLUMES_BIT
:
7744 fputs (_("FILES_VOLUMES "), file
);
7746 case EIHVN__PROCESS_SCHED_BIT
:
7747 fputs (_("PROCESS_SCHED "), file
);
7749 case EIHVN__SYSGEN_BIT
:
7750 fputs (_("SYSGEN "), file
);
7752 case EIHVN__CLUSTERS_LOCKMGR_BIT
:
7753 fputs (_("CLUSTERS_LOCKMGR "), file
);
7755 case EIHVN__LOGICAL_NAMES_BIT
:
7756 fputs (_("LOGICAL_NAMES "), file
);
7758 case EIHVN__SECURITY_BIT
:
7759 fputs (_("SECURITY "), file
);
7761 case EIHVN__IMAGE_ACTIVATOR_BIT
:
7762 fputs (_("IMAGE_ACTIVATOR "), file
);
7764 case EIHVN__NETWORKS_BIT
:
7765 fputs (_("NETWORKS "), file
);
7767 case EIHVN__COUNTERS_BIT
:
7768 fputs (_("COUNTERS "), file
);
7770 case EIHVN__STABLE_BIT
:
7771 fputs (_("STABLE "), file
);
7773 case EIHVN__MISC_BIT
:
7774 fputs (_("MISC "), file
);
7776 case EIHVN__CPU_BIT
:
7777 fputs (_("CPU "), file
);
7779 case EIHVN__VOLATILE_BIT
:
7780 fputs (_("VOLATILE "), file
);
7782 case EIHVN__SHELL_BIT
:
7783 fputs (_("SHELL "), file
);
7785 case EIHVN__POSIX_BIT
:
7786 fputs (_("POSIX "), file
);
7788 case EIHVN__MULTI_PROCESSING_BIT
:
7789 fputs (_("MULTI_PROCESSING "), file
);
7791 case EIHVN__GALAXY_BIT
:
7792 fputs (_("GALAXY "), file
);
7795 fputs (_("*unknown* "), file
);
7798 fprintf (file
, ": %u.%u\n",
7799 (unsigned)bfd_getl16 (ver
.major
),
7800 (unsigned)bfd_getl16 (ver
.minor
));
7806 struct vms_eiha eiha
;
7808 if (bfd_seek (abfd
, (file_ptr
) eiha_off
, SEEK_SET
)
7809 || bfd_bread (&eiha
, sizeof (eiha
), abfd
) != sizeof (eiha
))
7811 fprintf (file
, _("cannot read EIHA\n"));
7814 fprintf (file
, _("Image activation: (size=%u)\n"),
7815 (unsigned)bfd_getl32 (eiha
.size
));
7816 /* xgettext:c-format */
7817 fprintf (file
, _(" First address : 0x%08x 0x%08x\n"),
7818 (unsigned)bfd_getl32 (eiha
.tfradr1_h
),
7819 (unsigned)bfd_getl32 (eiha
.tfradr1
));
7820 /* xgettext:c-format */
7821 fprintf (file
, _(" Second address: 0x%08x 0x%08x\n"),
7822 (unsigned)bfd_getl32 (eiha
.tfradr2_h
),
7823 (unsigned)bfd_getl32 (eiha
.tfradr2
));
7824 /* xgettext:c-format */
7825 fprintf (file
, _(" Third address : 0x%08x 0x%08x\n"),
7826 (unsigned)bfd_getl32 (eiha
.tfradr3_h
),
7827 (unsigned)bfd_getl32 (eiha
.tfradr3
));
7828 /* xgettext:c-format */
7829 fprintf (file
, _(" Fourth address: 0x%08x 0x%08x\n"),
7830 (unsigned)bfd_getl32 (eiha
.tfradr4_h
),
7831 (unsigned)bfd_getl32 (eiha
.tfradr4
));
7832 /* xgettext:c-format */
7833 fprintf (file
, _(" Shared image : 0x%08x 0x%08x\n"),
7834 (unsigned)bfd_getl32 (eiha
.inishr_h
),
7835 (unsigned)bfd_getl32 (eiha
.inishr
));
7839 struct vms_eihi eihi
;
7841 if (bfd_seek (abfd
, (file_ptr
) eihi_off
, SEEK_SET
)
7842 || bfd_bread (&eihi
, sizeof (eihi
), abfd
) != sizeof (eihi
))
7844 fprintf (file
, _("cannot read EIHI\n"));
7847 /* xgettext:c-format */
7848 fprintf (file
, _("Image identification: (major: %u, minor: %u)\n"),
7849 (unsigned)bfd_getl32 (eihi
.majorid
),
7850 (unsigned)bfd_getl32 (eihi
.minorid
));
7851 fprintf (file
, _(" image name : %.*s\n"),
7852 eihi
.imgnam
[0], eihi
.imgnam
+ 1);
7853 fprintf (file
, _(" link time : %s\n"),
7854 vms_time_to_str (eihi
.linktime
));
7855 fprintf (file
, _(" image ident : %.*s\n"),
7856 eihi
.imgid
[0], eihi
.imgid
+ 1);
7857 fprintf (file
, _(" linker ident : %.*s\n"),
7858 eihi
.linkid
[0], eihi
.linkid
+ 1);
7859 fprintf (file
, _(" image build ident: %.*s\n"),
7860 eihi
.imgbid
[0], eihi
.imgbid
+ 1);
7864 struct vms_eihs eihs
;
7866 if (bfd_seek (abfd
, (file_ptr
) eihs_off
, SEEK_SET
)
7867 || bfd_bread (&eihs
, sizeof (eihs
), abfd
) != sizeof (eihs
))
7869 fprintf (file
, _("cannot read EIHS\n"));
7872 /* xgettext:c-format */
7873 fprintf (file
, _("Image symbol & debug table: (major: %u, minor: %u)\n"),
7874 (unsigned)bfd_getl32 (eihs
.majorid
),
7875 (unsigned)bfd_getl32 (eihs
.minorid
));
7876 dst_vbn
= bfd_getl32 (eihs
.dstvbn
);
7877 dst_size
= bfd_getl32 (eihs
.dstsize
);
7878 /* xgettext:c-format */
7879 fprintf (file
, _(" debug symbol table : vbn: %u, size: %u (0x%x)\n"),
7880 dst_vbn
, dst_size
, dst_size
);
7881 gst_vbn
= bfd_getl32 (eihs
.gstvbn
);
7882 gst_size
= bfd_getl32 (eihs
.gstsize
);
7883 /* xgettext:c-format */
7884 fprintf (file
, _(" global symbol table: vbn: %u, records: %u\n"),
7886 dmt_vbn
= bfd_getl32 (eihs
.dmtvbn
);
7887 dmt_size
= bfd_getl32 (eihs
.dmtsize
);
7888 /* xgettext:c-format */
7889 fprintf (file
, _(" debug module table : vbn: %u, size: %u\n"),
7892 while (eisd_off
!= 0)
7894 struct vms_eisd eisd
;
7899 if (bfd_seek (abfd
, (file_ptr
) eisd_off
, SEEK_SET
)
7900 || bfd_bread (&eisd
, sizeof (eisd
), abfd
) != sizeof (eisd
))
7902 fprintf (file
, _("cannot read EISD\n"));
7905 len
= (unsigned)bfd_getl32 (eisd
.eisdsize
);
7906 if (len
!= (unsigned)-1)
7910 eisd_off
= (eisd_off
+ VMS_BLOCK_SIZE
) & ~(VMS_BLOCK_SIZE
- 1);
7912 /* xgettext:c-format */
7913 fprintf (file
, _("Image section descriptor: (major: %u, minor: %u, "
7914 "size: %u, offset: %u)\n"),
7915 (unsigned)bfd_getl32 (eisd
.majorid
),
7916 (unsigned)bfd_getl32 (eisd
.minorid
),
7920 /* xgettext:c-format */
7921 fprintf (file
, _(" section: base: 0x%08x%08x size: 0x%08x\n"),
7922 (unsigned)bfd_getl32 (eisd
.virt_addr
+ 4),
7923 (unsigned)bfd_getl32 (eisd
.virt_addr
+ 0),
7924 (unsigned)bfd_getl32 (eisd
.secsize
));
7925 val
= (unsigned)bfd_getl32 (eisd
.flags
);
7926 fprintf (file
, _(" flags: 0x%04x"), val
);
7927 if (val
& EISD__M_GBL
)
7928 fprintf (file
, " GBL");
7929 if (val
& EISD__M_CRF
)
7930 fprintf (file
, " CRF");
7931 if (val
& EISD__M_DZRO
)
7932 fprintf (file
, " DZRO");
7933 if (val
& EISD__M_WRT
)
7934 fprintf (file
, " WRT");
7935 if (val
& EISD__M_INITALCODE
)
7936 fprintf (file
, " INITALCODE");
7937 if (val
& EISD__M_BASED
)
7938 fprintf (file
, " BASED");
7939 if (val
& EISD__M_FIXUPVEC
)
7940 fprintf (file
, " FIXUPVEC");
7941 if (val
& EISD__M_RESIDENT
)
7942 fprintf (file
, " RESIDENT");
7943 if (val
& EISD__M_VECTOR
)
7944 fprintf (file
, " VECTOR");
7945 if (val
& EISD__M_PROTECT
)
7946 fprintf (file
, " PROTECT");
7947 if (val
& EISD__M_LASTCLU
)
7948 fprintf (file
, " LASTCLU");
7949 if (val
& EISD__M_EXE
)
7950 fprintf (file
, " EXE");
7951 if (val
& EISD__M_NONSHRADR
)
7952 fprintf (file
, " NONSHRADR");
7953 if (val
& EISD__M_QUAD_LENGTH
)
7954 fprintf (file
, " QUAD_LENGTH");
7955 if (val
& EISD__M_ALLOC_64BIT
)
7956 fprintf (file
, " ALLOC_64BIT");
7957 fprintf (file
, "\n");
7958 if (val
& EISD__M_FIXUPVEC
)
7960 eiaf_vbn
= bfd_getl32 (eisd
.vbn
);
7961 eiaf_size
= bfd_getl32 (eisd
.secsize
);
7963 /* xgettext:c-format */
7964 fprintf (file
, _(" vbn: %u, pfc: %u, matchctl: %u type: %u ("),
7965 (unsigned)bfd_getl32 (eisd
.vbn
),
7966 eisd
.pfc
, eisd
.matchctl
, eisd
.type
);
7969 case EISD__K_NORMAL
:
7970 fputs (_("NORMAL"), file
);
7972 case EISD__K_SHRFXD
:
7973 fputs (_("SHRFXD"), file
);
7975 case EISD__K_PRVFXD
:
7976 fputs (_("PRVFXD"), file
);
7978 case EISD__K_SHRPIC
:
7979 fputs (_("SHRPIC"), file
);
7981 case EISD__K_PRVPIC
:
7982 fputs (_("PRVPIC"), file
);
7984 case EISD__K_USRSTACK
:
7985 fputs (_("USRSTACK"), file
);
7988 fputs (_("*unknown*"), file
);
7991 fputs (_(")\n"), file
);
7992 if (val
& EISD__M_GBL
)
7993 /* xgettext:c-format */
7994 fprintf (file
, _(" ident: 0x%08x, name: %.*s\n"),
7995 (unsigned)bfd_getl32 (eisd
.ident
),
7996 eisd
.gblnam
[0], eisd
.gblnam
+ 1);
8002 if (bfd_seek (abfd
, (file_ptr
) (dmt_vbn
- 1) * VMS_BLOCK_SIZE
, SEEK_SET
))
8004 fprintf (file
, _("cannot read DMT\n"));
8008 fprintf (file
, _("Debug module table:\n"));
8010 while (dmt_size
> 0)
8012 struct vms_dmt_header dmth
;
8015 if (bfd_bread (&dmth
, sizeof (dmth
), abfd
) != sizeof (dmth
))
8017 fprintf (file
, _("cannot read DMT header\n"));
8020 count
= bfd_getl16 (dmth
.psect_count
);
8022 /* xgettext:c-format */
8023 _(" module offset: 0x%08x, size: 0x%08x, (%u psects)\n"),
8024 (unsigned)bfd_getl32 (dmth
.modbeg
),
8025 (unsigned)bfd_getl32 (dmth
.size
), count
);
8026 dmt_size
-= sizeof (dmth
);
8029 struct vms_dmt_psect dmtp
;
8031 if (bfd_bread (&dmtp
, sizeof (dmtp
), abfd
) != sizeof (dmtp
))
8033 fprintf (file
, _("cannot read DMT psect\n"));
8036 /* xgettext:c-format */
8037 fprintf (file
, _(" psect start: 0x%08x, length: %u\n"),
8038 (unsigned)bfd_getl32 (dmtp
.start
),
8039 (unsigned)bfd_getl32 (dmtp
.length
));
8041 dmt_size
-= sizeof (dmtp
);
8048 if (bfd_seek (abfd
, (file_ptr
) (dst_vbn
- 1) * VMS_BLOCK_SIZE
, SEEK_SET
))
8050 fprintf (file
, _("cannot read DST\n"));
8054 evax_bfd_print_dst (abfd
, dst_size
, file
);
8058 if (bfd_seek (abfd
, (file_ptr
) (gst_vbn
- 1) * VMS_BLOCK_SIZE
, SEEK_SET
))
8060 fprintf (file
, _("cannot read GST\n"));
8064 fprintf (file
, _("Global symbol table:\n"));
8065 evax_bfd_print_eobj (abfd
, file
);
8070 struct vms_eiaf
*eiaf
;
8071 unsigned int qrelfixoff
;
8072 unsigned int lrelfixoff
;
8073 unsigned int qdotadroff
;
8074 unsigned int ldotadroff
;
8075 unsigned int shrimgcnt
;
8076 unsigned int shlstoff
;
8077 unsigned int codeadroff
;
8078 unsigned int lpfixoff
;
8079 unsigned int chgprtoff
;
8080 file_ptr f_off
= (file_ptr
) (eiaf_vbn
- 1) * VMS_BLOCK_SIZE
;
8082 if (bfd_seek (abfd
, f_off
, SEEK_SET
) != 0
8083 || (buf
= _bfd_malloc_and_read (abfd
, eiaf_size
, eiaf_size
)) == NULL
)
8085 fprintf (file
, _("cannot read EIHA\n"));
8088 eiaf
= (struct vms_eiaf
*)buf
;
8090 /* xgettext:c-format */
8091 _("Image activator fixup: (major: %u, minor: %u)\n"),
8092 (unsigned)bfd_getl32 (eiaf
->majorid
),
8093 (unsigned)bfd_getl32 (eiaf
->minorid
));
8094 /* xgettext:c-format */
8095 fprintf (file
, _(" iaflink : 0x%08x %08x\n"),
8096 (unsigned)bfd_getl32 (eiaf
->iaflink
+ 0),
8097 (unsigned)bfd_getl32 (eiaf
->iaflink
+ 4));
8098 /* xgettext:c-format */
8099 fprintf (file
, _(" fixuplnk: 0x%08x %08x\n"),
8100 (unsigned)bfd_getl32 (eiaf
->fixuplnk
+ 0),
8101 (unsigned)bfd_getl32 (eiaf
->fixuplnk
+ 4));
8102 fprintf (file
, _(" size : %u\n"),
8103 (unsigned)bfd_getl32 (eiaf
->size
));
8104 fprintf (file
, _(" flags: 0x%08x\n"),
8105 (unsigned)bfd_getl32 (eiaf
->flags
));
8106 qrelfixoff
= bfd_getl32 (eiaf
->qrelfixoff
);
8107 lrelfixoff
= bfd_getl32 (eiaf
->lrelfixoff
);
8108 /* xgettext:c-format */
8109 fprintf (file
, _(" qrelfixoff: %5u, lrelfixoff: %5u\n"),
8110 qrelfixoff
, lrelfixoff
);
8111 qdotadroff
= bfd_getl32 (eiaf
->qdotadroff
);
8112 ldotadroff
= bfd_getl32 (eiaf
->ldotadroff
);
8113 /* xgettext:c-format */
8114 fprintf (file
, _(" qdotadroff: %5u, ldotadroff: %5u\n"),
8115 qdotadroff
, ldotadroff
);
8116 codeadroff
= bfd_getl32 (eiaf
->codeadroff
);
8117 lpfixoff
= bfd_getl32 (eiaf
->lpfixoff
);
8118 /* xgettext:c-format */
8119 fprintf (file
, _(" codeadroff: %5u, lpfixoff : %5u\n"),
8120 codeadroff
, lpfixoff
);
8121 chgprtoff
= bfd_getl32 (eiaf
->chgprtoff
);
8122 fprintf (file
, _(" chgprtoff : %5u\n"), chgprtoff
);
8123 shrimgcnt
= bfd_getl32 (eiaf
->shrimgcnt
);
8124 shlstoff
= bfd_getl32 (eiaf
->shlstoff
);
8125 /* xgettext:c-format */
8126 fprintf (file
, _(" shlstoff : %5u, shrimgcnt : %5u\n"),
8127 shlstoff
, shrimgcnt
);
8128 /* xgettext:c-format */
8129 fprintf (file
, _(" shlextra : %5u, permctx : %5u\n"),
8130 (unsigned)bfd_getl32 (eiaf
->shlextra
),
8131 (unsigned)bfd_getl32 (eiaf
->permctx
));
8132 fprintf (file
, _(" base_va : 0x%08x\n"),
8133 (unsigned)bfd_getl32 (eiaf
->base_va
));
8134 fprintf (file
, _(" lppsbfixoff: %5u\n"),
8135 (unsigned)bfd_getl32 (eiaf
->lppsbfixoff
));
8139 struct vms_shl
*shl
= (struct vms_shl
*)(buf
+ shlstoff
);
8142 fprintf (file
, _(" Shareable images:\n"));
8143 for (j
= 0; j
< shrimgcnt
; j
++, shl
++)
8146 /* xgettext:c-format */
8147 _(" %u: size: %u, flags: 0x%02x, name: %.*s\n"),
8148 j
, shl
->size
, shl
->flags
,
8149 shl
->imgnam
[0], shl
->imgnam
+ 1);
8152 if (qrelfixoff
!= 0)
8154 fprintf (file
, _(" quad-word relocation fixups:\n"));
8155 evax_bfd_print_relocation_records (file
, buf
+ qrelfixoff
, 8);
8157 if (lrelfixoff
!= 0)
8159 fprintf (file
, _(" long-word relocation fixups:\n"));
8160 evax_bfd_print_relocation_records (file
, buf
+ lrelfixoff
, 4);
8162 if (qdotadroff
!= 0)
8164 fprintf (file
, _(" quad-word .address reference fixups:\n"));
8165 evax_bfd_print_address_fixups (file
, buf
+ qdotadroff
);
8167 if (ldotadroff
!= 0)
8169 fprintf (file
, _(" long-word .address reference fixups:\n"));
8170 evax_bfd_print_address_fixups (file
, buf
+ ldotadroff
);
8172 if (codeadroff
!= 0)
8174 fprintf (file
, _(" Code Address Reference Fixups:\n"));
8175 evax_bfd_print_reference_fixups (file
, buf
+ codeadroff
);
8179 fprintf (file
, _(" Linkage Pairs Reference Fixups:\n"));
8180 evax_bfd_print_reference_fixups (file
, buf
+ lpfixoff
);
8184 unsigned int count
= (unsigned)bfd_getl32 (buf
+ chgprtoff
);
8185 struct vms_eicp
*eicp
= (struct vms_eicp
*)(buf
+ chgprtoff
+ 4);
8188 fprintf (file
, _(" Change Protection (%u entries):\n"), count
);
8189 for (j
= 0; j
< count
; j
++, eicp
++)
8191 unsigned int prot
= bfd_getl32 (eicp
->newprt
);
8193 /* xgettext:c-format */
8194 _(" base: 0x%08x %08x, size: 0x%08x, prot: 0x%08x "),
8195 (unsigned)bfd_getl32 (eicp
->baseva
+ 4),
8196 (unsigned)bfd_getl32 (eicp
->baseva
+ 0),
8197 (unsigned)bfd_getl32 (eicp
->size
),
8198 (unsigned)bfd_getl32 (eicp
->newprt
));
8202 fprintf (file
, "NA");
8204 case PRT__C_RESERVED
:
8205 fprintf (file
, "RES");
8208 fprintf (file
, "KW");
8211 fprintf (file
, "KR");
8214 fprintf (file
, "UW");
8217 fprintf (file
, "EW");
8220 fprintf (file
, "ERKW");
8223 fprintf (file
, "ER");
8226 fprintf (file
, "SW");
8229 fprintf (file
, "SREW");
8232 fprintf (file
, "SRKW");
8235 fprintf (file
, "SR");
8238 fprintf (file
, "URSW");
8241 fprintf (file
, "UREW");
8244 fprintf (file
, "URKW");
8247 fprintf (file
, "UR");
8261 vms_bfd_print_private_bfd_data (bfd
*abfd
, void *ptr
)
8263 FILE *file
= (FILE *)ptr
;
8265 if (bfd_get_file_flags (abfd
) & (EXEC_P
| DYNAMIC
))
8266 evax_bfd_print_image (abfd
, file
);
8269 if (bfd_seek (abfd
, 0, SEEK_SET
))
8271 evax_bfd_print_eobj (abfd
, file
);
8278 /* Slurp ETIR/EDBG/ETBT VMS object records. */
8281 alpha_vms_read_sections_content (bfd
*abfd
, struct bfd_link_info
*info
)
8283 asection
*cur_section
;
8284 file_ptr cur_offset
;
8285 asection
*dst_section
;
8286 file_ptr dst_offset
;
8288 if (bfd_seek (abfd
, 0, SEEK_SET
) != 0)
8294 dst_section
= PRIV (dst_section
);
8298 if (info
->strip
== strip_all
|| info
->strip
== strip_debugger
)
8300 /* Discard the DST section. */
8304 else if (dst_section
)
8306 dst_offset
= dst_section
->output_offset
;
8307 dst_section
= dst_section
->output_section
;
8316 type
= _bfd_vms_get_object_record (abfd
);
8319 vms_debug2 ((2, "next_record failed\n"));
8325 PRIV (image_section
) = cur_section
;
8326 PRIV (image_offset
) = cur_offset
;
8327 res
= _bfd_vms_slurp_etir (abfd
, info
);
8328 cur_section
= PRIV (image_section
);
8329 cur_offset
= PRIV (image_offset
);
8333 if (dst_section
== NULL
)
8335 PRIV (image_section
) = dst_section
;
8336 PRIV (image_offset
) = dst_offset
;
8337 res
= _bfd_vms_slurp_etir (abfd
, info
);
8338 dst_offset
= PRIV (image_offset
);
8347 vms_debug2 ((2, "slurp eobj type %d failed\n", type
));
8354 alpha_vms_sizeof_headers (bfd
*abfd ATTRIBUTE_UNUSED
,
8355 struct bfd_link_info
*info ATTRIBUTE_UNUSED
)
8360 /* Add a linkage pair fixup at address SECT + OFFSET to SHLIB. */
8363 alpha_vms_add_fixup_lp (struct bfd_link_info
*info
, bfd
*src
, bfd
*shlib
)
8365 struct alpha_vms_shlib_el
*sl
;
8366 asection
*sect
= PRIV2 (src
, image_section
);
8367 file_ptr offset
= PRIV2 (src
, image_offset
);
8370 sl
= &VEC_EL (alpha_vms_link_hash (info
)->shrlibs
,
8371 struct alpha_vms_shlib_el
, PRIV2 (shlib
, shr_index
));
8372 sl
->has_fixups
= TRUE
;
8373 p
= VEC_APPEND (sl
->lp
, bfd_vma
);
8376 *p
= sect
->output_section
->vma
+ sect
->output_offset
+ offset
;
8377 sect
->output_section
->flags
|= SEC_RELOC
;
8381 /* Add a code address fixup at address SECT + OFFSET to SHLIB. */
8384 alpha_vms_add_fixup_ca (struct bfd_link_info
*info
, bfd
*src
, bfd
*shlib
)
8386 struct alpha_vms_shlib_el
*sl
;
8387 asection
*sect
= PRIV2 (src
, image_section
);
8388 file_ptr offset
= PRIV2 (src
, image_offset
);
8391 sl
= &VEC_EL (alpha_vms_link_hash (info
)->shrlibs
,
8392 struct alpha_vms_shlib_el
, PRIV2 (shlib
, shr_index
));
8393 sl
->has_fixups
= TRUE
;
8394 p
= VEC_APPEND (sl
->ca
, bfd_vma
);
8397 *p
= sect
->output_section
->vma
+ sect
->output_offset
+ offset
;
8398 sect
->output_section
->flags
|= SEC_RELOC
;
8402 /* Add a quad word relocation fixup at address SECT + OFFSET to SHLIB. */
8405 alpha_vms_add_fixup_qr (struct bfd_link_info
*info
, bfd
*src
,
8406 bfd
*shlib
, bfd_vma vec
)
8408 struct alpha_vms_shlib_el
*sl
;
8409 struct alpha_vms_vma_ref
*r
;
8410 asection
*sect
= PRIV2 (src
, image_section
);
8411 file_ptr offset
= PRIV2 (src
, image_offset
);
8413 sl
= &VEC_EL (alpha_vms_link_hash (info
)->shrlibs
,
8414 struct alpha_vms_shlib_el
, PRIV2 (shlib
, shr_index
));
8415 sl
->has_fixups
= TRUE
;
8416 r
= VEC_APPEND (sl
->qr
, struct alpha_vms_vma_ref
);
8419 r
->vma
= sect
->output_section
->vma
+ sect
->output_offset
+ offset
;
8421 sect
->output_section
->flags
|= SEC_RELOC
;
8426 alpha_vms_add_fixup_lr (struct bfd_link_info
*info ATTRIBUTE_UNUSED
,
8427 unsigned int shr ATTRIBUTE_UNUSED
,
8428 bfd_vma vec ATTRIBUTE_UNUSED
)
8430 /* Not yet supported. */
8434 /* Add relocation. FIXME: Not yet emitted. */
8437 alpha_vms_add_lw_reloc (struct bfd_link_info
*info ATTRIBUTE_UNUSED
)
8443 alpha_vms_add_qw_reloc (struct bfd_link_info
*info ATTRIBUTE_UNUSED
)
8448 static struct bfd_hash_entry
*
8449 alpha_vms_link_hash_newfunc (struct bfd_hash_entry
*entry
,
8450 struct bfd_hash_table
*table
,
8453 struct alpha_vms_link_hash_entry
*ret
=
8454 (struct alpha_vms_link_hash_entry
*) entry
;
8456 /* Allocate the structure if it has not already been allocated by a
8459 ret
= ((struct alpha_vms_link_hash_entry
*)
8460 bfd_hash_allocate (table
,
8461 sizeof (struct alpha_vms_link_hash_entry
)));
8465 /* Call the allocation method of the superclass. */
8466 ret
= ((struct alpha_vms_link_hash_entry
*)
8467 _bfd_link_hash_newfunc ((struct bfd_hash_entry
*) ret
,
8472 return (struct bfd_hash_entry
*) ret
;
8476 alpha_vms_bfd_link_hash_table_free (bfd
*abfd
)
8478 struct alpha_vms_link_hash_table
*t
;
8481 t
= (struct alpha_vms_link_hash_table
*) abfd
->link
.hash
;
8482 for (i
= 0; i
< VEC_COUNT (t
->shrlibs
); i
++)
8484 struct alpha_vms_shlib_el
*shlib
;
8486 shlib
= &VEC_EL (t
->shrlibs
, struct alpha_vms_shlib_el
, i
);
8487 free (&VEC_EL (shlib
->ca
, bfd_vma
, 0));
8488 free (&VEC_EL (shlib
->lp
, bfd_vma
, 0));
8489 free (&VEC_EL (shlib
->qr
, struct alpha_vms_vma_ref
, 0));
8491 free (&VEC_EL (t
->shrlibs
, struct alpha_vms_shlib_el
, 0));
8493 _bfd_generic_link_hash_table_free (abfd
);
8496 /* Create an Alpha/VMS link hash table. */
8498 static struct bfd_link_hash_table
*
8499 alpha_vms_bfd_link_hash_table_create (bfd
*abfd
)
8501 struct alpha_vms_link_hash_table
*ret
;
8502 size_t amt
= sizeof (struct alpha_vms_link_hash_table
);
8504 ret
= (struct alpha_vms_link_hash_table
*) bfd_malloc (amt
);
8507 if (!_bfd_link_hash_table_init (&ret
->root
, abfd
,
8508 alpha_vms_link_hash_newfunc
,
8509 sizeof (struct alpha_vms_link_hash_entry
)))
8515 VEC_INIT (ret
->shrlibs
);
8517 ret
->root
.hash_table_free
= alpha_vms_bfd_link_hash_table_free
;
8523 alpha_vms_link_add_object_symbols (bfd
*abfd
, struct bfd_link_info
*info
)
8527 for (i
= 0; i
< PRIV (gsd_sym_count
); i
++)
8529 struct vms_symbol_entry
*e
= PRIV (syms
)[i
];
8530 struct alpha_vms_link_hash_entry
*h
;
8531 struct bfd_link_hash_entry
*h_root
;
8534 if (!alpha_vms_convert_symbol (abfd
, e
, &sym
))
8537 if ((e
->flags
& EGSY__V_DEF
) && abfd
->selective_search
)
8539 /* In selective_search mode, only add definition that are
8541 h
= (struct alpha_vms_link_hash_entry
*)bfd_link_hash_lookup
8542 (info
->hash
, sym
.name
, FALSE
, FALSE
, FALSE
);
8543 if (h
== NULL
|| h
->root
.type
!= bfd_link_hash_undefined
)
8549 h_root
= (struct bfd_link_hash_entry
*) h
;
8550 if (!_bfd_generic_link_add_one_symbol (info
, abfd
, sym
.name
, sym
.flags
,
8551 sym
.section
, sym
.value
, NULL
,
8552 FALSE
, FALSE
, &h_root
))
8554 h
= (struct alpha_vms_link_hash_entry
*) h_root
;
8556 if ((e
->flags
& EGSY__V_DEF
)
8558 && abfd
->xvec
== info
->output_bfd
->xvec
)
8562 if (abfd
->flags
& DYNAMIC
)
8564 struct alpha_vms_shlib_el
*shlib
;
8566 /* We do not want to include any of the sections in a dynamic
8567 object in the output file. See comment in elflink.c. */
8568 bfd_section_list_clear (abfd
);
8570 shlib
= VEC_APPEND (alpha_vms_link_hash (info
)->shrlibs
,
8571 struct alpha_vms_shlib_el
);
8575 VEC_INIT (shlib
->ca
);
8576 VEC_INIT (shlib
->lp
);
8577 VEC_INIT (shlib
->qr
);
8578 PRIV (shr_index
) = VEC_COUNT (alpha_vms_link_hash (info
)->shrlibs
) - 1;
8585 alpha_vms_link_add_archive_symbols (bfd
*abfd
, struct bfd_link_info
*info
)
8588 struct bfd_link_hash_entry
**pundef
;
8589 struct bfd_link_hash_entry
**next_pundef
;
8591 /* We only accept VMS libraries. */
8592 if (info
->output_bfd
->xvec
!= abfd
->xvec
)
8594 bfd_set_error (bfd_error_wrong_format
);
8598 /* The archive_pass field in the archive itself is used to
8599 initialize PASS, since we may search the same archive multiple
8601 pass
= ++abfd
->archive_pass
;
8603 /* Look through the list of undefined symbols. */
8604 for (pundef
= &info
->hash
->undefs
; *pundef
!= NULL
; pundef
= next_pundef
)
8606 struct bfd_link_hash_entry
*h
;
8612 next_pundef
= &(*pundef
)->u
.undef
.next
;
8614 /* When a symbol is defined, it is not necessarily removed from
8616 if (h
->type
!= bfd_link_hash_undefined
8617 && h
->type
!= bfd_link_hash_common
)
8619 /* Remove this entry from the list, for general cleanliness
8620 and because we are going to look through the list again
8621 if we search any more libraries. We can't remove the
8622 entry if it is the tail, because that would lose any
8623 entries we add to the list later on. */
8624 if (*pundef
!= info
->hash
->undefs_tail
)
8626 *pundef
= *next_pundef
;
8627 next_pundef
= pundef
;
8632 /* Look for this symbol in the archive hash table. */
8633 symidx
= _bfd_vms_lib_find_symbol (abfd
, h
->root
.string
);
8634 if (symidx
== BFD_NO_MORE_SYMBOLS
)
8636 /* Nothing in this slot. */
8640 element
= bfd_get_elt_at_index (abfd
, symidx
);
8641 if (element
== NULL
)
8644 if (element
->archive_pass
== -1 || element
->archive_pass
== pass
)
8646 /* Next symbol if this archive is wrong or already handled. */
8650 if (! bfd_check_format (element
, bfd_object
))
8652 element
->archive_pass
= -1;
8656 orig_element
= element
;
8657 if (bfd_is_thin_archive (abfd
))
8659 element
= _bfd_vms_lib_get_imagelib_file (element
);
8660 if (element
== NULL
|| !bfd_check_format (element
, bfd_object
))
8662 orig_element
->archive_pass
= -1;
8667 /* Unlike the generic linker, we know that this element provides
8668 a definition for an undefined symbol and we know that we want
8669 to include it. We don't need to check anything. */
8670 if (!(*info
->callbacks
8671 ->add_archive_element
) (info
, element
, h
->root
.string
, &element
))
8673 if (!alpha_vms_link_add_object_symbols (element
, info
))
8676 orig_element
->archive_pass
= pass
;
8683 alpha_vms_bfd_link_add_symbols (bfd
*abfd
, struct bfd_link_info
*info
)
8685 switch (bfd_get_format (abfd
))
8688 vms_debug2 ((2, "vms_link_add_symbols for object %s\n",
8690 return alpha_vms_link_add_object_symbols (abfd
, info
);
8693 vms_debug2 ((2, "vms_link_add_symbols for archive %s\n",
8695 return alpha_vms_link_add_archive_symbols (abfd
, info
);
8698 bfd_set_error (bfd_error_wrong_format
);
8704 alpha_vms_build_fixups (struct bfd_link_info
*info
)
8706 struct alpha_vms_link_hash_table
*t
= alpha_vms_link_hash (info
);
8707 unsigned char *content
;
8709 unsigned int sz
= 0;
8710 unsigned int lp_sz
= 0;
8711 unsigned int ca_sz
= 0;
8712 unsigned int qr_sz
= 0;
8713 unsigned int shrimg_cnt
= 0;
8714 unsigned int chgprt_num
= 0;
8715 unsigned int chgprt_sz
= 0;
8716 struct vms_eiaf
*eiaf
;
8720 /* Shared libraries. */
8721 for (i
= 0; i
< VEC_COUNT (t
->shrlibs
); i
++)
8723 struct alpha_vms_shlib_el
*shlib
;
8725 shlib
= &VEC_EL (t
->shrlibs
, struct alpha_vms_shlib_el
, i
);
8727 if (!shlib
->has_fixups
)
8732 if (VEC_COUNT (shlib
->ca
) > 0)
8734 /* Header + entries. */
8736 ca_sz
+= VEC_COUNT (shlib
->ca
) * 4;
8738 if (VEC_COUNT (shlib
->lp
) > 0)
8740 /* Header + entries. */
8742 lp_sz
+= VEC_COUNT (shlib
->lp
) * 4;
8744 if (VEC_COUNT (shlib
->qr
) > 0)
8746 /* Header + entries. */
8748 qr_sz
+= VEC_COUNT (shlib
->qr
) * 8;
8759 /* Finish now if there is no content. */
8760 if (ca_sz
+ lp_sz
+ qr_sz
== 0)
8763 /* Add an eicp entry for the fixup itself. */
8765 for (sec
= info
->output_bfd
->sections
; sec
!= NULL
; sec
= sec
->next
)
8767 /* This isect could be made RO or EXE after relocations are applied. */
8768 if ((sec
->flags
& SEC_RELOC
) != 0
8769 && (sec
->flags
& (SEC_CODE
| SEC_READONLY
)) != 0)
8772 chgprt_sz
= 4 + chgprt_num
* sizeof (struct vms_eicp
);
8774 /* Allocate section content (round-up size) */
8775 sz
= sizeof (struct vms_eiaf
) + shrimg_cnt
* sizeof (struct vms_shl
)
8776 + ca_sz
+ lp_sz
+ qr_sz
+ chgprt_sz
;
8777 sz
= (sz
+ VMS_BLOCK_SIZE
- 1) & ~(VMS_BLOCK_SIZE
- 1);
8778 content
= bfd_zalloc (info
->output_bfd
, sz
);
8779 if (content
== NULL
)
8782 sec
= alpha_vms_link_hash (info
)->fixup
;
8783 sec
->contents
= content
;
8786 eiaf
= (struct vms_eiaf
*)content
;
8787 off
= sizeof (struct vms_eiaf
);
8788 bfd_putl32 (0, eiaf
->majorid
);
8789 bfd_putl32 (0, eiaf
->minorid
);
8790 bfd_putl32 (0, eiaf
->iaflink
);
8791 bfd_putl32 (0, eiaf
->fixuplnk
);
8792 bfd_putl32 (sizeof (struct vms_eiaf
), eiaf
->size
);
8793 bfd_putl32 (0, eiaf
->flags
);
8794 bfd_putl32 (0, eiaf
->qrelfixoff
);
8795 bfd_putl32 (0, eiaf
->lrelfixoff
);
8796 bfd_putl32 (0, eiaf
->qdotadroff
);
8797 bfd_putl32 (0, eiaf
->ldotadroff
);
8798 bfd_putl32 (0, eiaf
->codeadroff
);
8799 bfd_putl32 (0, eiaf
->lpfixoff
);
8800 bfd_putl32 (0, eiaf
->chgprtoff
);
8801 bfd_putl32 (shrimg_cnt
? off
: 0, eiaf
->shlstoff
);
8802 bfd_putl32 (shrimg_cnt
, eiaf
->shrimgcnt
);
8803 bfd_putl32 (0, eiaf
->shlextra
);
8804 bfd_putl32 (0, eiaf
->permctx
);
8805 bfd_putl32 (0, eiaf
->base_va
);
8806 bfd_putl32 (0, eiaf
->lppsbfixoff
);
8813 for (i
= 0; i
< VEC_COUNT (t
->shrlibs
); i
++)
8815 struct alpha_vms_shlib_el
*shlib
;
8816 struct vms_shl
*shl
;
8818 shlib
= &VEC_EL (t
->shrlibs
, struct alpha_vms_shlib_el
, i
);
8820 if (!shlib
->has_fixups
)
8823 /* Renumber shared images. */
8824 PRIV2 (shlib
->abfd
, shr_index
) = shrimg_cnt
++;
8826 shl
= (struct vms_shl
*)(content
+ off
);
8827 bfd_putl32 (0, shl
->baseva
);
8828 bfd_putl32 (0, shl
->shlptr
);
8829 bfd_putl32 (0, shl
->ident
);
8830 bfd_putl32 (0, shl
->permctx
);
8831 shl
->size
= sizeof (struct vms_shl
);
8832 bfd_putl16 (0, shl
->fill_1
);
8834 bfd_putl32 (0, shl
->icb
);
8835 shl
->imgnam
[0] = strlen (PRIV2 (shlib
->abfd
, hdr_data
.hdr_t_name
));
8836 memcpy (shl
->imgnam
+ 1, PRIV2 (shlib
->abfd
, hdr_data
.hdr_t_name
),
8839 off
+= sizeof (struct vms_shl
);
8845 bfd_putl32 (off
, eiaf
->codeadroff
);
8847 for (i
= 0; i
< VEC_COUNT (t
->shrlibs
); i
++)
8849 struct alpha_vms_shlib_el
*shlib
;
8852 shlib
= &VEC_EL (t
->shrlibs
, struct alpha_vms_shlib_el
, i
);
8854 if (VEC_COUNT (shlib
->ca
) == 0)
8857 bfd_putl32 (VEC_COUNT (shlib
->ca
), content
+ off
);
8858 bfd_putl32 (PRIV2 (shlib
->abfd
, shr_index
), content
+ off
+ 4);
8861 for (j
= 0; j
< VEC_COUNT (shlib
->ca
); j
++)
8863 bfd_putl32 (VEC_EL (shlib
->ca
, bfd_vma
, j
) - t
->base_addr
,
8869 bfd_putl32 (0, content
+ off
);
8870 bfd_putl32 (0, content
+ off
+ 4);
8877 bfd_putl32 (off
, eiaf
->lpfixoff
);
8879 for (i
= 0; i
< VEC_COUNT (t
->shrlibs
); i
++)
8881 struct alpha_vms_shlib_el
*shlib
;
8884 shlib
= &VEC_EL (t
->shrlibs
, struct alpha_vms_shlib_el
, i
);
8886 if (VEC_COUNT (shlib
->lp
) == 0)
8889 bfd_putl32 (VEC_COUNT (shlib
->lp
), content
+ off
);
8890 bfd_putl32 (PRIV2 (shlib
->abfd
, shr_index
), content
+ off
+ 4);
8893 for (j
= 0; j
< VEC_COUNT (shlib
->lp
); j
++)
8895 bfd_putl32 (VEC_EL (shlib
->lp
, bfd_vma
, j
) - t
->base_addr
,
8901 bfd_putl32 (0, content
+ off
);
8902 bfd_putl32 (0, content
+ off
+ 4);
8909 bfd_putl32 (off
, eiaf
->qdotadroff
);
8911 for (i
= 0; i
< VEC_COUNT (t
->shrlibs
); i
++)
8913 struct alpha_vms_shlib_el
*shlib
;
8916 shlib
= &VEC_EL (t
->shrlibs
, struct alpha_vms_shlib_el
, i
);
8918 if (VEC_COUNT (shlib
->qr
) == 0)
8921 bfd_putl32 (VEC_COUNT (shlib
->qr
), content
+ off
);
8922 bfd_putl32 (PRIV2 (shlib
->abfd
, shr_index
), content
+ off
+ 4);
8925 for (j
= 0; j
< VEC_COUNT (shlib
->qr
); j
++)
8927 struct alpha_vms_vma_ref
*r
;
8928 r
= &VEC_EL (shlib
->qr
, struct alpha_vms_vma_ref
, j
);
8929 bfd_putl32 (r
->vma
- t
->base_addr
, content
+ off
);
8930 bfd_putl32 (r
->ref
, content
+ off
+ 4);
8935 bfd_putl32 (0, content
+ off
);
8936 bfd_putl32 (0, content
+ off
+ 4);
8941 /* Write the change protection table. */
8942 bfd_putl32 (off
, eiaf
->chgprtoff
);
8943 bfd_putl32 (chgprt_num
, content
+ off
);
8946 for (sec
= info
->output_bfd
->sections
; sec
!= NULL
; sec
= sec
->next
)
8948 struct vms_eicp
*eicp
;
8951 if ((sec
->flags
& SEC_LINKER_CREATED
) != 0 &&
8952 strcmp (sec
->name
, "$FIXUP$") == 0)
8954 else if ((sec
->flags
& SEC_RELOC
) != 0
8955 && (sec
->flags
& (SEC_CODE
| SEC_READONLY
)) != 0)
8960 eicp
= (struct vms_eicp
*)(content
+ off
);
8961 bfd_putl64 (sec
->vma
- t
->base_addr
, eicp
->baseva
);
8962 bfd_putl32 ((sec
->size
+ VMS_BLOCK_SIZE
- 1) & ~(VMS_BLOCK_SIZE
- 1),
8964 bfd_putl32 (prot
, eicp
->newprt
);
8965 off
+= sizeof (struct vms_eicp
);
8971 /* Called by bfd_hash_traverse to fill the symbol table.
8972 Return FALSE in case of failure. */
8975 alpha_vms_link_output_symbol (struct bfd_hash_entry
*bh
, void *infov
)
8977 struct bfd_link_hash_entry
*hc
= (struct bfd_link_hash_entry
*) bh
;
8978 struct bfd_link_info
*info
= (struct bfd_link_info
*)infov
;
8979 struct alpha_vms_link_hash_entry
*h
;
8980 struct vms_symbol_entry
*sym
;
8982 if (hc
->type
== bfd_link_hash_warning
)
8985 if (hc
->type
== bfd_link_hash_new
)
8988 h
= (struct alpha_vms_link_hash_entry
*) hc
;
8990 switch (h
->root
.type
)
8992 case bfd_link_hash_undefined
:
8994 case bfd_link_hash_new
:
8995 case bfd_link_hash_warning
:
8997 case bfd_link_hash_undefweak
:
8999 case bfd_link_hash_defined
:
9000 case bfd_link_hash_defweak
:
9002 asection
*sec
= h
->root
.u
.def
.section
;
9004 /* FIXME: this is certainly a symbol from a dynamic library. */
9005 if (bfd_is_abs_section (sec
))
9008 if (sec
->owner
->flags
& DYNAMIC
)
9012 case bfd_link_hash_common
:
9014 case bfd_link_hash_indirect
:
9018 /* Do not write not kept symbols. */
9019 if (info
->strip
== strip_some
9020 && bfd_hash_lookup (info
->keep_hash
, h
->root
.root
.string
,
9021 FALSE
, FALSE
) != NULL
)
9026 /* This symbol doesn't come from a VMS object. So we suppose it is
9028 int len
= strlen (h
->root
.root
.string
);
9030 sym
= (struct vms_symbol_entry
*)bfd_zalloc (info
->output_bfd
,
9031 sizeof (*sym
) + len
);
9035 memcpy (sym
->name
, h
->root
.root
.string
, len
);
9037 sym
->owner
= info
->output_bfd
;
9039 sym
->typ
= EGSD__C_SYMG
;
9041 sym
->flags
= EGSY__V_DEF
| EGSY__V_REL
;
9042 sym
->symbol_vector
= h
->root
.u
.def
.value
;
9043 sym
->section
= h
->root
.u
.def
.section
;
9044 sym
->value
= h
->root
.u
.def
.value
;
9049 if (!add_symbol_entry (info
->output_bfd
, sym
))
9056 alpha_vms_bfd_final_link (bfd
*abfd
, struct bfd_link_info
*info
)
9059 struct bfd_link_order
*p
;
9067 if (bfd_link_relocatable (info
))
9069 /* FIXME: we do not yet support relocatable link. It is not obvious
9070 how to do it for debug infos. */
9071 (*info
->callbacks
->einfo
)(_("%P: relocatable link is not supported\n"));
9075 abfd
->outsymbols
= NULL
;
9078 /* Mark all sections which will be included in the output file. */
9079 for (o
= abfd
->sections
; o
!= NULL
; o
= o
->next
)
9080 for (p
= o
->map_head
.link_order
; p
!= NULL
; p
= p
->next
)
9081 if (p
->type
== bfd_indirect_link_order
)
9082 p
->u
.indirect
.section
->linker_mark
= TRUE
;
9085 /* Handle all the link order information for the sections. */
9086 for (o
= abfd
->sections
; o
!= NULL
; o
= o
->next
)
9088 printf ("For section %s (at 0x%08x, flags=0x%08x):\n",
9089 o
->name
, (unsigned)o
->vma
, (unsigned)o
->flags
);
9091 for (p
= o
->map_head
.link_order
; p
!= NULL
; p
= p
->next
)
9093 printf (" at 0x%08x - 0x%08x: ",
9094 (unsigned)p
->offset
, (unsigned)(p
->offset
+ p
->size
- 1));
9097 case bfd_section_reloc_link_order
:
9098 case bfd_symbol_reloc_link_order
:
9099 printf (" section/symbol reloc\n");
9101 case bfd_indirect_link_order
:
9102 printf (" section %s of %s\n",
9103 p
->u
.indirect
.section
->name
,
9104 p
->u
.indirect
.section
->owner
->filename
);
9106 case bfd_data_link_order
:
9107 printf (" explicit data\n");
9110 printf (" *unknown* type %u\n", p
->type
);
9117 /* Generate the symbol table. */
9118 BFD_ASSERT (PRIV (syms
) == NULL
);
9119 if (info
->strip
!= strip_all
)
9120 bfd_hash_traverse (&info
->hash
->table
, alpha_vms_link_output_symbol
, info
);
9122 /* Find the entry point. */
9123 if (bfd_get_start_address (abfd
) == 0)
9125 bfd
*startbfd
= NULL
;
9127 for (sub
= info
->input_bfds
; sub
!= NULL
; sub
= sub
->link
.next
)
9129 /* Consider only VMS object files. */
9130 if (sub
->xvec
!= abfd
->xvec
)
9133 if (!PRIV2 (sub
, eom_data
).eom_has_transfer
)
9135 if ((PRIV2 (sub
, eom_data
).eom_b_tfrflg
& EEOM__M_WKTFR
) && startbfd
)
9137 if (startbfd
!= NULL
9138 && !(PRIV2 (sub
, eom_data
).eom_b_tfrflg
& EEOM__M_WKTFR
))
9140 (*info
->callbacks
->einfo
)
9141 /* xgettext:c-format */
9142 (_("%P: multiple entry points: in modules %pB and %pB\n"),
9151 unsigned int ps_idx
= PRIV2 (startbfd
, eom_data
).eom_l_psindx
;
9152 bfd_vma tfradr
= PRIV2 (startbfd
, eom_data
).eom_l_tfradr
;
9155 sec
= PRIV2 (startbfd
, sections
)[ps_idx
];
9157 bfd_set_start_address
9158 (abfd
, sec
->output_section
->vma
+ sec
->output_offset
+ tfradr
);
9162 /* Set transfer addresses. */
9165 struct bfd_link_hash_entry
*h
;
9168 PRIV (transfer_address
[i
++]) = 0xffffffff00000340ULL
; /* SYS$IMGACT */
9169 h
= bfd_link_hash_lookup (info
->hash
, "LIB$INITIALIZE", FALSE
, FALSE
, TRUE
);
9170 if (h
!= NULL
&& h
->type
== bfd_link_hash_defined
)
9171 PRIV (transfer_address
[i
++]) =
9172 alpha_vms_get_sym_value (h
->u
.def
.section
, h
->u
.def
.value
);
9173 PRIV (transfer_address
[i
++]) = bfd_get_start_address (abfd
);
9175 PRIV (transfer_address
[i
++]) = 0;
9178 /* Allocate contents.
9179 Also compute the virtual base address. */
9180 base_addr
= (bfd_vma
)-1;
9182 for (o
= abfd
->sections
; o
!= NULL
; o
= o
->next
)
9184 if (o
->flags
& SEC_HAS_CONTENTS
)
9186 o
->contents
= bfd_alloc (abfd
, o
->size
);
9187 if (o
->contents
== NULL
)
9190 if (o
->flags
& SEC_LOAD
)
9192 if (o
->vma
< base_addr
)
9194 if (o
->vma
+ o
->size
> last_addr
)
9195 last_addr
= o
->vma
+ o
->size
;
9197 /* Clear the RELOC flags. Currently we don't support incremental
9198 linking. We use the RELOC flag for computing the eicp entries. */
9199 o
->flags
&= ~SEC_RELOC
;
9202 /* Create the fixup section. */
9203 fixupsec
= bfd_make_section_anyway_with_flags
9204 (info
->output_bfd
, "$FIXUP$",
9205 SEC_ALLOC
| SEC_LOAD
| SEC_HAS_CONTENTS
| SEC_LINKER_CREATED
);
9206 if (fixupsec
== NULL
)
9208 last_addr
= (last_addr
+ 0xffff) & ~0xffff;
9209 fixupsec
->vma
= last_addr
;
9211 alpha_vms_link_hash (info
)->fixup
= fixupsec
;
9212 alpha_vms_link_hash (info
)->base_addr
= base_addr
;
9214 /* Create the DMT section, if necessary. */
9215 BFD_ASSERT (PRIV (dst_section
) == NULL
);
9216 dst
= bfd_get_section_by_name (abfd
, "$DST$");
9217 if (dst
!= NULL
&& dst
->size
== 0)
9221 PRIV (dst_section
) = dst
;
9222 dmt
= bfd_make_section_anyway_with_flags
9223 (info
->output_bfd
, "$DMT$",
9224 SEC_DEBUGGING
| SEC_HAS_CONTENTS
| SEC_LINKER_CREATED
);
9231 /* Read all sections from the inputs. */
9232 for (sub
= info
->input_bfds
; sub
!= NULL
; sub
= sub
->link
.next
)
9234 if (sub
->flags
& DYNAMIC
)
9236 alpha_vms_create_eisd_for_shared (abfd
, sub
);
9240 if (!alpha_vms_read_sections_content (sub
, info
))
9244 /* Handle all the link order information for the sections.
9245 Note: past this point, it is not possible to create new sections. */
9246 for (o
= abfd
->sections
; o
!= NULL
; o
= o
->next
)
9248 for (p
= o
->map_head
.link_order
; p
!= NULL
; p
= p
->next
)
9252 case bfd_section_reloc_link_order
:
9253 case bfd_symbol_reloc_link_order
:
9256 case bfd_indirect_link_order
:
9260 if (! _bfd_default_link_order (abfd
, info
, o
, p
))
9267 /* Compute fixups. */
9268 if (!alpha_vms_build_fixups (info
))
9271 /* Compute the DMT. */
9275 unsigned char *contents
= NULL
;
9277 /* In pass 1, compute the size. In pass 2, write the DMT contents. */
9278 for (pass
= 0; pass
< 2; pass
++)
9280 unsigned int off
= 0;
9282 /* For each object file (ie for each module). */
9283 for (sub
= info
->input_bfds
; sub
!= NULL
; sub
= sub
->link
.next
)
9286 struct vms_dmt_header
*dmth
= NULL
;
9287 unsigned int psect_count
;
9289 /* Skip this module if it has no DST. */
9290 sub_dst
= PRIV2 (sub
, dst_section
);
9291 if (sub_dst
== NULL
|| sub_dst
->size
== 0)
9296 /* Write the header. */
9297 dmth
= (struct vms_dmt_header
*)(contents
+ off
);
9298 bfd_putl32 (sub_dst
->output_offset
, dmth
->modbeg
);
9299 bfd_putl32 (sub_dst
->size
, dmth
->size
);
9302 off
+= sizeof (struct vms_dmt_header
);
9305 /* For each section (ie for each psect). */
9306 for (o
= sub
->sections
; o
!= NULL
; o
= o
->next
)
9308 /* Only consider interesting sections. */
9309 if (!(o
->flags
& SEC_ALLOC
))
9311 if (o
->flags
& SEC_LINKER_CREATED
)
9316 /* Write an entry. */
9317 struct vms_dmt_psect
*dmtp
;
9319 dmtp
= (struct vms_dmt_psect
*)(contents
+ off
);
9320 bfd_putl32 (o
->output_offset
+ o
->output_section
->vma
,
9322 bfd_putl32 (o
->size
, dmtp
->length
);
9325 off
+= sizeof (struct vms_dmt_psect
);
9328 bfd_putl32 (psect_count
, dmth
->psect_count
);
9333 contents
= bfd_zalloc (info
->output_bfd
, off
);
9334 if (contents
== NULL
)
9336 dmt
->contents
= contents
;
9341 BFD_ASSERT (off
== dmt
->size
);
9349 /* Read the contents of a section.
9350 buf points to a buffer of buf_size bytes to be filled with
9351 section data (starting at offset into section) */
9354 alpha_vms_get_section_contents (bfd
*abfd
, asection
*section
,
9355 void *buf
, file_ptr offset
,
9356 bfd_size_type count
)
9360 /* Image are easy. */
9361 if (bfd_get_file_flags (abfd
) & (EXEC_P
| DYNAMIC
))
9362 return _bfd_generic_get_section_contents (abfd
, section
,
9363 buf
, offset
, count
);
9366 if (offset
+ count
< count
9367 || offset
+ count
> section
->size
)
9369 bfd_set_error (bfd_error_invalid_operation
);
9373 /* If the section is already in memory, just copy it. */
9374 if (section
->flags
& SEC_IN_MEMORY
)
9376 BFD_ASSERT (section
->contents
!= NULL
);
9377 memcpy (buf
, section
->contents
+ offset
, count
);
9380 if (section
->size
== 0)
9383 /* Alloc in memory and read ETIRs. */
9384 for (sec
= abfd
->sections
; sec
; sec
= sec
->next
)
9386 BFD_ASSERT (sec
->contents
== NULL
);
9388 if (sec
->size
!= 0 && (sec
->flags
& SEC_HAS_CONTENTS
))
9390 sec
->contents
= bfd_alloc (abfd
, sec
->size
);
9391 if (sec
->contents
== NULL
)
9395 if (!alpha_vms_read_sections_content (abfd
, NULL
))
9397 for (sec
= abfd
->sections
; sec
; sec
= sec
->next
)
9399 sec
->flags
|= SEC_IN_MEMORY
;
9400 memcpy (buf
, section
->contents
+ offset
, count
);
9405 /* Set the format of a file being written. */
9408 alpha_vms_mkobject (bfd
* abfd
)
9410 const bfd_arch_info_type
*arch
;
9412 vms_debug2 ((1, "alpha_vms_mkobject (%p)\n", abfd
));
9414 if (!vms_initialize (abfd
))
9417 PRIV (recwr
.buf
) = bfd_alloc (abfd
, MAX_OUTREC_SIZE
);
9418 if (PRIV (recwr
.buf
) == NULL
)
9421 arch
= bfd_scan_arch ("alpha");
9425 bfd_set_error (bfd_error_wrong_format
);
9429 abfd
->arch_info
= arch
;
9436 /* Called when the BFD is being closed to do any necessary cleanup. */
9439 vms_close_and_cleanup (bfd
* abfd
)
9441 vms_debug2 ((1, "vms_close_and_cleanup (%p)\n", abfd
));
9443 if (abfd
== NULL
|| abfd
->tdata
.any
== NULL
)
9446 if (abfd
->format
== bfd_object
)
9448 alpha_vms_free_private (abfd
);
9451 if (abfd
->direction
== write_direction
)
9453 /* Last step on VMS is to convert the file to variable record length
9455 if (!bfd_cache_close (abfd
))
9457 if (!_bfd_vms_convert_to_var_unix_filename (abfd
->filename
))
9463 return _bfd_generic_close_and_cleanup (abfd
);
9466 /* Called when a new section is created. */
9469 vms_new_section_hook (bfd
* abfd
, asection
*section
)
9473 vms_debug2 ((1, "vms_new_section_hook (%p, [%u]%s)\n",
9474 abfd
, section
->index
, section
->name
));
9476 if (!bfd_set_section_alignment (section
, 0))
9479 vms_debug2 ((7, "%u: %s\n", section
->index
, section
->name
));
9481 amt
= sizeof (struct vms_section_data_struct
);
9482 section
->used_by_bfd
= bfd_zalloc (abfd
, amt
);
9483 if (section
->used_by_bfd
== NULL
)
9486 /* Create the section symbol. */
9487 return _bfd_generic_new_section_hook (abfd
, section
);
9490 /* Part 4.5, symbols. */
9492 /* Print symbol to file according to how. how is one of
9493 bfd_print_symbol_name just print the name
9494 bfd_print_symbol_more print more (???)
9495 bfd_print_symbol_all print all we know, which is not much right now :-). */
9498 vms_print_symbol (bfd
* abfd
,
9501 bfd_print_symbol_type how
)
9503 vms_debug2 ((1, "vms_print_symbol (%p, %p, %p, %d)\n",
9504 abfd
, file
, symbol
, how
));
9508 case bfd_print_symbol_name
:
9509 case bfd_print_symbol_more
:
9510 fprintf ((FILE *)file
," %s", symbol
->name
);
9513 case bfd_print_symbol_all
:
9515 const char *section_name
= symbol
->section
->name
;
9517 bfd_print_symbol_vandf (abfd
, file
, symbol
);
9519 fprintf ((FILE *) file
," %-8s %s", section_name
, symbol
->name
);
9525 /* Return information about symbol in ret.
9527 fill type, value and name
9530 B bss segment symbol
9532 D data segment symbol
9534 t a static function symbol
9535 T text segment symbol
9540 vms_get_symbol_info (bfd
* abfd ATTRIBUTE_UNUSED
,
9546 vms_debug2 ((1, "vms_get_symbol_info (%p, %p, %p)\n", abfd
, symbol
, ret
));
9548 sec
= symbol
->section
;
9555 else if (bfd_is_com_section (sec
))
9557 else if (bfd_is_abs_section (sec
))
9559 else if (bfd_is_und_section (sec
))
9561 else if (bfd_is_ind_section (sec
))
9563 else if ((symbol
->flags
& BSF_FUNCTION
)
9564 || (bfd_section_flags (sec
) & SEC_CODE
))
9566 else if (bfd_section_flags (sec
) & SEC_DATA
)
9568 else if (bfd_section_flags (sec
) & SEC_ALLOC
)
9573 if (ret
->type
!= 'U')
9574 ret
->value
= symbol
->value
+ symbol
->section
->vma
;
9577 ret
->name
= symbol
->name
;
9580 /* Return TRUE if the given symbol sym in the BFD abfd is
9581 a compiler generated local label, else return FALSE. */
9584 vms_bfd_is_local_label_name (bfd
* abfd ATTRIBUTE_UNUSED
,
9587 return name
[0] == '$';
9590 /* Part 4.7, writing an object file. */
9592 /* Sets the contents of the section section in BFD abfd to the data starting
9593 in memory at LOCATION. The data is written to the output section starting
9594 at offset offset for count bytes.
9596 Normally TRUE is returned, else FALSE. Possible error returns are:
9597 o bfd_error_no_contents - The output section does not have the
9598 SEC_HAS_CONTENTS attribute, so nothing can be written to it.
9599 o and some more too */
9602 _bfd_vms_set_section_contents (bfd
* abfd
,
9604 const void * location
,
9606 bfd_size_type count
)
9608 if (section
->contents
== NULL
)
9610 section
->contents
= bfd_alloc (abfd
, section
->size
);
9611 if (section
->contents
== NULL
)
9614 memcpy (section
->contents
+ offset
, location
, (size_t) count
);
9620 /* Set the architecture and machine type in BFD abfd to arch and mach.
9621 Find the correct pointer to a structure and insert it into the arch_info
9625 alpha_vms_set_arch_mach (bfd
*abfd
,
9626 enum bfd_architecture arch
, unsigned long mach
)
9628 if (arch
!= bfd_arch_alpha
9629 && arch
!= bfd_arch_unknown
)
9632 return bfd_default_set_arch_mach (abfd
, arch
, mach
);
9635 /* Set section VMS flags. Clear NO_FLAGS and set FLAGS. */
9638 bfd_vms_set_section_flags (bfd
*abfd ATTRIBUTE_UNUSED
,
9639 asection
*sec
, flagword no_flags
, flagword flags
)
9641 vms_section_data (sec
)->no_flags
= no_flags
;
9642 vms_section_data (sec
)->flags
= flags
;
9645 struct vms_private_data_struct
*
9646 bfd_vms_get_data (bfd
*abfd
)
9648 return (struct vms_private_data_struct
*)abfd
->tdata
.any
;
9651 #define vms_bfd_is_target_special_symbol _bfd_bool_bfd_asymbol_false
9652 #define vms_bfd_link_just_syms _bfd_generic_link_just_syms
9653 #define vms_bfd_copy_link_hash_symbol_type \
9654 _bfd_generic_copy_link_hash_symbol_type
9655 #define vms_bfd_is_group_section bfd_generic_is_group_section
9656 #define vms_bfd_group_name bfd_generic_group_name
9657 #define vms_bfd_discard_group bfd_generic_discard_group
9658 #define vms_section_already_linked _bfd_generic_section_already_linked
9659 #define vms_bfd_define_common_symbol bfd_generic_define_common_symbol
9660 #define vms_bfd_link_hide_symbol _bfd_generic_link_hide_symbol
9661 #define vms_bfd_define_start_stop bfd_generic_define_start_stop
9662 #define vms_bfd_copy_private_header_data _bfd_generic_bfd_copy_private_header_data
9664 #define vms_bfd_copy_private_bfd_data _bfd_generic_bfd_copy_private_bfd_data
9665 #define vms_bfd_free_cached_info _bfd_generic_bfd_free_cached_info
9666 #define vms_bfd_copy_private_section_data _bfd_generic_bfd_copy_private_section_data
9667 #define vms_bfd_copy_private_symbol_data _bfd_generic_bfd_copy_private_symbol_data
9668 #define vms_bfd_set_private_flags _bfd_generic_bfd_set_private_flags
9669 #define vms_bfd_merge_private_bfd_data _bfd_generic_bfd_merge_private_bfd_data
9671 /* Symbols table. */
9672 #define alpha_vms_make_empty_symbol _bfd_generic_make_empty_symbol
9673 #define alpha_vms_bfd_is_target_special_symbol _bfd_bool_bfd_asymbol_false
9674 #define alpha_vms_print_symbol vms_print_symbol
9675 #define alpha_vms_get_symbol_info vms_get_symbol_info
9676 #define alpha_vms_get_symbol_version_string \
9677 _bfd_nosymbols_get_symbol_version_string
9679 #define alpha_vms_read_minisymbols _bfd_generic_read_minisymbols
9680 #define alpha_vms_minisymbol_to_symbol _bfd_generic_minisymbol_to_symbol
9681 #define alpha_vms_get_lineno _bfd_nosymbols_get_lineno
9682 #define alpha_vms_find_inliner_info _bfd_nosymbols_find_inliner_info
9683 #define alpha_vms_bfd_make_debug_symbol _bfd_nosymbols_bfd_make_debug_symbol
9684 #define alpha_vms_find_nearest_line _bfd_vms_find_nearest_line
9685 #define alpha_vms_find_line _bfd_nosymbols_find_line
9686 #define alpha_vms_bfd_is_local_label_name vms_bfd_is_local_label_name
9688 /* Generic table. */
9689 #define alpha_vms_close_and_cleanup vms_close_and_cleanup
9690 #define alpha_vms_bfd_free_cached_info vms_bfd_free_cached_info
9691 #define alpha_vms_new_section_hook vms_new_section_hook
9692 #define alpha_vms_set_section_contents _bfd_vms_set_section_contents
9693 #define alpha_vms_get_section_contents_in_window _bfd_generic_get_section_contents_in_window
9695 #define alpha_vms_bfd_get_relocated_section_contents \
9696 bfd_generic_get_relocated_section_contents
9698 #define alpha_vms_bfd_relax_section bfd_generic_relax_section
9699 #define alpha_vms_bfd_gc_sections bfd_generic_gc_sections
9700 #define alpha_vms_bfd_lookup_section_flags bfd_generic_lookup_section_flags
9701 #define alpha_vms_bfd_merge_sections bfd_generic_merge_sections
9702 #define alpha_vms_bfd_is_group_section bfd_generic_is_group_section
9703 #define alpha_vms_bfd_group_name bfd_generic_group_name
9704 #define alpha_vms_bfd_discard_group bfd_generic_discard_group
9705 #define alpha_vms_section_already_linked \
9706 _bfd_generic_section_already_linked
9708 #define alpha_vms_bfd_define_common_symbol bfd_generic_define_common_symbol
9709 #define alpha_vms_bfd_link_hide_symbol _bfd_generic_link_hide_symbol
9710 #define alpha_vms_bfd_define_start_stop bfd_generic_define_start_stop
9711 #define alpha_vms_bfd_link_just_syms _bfd_generic_link_just_syms
9712 #define alpha_vms_bfd_copy_link_hash_symbol_type \
9713 _bfd_generic_copy_link_hash_symbol_type
9715 #define alpha_vms_bfd_link_split_section _bfd_generic_link_split_section
9717 #define alpha_vms_get_dynamic_symtab_upper_bound \
9718 _bfd_nodynamic_get_dynamic_symtab_upper_bound
9719 #define alpha_vms_canonicalize_dynamic_symtab \
9720 _bfd_nodynamic_canonicalize_dynamic_symtab
9721 #define alpha_vms_get_dynamic_reloc_upper_bound \
9722 _bfd_nodynamic_get_dynamic_reloc_upper_bound
9723 #define alpha_vms_canonicalize_dynamic_reloc \
9724 _bfd_nodynamic_canonicalize_dynamic_reloc
9725 #define alpha_vms_bfd_link_check_relocs _bfd_generic_link_check_relocs
9727 const bfd_target alpha_vms_vec
=
9729 "vms-alpha", /* Name. */
9730 bfd_target_evax_flavour
,
9731 BFD_ENDIAN_LITTLE
, /* Data byte order is little. */
9732 BFD_ENDIAN_LITTLE
, /* Header byte order is little. */
9734 (HAS_RELOC
| EXEC_P
| HAS_LINENO
| HAS_DEBUG
| HAS_SYMS
| HAS_LOCALS
9735 | WP_TEXT
| D_PAGED
), /* Object flags. */
9736 (SEC_ALLOC
| SEC_LOAD
| SEC_RELOC
9737 | SEC_READONLY
| SEC_CODE
| SEC_DATA
9738 | SEC_HAS_CONTENTS
| SEC_IN_MEMORY
), /* Sect flags. */
9739 0, /* symbol_leading_char. */
9740 ' ', /* ar_pad_char. */
9741 15, /* ar_max_namelen. */
9742 0, /* match priority. */
9743 bfd_getl64
, bfd_getl_signed_64
, bfd_putl64
,
9744 bfd_getl32
, bfd_getl_signed_32
, bfd_putl32
,
9745 bfd_getl16
, bfd_getl_signed_16
, bfd_putl16
,
9746 bfd_getl64
, bfd_getl_signed_64
, bfd_putl64
,
9747 bfd_getl32
, bfd_getl_signed_32
, bfd_putl32
,
9748 bfd_getl16
, bfd_getl_signed_16
, bfd_putl16
,
9750 { /* bfd_check_format. */
9753 _bfd_vms_lib_alpha_archive_p
,
9756 { /* bfd_set_format. */
9757 _bfd_bool_bfd_false_error
,
9759 _bfd_vms_lib_alpha_mkarchive
,
9760 _bfd_bool_bfd_false_error
9762 { /* bfd_write_contents. */
9763 _bfd_bool_bfd_false_error
,
9764 alpha_vms_write_object_contents
,
9765 _bfd_vms_lib_write_archive_contents
,
9766 _bfd_bool_bfd_false_error
9769 BFD_JUMP_TABLE_GENERIC (alpha_vms
),
9770 BFD_JUMP_TABLE_COPY (vms
),
9771 BFD_JUMP_TABLE_CORE (_bfd_nocore
),
9772 BFD_JUMP_TABLE_ARCHIVE (_bfd_vms_lib
),
9773 BFD_JUMP_TABLE_SYMBOLS (alpha_vms
),
9774 BFD_JUMP_TABLE_RELOCS (alpha_vms
),
9775 BFD_JUMP_TABLE_WRITE (alpha_vms
),
9776 BFD_JUMP_TABLE_LINK (alpha_vms
),
9777 BFD_JUMP_TABLE_DYNAMIC (alpha_vms
),