?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
[PATCH 2/57][Arm][GAS] Add support for MVE instructions: vpst, vadd, vsub and vabd
[binutils-gdb.git] / bfd / vms-alpha.c
blobd8b30823a2b7c247057f0fef6dc130f90067336d
1 /* vms.c -- BFD back-end for EVAX (openVMS/Alpha) files.
2 Copyright (C) 1996-2019 Free Software Foundation, Inc.
3
4 Initial version written by Klaus Kaempf (kkaempf@rmi.de)
5 Major rewrite by Adacore.
6
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.
11
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.
16
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. */
21
22 /* TODO:
23 o overlayed sections
24 o PIC
25 o Generation of shared image
26 o Relocation optimizations
27 o EISD for the stack
28 o Vectors isect
29 o 64 bits sections
30 o Entry point
31 o LIB$INITIALIZE
32 o protected sections (for messages)
33 ...
34 */
35
36 #include "sysdep.h"
37 #include "bfd.h"
38 #include "bfdlink.h"
39 #include "libbfd.h"
40 #include "bfdver.h"
41
42 #include "vms.h"
43 #include "vms/eihd.h"
44 #include "vms/eiha.h"
45 #include "vms/eihi.h"
46 #include "vms/eihs.h"
47 #include "vms/eisd.h"
48 #include "vms/dmt.h"
49 #include "vms/dst.h"
50 #include "vms/eihvn.h"
51 #include "vms/eobjrec.h"
52 #include "vms/egsd.h"
53 #include "vms/egps.h"
54 #include "vms/esgps.h"
55 #include "vms/eeom.h"
56 #include "vms/emh.h"
57 #include "vms/eiaf.h"
58 #include "vms/shl.h"
59 #include "vms/eicp.h"
60 #include "vms/etir.h"
61 #include "vms/egsy.h"
62 #include "vms/esdf.h"
63 #include "vms/esdfm.h"
64 #include "vms/esdfv.h"
65 #include "vms/esrf.h"
66 #include "vms/egst.h"
67 #include "vms/eidc.h"
68 #include "vms/dsc.h"
69 #include "vms/prt.h"
70 #include "vms/internal.h"
71 \f
72
73 #define MIN(a,b) ((a) < (b) ? (a) : (b))
74
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
94
95 /* These are used with DST_S_C_LINE_NUM. */
96 #define DST_S_C_LINE_NUM_HEADER_SIZE 4
97
98 /* These are used with DST_S_C_SOURCE */
99
100 #define DST_S_B_PCLINE_UNSBYTE 1
101 #define DST_S_W_PCLINE_UNSWORD 1
102 #define DST_S_L_PCLINE_UNSLONG 1
103
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
108
109 /* These are used with DST_S_C_SOURCE. */
110 #define DST_S_C_SOURCE_HEADER_SIZE 4
111
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
118
119 /* Debugger symbol definitions. */
120
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
125
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
129
130 /* VMS module header. */
131
132 struct hdr_struct
133 {
134 char hdr_b_strlvl;
135 int hdr_l_arch1;
136 int hdr_l_arch2;
137 int hdr_l_recsiz;
138 char *hdr_t_name;
139 char *hdr_t_version;
140 char *hdr_t_date;
141 char *hdr_c_lnm;
142 char *hdr_c_src;
143 char *hdr_c_ttl;
144 };
145
146 #define EMH_DATE_LENGTH 17
147
148 /* VMS End-Of-Module records (EOM/EEOM). */
149
150 struct eom_struct
151 {
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;
158 };
159
160 struct vms_symbol_entry
161 {
162 bfd *owner;
163
164 /* Common fields. */
165 unsigned char typ;
166 unsigned char data_type;
167 unsigned short flags;
168
169 /* Section and offset/value of the symbol. */
170 unsigned int value;
171 asection *section;
172
173 /* Section and offset/value for the entry point (only for subprg). */
174 asection *code_section;
175 unsigned int code_value;
176
177 /* Symbol vector offset. */
178 unsigned int symbol_vector;
179
180 /* Length of the name. */
181 unsigned char namelen;
182
183 char name[1];
184 };
185
186 /* Stack value for push/pop commands. */
187
188 struct stack_struct
189 {
190 bfd_vma value;
191 unsigned int reloc;
192 };
193
194 #define STACKSIZE 128
195
196 /* A minimal decoding of DST compilation units. We only decode
197 what's needed to get to the line number information. */
198
199 struct fileinfo
200 {
201 char *name;
202 unsigned int srec;
203 };
204
205 struct srecinfo
206 {
207 struct srecinfo *next;
208 unsigned int line;
209 unsigned int sfile;
210 unsigned int srec;
211 };
212
213 struct lineinfo
214 {
215 struct lineinfo *next;
216 bfd_vma address;
217 unsigned int line;
218 };
219
220 struct funcinfo
221 {
222 struct funcinfo *next;
223 char *name;
224 bfd_vma low;
225 bfd_vma high;
226 };
227
228 struct module
229 {
230 /* Chain the previously read compilation unit. */
231 struct module *next;
232
233 /* The module name. */
234 char *name;
235
236 /* The start offset and size of debug info in the DST section. */
237 unsigned int modbeg;
238 unsigned int size;
239
240 /* The lowest and highest addresses contained in this compilation
241 unit as specified in the compilation unit header. */
242 bfd_vma low;
243 bfd_vma high;
244
245 /* The listing line table. */
246 struct lineinfo *line_table;
247
248 /* The source record table. */
249 struct srecinfo *srec_table;
250
251 /* A list of the functions found in this module. */
252 struct funcinfo *func_table;
253
254 /* Current allocation of file_table. */
255 unsigned int file_table_count;
256
257 /* An array of the files making up this module. */
258 struct fileinfo *file_table;
259 };
260
261 /* BFD private data for alpha-vms. */
262
263 struct vms_private_data_struct
264 {
265 /* If true, relocs have been read. */
266 bfd_boolean reloc_done;
267
268 /* Record input buffer. */
269 struct vms_rec_rd recrd;
270 struct vms_rec_wr recwr;
271
272 struct hdr_struct hdr_data; /* data from HDR/EMH record */
273 struct eom_struct eom_data; /* data from EOM/EEOM record */
274
275 /* Transfer addresses (entry points). */
276 bfd_vma transfer_address[4];
277
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. */
281 asection **sections;
282
283 /* Array of raw symbols. */
284 struct vms_symbol_entry **syms;
285
286 /* Canonicalized symbols. */
287 asymbol **csymbols;
288
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;
295
296 /* Stack used to evaluate TIR/ETIR commands. */
297 struct stack_struct *stack;
298 int stackptr;
299
300 /* Content reading. */
301 asection *image_section; /* section for image_ptr */
302 file_ptr image_offset; /* Offset for image_ptr. */
303
304 struct module *modules; /* list of all compilation units */
305
306 /* The DST section. */
307 asection *dst_section;
308
309 unsigned int dst_ptr_offsets_count; /* # of offsets in following array */
310 unsigned int *dst_ptr_offsets; /* array of saved image_ptr offsets */
311
312 /* Shared library support */
313 bfd_vma symvva; /* relative virtual address of symbol vector */
314 unsigned int ident;
315 unsigned char matchctl;
316
317 /* Shared library index. This is used for input bfd while linking. */
318 unsigned int shr_index;
319
320 /* Used to place structures in the file. */
321 file_ptr file_pos;
322
323 /* Simply linked list of eisd. */
324 struct vms_internal_eisd_map *eisd_head;
325 struct vms_internal_eisd_map *eisd_tail;
326
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;
330
331 /* linkage index counter used by conditional store commands */
332 unsigned int vms_linkage_index;
333 };
334
335 #define PRIV2(abfd, name) \
336 (((struct vms_private_data_struct *)(abfd)->tdata.any)->name)
337 #define PRIV(name) PRIV2(abfd,name)
338
339
340 /* Used to keep extra VMS specific information for a given section.
341
342 reloc_size holds the size of the relocation stream, note this
343 is very different from the number of relocations as VMS relocations
344 are variable length.
345
346 reloc_stream is the actual stream of relocation entries. */
347
348 struct vms_section_data_struct
349 {
350 /* Maximnum number of entries in sec->relocation. */
351 unsigned reloc_max;
352
353 /* Corresponding eisd. Used only while generating executables. */
354 struct vms_internal_eisd_map *eisd;
355
356 /* PSC flags to be clear. */
357 flagword no_flags;
358
359 /* PSC flags to be set. */
360 flagword flags;
361 };
362
363 #define vms_section_data(sec) \
364 ((struct vms_section_data_struct *)sec->used_by_bfd)
365
366 /* To be called from the debugger. */
367 struct vms_private_data_struct *bfd_vms_get_data (bfd *);
368
369 static int vms_get_remaining_object_record (bfd *, unsigned int);
370 static bfd_boolean _bfd_vms_slurp_object_records (bfd * abfd);
371 static void alpha_vms_add_fixup_lp (struct bfd_link_info *, bfd *, bfd *);
372 static void alpha_vms_add_fixup_ca (struct bfd_link_info *, bfd *, bfd *);
373 static void alpha_vms_add_fixup_qr (struct bfd_link_info *, bfd *, bfd *,
374 bfd_vma);
375 static void alpha_vms_add_fixup_lr (struct bfd_link_info *, unsigned int,
376 bfd_vma);
377 static void alpha_vms_add_lw_reloc (struct bfd_link_info *);
378 static void alpha_vms_add_qw_reloc (struct bfd_link_info *);
379
380 struct vector_type
381 {
382 unsigned int max_el;
383 unsigned int nbr_el;
384 void *els;
385 };
386
387 /* Number of elements in VEC. */
388
389 #define VEC_COUNT(VEC) ((VEC).nbr_el)
390
391 /* Get the address of the Nth element. */
392
393 #define VEC_EL(VEC, TYPE, N) (((TYPE *)((VEC).els))[N])
394
395 #define VEC_INIT(VEC) \
396 do { \
397 (VEC).max_el = 0; \
398 (VEC).nbr_el = 0; \
399 (VEC).els = NULL; \
400 } while (0)
401
402 /* Be sure there is room for a new element. */
403
404 static void vector_grow1 (struct vector_type *vec, size_t elsz);
405
406 /* Allocate room for a new element and return its address. */
407
408 #define VEC_APPEND(VEC, TYPE) \
409 (vector_grow1 (&VEC, sizeof (TYPE)), &VEC_EL(VEC, TYPE, (VEC).nbr_el++))
410
411 /* Append an element. */
412
413 #define VEC_APPEND_EL(VEC, TYPE, EL) \
414 (*(VEC_APPEND (VEC, TYPE)) = EL)
415
416 struct alpha_vms_vma_ref
417 {
418 bfd_vma vma; /* Vma in the output. */
419 bfd_vma ref; /* Reference in the input. */
420 };
421
422 struct alpha_vms_shlib_el
423 {
424 bfd *abfd;
425 bfd_boolean has_fixups;
426
427 struct vector_type lp; /* Vector of bfd_vma. */
428 struct vector_type ca; /* Vector of bfd_vma. */
429 struct vector_type qr; /* Vector of struct alpha_vms_vma_ref. */
430 };
431
432 /* Alpha VMS linker hash table. */
433
434 struct alpha_vms_link_hash_table
435 {
436 struct bfd_link_hash_table root;
437
438 /* Vector of shared libraries. */
439 struct vector_type shrlibs;
440
441 /* Fixup section. */
442 asection *fixup;
443
444 /* Base address. Used by fixups. */
445 bfd_vma base_addr;
446 };
447
448 #define alpha_vms_link_hash(INFO) \
449 ((struct alpha_vms_link_hash_table *)(INFO->hash))
450
451 /* Alpha VMS linker hash table entry. */
452
453 struct alpha_vms_link_hash_entry
454 {
455 struct bfd_link_hash_entry root;
456
457 /* Pointer to the original vms symbol. */
458 struct vms_symbol_entry *sym;
459 };
460 \f
461 /* Image reading. */
462
463 /* Read & process EIHD record.
464 Return TRUE on success, FALSE on error. */
465
466 static bfd_boolean
467 _bfd_vms_slurp_eihd (bfd *abfd, unsigned int *eisd_offset,
468 unsigned int *eihs_offset)
469 {
470 unsigned int imgtype, size;
471 bfd_vma symvva;
472 struct vms_eihd *eihd = (struct vms_eihd *)PRIV (recrd.rec);
473
474 vms_debug2 ((8, "_bfd_vms_slurp_eihd\n"));
475
476 /* PR 21813: Check for an undersized record. */
477 if (PRIV (recrd.buf_size) < sizeof (* eihd))
478 {
479 _bfd_error_handler (_("corrupt EIHD record - size is too small"));
480 bfd_set_error (bfd_error_bad_value);
481 return FALSE;
482 }
483
484 size = bfd_getl32 (eihd->size);
485 imgtype = bfd_getl32 (eihd->imgtype);
486
487 if (imgtype == EIHD__K_EXE || imgtype == EIHD__K_LIM)
488 abfd->flags |= EXEC_P;
489
490 symvva = bfd_getl64 (eihd->symvva);
491 if (symvva != 0)
492 {
493 PRIV (symvva) = symvva;
494 abfd->flags |= DYNAMIC;
495 }
496
497 PRIV (ident) = bfd_getl32 (eihd->ident);
498 PRIV (matchctl) = eihd->matchctl;
499
500 *eisd_offset = bfd_getl32 (eihd->isdoff);
501 *eihs_offset = bfd_getl32 (eihd->symdbgoff);
502
503 vms_debug2 ((4, "EIHD size %d imgtype %d symvva 0x%lx eisd %d eihs %d\n",
504 size, imgtype, (unsigned long)symvva,
505 *eisd_offset, *eihs_offset));
506
507 return TRUE;
508 }
509
510 /* Read & process EISD record.
511 Return TRUE on success, FALSE on error. */
512
513 static bfd_boolean
514 _bfd_vms_slurp_eisd (bfd *abfd, unsigned int offset)
515 {
516 int section_count = 0;
517
518 vms_debug2 ((8, "_bfd_vms_slurp_eisd\n"));
519
520 while (1)
521 {
522 struct vms_eisd *eisd;
523 unsigned int rec_size;
524 unsigned int size;
525 bfd_uint64_t vaddr;
526 unsigned int flags;
527 unsigned int vbn;
528 char *name = NULL;
529 asection *section;
530 flagword bfd_flags;
531
532 /* PR 17512: file: 3d9e9fe9.
533 12 is the offset of the eisdsize field from the start of the record (8)
534 plus the size of the eisdsize field (4). */
535 if (offset >= PRIV (recrd.rec_size) - 12)
536 return FALSE;
537 eisd = (struct vms_eisd *)(PRIV (recrd.rec) + offset);
538 rec_size = bfd_getl32 (eisd->eisdsize);
539 if (rec_size == 0)
540 break;
541
542 /* Skip to next block if pad. */
543 if (rec_size == 0xffffffff)
544 {
545 offset = (offset + VMS_BLOCK_SIZE) & ~(VMS_BLOCK_SIZE - 1);
546 continue;
547 }
548
549 /* Make sure that there is enough data present in the record. */
550 /* FIXME: Should we use sizeof (struct vms_eisd) rather than just 32 here ? */
551 if (rec_size < 32)
552 return FALSE;
553 /* Make sure that the record is not too big either. */
554 if (offset + rec_size >= PRIV (recrd.rec_size))
555 return FALSE;
556
557 offset += rec_size;
558
559 size = bfd_getl32 (eisd->secsize);
560 vaddr = bfd_getl64 (eisd->virt_addr);
561 flags = bfd_getl32 (eisd->flags);
562 vbn = bfd_getl32 (eisd->vbn);
563
564 vms_debug2 ((4, "EISD at 0x%x size 0x%x addr 0x%lx flags 0x%x blk %d\n",
565 offset, size, (unsigned long)vaddr, flags, vbn));
566
567 /* VMS combines psects from .obj files into isects in the .exe. This
568 process doesn't preserve enough information to reliably determine
569 what's in each section without examining the data. This is
570 especially true of DWARF debug sections. */
571 bfd_flags = SEC_ALLOC;
572 if (vbn != 0)
573 bfd_flags |= SEC_HAS_CONTENTS | SEC_LOAD;
574
575 if (flags & EISD__M_EXE)
576 bfd_flags |= SEC_CODE;
577
578 if (flags & EISD__M_NONSHRADR)
579 bfd_flags |= SEC_DATA;
580
581 if (!(flags & EISD__M_WRT))
582 bfd_flags |= SEC_READONLY;
583
584 if (flags & EISD__M_DZRO)
585 bfd_flags |= SEC_DATA;
586
587 if (flags & EISD__M_FIXUPVEC)
588 bfd_flags |= SEC_DATA;
589
590 if (flags & EISD__M_CRF)
591 bfd_flags |= SEC_DATA;
592
593 if (flags & EISD__M_GBL)
594 {
595 if (rec_size < offsetof (struct vms_eisd, gblnam))
596 return FALSE;
597 else if (rec_size < sizeof (struct vms_eisd))
598 name = _bfd_vms_save_counted_string (eisd->gblnam,
599 rec_size - offsetof (struct vms_eisd, gblnam));
600 else
601 name = _bfd_vms_save_counted_string (eisd->gblnam, EISD__K_GBLNAMLEN);
602 bfd_flags |= SEC_COFF_SHARED_LIBRARY;
603 bfd_flags &= ~(SEC_ALLOC | SEC_LOAD);
604 }
605 else if (flags & EISD__M_FIXUPVEC)
606 name = "$FIXUPVEC$";
607 else if (eisd->type == EISD__K_USRSTACK)
608 name = "$STACK$";
609 else
610 {
611 const char *pfx;
612
613 name = (char*) bfd_alloc (abfd, 32);
614 if (flags & EISD__M_DZRO)
615 pfx = "BSS";
616 else if (flags & EISD__M_EXE)
617 pfx = "CODE";
618 else if (!(flags & EISD__M_WRT))
619 pfx = "RO";
620 else
621 pfx = "LOCAL";
622 BFD_ASSERT (section_count < 999);
623 sprintf (name, "$%s_%03d$", pfx, section_count++);
624 }
625
626 section = bfd_make_section (abfd, name);
627
628 if (!section)
629 return FALSE;
630
631 section->filepos = vbn ? VMS_BLOCK_SIZE * (vbn - 1) : 0;
632 section->size = size;
633 section->vma = vaddr;
634
635 if (!bfd_set_section_flags (abfd, section, bfd_flags))
636 return FALSE;
637 }
638
639 return TRUE;
640 }
641
642 /* Read & process EIHS record.
643 Return TRUE on success, FALSE on error. */
644
645 static bfd_boolean
646 _bfd_vms_slurp_eihs (bfd *abfd, unsigned int offset)
647 {
648 unsigned char *p = PRIV (recrd.rec) + offset;
649 unsigned int gstvbn;
650 unsigned int gstsize ATTRIBUTE_UNUSED;
651 unsigned int dstvbn;
652 unsigned int dstsize;
653 unsigned int dmtvbn;
654 unsigned int dmtbytes;
655 asection *section;
656
657 /* PR 21611: Check that offset is valid. */
658 if (offset > PRIV (recrd.rec_size) - (EIHS__L_DMTBYTES + 4))
659 {
660 _bfd_error_handler (_("unable to read EIHS record at offset %#x"),
661 offset);
662 bfd_set_error (bfd_error_file_truncated);
663 return FALSE;
664 }
665
666 gstvbn = bfd_getl32 (p + EIHS__L_GSTVBN);
667 gstsize = bfd_getl32 (p + EIHS__L_GSTSIZE);
668 dstvbn = bfd_getl32 (p + EIHS__L_DSTVBN);
669 dstsize = bfd_getl32 (p + EIHS__L_DSTSIZE);
670 dmtvbn = bfd_getl32 (p + EIHS__L_DMTVBN);
671 dmtbytes = bfd_getl32 (p + EIHS__L_DMTBYTES);
672
673 #if VMS_DEBUG
674 vms_debug (8, "_bfd_vms_slurp_ihs\n");
675 vms_debug (4, "EIHS record gstvbn %d gstsize %d dstvbn %d dstsize %d dmtvbn %d dmtbytes %d\n",
676 gstvbn, gstsize, dstvbn, dstsize, dmtvbn, dmtbytes);
677 #endif
678
679 if (dstvbn)
680 {
681 flagword bfd_flags = SEC_HAS_CONTENTS | SEC_DEBUGGING;
682
683 section = bfd_make_section (abfd, "$DST$");
684 if (!section)
685 return FALSE;
686
687 section->size = dstsize;
688 section->filepos = VMS_BLOCK_SIZE * (dstvbn - 1);
689
690 if (!bfd_set_section_flags (abfd, section, bfd_flags))
691 return FALSE;
692
693 PRIV (dst_section) = section;
694 abfd->flags |= (HAS_DEBUG | HAS_LINENO);
695 }
696
697 if (dmtvbn)
698 {
699 flagword bfd_flags = SEC_HAS_CONTENTS | SEC_DEBUGGING;
700
701 section = bfd_make_section (abfd, "$DMT$");
702 if (!section)
703 return FALSE;
704
705 section->size = dmtbytes;
706 section->filepos = VMS_BLOCK_SIZE * (dmtvbn - 1);
707
708 if (!bfd_set_section_flags (abfd, section, bfd_flags))
709 return FALSE;
710 }
711
712 if (gstvbn)
713 {
714 if (bfd_seek (abfd, VMS_BLOCK_SIZE * (gstvbn - 1), SEEK_SET))
715 {
716 bfd_set_error (bfd_error_file_truncated);
717 return FALSE;
718 }
719
720 if (!_bfd_vms_slurp_object_records (abfd))
721 return FALSE;
722
723 abfd->flags |= HAS_SYMS;
724 }
725
726 return TRUE;
727 }
728 \f
729 /* Object file reading. */
730
731 /* Object file input functions. */
732
733 /* Get next record from object file to vms_buf.
734 Set PRIV(buf_size) and return it
735
736 This is a little tricky since it should be portable.
737
738 The openVMS object file has 'variable length' which means that
739 read() returns data in chunks of (hopefully) correct and expected
740 size. The linker (and other tools on VMS) depend on that. Unix
741 doesn't know about 'formatted' files, so reading and writing such
742 an object file in a Unix environment is not trivial.
743
744 With the tool 'file' (available on all VMS FTP sites), one
745 can view and change the attributes of a file. Changing from
746 'variable length' to 'fixed length, 512 bytes' reveals the
747 record size at the first 2 bytes of every record. The same
748 may happen during the transfer of object files from VMS to Unix,
749 at least with UCX, the DEC implementation of TCP/IP.
750
751 The VMS format repeats the size at bytes 2 & 3 of every record.
752
753 On the first call (file_format == FF_UNKNOWN) we check if
754 the first and the third byte pair (!) of the record match.
755 If they do it's an object file in an Unix environment or with
756 wrong attributes (FF_FOREIGN), else we should be in a VMS
757 environment where read() returns the record size (FF_NATIVE).
758
759 Reading is always done in 2 steps:
760 1. first just the record header is read and the size extracted,
761 2. then the read buffer is adjusted and the remaining bytes are
762 read in.
763
764 All file I/O is done on even file positions. */
765
766 #define VMS_OBJECT_ADJUSTMENT 2
767
768 static void
769 maybe_adjust_record_pointer_for_object (bfd *abfd)
770 {
771 /* Set the file format once for all on the first invocation. */
772 if (PRIV (recrd.file_format) == FF_UNKNOWN)
773 {
774 if (PRIV (recrd.rec)[0] == PRIV (recrd.rec)[4]
775 && PRIV (recrd.rec)[1] == PRIV (recrd.rec)[5])
776 PRIV (recrd.file_format) = FF_FOREIGN;
777 else
778 PRIV (recrd.file_format) = FF_NATIVE;
779 }
780
781 /* The adjustment is needed only in an Unix environment. */
782 if (PRIV (recrd.file_format) == FF_FOREIGN)
783 PRIV (recrd.rec) += VMS_OBJECT_ADJUSTMENT;
784 }
785
786 /* Implement step #1 of the object record reading procedure.
787 Return the record type or -1 on failure. */
788
789 static int
790 _bfd_vms_get_object_record (bfd *abfd)
791 {
792 unsigned int test_len = 6;
793 int type;
794
795 vms_debug2 ((8, "_bfd_vms_get_obj_record\n"));
796
797 /* Skip alignment byte if the current position is odd. */
798 if (PRIV (recrd.file_format) == FF_FOREIGN && (bfd_tell (abfd) & 1))
799 {
800 if (bfd_bread (PRIV (recrd.buf), 1, abfd) != 1)
801 {
802 bfd_set_error (bfd_error_file_truncated);
803 return -1;
804 }
805 }
806
807 /* Read the record header */
808 if (bfd_bread (PRIV (recrd.buf), test_len, abfd) != test_len)
809 {
810 bfd_set_error (bfd_error_file_truncated);
811 return -1;
812 }
813
814 /* Reset the record pointer. */
815 PRIV (recrd.rec) = PRIV (recrd.buf);
816 maybe_adjust_record_pointer_for_object (abfd);
817
818 if (vms_get_remaining_object_record (abfd, test_len) <= 0)
819 return -1;
820
821 type = bfd_getl16 (PRIV (recrd.rec));
822
823 vms_debug2 ((8, "_bfd_vms_get_obj_record: rec %p, size %d, type %d\n",
824 PRIV (recrd.rec), PRIV (recrd.rec_size), type));
825
826 return type;
827 }
828
829 /* Implement step #2 of the object record reading procedure.
830 Return the size of the record or 0 on failure. */
831
832 static int
833 vms_get_remaining_object_record (bfd *abfd, unsigned int read_so_far)
834 {
835 unsigned int to_read;
836
837 vms_debug2 ((8, "vms_get_remaining_obj_record\n"));
838
839 /* Extract record size. */
840 PRIV (recrd.rec_size) = bfd_getl16 (PRIV (recrd.rec) + 2);
841
842 if (PRIV (recrd.rec_size) == 0)
843 {
844 bfd_set_error (bfd_error_file_truncated);
845 return 0;
846 }
847
848 /* That's what the linker manual says. */
849 if (PRIV (recrd.rec_size) > EOBJ__C_MAXRECSIZ)
850 {
851 bfd_set_error (bfd_error_file_truncated);
852 return 0;
853 }
854
855 /* Take into account object adjustment. */
856 to_read = PRIV (recrd.rec_size);
857 if (PRIV (recrd.file_format) == FF_FOREIGN)
858 to_read += VMS_OBJECT_ADJUSTMENT;
859
860 /* Adjust the buffer. */
861 if (to_read > PRIV (recrd.buf_size))
862 {
863 PRIV (recrd.buf)
864 = (unsigned char *) bfd_realloc (PRIV (recrd.buf), to_read);
865 if (PRIV (recrd.buf) == NULL)
866 return 0;
867 PRIV (recrd.buf_size) = to_read;
868 }
869 /* PR 17512: file: 025-1974-0.004. */
870 else if (to_read <= read_so_far)
871 return 0;
872
873 /* Read the remaining record. */
874 to_read -= read_so_far;
875
876 vms_debug2 ((8, "vms_get_remaining_obj_record: to_read %d\n", to_read));
877
878 if (bfd_bread (PRIV (recrd.buf) + read_so_far, to_read, abfd) != to_read)
879 {
880 bfd_set_error (bfd_error_file_truncated);
881 return 0;
882 }
883
884 /* Reset the record pointer. */
885 PRIV (recrd.rec) = PRIV (recrd.buf);
886 maybe_adjust_record_pointer_for_object (abfd);
887
888 vms_debug2 ((8, "vms_get_remaining_obj_record: size %d\n",
889 PRIV (recrd.rec_size)));
890
891 return PRIV (recrd.rec_size);
892 }
893
894 /* Read and process emh record.
895 Return TRUE on success, FALSE on error. */
896
897 static bfd_boolean
898 _bfd_vms_slurp_ehdr (bfd *abfd)
899 {
900 unsigned char *ptr;
901 unsigned char *vms_rec;
902 unsigned char *end;
903 int subtype;
904
905 vms_rec = PRIV (recrd.rec);
906 /* PR 17512: file: 62736583. */
907 end = PRIV (recrd.buf) + PRIV (recrd.buf_size);
908
909 vms_debug2 ((2, "HDR/EMH\n"));
910
911 subtype = bfd_getl16 (vms_rec + 4);
912
913 vms_debug2 ((3, "subtype %d\n", subtype));
914
915 switch (subtype)
916 {
917 case EMH__C_MHD:
918 /* Module header. */
919 if (vms_rec + 21 >= end)
920 goto fail;
921 PRIV (hdr_data).hdr_b_strlvl = vms_rec[6];
922 PRIV (hdr_data).hdr_l_arch1 = bfd_getl32 (vms_rec + 8);
923 PRIV (hdr_data).hdr_l_arch2 = bfd_getl32 (vms_rec + 12);
924 PRIV (hdr_data).hdr_l_recsiz = bfd_getl32 (vms_rec + 16);
925 if ((vms_rec + 20 + vms_rec[20] + 1) >= end)
926 goto fail;
927 PRIV (hdr_data).hdr_t_name = _bfd_vms_save_counted_string (vms_rec + 20, vms_rec[20]);
928 ptr = vms_rec + 20 + vms_rec[20] + 1;
929 if ((ptr + *ptr + 1) >= end)
930 goto fail;
931 PRIV (hdr_data).hdr_t_version =_bfd_vms_save_counted_string (ptr, *ptr);
932 ptr += *ptr + 1;
933 if (ptr + 17 >= end)
934 goto fail;
935 PRIV (hdr_data).hdr_t_date = _bfd_vms_save_sized_string (ptr, 17);
936 break;
937
938 case EMH__C_LNM:
939 if (vms_rec + PRIV (recrd.rec_size - 6) > end)
940 goto fail;
941 PRIV (hdr_data).hdr_c_lnm =
942 _bfd_vms_save_sized_string (vms_rec, PRIV (recrd.rec_size - 6));
943 break;
944
945 case EMH__C_SRC:
946 if (vms_rec + PRIV (recrd.rec_size - 6) > end)
947 goto fail;
948 PRIV (hdr_data).hdr_c_src =
949 _bfd_vms_save_sized_string (vms_rec, PRIV (recrd.rec_size - 6));
950 break;
951
952 case EMH__C_TTL:
953 if (vms_rec + PRIV (recrd.rec_size - 6) > end)
954 goto fail;
955 PRIV (hdr_data).hdr_c_ttl =
956 _bfd_vms_save_sized_string (vms_rec, PRIV (recrd.rec_size - 6));
957 break;
958
959 case EMH__C_CPR:
960 case EMH__C_MTC:
961 case EMH__C_GTX:
962 break;
963
964 default:
965 fail:
966 bfd_set_error (bfd_error_wrong_format);
967 return FALSE;
968 }
969
970 return TRUE;
971 }
972
973 /* Typical sections for evax object files. */
974
975 #define EVAX_ABS_NAME "$ABS$"
976 #define EVAX_CODE_NAME "$CODE$"
977 #define EVAX_LINK_NAME "$LINK$"
978 #define EVAX_DATA_NAME "$DATA$"
979 #define EVAX_BSS_NAME "$BSS$"
980 #define EVAX_READONLYADDR_NAME "$READONLY_ADDR$"
981 #define EVAX_READONLY_NAME "$READONLY$"
982 #define EVAX_LITERAL_NAME "$LITERAL$"
983 #define EVAX_LITERALS_NAME "$LITERALS"
984 #define EVAX_COMMON_NAME "$COMMON$"
985 #define EVAX_LOCAL_NAME "$LOCAL$"
986
987 struct sec_flags_struct
988 {
989 const char *name; /* Name of section. */
990 int vflags_always;
991 flagword flags_always; /* Flags we set always. */
992 int vflags_hassize;
993 flagword flags_hassize; /* Flags we set if the section has a size > 0. */
994 };
995
996 /* These flags are deccrtl/vaxcrtl (openVMS 6.2 Alpha) compatible. */
997
998 static const struct sec_flags_struct evax_section_flags[] =
999 {
1000 { EVAX_ABS_NAME,
1001 EGPS__V_SHR,
1002 0,
1003 EGPS__V_SHR,
1004 0 },
1005 { EVAX_CODE_NAME,
1006 EGPS__V_PIC | EGPS__V_REL | EGPS__V_SHR | EGPS__V_EXE,
1007 SEC_CODE | SEC_READONLY,
1008 EGPS__V_PIC | EGPS__V_REL | EGPS__V_SHR | EGPS__V_EXE,
1009 SEC_CODE | SEC_READONLY | SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD },
1010 { EVAX_LITERAL_NAME,
1011 EGPS__V_PIC | EGPS__V_REL | EGPS__V_SHR | EGPS__V_RD | EGPS__V_NOMOD,
1012 SEC_DATA | SEC_READONLY,
1013 EGPS__V_PIC | EGPS__V_REL | EGPS__V_SHR | EGPS__V_RD,
1014 SEC_DATA | SEC_READONLY | SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD },
1015 { EVAX_LINK_NAME,
1016 EGPS__V_REL | EGPS__V_RD,
1017 SEC_DATA | SEC_READONLY,
1018 EGPS__V_REL | EGPS__V_RD,
1019 SEC_DATA | SEC_READONLY | SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD },
1020 { EVAX_DATA_NAME,
1021 EGPS__V_REL | EGPS__V_RD | EGPS__V_WRT | EGPS__V_NOMOD,
1022 SEC_DATA,
1023 EGPS__V_REL | EGPS__V_RD | EGPS__V_WRT,
1024 SEC_DATA | SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD },
1025 { EVAX_BSS_NAME,
1026 EGPS__V_REL | EGPS__V_RD | EGPS__V_WRT | EGPS__V_NOMOD,
1027 SEC_NO_FLAGS,
1028 EGPS__V_REL | EGPS__V_RD | EGPS__V_WRT | EGPS__V_NOMOD,
1029 SEC_ALLOC },
1030 { EVAX_READONLYADDR_NAME,
1031 EGPS__V_PIC | EGPS__V_REL | EGPS__V_RD,
1032 SEC_DATA | SEC_READONLY,
1033 EGPS__V_PIC | EGPS__V_REL | EGPS__V_RD,
1034 SEC_DATA | SEC_READONLY | SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD },
1035 { EVAX_READONLY_NAME,
1036 EGPS__V_PIC | EGPS__V_REL | EGPS__V_SHR | EGPS__V_RD | EGPS__V_NOMOD,
1037 SEC_DATA | SEC_READONLY,
1038 EGPS__V_PIC | EGPS__V_REL | EGPS__V_SHR | EGPS__V_RD,
1039 SEC_DATA | SEC_READONLY | SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD },
1040 { EVAX_LOCAL_NAME,
1041 EGPS__V_REL | EGPS__V_RD | EGPS__V_WRT,
1042 SEC_DATA,
1043 EGPS__V_REL | EGPS__V_RD | EGPS__V_WRT,
1044 SEC_DATA | SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD },
1045 { EVAX_LITERALS_NAME,
1046 EGPS__V_PIC | EGPS__V_OVR,
1047 SEC_DATA | SEC_READONLY,
1048 EGPS__V_PIC | EGPS__V_OVR,
1049 SEC_DATA | SEC_READONLY | SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD },
1050 { NULL,
1051 EGPS__V_REL | EGPS__V_RD | EGPS__V_WRT,
1052 SEC_DATA,
1053 EGPS__V_REL | EGPS__V_RD | EGPS__V_WRT,
1054 SEC_DATA | SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD }
1055 };
1056
1057 /* Retrieve BFD section flags by name and size. */
1058
1059 static flagword
1060 vms_secflag_by_name (const struct sec_flags_struct *section_flags,
1061 const char *name,
1062 int hassize)
1063 {
1064 int i = 0;
1065
1066 while (section_flags[i].name != NULL)
1067 {
1068 if (strcmp (name, section_flags[i].name) == 0)
1069 {
1070 if (hassize)
1071 return section_flags[i].flags_hassize;
1072 else
1073 return section_flags[i].flags_always;
1074 }
1075 i++;
1076 }
1077 if (hassize)
1078 return section_flags[i].flags_hassize;
1079 return section_flags[i].flags_always;
1080 }
1081
1082 /* Retrieve VMS section flags by name and size. */
1083
1084 static flagword
1085 vms_esecflag_by_name (const struct sec_flags_struct *section_flags,
1086 const char *name,
1087 int hassize)
1088 {
1089 int i = 0;
1090
1091 while (section_flags[i].name != NULL)
1092 {
1093 if (strcmp (name, section_flags[i].name) == 0)
1094 {
1095 if (hassize)
1096 return section_flags[i].vflags_hassize;
1097 else
1098 return section_flags[i].vflags_always;
1099 }
1100 i++;
1101 }
1102 if (hassize)
1103 return section_flags[i].vflags_hassize;
1104 return section_flags[i].vflags_always;
1105 }
1106
1107 /* Add SYM to the symbol table of ABFD.
1108 Return FALSE in case of error. */
1109
1110 static bfd_boolean
1111 add_symbol_entry (bfd *abfd, struct vms_symbol_entry *sym)
1112 {
1113 if (PRIV (gsd_sym_count) >= PRIV (max_sym_count))
1114 {
1115 if (PRIV (max_sym_count) == 0)
1116 {
1117 PRIV (max_sym_count) = 128;
1118 PRIV (syms) = bfd_malloc
1119 (PRIV (max_sym_count) * sizeof (struct vms_symbol_entry *));
1120 }
1121 else
1122 {
1123 PRIV (max_sym_count) *= 2;
1124 PRIV (syms) = bfd_realloc
1125 (PRIV (syms),
1126 (PRIV (max_sym_count) * sizeof (struct vms_symbol_entry *)));
1127 }
1128 if (PRIV (syms) == NULL)
1129 return FALSE;
1130 }
1131
1132 PRIV (syms)[PRIV (gsd_sym_count)++] = sym;
1133 return TRUE;
1134 }
1135
1136 /* Create a symbol whose name is ASCIC and add it to ABFD.
1137 Return NULL in case of error. */
1138
1139 static struct vms_symbol_entry *
1140 add_symbol (bfd *abfd, const unsigned char *ascic)
1141 {
1142 struct vms_symbol_entry *entry;
1143 int len;
1144
1145 len = *ascic++;
1146 entry = (struct vms_symbol_entry *)bfd_zalloc (abfd, sizeof (*entry) + len);
1147 if (entry == NULL)
1148 return NULL;
1149 entry->namelen = len;
1150 memcpy (entry->name, ascic, len);
1151 entry->name[len] = 0;
1152 entry->owner = abfd;
1153
1154 if (!add_symbol_entry (abfd, entry))
1155 return NULL;
1156 return entry;
1157 }
1158
1159 /* Read and process EGSD. Return FALSE on failure. */
1160
1161 static bfd_boolean
1162 _bfd_vms_slurp_egsd (bfd *abfd)
1163 {
1164 int gsd_type;
1165 unsigned int gsd_size;
1166 unsigned char *vms_rec;
1167 unsigned long base_addr;
1168
1169 vms_debug2 ((2, "EGSD\n"));
1170
1171 if (PRIV (recrd.rec_size) < 8)
1172 {
1173 _bfd_error_handler (_("corrupt EGSD record: its size (%#x) is too small"),
1174 PRIV (recrd.rec_size));
1175 bfd_set_error (bfd_error_bad_value);
1176 return FALSE;
1177 }
1178
1179 PRIV (recrd.rec) += 8; /* Skip type, size, align pad. */
1180 PRIV (recrd.rec_size) -= 8;
1181
1182 /* Calculate base address for each section. */
1183 base_addr = 0L;
1184
1185 while (PRIV (recrd.rec_size) > 4)
1186 {
1187 vms_rec = PRIV (recrd.rec);
1188
1189 gsd_type = bfd_getl16 (vms_rec);
1190 gsd_size = bfd_getl16 (vms_rec + 2);
1191
1192 vms_debug2 ((3, "egsd_type %d\n", gsd_type));
1193
1194 /* PR 21615: Check for size overflow. */
1195 if (PRIV (recrd.rec_size) < gsd_size)
1196 {
1197 _bfd_error_handler (_("corrupt EGSD record: size (%#x) is larger than remaining space (%#x)"),
1198 gsd_size, PRIV (recrd.rec_size));
1199 bfd_set_error (bfd_error_bad_value);
1200 return FALSE;
1201 }
1202
1203 if (gsd_size < 4)
1204 {
1205 _bfd_error_handler (_("corrupt EGSD record: size (%#x) is too small"),
1206 gsd_size);
1207 bfd_set_error (bfd_error_bad_value);
1208 return FALSE;
1209 }
1210
1211 switch (gsd_type)
1212 {
1213 case EGSD__C_PSC:
1214 /* Program section definition. */
1215 {
1216 struct vms_egps *egps = (struct vms_egps *)vms_rec;
1217 flagword new_flags, vms_flags;
1218 asection *section;
1219
1220 vms_flags = bfd_getl16 (egps->flags);
1221
1222 if ((vms_flags & EGPS__V_REL) == 0)
1223 {
1224 /* Use the global absolute section for all
1225 absolute sections. */
1226 section = bfd_abs_section_ptr;
1227 }
1228 else
1229 {
1230 char *name;
1231 unsigned long align_addr;
1232
1233 name = _bfd_vms_save_counted_string (&egps->namlng, gsd_size - 4);
1234
1235 section = bfd_make_section (abfd, name);
1236 if (!section)
1237 return FALSE;
1238
1239 section->filepos = 0;
1240 section->size = bfd_getl32 (egps->alloc);
1241 section->alignment_power = egps->align;
1242
1243 vms_section_data (section)->flags = vms_flags;
1244 vms_section_data (section)->no_flags = 0;
1245
1246 new_flags = vms_secflag_by_name (evax_section_flags, name,
1247 section->size > 0);
1248 if (section->size > 0)
1249 new_flags |= SEC_LOAD;
1250 if (!(vms_flags & EGPS__V_NOMOD) && section->size > 0)
1251 {
1252 /* Set RELOC and HAS_CONTENTS if the section is not
1253 demand-zero and not empty. */
1254 new_flags |= SEC_HAS_CONTENTS;
1255 if (vms_flags & EGPS__V_REL)
1256 new_flags |= SEC_RELOC;
1257 }
1258 if (vms_flags & EGPS__V_EXE)
1259 {
1260 /* Set CODE if section is executable. */
1261 new_flags |= SEC_CODE;
1262 new_flags &= ~SEC_DATA;
1263 }
1264 if (!bfd_set_section_flags (abfd, section, new_flags))
1265 return FALSE;
1266
1267 /* Give a non-overlapping vma to non absolute sections. */
1268 align_addr = (1 << section->alignment_power);
1269 if ((base_addr % align_addr) != 0)
1270 base_addr += (align_addr - (base_addr % align_addr));
1271 section->vma = (bfd_vma)base_addr;
1272 base_addr += section->size;
1273 }
1274
1275 /* Append it to the section array. */
1276 if (PRIV (section_count) >= PRIV (section_max))
1277 {
1278 if (PRIV (section_max) == 0)
1279 PRIV (section_max) = 16;
1280 else
1281 PRIV (section_max) *= 2;
1282 PRIV (sections) = bfd_realloc_or_free
1283 (PRIV (sections), PRIV (section_max) * sizeof (asection *));
1284 if (PRIV (sections) == NULL)
1285 return FALSE;
1286 }
1287
1288 PRIV (sections)[PRIV (section_count)] = section;
1289 PRIV (section_count)++;
1290 }
1291 break;
1292
1293 case EGSD__C_SYM:
1294 {
1295 int nameoff;
1296 struct vms_symbol_entry *entry;
1297 struct vms_egsy *egsy = (struct vms_egsy *) vms_rec;
1298 flagword old_flags;
1299
1300 old_flags = bfd_getl16 (egsy->flags);
1301 if (old_flags & EGSY__V_DEF)
1302 nameoff = ESDF__B_NAMLNG;
1303 else
1304 nameoff = ESRF__B_NAMLNG;
1305
1306 entry = add_symbol (abfd, vms_rec + nameoff);
1307 if (entry == NULL)
1308 return FALSE;
1309
1310 /* Allow only duplicate reference. */
1311 if ((entry->flags & EGSY__V_DEF) && (old_flags & EGSY__V_DEF))
1312 abort ();
1313
1314 if (entry->typ == 0)
1315 {
1316 entry->typ = gsd_type;
1317 entry->data_type = egsy->datyp;
1318 entry->flags = old_flags;
1319 }
1320
1321 if (old_flags & EGSY__V_DEF)
1322 {
1323 struct vms_esdf *esdf = (struct vms_esdf *)vms_rec;
1324 long psindx;
1325
1326 entry->value = bfd_getl64 (esdf->value);
1327 if (PRIV (sections) == NULL)
1328 return FALSE;
1329
1330 psindx = bfd_getl32 (esdf->psindx);
1331 /* PR 21813: Check for an out of range index. */
1332 if (psindx < 0 || psindx >= (int) PRIV (section_count))
1333 {
1334 _bfd_error_handler (_("corrupt EGSD record: its psindx field is too big (%#lx)"),
1335 psindx);
1336 bfd_set_error (bfd_error_bad_value);
1337 return FALSE;
1338 }
1339 entry->section = PRIV (sections)[psindx];
1340
1341 if (old_flags & EGSY__V_NORM)
1342 {
1343 PRIV (norm_sym_count)++;
1344
1345 entry->code_value = bfd_getl64 (esdf->code_address);
1346 psindx = bfd_getl32 (esdf->ca_psindx);
1347 /* PR 21813: Check for an out of range index. */
1348 if (psindx < 0 || psindx >= (int) PRIV (section_count))
1349 {
1350 _bfd_error_handler (_("corrupt EGSD record: its psindx field is too big (%#lx)"),
1351 psindx);
1352 bfd_set_error (bfd_error_bad_value);
1353 return FALSE;
1354 }
1355 entry->code_section = PRIV (sections)[psindx];
1356 }
1357 }
1358 }
1359 break;
1360
1361 case EGSD__C_SYMG:
1362 {
1363 struct vms_symbol_entry *entry;
1364 struct vms_egst *egst = (struct vms_egst *)vms_rec;
1365 flagword old_flags;
1366
1367 old_flags = bfd_getl16 (egst->header.flags);
1368
1369 entry = add_symbol (abfd, &egst->namlng);
1370
1371 if (entry == NULL)
1372 return FALSE;
1373
1374 entry->typ = gsd_type;
1375 entry->data_type = egst->header.datyp;
1376 entry->flags = old_flags;
1377
1378 entry->symbol_vector = bfd_getl32 (egst->value);
1379
1380 if (old_flags & EGSY__V_REL)
1381 {
1382 long psindx;
1383
1384 if (PRIV (sections) == NULL)
1385 return FALSE;
1386 psindx = bfd_getl32 (egst->psindx);
1387 /* PR 21813: Check for an out of range index. */
1388 if (psindx < 0 || psindx >= (int) PRIV (section_count))
1389 {
1390 _bfd_error_handler (_("corrupt EGSD record: its psindx field is too big (%#lx)"),
1391 psindx);
1392 bfd_set_error (bfd_error_bad_value);
1393 return FALSE;
1394 }
1395 entry->section = PRIV (sections)[psindx];
1396 }
1397 else
1398 entry->section = bfd_abs_section_ptr;
1399
1400 entry->value = bfd_getl64 (egst->lp_2);
1401
1402 if (old_flags & EGSY__V_NORM)
1403 {
1404 PRIV (norm_sym_count)++;
1405
1406 entry->code_value = bfd_getl64 (egst->lp_1);
1407 entry->code_section = bfd_abs_section_ptr;
1408 }
1409 }
1410 break;
1411
1412 case EGSD__C_SPSC:
1413 case EGSD__C_IDC:
1414 /* Currently ignored. */
1415 break;
1416 case EGSD__C_SYMM:
1417 case EGSD__C_SYMV:
1418 default:
1419 _bfd_error_handler (_("unknown EGSD subtype %d"), gsd_type);
1420 bfd_set_error (bfd_error_bad_value);
1421 return FALSE;
1422 }
1423
1424 PRIV (recrd.rec_size) -= gsd_size;
1425 PRIV (recrd.rec) += gsd_size;
1426 }
1427
1428 /* FIXME: Should we complain if PRIV (recrd.rec_size) is not zero ? */
1429
1430 if (PRIV (gsd_sym_count) > 0)
1431 abfd->flags |= HAS_SYMS;
1432
1433 return TRUE;
1434 }
1435
1436 /* Stack routines for vms ETIR commands. */
1437
1438 /* Push value and section index. */
1439
1440 static void
1441 _bfd_vms_push (bfd *abfd, bfd_vma val, unsigned int reloc)
1442 {
1443 vms_debug2 ((4, "<push %08lx (0x%08x) at %d>\n",
1444 (unsigned long)val, reloc, PRIV (stackptr)));
1445
1446 PRIV (stack[PRIV (stackptr)]).value = val;
1447 PRIV (stack[PRIV (stackptr)]).reloc = reloc;
1448 PRIV (stackptr)++;
1449 if (PRIV (stackptr) >= STACKSIZE)
1450 {
1451 bfd_set_error (bfd_error_bad_value);
1452 _bfd_error_handler (_("stack overflow (%d) in _bfd_vms_push"), PRIV (stackptr));
1453 exit (1);
1454 }
1455 }
1456
1457 /* Pop value and section index. */
1458
1459 static void
1460 _bfd_vms_pop (bfd *abfd, bfd_vma *val, unsigned int *rel)
1461 {
1462 if (PRIV (stackptr) == 0)
1463 {
1464 bfd_set_error (bfd_error_bad_value);
1465 _bfd_error_handler (_("stack underflow in _bfd_vms_pop"));
1466 exit (1);
1467 }
1468 PRIV (stackptr)--;
1469 *val = PRIV (stack[PRIV (stackptr)]).value;
1470 *rel = PRIV (stack[PRIV (stackptr)]).reloc;
1471
1472 vms_debug2 ((4, "<pop %08lx (0x%08x)>\n", (unsigned long)*val, *rel));
1473 }
1474
1475 /* Routines to fill sections contents during tir/etir read. */
1476
1477 /* Initialize image buffer pointer to be filled. */
1478
1479 static void
1480 image_set_ptr (bfd *abfd, bfd_vma vma, int sect, struct bfd_link_info *info)
1481 {
1482 asection *sec;
1483
1484 vms_debug2 ((4, "image_set_ptr (0x%08x, sect=%d)\n", (unsigned)vma, sect));
1485
1486 if (PRIV (sections) == NULL)
1487 return;
1488 if (sect < 0 || sect >= (int) PRIV (section_count))
1489 return;
1490
1491 sec = PRIV (sections)[sect];
1492
1493 if (info)
1494 {
1495 /* Reading contents to an output bfd. */
1496
1497 if (sec->output_section == NULL)
1498 {
1499 /* Section discarded. */
1500 vms_debug2 ((5, " section %s discarded\n", sec->name));
1501
1502 /* This is not used. */
1503 PRIV (image_section) = NULL;
1504 PRIV (image_offset) = 0;
1505 return;
1506 }
1507 PRIV (image_offset) = sec->output_offset + vma;
1508 PRIV (image_section) = sec->output_section;
1509 }
1510 else
1511 {
1512 PRIV (image_offset) = vma;
1513 PRIV (image_section) = sec;
1514 }
1515 }
1516
1517 /* Increment image buffer pointer by offset. */
1518
1519 static void
1520 image_inc_ptr (bfd *abfd, bfd_vma offset)
1521 {
1522 vms_debug2 ((4, "image_inc_ptr (%u)\n", (unsigned)offset));
1523
1524 PRIV (image_offset) += offset;
1525 }
1526
1527 /* Save current DST location counter under specified index. */
1528
1529 static void
1530 dst_define_location (bfd *abfd, unsigned int loc)
1531 {
1532 vms_debug2 ((4, "dst_define_location (%d)\n", (int)loc));
1533
1534 /* Grow the ptr offset table if necessary. */
1535 if (loc + 1 > PRIV (dst_ptr_offsets_count))
1536 {
1537 PRIV (dst_ptr_offsets) = bfd_realloc (PRIV (dst_ptr_offsets),
1538 (loc + 1) * sizeof (unsigned int));
1539 PRIV (dst_ptr_offsets_count) = loc + 1;
1540 }
1541
1542 PRIV (dst_ptr_offsets)[loc] = PRIV (image_offset);
1543 }
1544
1545 /* Restore saved DST location counter from specified index. */
1546
1547 static void
1548 dst_restore_location (bfd *abfd, unsigned int loc)
1549 {
1550 vms_debug2 ((4, "dst_restore_location (%d)\n", (int)loc));
1551
1552 PRIV (image_offset) = PRIV (dst_ptr_offsets)[loc];
1553 }
1554
1555 /* Retrieve saved DST location counter from specified index. */
1556
1557 static unsigned int
1558 dst_retrieve_location (bfd *abfd, unsigned int loc)
1559 {
1560 vms_debug2 ((4, "dst_retrieve_location (%d)\n", (int)loc));
1561
1562 return PRIV (dst_ptr_offsets)[loc];
1563 }
1564
1565 /* Write multiple bytes to section image. */
1566
1567 static bfd_boolean
1568 image_write (bfd *abfd, unsigned char *ptr, unsigned int size)
1569 {
1570 #if VMS_DEBUG
1571 _bfd_vms_debug (8, "image_write from (%p, %d) to (%ld)\n", ptr, size,
1572 (long)PRIV (image_offset));
1573 _bfd_hexdump (9, ptr, size, 0);
1574 #endif
1575
1576 if (PRIV (image_section)->contents != NULL)
1577 {
1578 asection *sec = PRIV (image_section);
1579 file_ptr off = PRIV (image_offset);
1580
1581 /* Check bounds. */
1582 if (off > (file_ptr)sec->size
1583 || size > (file_ptr)sec->size
1584 || off + size > (file_ptr)sec->size)
1585 {
1586 bfd_set_error (bfd_error_bad_value);
1587 return FALSE;
1588 }
1589
1590 memcpy (sec->contents + off, ptr, size);
1591 }
1592
1593 PRIV (image_offset) += size;
1594 return TRUE;
1595 }
1596
1597 /* Write byte to section image. */
1598
1599 static bfd_boolean
1600 image_write_b (bfd * abfd, unsigned int value)
1601 {
1602 unsigned char data[1];
1603
1604 vms_debug2 ((6, "image_write_b (%02x)\n", (int) value));
1605
1606 *data = value;
1607
1608 return image_write (abfd, data, sizeof (data));
1609 }
1610
1611 /* Write 2-byte word to image. */
1612
1613 static bfd_boolean
1614 image_write_w (bfd * abfd, unsigned int value)
1615 {
1616 unsigned char data[2];
1617
1618 vms_debug2 ((6, "image_write_w (%04x)\n", (int) value));
1619
1620 bfd_putl16 (value, data);
1621 return image_write (abfd, data, sizeof (data));
1622 }
1623
1624 /* Write 4-byte long to image. */
1625
1626 static bfd_boolean
1627 image_write_l (bfd * abfd, unsigned long value)
1628 {
1629 unsigned char data[4];
1630
1631 vms_debug2 ((6, "image_write_l (%08lx)\n", value));
1632
1633 bfd_putl32 (value, data);
1634 return image_write (abfd, data, sizeof (data));
1635 }
1636
1637 /* Write 8-byte quad to image. */
1638
1639 static bfd_boolean
1640 image_write_q (bfd * abfd, bfd_vma value)
1641 {
1642 unsigned char data[8];
1643
1644 vms_debug2 ((6, "image_write_q (%08lx)\n", (unsigned long)value));
1645
1646 bfd_putl64 (value, data);
1647 return image_write (abfd, data, sizeof (data));
1648 }
1649 \f
1650 static const char *
1651 _bfd_vms_etir_name (int cmd)
1652 {
1653 switch (cmd)
1654 {
1655 case ETIR__C_STA_GBL: return "ETIR__C_STA_GBL";
1656 case ETIR__C_STA_LW: return "ETIR__C_STA_LW";
1657 case ETIR__C_STA_QW: return "ETIR__C_STA_QW";
1658 case ETIR__C_STA_PQ: return "ETIR__C_STA_PQ";
1659 case ETIR__C_STA_LI: return "ETIR__C_STA_LI";
1660 case ETIR__C_STA_MOD: return "ETIR__C_STA_MOD";
1661 case ETIR__C_STA_CKARG: return "ETIR__C_STA_CKARG";
1662 case ETIR__C_STO_B: return "ETIR__C_STO_B";
1663 case ETIR__C_STO_W: return "ETIR__C_STO_W";
1664 case ETIR__C_STO_GBL: return "ETIR__C_STO_GBL";
1665 case ETIR__C_STO_CA: return "ETIR__C_STO_CA";
1666 case ETIR__C_STO_RB: return "ETIR__C_STO_RB";
1667 case ETIR__C_STO_AB: return "ETIR__C_STO_AB";
1668 case ETIR__C_STO_OFF: return "ETIR__C_STO_OFF";
1669 case ETIR__C_STO_IMM: return "ETIR__C_STO_IMM";
1670 case ETIR__C_STO_IMMR: return "ETIR__C_STO_IMMR";
1671 case ETIR__C_STO_LW: return "ETIR__C_STO_LW";
1672 case ETIR__C_STO_QW: return "ETIR__C_STO_QW";
1673 case ETIR__C_STO_GBL_LW: return "ETIR__C_STO_GBL_LW";
1674 case ETIR__C_STO_LP_PSB: return "ETIR__C_STO_LP_PSB";
1675 case ETIR__C_STO_HINT_GBL: return "ETIR__C_STO_HINT_GBL";
1676 case ETIR__C_STO_HINT_PS: return "ETIR__C_STO_HINT_PS";
1677 case ETIR__C_OPR_ADD: return "ETIR__C_OPR_ADD";
1678 case ETIR__C_OPR_SUB: return "ETIR__C_OPR_SUB";
1679 case ETIR__C_OPR_INSV: return "ETIR__C_OPR_INSV";
1680 case ETIR__C_OPR_USH: return "ETIR__C_OPR_USH";
1681 case ETIR__C_OPR_ROT: return "ETIR__C_OPR_ROT";
1682 case ETIR__C_OPR_REDEF: return "ETIR__C_OPR_REDEF";
1683 case ETIR__C_OPR_DFLIT: return "ETIR__C_OPR_DFLIT";
1684 case ETIR__C_STC_LP: return "ETIR__C_STC_LP";
1685 case ETIR__C_STC_GBL: return "ETIR__C_STC_GBL";
1686 case ETIR__C_STC_GCA: return "ETIR__C_STC_GCA";
1687 case ETIR__C_STC_PS: return "ETIR__C_STC_PS";
1688 case ETIR__C_STC_NBH_PS: return "ETIR__C_STC_NBH_PS";
1689 case ETIR__C_STC_NOP_GBL: return "ETIR__C_STC_NOP_GBL";
1690 case ETIR__C_STC_NOP_PS: return "ETIR__C_STC_NOP_PS";
1691 case ETIR__C_STC_BSR_GBL: return "ETIR__C_STC_BSR_GBL";
1692 case ETIR__C_STC_BSR_PS: return "ETIR__C_STC_BSR_PS";
1693 case ETIR__C_STC_LDA_GBL: return "ETIR__C_STC_LDA_GBL";
1694 case ETIR__C_STC_LDA_PS: return "ETIR__C_STC_LDA_PS";
1695 case ETIR__C_STC_BOH_GBL: return "ETIR__C_STC_BOH_GBL";
1696 case ETIR__C_STC_BOH_PS: return "ETIR__C_STC_BOH_PS";
1697 case ETIR__C_STC_NBH_GBL: return "ETIR__C_STC_NBH_GBL";
1698 case ETIR__C_STC_LP_PSB: return "ETIR__C_STC_LP_PSB";
1699 case ETIR__C_CTL_SETRB: return "ETIR__C_CTL_SETRB";
1700 case ETIR__C_CTL_AUGRB: return "ETIR__C_CTL_AUGRB";
1701 case ETIR__C_CTL_DFLOC: return "ETIR__C_CTL_DFLOC";
1702 case ETIR__C_CTL_STLOC: return "ETIR__C_CTL_STLOC";
1703 case ETIR__C_CTL_STKDL: return "ETIR__C_CTL_STKDL";
1704
1705 default:
1706 /* These names have not yet been added to this switch statement. */
1707 _bfd_error_handler (_("unknown ETIR command %d"), cmd);
1708 }
1709
1710 return NULL;
1711 }
1712 #define HIGHBIT(op) ((op & 0x80000000L) == 0x80000000L)
1713
1714 static void
1715 _bfd_vms_get_value (bfd *abfd,
1716 const unsigned char *ascic,
1717 const unsigned char *max_ascic,
1718 struct bfd_link_info *info,
1719 bfd_vma *vma,
1720 struct alpha_vms_link_hash_entry **hp)
1721 {
1722 char name[257];
1723 unsigned int len;
1724 unsigned int i;
1725 struct alpha_vms_link_hash_entry *h;
1726
1727 /* Not linking. Do not try to resolve the symbol. */
1728 if (info == NULL)
1729 {
1730 *vma = 0;
1731 *hp = NULL;
1732 return;
1733 }
1734
1735 len = *ascic;
1736 if (ascic + len >= max_ascic)
1737 {
1738 _bfd_error_handler (_("corrupt vms value"));
1739 *vma = 0;
1740 *hp = NULL;
1741 return;
1742 }
1743
1744 for (i = 0; i < len; i++)
1745 name[i] = ascic[i + 1];
1746 name[i] = 0;
1747
1748 h = (struct alpha_vms_link_hash_entry *)
1749 bfd_link_hash_lookup (info->hash, name, FALSE, FALSE, TRUE);
1750
1751 *hp = h;
1752
1753 if (h != NULL
1754 && (h->root.type == bfd_link_hash_defined
1755 || h->root.type == bfd_link_hash_defweak))
1756 *vma = h->root.u.def.value
1757 + h->root.u.def.section->output_offset
1758 + h->root.u.def.section->output_section->vma;
1759 else if (h && h->root.type == bfd_link_hash_undefweak)
1760 *vma = 0;
1761 else
1762 {
1763 (*info->callbacks->undefined_symbol)
1764 (info, name, abfd, PRIV (image_section), PRIV (image_offset), TRUE);
1765 *vma = 0;
1766 }
1767 }
1768
1769 #define RELC_NONE 0
1770 #define RELC_REL 1
1771 #define RELC_SHR_BASE 0x10000
1772 #define RELC_SEC_BASE 0x20000
1773 #define RELC_MASK 0x0ffff
1774
1775 static unsigned int
1776 alpha_vms_sym_to_ctxt (struct alpha_vms_link_hash_entry *h)
1777 {
1778 /* Handle undefined symbols. */
1779 if (h == NULL || h->sym == NULL)
1780 return RELC_NONE;
1781
1782 if (h->sym->typ == EGSD__C_SYMG)
1783 {
1784 if (h->sym->flags & EGSY__V_REL)
1785 return RELC_SHR_BASE + PRIV2 (h->sym->owner, shr_index);
1786 else
1787 {
1788 /* Can this happen (non-relocatable symg) ? I'd like to see
1789 an example. */
1790 abort ();
1791 }
1792 }
1793 if (h->sym->typ == EGSD__C_SYM)
1794 {
1795 if (h->sym->flags & EGSY__V_REL)
1796 return RELC_REL;
1797 else
1798 return RELC_NONE;
1799 }
1800 abort ();
1801 }
1802
1803 static bfd_vma
1804 alpha_vms_get_sym_value (asection *sect, bfd_vma addr)
1805 {
1806 return sect->output_section->vma + sect->output_offset + addr;
1807 }
1808
1809 static bfd_vma
1810 alpha_vms_fix_sec_rel (bfd *abfd, struct bfd_link_info *info,
1811 unsigned int rel, bfd_vma vma)
1812 {
1813 asection *sec;
1814
1815 if (PRIV (sections) == NULL)
1816 return 0;
1817
1818 sec = PRIV (sections)[rel & RELC_MASK];
1819
1820 if (info)
1821 {
1822 if (sec->output_section == NULL)
1823 abort ();
1824 return vma + sec->output_section->vma + sec->output_offset;
1825 }
1826 else
1827 return vma + sec->vma;
1828 }
1829
1830 /* Read an ETIR record from ABFD. If INFO is not null, put the content into
1831 the output section (used during linking).
1832 Return FALSE in case of error. */
1833
1834 static bfd_boolean
1835 _bfd_vms_slurp_etir (bfd *abfd, struct bfd_link_info *info)
1836 {
1837 unsigned char *ptr;
1838 unsigned int length;
1839 unsigned char *maxptr;
1840 bfd_vma op1;
1841 bfd_vma op2;
1842 unsigned int rel1;
1843 unsigned int rel2;
1844 struct alpha_vms_link_hash_entry *h;
1845
1846 PRIV (recrd.rec) += ETIR__C_HEADER_SIZE;
1847 PRIV (recrd.rec_size) -= ETIR__C_HEADER_SIZE;
1848
1849 ptr = PRIV (recrd.rec);
1850 length = PRIV (recrd.rec_size);
1851 maxptr = ptr + length;
1852
1853 vms_debug2 ((2, "ETIR: %d bytes\n", length));
1854
1855 while (ptr < maxptr)
1856 {
1857 int cmd = bfd_getl16 (ptr);
1858 int cmd_length = bfd_getl16 (ptr + 2);
1859
1860 ptr += 4;
1861
1862 /* PR 21589 and 21579: Check for a corrupt ETIR record. */
1863 if (cmd_length < 4 || (ptr + cmd_length > maxptr + 4))
1864 {
1865 corrupt_etir:
1866 _bfd_error_handler (_("corrupt ETIR record encountered"));
1867 bfd_set_error (bfd_error_bad_value);
1868 return FALSE;
1869 }
1870
1871 #if VMS_DEBUG
1872 _bfd_vms_debug (4, "etir: %s(%d)\n",
1873 _bfd_vms_etir_name (cmd), cmd);
1874 _bfd_hexdump (8, ptr, cmd_length - 4, 0);
1875 #endif
1876
1877 switch (cmd)
1878 {
1879 /* Stack global
1880 arg: cs symbol name
1881
1882 stack 32 bit value of symbol (high bits set to 0). */
1883 case ETIR__C_STA_GBL:
1884 _bfd_vms_get_value (abfd, ptr, maxptr, info, &op1, &h);
1885 _bfd_vms_push (abfd, op1, alpha_vms_sym_to_ctxt (h));
1886 break;
1887
1888 /* Stack longword
1889 arg: lw value
1890
1891 stack 32 bit value, sign extend to 64 bit. */
1892 case ETIR__C_STA_LW:
1893 if (ptr + 4 >= maxptr)
1894 goto corrupt_etir;
1895 _bfd_vms_push (abfd, bfd_getl32 (ptr), RELC_NONE);
1896 break;
1897
1898 /* Stack quadword
1899 arg: qw value
1900
1901 stack 64 bit value of symbol. */
1902 case ETIR__C_STA_QW:
1903 if (ptr + 8 >= maxptr)
1904 goto corrupt_etir;
1905 _bfd_vms_push (abfd, bfd_getl64 (ptr), RELC_NONE);
1906 break;
1907
1908 /* Stack psect base plus quadword offset
1909 arg: lw section index
1910 qw signed quadword offset (low 32 bits)
1911
1912 Stack qw argument and section index
1913 (see ETIR__C_STO_OFF, ETIR__C_CTL_SETRB). */
1914 case ETIR__C_STA_PQ:
1915 {
1916 int psect;
1917
1918 if (ptr + 12 >= maxptr)
1919 goto corrupt_etir;
1920 psect = bfd_getl32 (ptr);
1921 if ((unsigned int) psect >= PRIV (section_count))
1922 {
1923 _bfd_error_handler (_("bad section index in %s"),
1924 _bfd_vms_etir_name (cmd));
1925 bfd_set_error (bfd_error_bad_value);
1926 return FALSE;
1927 }
1928 op1 = bfd_getl64 (ptr + 4);
1929 _bfd_vms_push (abfd, op1, psect | RELC_SEC_BASE);
1930 }
1931 break;
1932
1933 case ETIR__C_STA_LI:
1934 case ETIR__C_STA_MOD:
1935 case ETIR__C_STA_CKARG:
1936 _bfd_error_handler (_("unsupported STA cmd %s"),
1937 _bfd_vms_etir_name (cmd));
1938 return FALSE;
1939 break;
1940
1941 /* Store byte: pop stack, write byte
1942 arg: -. */
1943 case ETIR__C_STO_B:
1944 _bfd_vms_pop (abfd, &op1, &rel1);
1945 if (rel1 != RELC_NONE)
1946 goto bad_context;
1947 image_write_b (abfd, (unsigned int) op1 & 0xff);
1948 break;
1949
1950 /* Store word: pop stack, write word
1951 arg: -. */
1952 case ETIR__C_STO_W:
1953 _bfd_vms_pop (abfd, &op1, &rel1);
1954 if (rel1 != RELC_NONE)
1955 goto bad_context;
1956 image_write_w (abfd, (unsigned int) op1 & 0xffff);
1957 break;
1958
1959 /* Store longword: pop stack, write longword
1960 arg: -. */
1961 case ETIR__C_STO_LW:
1962 _bfd_vms_pop (abfd, &op1, &rel1);
1963 if (rel1 & RELC_SEC_BASE)
1964 {
1965 op1 = alpha_vms_fix_sec_rel (abfd, info, rel1, op1);
1966 rel1 = RELC_REL;
1967 }
1968 else if (rel1 & RELC_SHR_BASE)
1969 {
1970 alpha_vms_add_fixup_lr (info, rel1 & RELC_MASK, op1);
1971 rel1 = RELC_NONE;
1972 }
1973 if (rel1 != RELC_NONE)
1974 {
1975 if (rel1 != RELC_REL)
1976 abort ();
1977 alpha_vms_add_lw_reloc (info);
1978 }
1979 image_write_l (abfd, op1);
1980 break;
1981
1982 /* Store quadword: pop stack, write quadword
1983 arg: -. */
1984 case ETIR__C_STO_QW:
1985 _bfd_vms_pop (abfd, &op1, &rel1);
1986 if (rel1 & RELC_SEC_BASE)
1987 {
1988 op1 = alpha_vms_fix_sec_rel (abfd, info, rel1, op1);
1989 rel1 = RELC_REL;
1990 }
1991 else if (rel1 & RELC_SHR_BASE)
1992 abort ();
1993 if (rel1 != RELC_NONE)
1994 {
1995 if (rel1 != RELC_REL)
1996 abort ();
1997 alpha_vms_add_qw_reloc (info);
1998 }
1999 image_write_q (abfd, op1);
2000 break;
2001
2002 /* Store immediate repeated: pop stack for repeat count
2003 arg: lw byte count
2004 da data. */
2005 case ETIR__C_STO_IMMR:
2006 {
2007 int size;
2008
2009 if (ptr + 4 >= maxptr)
2010 goto corrupt_etir;
2011 size = bfd_getl32 (ptr);
2012 _bfd_vms_pop (abfd, &op1, &rel1);
2013 if (rel1 != RELC_NONE)
2014 goto bad_context;
2015 while (op1-- > 0)
2016 image_write (abfd, ptr + 4, size);
2017 }
2018 break;
2019
2020 /* Store global: write symbol value
2021 arg: cs global symbol name. */
2022 case ETIR__C_STO_GBL:
2023 _bfd_vms_get_value (abfd, ptr, maxptr, info, &op1, &h);
2024 if (h && h->sym)
2025 {
2026 if (h->sym->typ == EGSD__C_SYMG)
2027 {
2028 alpha_vms_add_fixup_qr
2029 (info, abfd, h->sym->owner, h->sym->symbol_vector);
2030 op1 = 0;
2031 }
2032 else
2033 {
2034 op1 = alpha_vms_get_sym_value (h->sym->section,
2035 h->sym->value);
2036 alpha_vms_add_qw_reloc (info);
2037 }
2038 }
2039 image_write_q (abfd, op1);
2040 break;
2041
2042 /* Store code address: write address of entry point
2043 arg: cs global symbol name (procedure). */
2044 case ETIR__C_STO_CA:
2045 _bfd_vms_get_value (abfd, ptr, maxptr, info, &op1, &h);
2046 if (h && h->sym)
2047 {
2048 if (h->sym->flags & EGSY__V_NORM)
2049 {
2050 /* That's really a procedure. */
2051 if (h->sym->typ == EGSD__C_SYMG)
2052 {
2053 alpha_vms_add_fixup_ca (info, abfd, h->sym->owner);
2054 op1 = h->sym->symbol_vector;
2055 }
2056 else
2057 {
2058 op1 = alpha_vms_get_sym_value (h->sym->code_section,
2059 h->sym->code_value);
2060 alpha_vms_add_qw_reloc (info);
2061 }
2062 }
2063 else
2064 {
2065 /* Symbol is not a procedure. */
2066 abort ();
2067 }
2068 }
2069 image_write_q (abfd, op1);
2070 break;
2071
2072 /* Store offset to psect: pop stack, add low 32 bits to base of psect
2073 arg: none. */
2074 case ETIR__C_STO_OFF:
2075 _bfd_vms_pop (abfd, &op1, &rel1);
2076
2077 if (!(rel1 & RELC_SEC_BASE))
2078 abort ();
2079
2080 op1 = alpha_vms_fix_sec_rel (abfd, info, rel1, op1);
2081 rel1 = RELC_REL;
2082 image_write_q (abfd, op1);
2083 break;
2084
2085 /* Store immediate
2086 arg: lw count of bytes
2087 da data. */
2088 case ETIR__C_STO_IMM:
2089 {
2090 unsigned int size;
2091
2092 if (ptr + 4 >= maxptr)
2093 goto corrupt_etir;
2094 size = bfd_getl32 (ptr);
2095 image_write (abfd, ptr + 4, size);
2096 }
2097 break;
2098
2099 /* This code is 'reserved to digital' according to the openVMS
2100 linker manual, however it is generated by the DEC C compiler
2101 and defined in the include file.
2102 FIXME, since the following is just a guess
2103 store global longword: store 32bit value of symbol
2104 arg: cs symbol name. */
2105 case ETIR__C_STO_GBL_LW:
2106 _bfd_vms_get_value (abfd, ptr, maxptr, info, &op1, &h);
2107 #if 0
2108 abort ();
2109 #endif
2110 image_write_l (abfd, op1);
2111 break;
2112
2113 case ETIR__C_STO_RB:
2114 case ETIR__C_STO_AB:
2115 case ETIR__C_STO_LP_PSB:
2116 _bfd_error_handler (_("%s: not supported"),
2117 _bfd_vms_etir_name (cmd));
2118 return FALSE;
2119 break;
2120 case ETIR__C_STO_HINT_GBL:
2121 case ETIR__C_STO_HINT_PS:
2122 _bfd_error_handler (_("%s: not implemented"),
2123 _bfd_vms_etir_name (cmd));
2124 return FALSE;
2125 break;
2126
2127 /* 200 Store-conditional Linkage Pair
2128 arg: none. */
2129 case ETIR__C_STC_LP:
2130
2131 /* 202 Store-conditional Address at global address
2132 lw linkage index
2133 cs global name. */
2134
2135 case ETIR__C_STC_GBL:
2136
2137 /* 203 Store-conditional Code Address at global address
2138 lw linkage index
2139 cs procedure name. */
2140 case ETIR__C_STC_GCA:
2141
2142 /* 204 Store-conditional Address at psect + offset
2143 lw linkage index
2144 lw psect index
2145 qw offset. */
2146 case ETIR__C_STC_PS:
2147 _bfd_error_handler (_("%s: not supported"),
2148 _bfd_vms_etir_name (cmd));
2149 return FALSE;
2150 break;
2151
2152 /* 201 Store-conditional Linkage Pair with Procedure Signature
2153 lw linkage index
2154 cs procedure name
2155 by signature length
2156 da signature. */
2157
2158 case ETIR__C_STC_LP_PSB:
2159 _bfd_vms_get_value (abfd, ptr + 4, maxptr, info, &op1, &h);
2160 if (h && h->sym)
2161 {
2162 if (h->sym->typ == EGSD__C_SYMG)
2163 {
2164 alpha_vms_add_fixup_lp (info, abfd, h->sym->owner);
2165 op1 = h->sym->symbol_vector;
2166 op2 = 0;
2167 }
2168 else
2169 {
2170 op1 = alpha_vms_get_sym_value (h->sym->code_section,
2171 h->sym->code_value);
2172 op2 = alpha_vms_get_sym_value (h->sym->section,
2173 h->sym->value);
2174 }
2175 }
2176 else
2177 {
2178 /* Undefined symbol. */
2179 op1 = 0;
2180 op2 = 0;
2181 }
2182 image_write_q (abfd, op1);
2183 image_write_q (abfd, op2);
2184 break;
2185
2186 /* 205 Store-conditional NOP at address of global
2187 arg: none. */
2188 case ETIR__C_STC_NOP_GBL:
2189 /* ALPHA_R_NOP */
2190
2191 /* 207 Store-conditional BSR at global address
2192 arg: none. */
2193
2194 case ETIR__C_STC_BSR_GBL:
2195 /* ALPHA_R_BSR */
2196
2197 /* 209 Store-conditional LDA at global address
2198 arg: none. */
2199
2200 case ETIR__C_STC_LDA_GBL:
2201 /* ALPHA_R_LDA */
2202
2203 /* 211 Store-conditional BSR or Hint at global address
2204 arg: none. */
2205
2206 case ETIR__C_STC_BOH_GBL:
2207 /* Currentl ignored. */
2208 break;
2209
2210 /* 213 Store-conditional NOP,BSR or HINT at global address
2211 arg: none. */
2212
2213 case ETIR__C_STC_NBH_GBL:
2214
2215 /* 206 Store-conditional NOP at pect + offset
2216 arg: none. */
2217
2218 case ETIR__C_STC_NOP_PS:
2219
2220 /* 208 Store-conditional BSR at pect + offset
2221 arg: none. */
2222
2223 case ETIR__C_STC_BSR_PS:
2224
2225 /* 210 Store-conditional LDA at psect + offset
2226 arg: none. */
2227
2228 case ETIR__C_STC_LDA_PS:
2229
2230 /* 212 Store-conditional BSR or Hint at pect + offset
2231 arg: none. */
2232
2233 case ETIR__C_STC_BOH_PS:
2234
2235 /* 214 Store-conditional NOP, BSR or HINT at psect + offset
2236 arg: none. */
2237 case ETIR__C_STC_NBH_PS:
2238 _bfd_error_handler (_("%s: not supported"),
2239 _bfd_vms_etir_name (cmd));
2240 return FALSE;
2241 break;
2242
2243 /* Det relocation base: pop stack, set image location counter
2244 arg: none. */
2245 case ETIR__C_CTL_SETRB:
2246 _bfd_vms_pop (abfd, &op1, &rel1);
2247 if (!(rel1 & RELC_SEC_BASE))
2248 abort ();
2249 image_set_ptr (abfd, op1, rel1 & RELC_MASK, info);
2250 break;
2251
2252 /* Augment relocation base: increment image location counter by offset
2253 arg: lw offset value. */
2254 case ETIR__C_CTL_AUGRB:
2255 if (ptr + 4 >= maxptr)
2256 goto corrupt_etir;
2257 op1 = bfd_getl32 (ptr);
2258 image_inc_ptr (abfd, op1);
2259 break;
2260
2261 /* Define location: pop index, save location counter under index
2262 arg: none. */
2263 case ETIR__C_CTL_DFLOC:
2264 _bfd_vms_pop (abfd, &op1, &rel1);
2265 if (rel1 != RELC_NONE)
2266 goto bad_context;
2267 dst_define_location (abfd, op1);
2268 break;
2269
2270 /* Set location: pop index, restore location counter from index
2271 arg: none. */
2272 case ETIR__C_CTL_STLOC:
2273 _bfd_vms_pop (abfd, &op1, &rel1);
2274 if (rel1 != RELC_NONE)
2275 goto bad_context;
2276 dst_restore_location (abfd, op1);
2277 break;
2278
2279 /* Stack defined location: pop index, push location counter from index
2280 arg: none. */
2281 case ETIR__C_CTL_STKDL:
2282 _bfd_vms_pop (abfd, &op1, &rel1);
2283 if (rel1 != RELC_NONE)
2284 goto bad_context;
2285 _bfd_vms_push (abfd, dst_retrieve_location (abfd, op1), RELC_NONE);
2286 break;
2287
2288 case ETIR__C_OPR_NOP: /* No-op. */
2289 break;
2290
2291 case ETIR__C_OPR_ADD: /* Add. */
2292 _bfd_vms_pop (abfd, &op1, &rel1);
2293 _bfd_vms_pop (abfd, &op2, &rel2);
2294 if (rel1 == RELC_NONE && rel2 != RELC_NONE)
2295 rel1 = rel2;
2296 else if (rel1 != RELC_NONE && rel2 != RELC_NONE)
2297 goto bad_context;
2298 _bfd_vms_push (abfd, op1 + op2, rel1);
2299 break;
2300
2301 case ETIR__C_OPR_SUB: /* Subtract. */
2302 _bfd_vms_pop (abfd, &op1, &rel1);
2303 _bfd_vms_pop (abfd, &op2, &rel2);
2304 if (rel1 == RELC_NONE && rel2 != RELC_NONE)
2305 rel1 = rel2;
2306 else if ((rel1 & RELC_SEC_BASE) && (rel2 & RELC_SEC_BASE))
2307 {
2308 op1 = alpha_vms_fix_sec_rel (abfd, info, rel1, op1);
2309 op2 = alpha_vms_fix_sec_rel (abfd, info, rel2, op2);
2310 rel1 = RELC_NONE;
2311 }
2312 else if (rel1 != RELC_NONE && rel2 != RELC_NONE)
2313 goto bad_context;
2314 _bfd_vms_push (abfd, op2 - op1, rel1);
2315 break;
2316
2317 case ETIR__C_OPR_MUL: /* Multiply. */
2318 _bfd_vms_pop (abfd, &op1, &rel1);
2319 _bfd_vms_pop (abfd, &op2, &rel2);
2320 if (rel1 != RELC_NONE || rel2 != RELC_NONE)
2321 goto bad_context;
2322 _bfd_vms_push (abfd, op1 * op2, RELC_NONE);
2323 break;
2324
2325 case ETIR__C_OPR_DIV: /* Divide. */
2326 _bfd_vms_pop (abfd, &op1, &rel1);
2327 _bfd_vms_pop (abfd, &op2, &rel2);
2328 if (rel1 != RELC_NONE || rel2 != RELC_NONE)
2329 goto bad_context;
2330 if (op2 == 0)
2331 _bfd_vms_push (abfd, 0, RELC_NONE);
2332 else
2333 _bfd_vms_push (abfd, op2 / op1, RELC_NONE);
2334 break;
2335
2336 case ETIR__C_OPR_AND: /* Logical AND. */
2337 _bfd_vms_pop (abfd, &op1, &rel1);
2338 _bfd_vms_pop (abfd, &op2, &rel2);
2339 if (rel1 != RELC_NONE || rel2 != RELC_NONE)
2340 goto bad_context;
2341 _bfd_vms_push (abfd, op1 & op2, RELC_NONE);
2342 break;
2343
2344 case ETIR__C_OPR_IOR: /* Logical inclusive OR. */
2345 _bfd_vms_pop (abfd, &op1, &rel1);
2346 _bfd_vms_pop (abfd, &op2, &rel2);
2347 if (rel1 != RELC_NONE || rel2 != RELC_NONE)
2348 goto bad_context;
2349 _bfd_vms_push (abfd, op1 | op2, RELC_NONE);
2350 break;
2351
2352 case ETIR__C_OPR_EOR: /* Logical exclusive OR. */
2353 _bfd_vms_pop (abfd, &op1, &rel1);
2354 _bfd_vms_pop (abfd, &op2, &rel2);
2355 if (rel1 != RELC_NONE || rel2 != RELC_NONE)
2356 goto bad_context;
2357 _bfd_vms_push (abfd, op1 ^ op2, RELC_NONE);
2358 break;
2359
2360 case ETIR__C_OPR_NEG: /* Negate. */
2361 _bfd_vms_pop (abfd, &op1, &rel1);
2362 if (rel1 != RELC_NONE)
2363 goto bad_context;
2364 _bfd_vms_push (abfd, -op1, RELC_NONE);
2365 break;
2366
2367 case ETIR__C_OPR_COM: /* Complement. */
2368 _bfd_vms_pop (abfd, &op1, &rel1);
2369 if (rel1 != RELC_NONE)
2370 goto bad_context;
2371 _bfd_vms_push (abfd, ~op1, RELC_NONE);
2372 break;
2373
2374 case ETIR__C_OPR_ASH: /* Arithmetic shift. */
2375 _bfd_vms_pop (abfd, &op1, &rel1);
2376 _bfd_vms_pop (abfd, &op2, &rel2);
2377 if (rel1 != RELC_NONE || rel2 != RELC_NONE)
2378 {
2379 bad_context:
2380 _bfd_error_handler (_("invalid use of %s with contexts"),
2381 _bfd_vms_etir_name (cmd));
2382 return FALSE;
2383 }
2384 if ((int)op2 < 0) /* Shift right. */
2385 op1 >>= -(int)op2;
2386 else /* Shift left. */
2387 op1 <<= (int)op2;
2388 _bfd_vms_push (abfd, op1, RELC_NONE); /* FIXME: sym. */
2389 break;
2390
2391 case ETIR__C_OPR_INSV: /* Insert field. */
2392 case ETIR__C_OPR_USH: /* Unsigned shift. */
2393 case ETIR__C_OPR_ROT: /* Rotate. */
2394 case ETIR__C_OPR_REDEF: /* Redefine symbol to current location. */
2395 case ETIR__C_OPR_DFLIT: /* Define a literal. */
2396 _bfd_error_handler (_("%s: not supported"),
2397 _bfd_vms_etir_name (cmd));
2398 return FALSE;
2399 break;
2400
2401 case ETIR__C_OPR_SEL: /* Select. */
2402 _bfd_vms_pop (abfd, &op1, &rel1);
2403 if (op1 & 0x01L)
2404 _bfd_vms_pop (abfd, &op1, &rel1);
2405 else
2406 {
2407 _bfd_vms_pop (abfd, &op1, &rel1);
2408 _bfd_vms_pop (abfd, &op2, &rel2);
2409 _bfd_vms_push (abfd, op1, rel1);
2410 }
2411 break;
2412
2413 default:
2414 _bfd_error_handler (_("reserved cmd %d"), cmd);
2415 return FALSE;
2416 break;
2417 }
2418
2419 ptr += cmd_length - 4;
2420 }
2421
2422 return TRUE;
2423 }
2424
2425 /* Process EDBG/ETBT record.
2426 Return TRUE on success, FALSE on error */
2427
2428 static bfd_boolean
2429 vms_slurp_debug (bfd *abfd)
2430 {
2431 asection *section = PRIV (dst_section);
2432
2433 if (section == NULL)
2434 {
2435 /* We have no way to find out beforehand how much debug info there
2436 is in an object file, so pick an initial amount and grow it as
2437 needed later. */
2438 flagword flags = SEC_HAS_CONTENTS | SEC_DEBUGGING | SEC_RELOC
2439 | SEC_IN_MEMORY;
2440
2441 section = bfd_make_section (abfd, "$DST$");
2442 if (!section)
2443 return FALSE;
2444 if (!bfd_set_section_flags (abfd, section, flags))
2445 return FALSE;
2446 PRIV (dst_section) = section;
2447 }
2448
2449 PRIV (image_section) = section;
2450 PRIV (image_offset) = section->size;
2451
2452 if (!_bfd_vms_slurp_etir (abfd, NULL))
2453 return FALSE;
2454
2455 section->size = PRIV (image_offset);
2456 return TRUE;
2457 }
2458
2459 /* Process EDBG record.
2460 Return TRUE on success, FALSE on error. */
2461
2462 static bfd_boolean
2463 _bfd_vms_slurp_edbg (bfd *abfd)
2464 {
2465 vms_debug2 ((2, "EDBG\n"));
2466
2467 abfd->flags |= HAS_DEBUG | HAS_LINENO;
2468
2469 return vms_slurp_debug (abfd);
2470 }
2471
2472 /* Process ETBT record.
2473 Return TRUE on success, FALSE on error. */
2474
2475 static bfd_boolean
2476 _bfd_vms_slurp_etbt (bfd *abfd)
2477 {
2478 vms_debug2 ((2, "ETBT\n"));
2479
2480 abfd->flags |= HAS_LINENO;
2481
2482 return vms_slurp_debug (abfd);
2483 }
2484
2485 /* Process EEOM record.
2486 Return TRUE on success, FALSE on error. */
2487
2488 static bfd_boolean
2489 _bfd_vms_slurp_eeom (bfd *abfd)
2490 {
2491 struct vms_eeom *eeom = (struct vms_eeom *) PRIV (recrd.rec);
2492
2493 vms_debug2 ((2, "EEOM\n"));
2494
2495 /* PR 21813: Check for an undersized record. */
2496 if (PRIV (recrd.buf_size) < sizeof (* eeom))
2497 {
2498 _bfd_error_handler (_("corrupt EEOM record - size is too small"));
2499 bfd_set_error (bfd_error_bad_value);
2500 return FALSE;
2501 }
2502
2503 PRIV (eom_data).eom_l_total_lps = bfd_getl32 (eeom->total_lps);
2504 PRIV (eom_data).eom_w_comcod = bfd_getl16 (eeom->comcod);
2505 if (PRIV (eom_data).eom_w_comcod > 1)
2506 {
2507 _bfd_error_handler (_("object module not error-free !"));
2508 bfd_set_error (bfd_error_bad_value);
2509 return FALSE;
2510 }
2511
2512 PRIV (eom_data).eom_has_transfer = FALSE;
2513 if (PRIV (recrd.rec_size) > 10)
2514 {
2515 PRIV (eom_data).eom_has_transfer = TRUE;
2516 PRIV (eom_data).eom_b_tfrflg = eeom->tfrflg;
2517 PRIV (eom_data).eom_l_psindx = bfd_getl32 (eeom->psindx);
2518 PRIV (eom_data).eom_l_tfradr = bfd_getl32 (eeom->tfradr);
2519
2520 abfd->start_address = PRIV (eom_data).eom_l_tfradr;
2521 }
2522 return TRUE;
2523 }
2524
2525 /* Slurp an ordered set of VMS object records. Return FALSE on error. */
2526
2527 static bfd_boolean
2528 _bfd_vms_slurp_object_records (bfd * abfd)
2529 {
2530 bfd_boolean err;
2531 int type;
2532
2533 do
2534 {
2535 vms_debug2 ((7, "reading at %08lx\n", (unsigned long)bfd_tell (abfd)));
2536
2537 type = _bfd_vms_get_object_record (abfd);
2538 if (type < 0)
2539 {
2540 vms_debug2 ((2, "next_record failed\n"));
2541 return FALSE;
2542 }
2543
2544 switch (type)
2545 {
2546 case EOBJ__C_EMH:
2547 err = _bfd_vms_slurp_ehdr (abfd);
2548 break;
2549 case EOBJ__C_EEOM:
2550 err = _bfd_vms_slurp_eeom (abfd);
2551 break;
2552 case EOBJ__C_EGSD:
2553 err = _bfd_vms_slurp_egsd (abfd);
2554 break;
2555 case EOBJ__C_ETIR:
2556 err = TRUE; /* _bfd_vms_slurp_etir (abfd); */
2557 break;
2558 case EOBJ__C_EDBG:
2559 err = _bfd_vms_slurp_edbg (abfd);
2560 break;
2561 case EOBJ__C_ETBT:
2562 err = _bfd_vms_slurp_etbt (abfd);
2563 break;
2564 default:
2565 err = FALSE;
2566 }
2567 if (!err)
2568 {
2569 vms_debug2 ((2, "slurp type %d failed\n", type));
2570 return FALSE;
2571 }
2572 }
2573 while (type != EOBJ__C_EEOM);
2574
2575 return TRUE;
2576 }
2577
2578 /* Initialize private data */
2579 static bfd_boolean
2580 vms_initialize (bfd * abfd)
2581 {
2582 bfd_size_type amt;
2583
2584 amt = sizeof (struct vms_private_data_struct);
2585 abfd->tdata.any = bfd_zalloc (abfd, amt);
2586 if (abfd->tdata.any == NULL)
2587 return FALSE;
2588
2589 PRIV (recrd.file_format) = FF_UNKNOWN;
2590
2591 amt = sizeof (struct stack_struct) * STACKSIZE;
2592 PRIV (stack) = bfd_alloc (abfd, amt);
2593 if (PRIV (stack) == NULL)
2594 goto error_ret1;
2595
2596 return TRUE;
2597
2598 error_ret1:
2599 bfd_release (abfd, abfd->tdata.any);
2600 abfd->tdata.any = NULL;
2601 return FALSE;
2602 }
2603
2604 /* Check the format for a file being read.
2605 Return a (bfd_target *) if it's an object file or zero if not. */
2606
2607 static const struct bfd_target *
2608 alpha_vms_object_p (bfd *abfd)
2609 {
2610 void *tdata_save = abfd->tdata.any;
2611 unsigned int test_len;
2612 unsigned char *buf;
2613
2614 vms_debug2 ((1, "vms_object_p(%p)\n", abfd));
2615
2616 /* Allocate alpha-vms specific data. */
2617 if (!vms_initialize (abfd))
2618 goto error_ret;
2619
2620 if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET))
2621 goto err_wrong_format;
2622
2623 /* The first challenge with VMS is to discover the kind of the file.
2624
2625 Image files (executable or shared images) are stored as a raw
2626 stream of bytes (like on UNIX), but there is no magic number.
2627
2628 Object files are written with RMS (record management service), ie
2629 each records are preceeded by its length (on a word - 2 bytes), and
2630 padded for word-alignment. That would be simple but when files
2631 are transfered to a UNIX filesystem (using ftp), records are lost.
2632 Only the raw content of the records are transfered. Fortunately,
2633 the Alpha Object file format also store the length of the record
2634 in the records. Is that clear ? */
2635
2636 /* Minimum is 6 bytes for objects (2 bytes size, 2 bytes record id,
2637 2 bytes size repeated) and 12 bytes for images (4 bytes major id,
2638 4 bytes minor id, 4 bytes length). */
2639 test_len = 12;
2640
2641 /* Size the main buffer. */
2642 buf = (unsigned char *) bfd_malloc (test_len);
2643 if (buf == NULL)
2644 goto error_ret;
2645 PRIV (recrd.buf) = buf;
2646 PRIV (recrd.buf_size) = test_len;
2647
2648 /* Initialize the record pointer. */
2649 PRIV (recrd.rec) = buf;
2650
2651 if (bfd_bread (buf, test_len, abfd) != test_len)
2652 goto err_wrong_format;
2653
2654 /* Is it an image? */
2655 if ((bfd_getl32 (buf) == EIHD__K_MAJORID)
2656 && (bfd_getl32 (buf + 4) == EIHD__K_MINORID))
2657 {
2658 unsigned int to_read;
2659 unsigned int read_so_far;
2660 unsigned int remaining;
2661 unsigned int eisd_offset, eihs_offset;
2662
2663 /* Extract the header size. */
2664 PRIV (recrd.rec_size) = bfd_getl32 (buf + EIHD__L_SIZE);
2665
2666 /* The header size is 0 for DSF files. */
2667 if (PRIV (recrd.rec_size) == 0)
2668 PRIV (recrd.rec_size) = sizeof (struct vms_eihd);
2669
2670 if (PRIV (recrd.rec_size) > PRIV (recrd.buf_size))
2671 {
2672 buf = bfd_realloc_or_free (buf, PRIV (recrd.rec_size));
2673
2674 if (buf == NULL)
2675 {
2676 PRIV (recrd.buf) = NULL;
2677 goto error_ret;
2678 }
2679 PRIV (recrd.buf) = buf;
2680 PRIV (recrd.buf_size) = PRIV (recrd.rec_size);
2681 }
2682
2683 /* PR 21813: Check for a truncated record. */
2684 if (PRIV (recrd.rec_size < test_len))
2685 goto error_ret;
2686 /* Read the remaining record. */
2687 remaining = PRIV (recrd.rec_size) - test_len;
2688 to_read = MIN (VMS_BLOCK_SIZE - test_len, remaining);
2689 read_so_far = test_len;
2690
2691 while (remaining > 0)
2692 {
2693 if (bfd_bread (buf + read_so_far, to_read, abfd) != to_read)
2694 goto err_wrong_format;
2695
2696 read_so_far += to_read;
2697 remaining -= to_read;
2698
2699 to_read = MIN (VMS_BLOCK_SIZE, remaining);
2700 }
2701
2702 /* Reset the record pointer. */
2703 PRIV (recrd.rec) = buf;
2704
2705 /* PR 17512: file: 7d7c57c2. */
2706 if (PRIV (recrd.rec_size) < sizeof (struct vms_eihd))
2707 goto error_ret;
2708 vms_debug2 ((2, "file type is image\n"));
2709
2710 if (!_bfd_vms_slurp_eihd (abfd, &eisd_offset, &eihs_offset))
2711 goto err_wrong_format;
2712
2713 if (!_bfd_vms_slurp_eisd (abfd, eisd_offset))
2714 goto err_wrong_format;
2715
2716 /* EIHS is optional. */
2717 if (eihs_offset != 0 && !_bfd_vms_slurp_eihs (abfd, eihs_offset))
2718 goto err_wrong_format;
2719 }
2720 else
2721 {
2722 int type;
2723
2724 /* Assume it's a module and adjust record pointer if necessary. */
2725 maybe_adjust_record_pointer_for_object (abfd);
2726
2727 /* But is it really a module? */
2728 if (bfd_getl16 (PRIV (recrd.rec)) <= EOBJ__C_MAXRECTYP
2729 && bfd_getl16 (PRIV (recrd.rec) + 2) <= EOBJ__C_MAXRECSIZ)
2730 {
2731 if (vms_get_remaining_object_record (abfd, test_len) <= 0)
2732 goto err_wrong_format;
2733
2734 vms_debug2 ((2, "file type is module\n"));
2735
2736 type = bfd_getl16 (PRIV (recrd.rec));
2737 if (type != EOBJ__C_EMH || !_bfd_vms_slurp_ehdr (abfd))
2738 goto err_wrong_format;
2739
2740 if (!_bfd_vms_slurp_object_records (abfd))
2741 goto err_wrong_format;
2742 }
2743 else
2744 goto err_wrong_format;
2745 }
2746
2747 /* Set arch_info to alpha. */
2748
2749 if (! bfd_default_set_arch_mach (abfd, bfd_arch_alpha, 0))
2750 goto err_wrong_format;
2751
2752 return abfd->xvec;
2753
2754 err_wrong_format:
2755 bfd_set_error (bfd_error_wrong_format);
2756
2757 error_ret:
2758 if (PRIV (recrd.buf))
2759 free (PRIV (recrd.buf));
2760 if (abfd->tdata.any != tdata_save && abfd->tdata.any != NULL)
2761 bfd_release (abfd, abfd->tdata.any);
2762 abfd->tdata.any = tdata_save;
2763 return NULL;
2764 }
2765 \f
2766 /* Image write. */
2767
2768 /* Write an EMH/MHD record. */
2769
2770 static void
2771 _bfd_vms_write_emh (bfd *abfd)
2772 {
2773 struct vms_rec_wr *recwr = &PRIV (recwr);
2774
2775 _bfd_vms_output_alignment (recwr, 2);
2776
2777 /* EMH. */
2778 _bfd_vms_output_begin (recwr, EOBJ__C_EMH);
2779 _bfd_vms_output_short (recwr, EMH__C_MHD);
2780 _bfd_vms_output_short (recwr, EOBJ__C_STRLVL);
2781 _bfd_vms_output_long (recwr, 0);
2782 _bfd_vms_output_long (recwr, 0);
2783 _bfd_vms_output_long (recwr, MAX_OUTREC_SIZE);
2784
2785 /* Create module name from filename. */
2786 if (bfd_get_filename (abfd) != 0)
2787 {
2788 char *module = vms_get_module_name (bfd_get_filename (abfd), TRUE);
2789 _bfd_vms_output_counted (recwr, module);
2790 free (module);
2791 }
2792 else
2793 _bfd_vms_output_counted (recwr, "NONAME");
2794
2795 _bfd_vms_output_counted (recwr, BFD_VERSION_STRING);
2796 _bfd_vms_output_dump (recwr, get_vms_time_string (), EMH_DATE_LENGTH);
2797 _bfd_vms_output_fill (recwr, 0, EMH_DATE_LENGTH);
2798 _bfd_vms_output_end (abfd, recwr);
2799 }
2800
2801 /* Write an EMH/LMN record. */
2802
2803 static void
2804 _bfd_vms_write_lmn (bfd *abfd, const char *name)
2805 {
2806 char version [64];
2807 struct vms_rec_wr *recwr = &PRIV (recwr);
2808 unsigned int ver = BFD_VERSION / 10000;
2809
2810 /* LMN. */
2811 _bfd_vms_output_begin (recwr, EOBJ__C_EMH);
2812 _bfd_vms_output_short (recwr, EMH__C_LNM);
2813 snprintf (version, sizeof (version), "%s %d.%d.%d", name,
2814 ver / 10000, (ver / 100) % 100, ver % 100);
2815 _bfd_vms_output_dump (recwr, (unsigned char *)version, strlen (version));
2816 _bfd_vms_output_end (abfd, recwr);
2817 }
2818
2819
2820 /* Write eom record for bfd abfd. Return FALSE on error. */
2821
2822 static bfd_boolean
2823 _bfd_vms_write_eeom (bfd *abfd)
2824 {
2825 struct vms_rec_wr *recwr = &PRIV (recwr);
2826
2827 vms_debug2 ((2, "vms_write_eeom\n"));
2828
2829 _bfd_vms_output_alignment (recwr, 2);
2830
2831 _bfd_vms_output_begin (recwr, EOBJ__C_EEOM);
2832 _bfd_vms_output_long (recwr, PRIV (vms_linkage_index + 1) >> 1);
2833 _bfd_vms_output_byte (recwr, 0); /* Completion code. */
2834 _bfd_vms_output_byte (recwr, 0); /* Fill byte. */
2835
2836 if ((abfd->flags & EXEC_P) == 0
2837 && bfd_get_start_address (abfd) != (bfd_vma)-1)
2838 {
2839 asection *section;
2840
2841 section = bfd_get_section_by_name (abfd, ".link");
2842 if (section == 0)
2843 {
2844 bfd_set_error (bfd_error_nonrepresentable_section);
2845 return FALSE;
2846 }
2847 _bfd_vms_output_short (recwr, 0);
2848 _bfd_vms_output_long (recwr, (unsigned long) section->target_index);
2849 _bfd_vms_output_long (recwr,
2850 (unsigned long) bfd_get_start_address (abfd));
2851 _bfd_vms_output_long (recwr, 0);
2852 }
2853
2854 _bfd_vms_output_end (abfd, recwr);
2855 return TRUE;
2856 }
2857
2858 static void
2859 vector_grow1 (struct vector_type *vec, size_t elsz)
2860 {
2861 if (vec->nbr_el + 1 < vec->max_el)
2862 return;
2863
2864 if (vec->max_el == 0)
2865 {
2866 vec->max_el = 16;
2867 vec->els = bfd_malloc2 (vec->max_el, elsz);
2868 }
2869 else
2870 {
2871 vec->max_el *= 2;
2872 vec->els = bfd_realloc2 (vec->els, vec->max_el, elsz);
2873 }
2874 }
2875
2876 /* Bump ABFD file position to next block. */
2877
2878 static void
2879 alpha_vms_file_position_block (bfd *abfd)
2880 {
2881 /* Next block. */
2882 PRIV (file_pos) += VMS_BLOCK_SIZE - 1;
2883 PRIV (file_pos) -= (PRIV (file_pos) % VMS_BLOCK_SIZE);
2884 }
2885
2886 /* Convert from internal structure SRC to external structure DST. */
2887
2888 static void
2889 alpha_vms_swap_eisd_out (struct vms_internal_eisd_map *src,
2890 struct vms_eisd *dst)
2891 {
2892 bfd_putl32 (src->u.eisd.majorid, dst->majorid);
2893 bfd_putl32 (src->u.eisd.minorid, dst->minorid);
2894 bfd_putl32 (src->u.eisd.eisdsize, dst->eisdsize);
2895 if (src->u.eisd.eisdsize <= EISD__K_LENEND)
2896 return;
2897 bfd_putl32 (src->u.eisd.secsize, dst->secsize);
2898 bfd_putl64 (src->u.eisd.virt_addr, dst->virt_addr);
2899 bfd_putl32 (src->u.eisd.flags, dst->flags);
2900 bfd_putl32 (src->u.eisd.vbn, dst->vbn);
2901 dst->pfc = src->u.eisd.pfc;
2902 dst->matchctl = src->u.eisd.matchctl;
2903 dst->type = src->u.eisd.type;
2904 dst->fill_1 = 0;
2905 if (src->u.eisd.flags & EISD__M_GBL)
2906 {
2907 bfd_putl32 (src->u.gbl_eisd.ident, dst->ident);
2908 memcpy (dst->gblnam, src->u.gbl_eisd.gblnam,
2909 src->u.gbl_eisd.gblnam[0] + 1);
2910 }
2911 }
2912
2913 /* Append EISD to the list of extra eisd for ABFD. */
2914
2915 static void
2916 alpha_vms_append_extra_eisd (bfd *abfd, struct vms_internal_eisd_map *eisd)
2917 {
2918 eisd->next = NULL;
2919 if (PRIV (gbl_eisd_head) == NULL)
2920 PRIV (gbl_eisd_head) = eisd;
2921 else
2922 PRIV (gbl_eisd_tail)->next = eisd;
2923 PRIV (gbl_eisd_tail) = eisd;
2924 }
2925
2926 /* Create an EISD for shared image SHRIMG.
2927 Return FALSE in case of error. */
2928
2929 static bfd_boolean
2930 alpha_vms_create_eisd_for_shared (bfd *abfd, bfd *shrimg)
2931 {
2932 struct vms_internal_eisd_map *eisd;
2933 int namlen;
2934
2935 namlen = strlen (PRIV2 (shrimg, hdr_data.hdr_t_name));
2936 if (namlen + 5 > EISD__K_GBLNAMLEN)
2937 {
2938 /* Won't fit. */
2939 return FALSE;
2940 }
2941
2942 eisd = bfd_alloc (abfd, sizeof (*eisd));
2943 if (eisd == NULL)
2944 return FALSE;
2945
2946 /* Fill the fields. */
2947 eisd->u.gbl_eisd.common.majorid = EISD__K_MAJORID;
2948 eisd->u.gbl_eisd.common.minorid = EISD__K_MINORID;
2949 eisd->u.gbl_eisd.common.eisdsize = (EISD__K_LEN + 4 + namlen + 5 + 3) & ~3;
2950 eisd->u.gbl_eisd.common.secsize = VMS_BLOCK_SIZE; /* Must not be 0. */
2951 eisd->u.gbl_eisd.common.virt_addr = 0;
2952 eisd->u.gbl_eisd.common.flags = EISD__M_GBL;
2953 eisd->u.gbl_eisd.common.vbn = 0;
2954 eisd->u.gbl_eisd.common.pfc = 0;
2955 eisd->u.gbl_eisd.common.matchctl = PRIV2 (shrimg, matchctl);
2956 eisd->u.gbl_eisd.common.type = EISD__K_SHRPIC;
2957
2958 eisd->u.gbl_eisd.ident = PRIV2 (shrimg, ident);
2959 eisd->u.gbl_eisd.gblnam[0] = namlen + 4;
2960 memcpy (eisd->u.gbl_eisd.gblnam + 1, PRIV2 (shrimg, hdr_data.hdr_t_name),
2961 namlen);
2962 memcpy (eisd->u.gbl_eisd.gblnam + 1 + namlen, "_001", 4);
2963
2964 /* Append it to the list. */
2965 alpha_vms_append_extra_eisd (abfd, eisd);
2966
2967 return TRUE;
2968 }
2969
2970 /* Create an EISD for section SEC.
2971 Return FALSE in case of failure. */
2972
2973 static bfd_boolean
2974 alpha_vms_create_eisd_for_section (bfd *abfd, asection *sec)
2975 {
2976 struct vms_internal_eisd_map *eisd;
2977
2978 /* Only for allocating section. */
2979 if (!(sec->flags & SEC_ALLOC))
2980 return TRUE;
2981
2982 BFD_ASSERT (vms_section_data (sec)->eisd == NULL);
2983 eisd = bfd_alloc (abfd, sizeof (*eisd));
2984 if (eisd == NULL)
2985 return FALSE;
2986 vms_section_data (sec)->eisd = eisd;
2987
2988 /* Fill the fields. */
2989 eisd->u.eisd.majorid = EISD__K_MAJORID;
2990 eisd->u.eisd.minorid = EISD__K_MINORID;
2991 eisd->u.eisd.eisdsize = EISD__K_LEN;
2992 eisd->u.eisd.secsize =
2993 (sec->size + VMS_BLOCK_SIZE - 1) & ~(VMS_BLOCK_SIZE - 1);
2994 eisd->u.eisd.virt_addr = sec->vma;
2995 eisd->u.eisd.flags = 0;
2996 eisd->u.eisd.vbn = 0; /* To be later defined. */
2997 eisd->u.eisd.pfc = 0; /* Default. */
2998 eisd->u.eisd.matchctl = EISD__K_MATALL;
2999 eisd->u.eisd.type = EISD__K_NORMAL;
3000
3001 if (sec->flags & SEC_CODE)
3002 eisd->u.eisd.flags |= EISD__M_EXE;
3003 if (!(sec->flags & SEC_READONLY))
3004 eisd->u.eisd.flags |= EISD__M_WRT | EISD__M_CRF;
3005
3006 /* If relocations or fixup will be applied, make this isect writeable. */
3007 if (sec->flags & SEC_RELOC)
3008 eisd->u.eisd.flags |= EISD__M_WRT | EISD__M_CRF;
3009
3010 if (!(sec->flags & SEC_HAS_CONTENTS))
3011 {
3012 eisd->u.eisd.flags |= EISD__M_DZRO;
3013 eisd->u.eisd.flags &= ~EISD__M_CRF;
3014 }
3015 if (sec->flags & SEC_LINKER_CREATED)
3016 {
3017 if (strcmp (sec->name, "$FIXUP$") == 0)
3018 eisd->u.eisd.flags |= EISD__M_FIXUPVEC;
3019 }
3020
3021 /* Append it to the list. */
3022 eisd->next = NULL;
3023 if (PRIV (eisd_head) == NULL)
3024 PRIV (eisd_head) = eisd;
3025 else
3026 PRIV (eisd_tail)->next = eisd;
3027 PRIV (eisd_tail) = eisd;
3028
3029 return TRUE;
3030 }
3031
3032 /* Layout executable ABFD and write it to the disk.
3033 Return FALSE in case of failure. */
3034
3035 static bfd_boolean
3036 alpha_vms_write_exec (bfd *abfd)
3037 {
3038 struct vms_eihd eihd;
3039 struct vms_eiha *eiha;
3040 struct vms_eihi *eihi;
3041 struct vms_eihs *eihs = NULL;
3042 asection *sec;
3043 struct vms_internal_eisd_map *first_eisd;
3044 struct vms_internal_eisd_map *eisd;
3045 asection *dst;
3046 asection *dmt;
3047 file_ptr gst_filepos = 0;
3048 unsigned int lnkflags = 0;
3049
3050 /* Build the EIHD. */
3051 PRIV (file_pos) = EIHD__C_LENGTH;
3052
3053 memset (&eihd, 0, sizeof (eihd));
3054 memset (eihd.fill_2, 0xff, sizeof (eihd.fill_2));
3055
3056 bfd_putl32 (EIHD__K_MAJORID, eihd.majorid);
3057 bfd_putl32 (EIHD__K_MINORID, eihd.minorid);
3058
3059 bfd_putl32 (sizeof (eihd), eihd.size);
3060 bfd_putl32 (0, eihd.isdoff);
3061 bfd_putl32 (0, eihd.activoff);
3062 bfd_putl32 (0, eihd.symdbgoff);
3063 bfd_putl32 (0, eihd.imgidoff);
3064 bfd_putl32 (0, eihd.patchoff);
3065 bfd_putl64 (0, eihd.iafva);
3066 bfd_putl32 (0, eihd.version_array_off);
3067
3068 bfd_putl32 (EIHD__K_EXE, eihd.imgtype);
3069 bfd_putl32 (0, eihd.subtype);
3070
3071 bfd_putl32 (0, eihd.imgiocnt);
3072 bfd_putl32 (-1, eihd.privreqs);
3073 bfd_putl32 (-1, eihd.privreqs + 4);
3074
3075 bfd_putl32 ((sizeof (eihd) + VMS_BLOCK_SIZE - 1) / VMS_BLOCK_SIZE,
3076 eihd.hdrblkcnt);
3077 bfd_putl32 (0, eihd.ident);
3078 bfd_putl32 (0, eihd.sysver);
3079
3080 eihd.matchctl = 0;
3081 bfd_putl32 (0, eihd.symvect_size);
3082 bfd_putl32 (16, eihd.virt_mem_block_size);
3083 bfd_putl32 (0, eihd.ext_fixup_off);
3084 bfd_putl32 (0, eihd.noopt_psect_off);
3085 bfd_putl32 (-1, eihd.alias);
3086
3087 /* Alloc EIHA. */
3088 eiha = (struct vms_eiha *)((char *) &eihd + PRIV (file_pos));
3089 bfd_putl32 (PRIV (file_pos), eihd.activoff);
3090 PRIV (file_pos) += sizeof (struct vms_eiha);
3091
3092 bfd_putl32 (sizeof (struct vms_eiha), eiha->size);
3093 bfd_putl32 (0, eiha->spare);
3094 bfd_putl64 (PRIV (transfer_address[0]), eiha->tfradr1);
3095 bfd_putl64 (PRIV (transfer_address[1]), eiha->tfradr2);
3096 bfd_putl64 (PRIV (transfer_address[2]), eiha->tfradr3);
3097 bfd_putl64 (PRIV (transfer_address[3]), eiha->tfradr4);
3098 bfd_putl64 (0, eiha->inishr);
3099
3100 /* Alloc EIHI. */
3101 eihi = (struct vms_eihi *)((char *) &eihd + PRIV (file_pos));
3102 bfd_putl32 (PRIV (file_pos), eihd.imgidoff);
3103 PRIV (file_pos) += sizeof (struct vms_eihi);
3104
3105 bfd_putl32 (EIHI__K_MAJORID, eihi->majorid);
3106 bfd_putl32 (EIHI__K_MINORID, eihi->minorid);
3107 {
3108 char *module;
3109 unsigned int len;
3110
3111 /* Set module name. */
3112 module = vms_get_module_name (bfd_get_filename (abfd), TRUE);
3113 len = strlen (module);
3114 if (len > sizeof (eihi->imgnam) - 1)
3115 len = sizeof (eihi->imgnam) - 1;
3116 eihi->imgnam[0] = len;
3117 memcpy (eihi->imgnam + 1, module, len);
3118 free (module);
3119 }
3120 {
3121 unsigned int lo;
3122 unsigned int hi;
3123
3124 /* Set time. */
3125 vms_get_time (&hi, &lo);
3126 bfd_putl32 (lo, eihi->linktime + 0);
3127 bfd_putl32 (hi, eihi->linktime + 4);
3128 }
3129 eihi->imgid[0] = 0;
3130 eihi->linkid[0] = 0;
3131 eihi->imgbid[0] = 0;
3132
3133 /* Alloc EIHS. */
3134 dst = PRIV (dst_section);
3135 dmt = bfd_get_section_by_name (abfd, "$DMT$");
3136 if (dst != NULL && dst->size != 0)
3137 {
3138 eihs = (struct vms_eihs *)((char *) &eihd + PRIV (file_pos));
3139 bfd_putl32 (PRIV (file_pos), eihd.symdbgoff);
3140 PRIV (file_pos) += sizeof (struct vms_eihs);
3141
3142 bfd_putl32 (EIHS__K_MAJORID, eihs->majorid);
3143 bfd_putl32 (EIHS__K_MINORID, eihs->minorid);
3144 bfd_putl32 (0, eihs->dstvbn);
3145 bfd_putl32 (0, eihs->dstsize);
3146 bfd_putl32 (0, eihs->gstvbn);
3147 bfd_putl32 (0, eihs->gstsize);
3148 bfd_putl32 (0, eihs->dmtvbn);
3149 bfd_putl32 (0, eihs->dmtsize);
3150 }
3151
3152 /* One EISD per section. */
3153 for (sec = abfd->sections; sec; sec = sec->next)
3154 {
3155 if (!alpha_vms_create_eisd_for_section (abfd, sec))
3156 return FALSE;
3157 }
3158
3159 /* Merge section EIDS which extra ones. */
3160 if (PRIV (eisd_tail))
3161 PRIV (eisd_tail)->next = PRIV (gbl_eisd_head);
3162 else
3163 PRIV (eisd_head) = PRIV (gbl_eisd_head);
3164 if (PRIV (gbl_eisd_tail))
3165 PRIV (eisd_tail) = PRIV (gbl_eisd_tail);
3166
3167 first_eisd = PRIV (eisd_head);
3168
3169 /* Add end of eisd. */
3170 if (first_eisd)
3171 {
3172 eisd = bfd_zalloc (abfd, sizeof (*eisd));
3173 if (eisd == NULL)
3174 return FALSE;
3175 eisd->u.eisd.majorid = 0;
3176 eisd->u.eisd.minorid = 0;
3177 eisd->u.eisd.eisdsize = 0;
3178 alpha_vms_append_extra_eisd (abfd, eisd);
3179 }
3180
3181 /* Place EISD in the file. */
3182 for (eisd = first_eisd; eisd; eisd = eisd->next)
3183 {
3184 file_ptr room = VMS_BLOCK_SIZE - (PRIV (file_pos) % VMS_BLOCK_SIZE);
3185
3186 /* First block is a little bit special: there is a word at the end. */
3187 if (PRIV (file_pos) < VMS_BLOCK_SIZE && room > 2)
3188 room -= 2;
3189 if (room < eisd->u.eisd.eisdsize + EISD__K_LENEND)
3190 alpha_vms_file_position_block (abfd);
3191
3192 eisd->file_pos = PRIV (file_pos);
3193 PRIV (file_pos) += eisd->u.eisd.eisdsize;
3194
3195 if (eisd->u.eisd.flags & EISD__M_FIXUPVEC)
3196 bfd_putl64 (eisd->u.eisd.virt_addr, eihd.iafva);
3197 }
3198
3199 if (first_eisd != NULL)
3200 {
3201 bfd_putl32 (first_eisd->file_pos, eihd.isdoff);
3202 /* Real size of end of eisd marker. */
3203 PRIV (file_pos) += EISD__K_LENEND;
3204 }
3205
3206 bfd_putl32 (PRIV (file_pos), eihd.size);
3207 bfd_putl32 ((PRIV (file_pos) + VMS_BLOCK_SIZE - 1) / VMS_BLOCK_SIZE,
3208 eihd.hdrblkcnt);
3209
3210 /* Place sections. */
3211 for (sec = abfd->sections; sec; sec = sec->next)
3212 {
3213 if (!(sec->flags & SEC_HAS_CONTENTS))
3214 continue;
3215
3216 eisd = vms_section_data (sec)->eisd;
3217
3218 /* Align on a block. */
3219 alpha_vms_file_position_block (abfd);
3220 sec->filepos = PRIV (file_pos);
3221
3222 if (eisd != NULL)
3223 eisd->u.eisd.vbn = (sec->filepos / VMS_BLOCK_SIZE) + 1;
3224
3225 PRIV (file_pos) += sec->size;
3226 }
3227
3228 /* Update EIHS. */
3229 if (eihs != NULL && dst != NULL)
3230 {
3231 bfd_putl32 ((dst->filepos / VMS_BLOCK_SIZE) + 1, eihs->dstvbn);
3232 bfd_putl32 (dst->size, eihs->dstsize);
3233
3234 if (dmt != NULL)
3235 {
3236 lnkflags |= EIHD__M_DBGDMT;
3237 bfd_putl32 ((dmt->filepos / VMS_BLOCK_SIZE) + 1, eihs->dmtvbn);
3238 bfd_putl32 (dmt->size, eihs->dmtsize);
3239 }
3240 if (PRIV (gsd_sym_count) != 0)
3241 {
3242 alpha_vms_file_position_block (abfd);
3243 gst_filepos = PRIV (file_pos);
3244 bfd_putl32 ((gst_filepos / VMS_BLOCK_SIZE) + 1, eihs->gstvbn);
3245 bfd_putl32 ((PRIV (gsd_sym_count) + 4) / 5 + 4, eihs->gstsize);
3246 }
3247 }
3248
3249 /* Write EISD in hdr. */
3250 for (eisd = first_eisd; eisd && eisd->file_pos < VMS_BLOCK_SIZE;
3251 eisd = eisd->next)
3252 alpha_vms_swap_eisd_out
3253 (eisd, (struct vms_eisd *)((char *)&eihd + eisd->file_pos));
3254
3255 /* Write first block. */
3256 bfd_putl32 (lnkflags, eihd.lnkflags);
3257 if (bfd_bwrite (&eihd, sizeof (eihd), abfd) != sizeof (eihd))
3258 return FALSE;
3259
3260 /* Write remaining eisd. */
3261 if (eisd != NULL)
3262 {
3263 unsigned char blk[VMS_BLOCK_SIZE];
3264 struct vms_internal_eisd_map *next_eisd;
3265
3266 memset (blk, 0xff, sizeof (blk));
3267 while (eisd != NULL)
3268 {
3269 alpha_vms_swap_eisd_out
3270 (eisd,
3271 (struct vms_eisd *)(blk + (eisd->file_pos % VMS_BLOCK_SIZE)));
3272
3273 next_eisd = eisd->next;
3274 if (next_eisd == NULL
3275 || (next_eisd->file_pos / VMS_BLOCK_SIZE
3276 != eisd->file_pos / VMS_BLOCK_SIZE))
3277 {
3278 if (bfd_bwrite (blk, sizeof (blk), abfd) != sizeof (blk))
3279 return FALSE;
3280
3281 memset (blk, 0xff, sizeof (blk));
3282 }
3283 eisd = next_eisd;
3284 }
3285 }
3286
3287 /* Write sections. */
3288 for (sec = abfd->sections; sec; sec = sec->next)
3289 {
3290 unsigned char blk[VMS_BLOCK_SIZE];
3291 bfd_size_type len;
3292
3293 if (sec->size == 0 || !(sec->flags & SEC_HAS_CONTENTS))
3294 continue;
3295 if (bfd_bwrite (sec->contents, sec->size, abfd) != sec->size)
3296 return FALSE;
3297
3298 /* Pad. */
3299 len = VMS_BLOCK_SIZE - sec->size % VMS_BLOCK_SIZE;
3300 if (len != VMS_BLOCK_SIZE)
3301 {
3302 memset (blk, 0, len);
3303 if (bfd_bwrite (blk, len, abfd) != len)
3304 return FALSE;
3305 }
3306 }
3307
3308 /* Write GST. */
3309 if (gst_filepos != 0)
3310 {
3311 struct vms_rec_wr *recwr = &PRIV (recwr);
3312 unsigned int i;
3313
3314 _bfd_vms_write_emh (abfd);
3315 _bfd_vms_write_lmn (abfd, "GNU LD");
3316
3317 /* PSC for the absolute section. */
3318 _bfd_vms_output_begin (recwr, EOBJ__C_EGSD);
3319 _bfd_vms_output_long (recwr, 0);
3320 _bfd_vms_output_begin_subrec (recwr, EGSD__C_PSC);
3321 _bfd_vms_output_short (recwr, 0);
3322 _bfd_vms_output_short (recwr, EGPS__V_PIC | EGPS__V_LIB | EGPS__V_RD);
3323 _bfd_vms_output_long (recwr, 0);
3324 _bfd_vms_output_counted (recwr, ".$$ABS$$.");
3325 _bfd_vms_output_end_subrec (recwr);
3326 _bfd_vms_output_end (abfd, recwr);
3327
3328 for (i = 0; i < PRIV (gsd_sym_count); i++)
3329 {
3330 struct vms_symbol_entry *sym = PRIV (syms)[i];
3331 bfd_vma val;
3332 bfd_vma ep;
3333
3334 if ((i % 5) == 0)
3335 {
3336 _bfd_vms_output_alignment (recwr, 8);
3337 _bfd_vms_output_begin (recwr, EOBJ__C_EGSD);
3338 _bfd_vms_output_long (recwr, 0);
3339 }
3340 _bfd_vms_output_begin_subrec (recwr, EGSD__C_SYMG);
3341 _bfd_vms_output_short (recwr, 0); /* Data type, alignment. */
3342 _bfd_vms_output_short (recwr, sym->flags);
3343
3344 if (sym->code_section)
3345 ep = alpha_vms_get_sym_value (sym->code_section, sym->code_value);
3346 else
3347 {
3348 BFD_ASSERT (sym->code_value == 0);
3349 ep = 0;
3350 }
3351 val = alpha_vms_get_sym_value (sym->section, sym->value);
3352 _bfd_vms_output_quad
3353 (recwr, sym->typ == EGSD__C_SYMG ? sym->symbol_vector : val);
3354 _bfd_vms_output_quad (recwr, ep);
3355 _bfd_vms_output_quad (recwr, val);
3356 _bfd_vms_output_long (recwr, 0);
3357 _bfd_vms_output_counted (recwr, sym->name);
3358 _bfd_vms_output_end_subrec (recwr);
3359 if ((i % 5) == 4)
3360 _bfd_vms_output_end (abfd, recwr);
3361 }
3362 if ((i % 5) != 0)
3363 _bfd_vms_output_end (abfd, recwr);
3364
3365 if (!_bfd_vms_write_eeom (abfd))
3366 return FALSE;
3367 }
3368 return TRUE;
3369 }
3370 \f
3371 /* Object write. */
3372
3373 /* Write section and symbol directory of bfd abfd. Return FALSE on error. */
3374
3375 static bfd_boolean
3376 _bfd_vms_write_egsd (bfd *abfd)
3377 {
3378 asection *section;
3379 asymbol *symbol;
3380 unsigned int symnum;
3381 const char *sname;
3382 flagword new_flags, old_flags;
3383 int abs_section_index = -1;
3384 unsigned int target_index = 0;
3385 struct vms_rec_wr *recwr = &PRIV (recwr);
3386
3387 vms_debug2 ((2, "vms_write_egsd\n"));
3388
3389 /* Egsd is quadword aligned. */
3390 _bfd_vms_output_alignment (recwr, 8);
3391
3392 _bfd_vms_output_begin (recwr, EOBJ__C_EGSD);
3393 _bfd_vms_output_long (recwr, 0);
3394
3395 /* Number sections. */
3396 for (section = abfd->sections; section != NULL; section = section->next)
3397 {
3398 if (section->flags & SEC_DEBUGGING)
3399 continue;
3400 if (!strcmp (section->name, ".vmsdebug"))
3401 {
3402 section->flags |= SEC_DEBUGGING;
3403 continue;
3404 }
3405 section->target_index = target_index++;
3406 }
3407
3408 for (section = abfd->sections; section != NULL; section = section->next)
3409 {
3410 vms_debug2 ((3, "Section #%d %s, %d bytes\n",
3411 section->target_index, section->name, (int)section->size));
3412
3413 /* Don't write out the VMS debug info section since it is in the
3414 ETBT and EDBG sections in etir. */
3415 if (section->flags & SEC_DEBUGGING)
3416 continue;
3417
3418 /* 13 bytes egsd, max 31 chars name -> should be 44 bytes. */
3419 if (_bfd_vms_output_check (recwr, 64) < 0)
3420 {
3421 _bfd_vms_output_end (abfd, recwr);
3422 _bfd_vms_output_begin (recwr, EOBJ__C_EGSD);
3423 _bfd_vms_output_long (recwr, 0);
3424 }
3425
3426 /* Don't know if this is necessary for the linker but for now it keeps
3427 vms_slurp_gsd happy. */
3428 sname = section->name;
3429 if (*sname == '.')
3430 {
3431 /* Remove leading dot. */
3432 sname++;
3433 if ((*sname == 't') && (strcmp (sname, "text") == 0))
3434 sname = EVAX_CODE_NAME;
3435 else if ((*sname == 'd') && (strcmp (sname, "data") == 0))
3436 sname = EVAX_DATA_NAME;
3437 else if ((*sname == 'b') && (strcmp (sname, "bss") == 0))
3438 sname = EVAX_BSS_NAME;
3439 else if ((*sname == 'l') && (strcmp (sname, "link") == 0))
3440 sname = EVAX_LINK_NAME;
3441 else if ((*sname == 'r') && (strcmp (sname, "rdata") == 0))
3442 sname = EVAX_READONLY_NAME;
3443 else if ((*sname == 'l') && (strcmp (sname, "literal") == 0))
3444 sname = EVAX_LITERAL_NAME;
3445 else if ((*sname == 'l') && (strcmp (sname, "literals") == 0))
3446 sname = EVAX_LITERALS_NAME;
3447 else if ((*sname == 'c') && (strcmp (sname, "comm") == 0))
3448 sname = EVAX_COMMON_NAME;
3449 else if ((*sname == 'l') && (strcmp (sname, "lcomm") == 0))
3450 sname = EVAX_LOCAL_NAME;
3451 }
3452
3453 if (bfd_is_com_section (section))
3454 new_flags = (EGPS__V_OVR | EGPS__V_REL | EGPS__V_GBL | EGPS__V_RD
3455 | EGPS__V_WRT | EGPS__V_NOMOD | EGPS__V_COM);
3456 else
3457 new_flags = vms_esecflag_by_name (evax_section_flags, sname,
3458 section->size > 0);
3459
3460 /* Modify them as directed. */
3461 if (section->flags & SEC_READONLY)
3462 new_flags &= ~EGPS__V_WRT;
3463
3464 new_flags &= ~vms_section_data (section)->no_flags;
3465 new_flags |= vms_section_data (section)->flags;
3466
3467 vms_debug2 ((3, "sec flags %x\n", section->flags));
3468 vms_debug2 ((3, "new_flags %x, _raw_size %lu\n",
3469 new_flags, (unsigned long)section->size));
3470
3471 _bfd_vms_output_begin_subrec (recwr, EGSD__C_PSC);
3472 _bfd_vms_output_short (recwr, section->alignment_power & 0xff);
3473 _bfd_vms_output_short (recwr, new_flags);
3474 _bfd_vms_output_long (recwr, (unsigned long) section->size);
3475 _bfd_vms_output_counted (recwr, sname);
3476 _bfd_vms_output_end_subrec (recwr);
3477
3478 /* If the section is an obsolute one, remind its index as it will be
3479 used later for absolute symbols. */
3480 if ((new_flags & EGPS__V_REL) == 0 && abs_section_index < 0)
3481 abs_section_index = section->target_index;
3482 }
3483
3484 /* Output symbols. */
3485 vms_debug2 ((3, "%d symbols found\n", abfd->symcount));
3486
3487 bfd_set_start_address (abfd, (bfd_vma) -1);
3488
3489 for (symnum = 0; symnum < abfd->symcount; symnum++)
3490 {
3491 symbol = abfd->outsymbols[symnum];
3492 old_flags = symbol->flags;
3493
3494 /* Work-around a missing feature: consider __main as the main entry
3495 point. */
3496 if (symbol->name[0] == '_' && strcmp (symbol->name, "__main") == 0)
3497 bfd_set_start_address (abfd, (bfd_vma)symbol->value);
3498
3499 /* Only put in the GSD the global and the undefined symbols. */
3500 if (old_flags & BSF_FILE)
3501 continue;
3502
3503 if ((old_flags & BSF_GLOBAL) == 0 && !bfd_is_und_section (symbol->section))
3504 {
3505 /* If the LIB$INITIIALIZE section is present, add a reference to
3506 LIB$INITIALIZE symbol. FIXME: this should be done explicitely
3507 in the assembly file. */
3508 if (!((old_flags & BSF_SECTION_SYM) != 0
3509 && strcmp (symbol->section->name, "LIB$INITIALIZE") == 0))
3510 continue;
3511 }
3512
3513 /* 13 bytes egsd, max 64 chars name -> should be 77 bytes. Add 16 more
3514 bytes for a possible ABS section. */
3515 if (_bfd_vms_output_check (recwr, 80 + 16) < 0)
3516 {
3517 _bfd_vms_output_end (abfd, recwr);
3518 _bfd_vms_output_begin (recwr, EOBJ__C_EGSD);
3519 _bfd_vms_output_long (recwr, 0);
3520 }
3521
3522 if ((old_flags & BSF_GLOBAL) != 0
3523 && bfd_is_abs_section (symbol->section)
3524 && abs_section_index <= 0)
3525 {
3526 /* Create an absolute section if none was defined. It is highly
3527 unlikely that the name $ABS$ clashes with a user defined
3528 non-absolute section name. */
3529 _bfd_vms_output_begin_subrec (recwr, EGSD__C_PSC);
3530 _bfd_vms_output_short (recwr, 4);
3531 _bfd_vms_output_short (recwr, EGPS__V_SHR);
3532 _bfd_vms_output_long (recwr, 0);
3533 _bfd_vms_output_counted (recwr, "$ABS$");
3534 _bfd_vms_output_end_subrec (recwr);
3535
3536 abs_section_index = target_index++;
3537 }
3538
3539 _bfd_vms_output_begin_subrec (recwr, EGSD__C_SYM);
3540
3541 /* Data type, alignment. */
3542 _bfd_vms_output_short (recwr, 0);
3543
3544 new_flags = 0;
3545
3546 if (old_flags & BSF_WEAK)
3547 new_flags |= EGSY__V_WEAK;
3548 if (bfd_is_com_section (symbol->section)) /* .comm */
3549 new_flags |= (EGSY__V_WEAK | EGSY__V_COMM);
3550
3551 if (old_flags & BSF_FUNCTION)
3552 {
3553 new_flags |= EGSY__V_NORM;
3554 new_flags |= EGSY__V_REL;
3555 }
3556 if (old_flags & BSF_GLOBAL)
3557 {
3558 new_flags |= EGSY__V_DEF;
3559 if (!bfd_is_abs_section (symbol->section))
3560 new_flags |= EGSY__V_REL;
3561 }
3562 _bfd_vms_output_short (recwr, new_flags);
3563
3564 if (old_flags & BSF_GLOBAL)
3565 {
3566 /* Symbol definition. */
3567 bfd_vma code_address = 0;
3568 unsigned long ca_psindx = 0;
3569 unsigned long psindx;
3570
3571 if ((old_flags & BSF_FUNCTION) && symbol->udata.p != NULL)
3572 {
3573 asymbol *sym;
3574
3575 sym =
3576 ((struct evax_private_udata_struct *)symbol->udata.p)->enbsym;
3577 code_address = sym->value;
3578 ca_psindx = sym->section->target_index;
3579 }
3580 if (bfd_is_abs_section (symbol->section))
3581 psindx = abs_section_index;
3582 else
3583 psindx = symbol->section->target_index;
3584
3585 _bfd_vms_output_quad (recwr, symbol->value);
3586 _bfd_vms_output_quad (recwr, code_address);
3587 _bfd_vms_output_long (recwr, ca_psindx);
3588 _bfd_vms_output_long (recwr, psindx);
3589 }
3590 _bfd_vms_output_counted (recwr, symbol->name);
3591
3592 _bfd_vms_output_end_subrec (recwr);
3593 }
3594
3595 _bfd_vms_output_alignment (recwr, 8);
3596 _bfd_vms_output_end (abfd, recwr);
3597
3598 return TRUE;
3599 }
3600
3601 /* Write object header for bfd abfd. Return FALSE on error. */
3602
3603 static bfd_boolean
3604 _bfd_vms_write_ehdr (bfd *abfd)
3605 {
3606 asymbol *symbol;
3607 unsigned int symnum;
3608 struct vms_rec_wr *recwr = &PRIV (recwr);
3609
3610 vms_debug2 ((2, "vms_write_ehdr (%p)\n", abfd));
3611
3612 _bfd_vms_output_alignment (recwr, 2);
3613
3614 _bfd_vms_write_emh (abfd);
3615 _bfd_vms_write_lmn (abfd, "GNU AS");
3616
3617 /* SRC. */
3618 _bfd_vms_output_begin (recwr, EOBJ__C_EMH);
3619 _bfd_vms_output_short (recwr, EMH__C_SRC);
3620
3621 for (symnum = 0; symnum < abfd->symcount; symnum++)
3622 {
3623 symbol = abfd->outsymbols[symnum];
3624
3625 if (symbol->flags & BSF_FILE)
3626 {
3627 _bfd_vms_output_dump (recwr, (unsigned char *) symbol->name,
3628 (int) strlen (symbol->name));
3629 break;
3630 }
3631 }
3632
3633 if (symnum == abfd->symcount)
3634 _bfd_vms_output_dump (recwr, (unsigned char *) STRING_COMMA_LEN ("noname"));
3635
3636 _bfd_vms_output_end (abfd, recwr);
3637
3638 /* TTL. */
3639 _bfd_vms_output_begin (recwr, EOBJ__C_EMH);
3640 _bfd_vms_output_short (recwr, EMH__C_TTL);
3641 _bfd_vms_output_dump (recwr, (unsigned char *) STRING_COMMA_LEN ("TTL"));
3642 _bfd_vms_output_end (abfd, recwr);
3643
3644 /* CPR. */
3645 _bfd_vms_output_begin (recwr, EOBJ__C_EMH);
3646 _bfd_vms_output_short (recwr, EMH__C_CPR);
3647 _bfd_vms_output_dump (recwr,
3648 (unsigned char *)"GNU BFD ported by Klaus Kämpf 1994-1996",
3649 39);
3650 _bfd_vms_output_end (abfd, recwr);
3651
3652 return TRUE;
3653 }
3654
3655 /* Part 4.6, relocations. */
3656
3657 \f
3658 /* WRITE ETIR SECTION
3659
3660 This is still under construction and therefore not documented. */
3661
3662 /* Close the etir/etbt record. */
3663
3664 static void
3665 end_etir_record (bfd * abfd)
3666 {
3667 struct vms_rec_wr *recwr = &PRIV (recwr);
3668
3669 _bfd_vms_output_end (abfd, recwr);
3670 }
3671
3672 static void
3673 start_etir_or_etbt_record (bfd *abfd, asection *section, bfd_vma offset)
3674 {
3675 struct vms_rec_wr *recwr = &PRIV (recwr);
3676
3677 if (section->flags & SEC_DEBUGGING)
3678 {
3679 _bfd_vms_output_begin (recwr, EOBJ__C_ETBT);
3680
3681 if (offset == 0)
3682 {
3683 /* Push start offset. */
3684 _bfd_vms_output_begin_subrec (recwr, ETIR__C_STA_LW);
3685 _bfd_vms_output_long (recwr, (unsigned long) 0);
3686 _bfd_vms_output_end_subrec (recwr);
3687
3688 /* Set location. */
3689 _bfd_vms_output_begin_subrec (recwr, ETIR__C_CTL_DFLOC);
3690 _bfd_vms_output_end_subrec (recwr);
3691 }
3692 }
3693 else
3694 {
3695 _bfd_vms_output_begin (recwr, EOBJ__C_ETIR);
3696
3697 if (offset == 0)
3698 {
3699 /* Push start offset. */
3700 _bfd_vms_output_begin_subrec (recwr, ETIR__C_STA_PQ);
3701 _bfd_vms_output_long (recwr, (unsigned long) section->target_index);
3702 _bfd_vms_output_quad (recwr, offset);
3703 _bfd_vms_output_end_subrec (recwr);
3704
3705 /* Start = pop (). */
3706 _bfd_vms_output_begin_subrec (recwr, ETIR__C_CTL_SETRB);
3707 _bfd_vms_output_end_subrec (recwr);
3708 }
3709 }
3710 }
3711
3712 /* Output a STO_IMM command for SSIZE bytes of data from CPR at virtual
3713 address VADDR in section specified by SEC_INDEX and NAME. */
3714
3715 static void
3716 sto_imm (bfd *abfd, asection *section,
3717 bfd_size_type ssize, unsigned char *cptr, bfd_vma vaddr)
3718 {
3719 bfd_size_type size;
3720 struct vms_rec_wr *recwr = &PRIV (recwr);
3721
3722 #if VMS_DEBUG
3723 _bfd_vms_debug (8, "sto_imm %d bytes\n", (int) ssize);
3724 _bfd_hexdump (9, cptr, (int) ssize, (int) vaddr);
3725 #endif
3726
3727 while (ssize > 0)
3728 {
3729 /* Try all the rest. */
3730 size = ssize;
3731
3732 if (_bfd_vms_output_check (recwr, size) < 0)
3733 {
3734 /* Doesn't fit, split ! */
3735 end_etir_record (abfd);
3736
3737 start_etir_or_etbt_record (abfd, section, vaddr);
3738
3739 size = _bfd_vms_output_check (recwr, 0); /* get max size */
3740 if (size > ssize) /* more than what's left ? */
3741 size = ssize;
3742 }
3743
3744 _bfd_vms_output_begin_subrec (recwr, ETIR__C_STO_IMM);
3745 _bfd_vms_output_long (recwr, (unsigned long) (size));
3746 _bfd_vms_output_dump (recwr, cptr, size);
3747 _bfd_vms_output_end_subrec (recwr);
3748
3749 #if VMS_DEBUG
3750 _bfd_vms_debug (10, "dumped %d bytes\n", (int) size);
3751 _bfd_hexdump (10, cptr, (int) size, (int) vaddr);
3752 #endif
3753
3754 vaddr += size;
3755 cptr += size;
3756 ssize -= size;
3757 }
3758 }
3759
3760 static void
3761 etir_output_check (bfd *abfd, asection *section, bfd_vma vaddr, int checklen)
3762 {
3763 if (_bfd_vms_output_check (&PRIV (recwr), checklen) < 0)
3764 {
3765 /* Not enough room in this record. Close it and open a new one. */
3766 end_etir_record (abfd);
3767 start_etir_or_etbt_record (abfd, section, vaddr);
3768 }
3769 }
3770
3771 /* Return whether RELOC must be deferred till the end. */
3772
3773 static bfd_boolean
3774 defer_reloc_p (arelent *reloc)
3775 {
3776 switch (reloc->howto->type)
3777 {
3778 case ALPHA_R_NOP:
3779 case ALPHA_R_LDA:
3780 case ALPHA_R_BSR:
3781 case ALPHA_R_BOH:
3782 return TRUE;
3783
3784 default:
3785 return FALSE;
3786 }
3787 }
3788
3789 /* Write section contents for bfd abfd. Return FALSE on error. */
3790
3791 static bfd_boolean
3792 _bfd_vms_write_etir (bfd * abfd, int objtype ATTRIBUTE_UNUSED)
3793 {
3794 asection *section;
3795 struct vms_rec_wr *recwr = &PRIV (recwr);
3796
3797 vms_debug2 ((2, "vms_write_tir (%p, %d)\n", abfd, objtype));
3798
3799 _bfd_vms_output_alignment (recwr, 4);
3800
3801 PRIV (vms_linkage_index) = 0;
3802
3803 for (section = abfd->sections; section; section = section->next)
3804 {
3805 vms_debug2 ((4, "writing %d. section '%s' (%d bytes)\n",
3806 section->target_index, section->name, (int) (section->size)));
3807
3808 if (!(section->flags & SEC_HAS_CONTENTS)
3809 || bfd_is_com_section (section))
3810 continue;
3811
3812 if (!section->contents)
3813 {
3814 bfd_set_error (bfd_error_no_contents);
3815 return FALSE;
3816 }
3817
3818 start_etir_or_etbt_record (abfd, section, 0);
3819
3820 if (section->flags & SEC_RELOC)
3821 {
3822 bfd_vma curr_addr = 0;
3823 unsigned char *curr_data = section->contents;
3824 bfd_size_type size;
3825 int pass2_needed = 0;
3826 int pass2_in_progress = 0;
3827 unsigned int irel;
3828
3829 if (section->reloc_count == 0)
3830 _bfd_error_handler
3831 (_("SEC_RELOC with no relocs in section %pA"), section);
3832
3833 #if VMS_DEBUG
3834 else
3835 {
3836 int i = section->reloc_count;
3837 arelent **rptr = section->orelocation;
3838 _bfd_vms_debug (4, "%d relocations:\n", i);
3839 while (i-- > 0)
3840 {
3841 _bfd_vms_debug (4, "sym %s in sec %s, value %08lx, "
3842 "addr %08lx, off %08lx, len %d: %s\n",
3843 (*(*rptr)->sym_ptr_ptr)->name,
3844 (*(*rptr)->sym_ptr_ptr)->section->name,
3845 (long) (*(*rptr)->sym_ptr_ptr)->value,
3846 (unsigned long)(*rptr)->address,
3847 (unsigned long)(*rptr)->addend,
3848 bfd_get_reloc_size ((*rptr)->howto),
3849 ( *rptr)->howto->name);
3850 rptr++;
3851 }
3852 }
3853 #endif
3854
3855 new_pass:
3856 for (irel = 0; irel < section->reloc_count; irel++)
3857 {
3858 struct evax_private_udata_struct *udata;
3859 arelent *rptr = section->orelocation [irel];
3860 bfd_vma addr = rptr->address;
3861 asymbol *sym = *rptr->sym_ptr_ptr;
3862 asection *sec = sym->section;
3863 bfd_boolean defer = defer_reloc_p (rptr);
3864 unsigned int slen;
3865
3866 if (pass2_in_progress)
3867 {
3868 /* Non-deferred relocs have already been output. */
3869 if (!defer)
3870 continue;
3871 }
3872 else
3873 {
3874 /* Deferred relocs must be output at the very end. */
3875 if (defer)
3876 {
3877 pass2_needed = 1;
3878 continue;
3879 }
3880
3881 /* Regular relocs are intertwined with binary data. */
3882 if (curr_addr > addr)
3883 _bfd_error_handler (_("size error in section %pA"),
3884 section);
3885 size = addr - curr_addr;
3886 sto_imm (abfd, section, size, curr_data, curr_addr);
3887 curr_data += size;
3888 curr_addr += size;
3889 }
3890
3891 size = bfd_get_reloc_size (rptr->howto);
3892
3893 switch (rptr->howto->type)
3894 {
3895 case ALPHA_R_IGNORE:
3896 break;
3897
3898 case ALPHA_R_REFLONG:
3899 if (bfd_is_und_section (sym->section))
3900 {
3901 bfd_vma addend = rptr->addend;
3902 slen = strlen ((char *) sym->name);
3903 etir_output_check (abfd, section, curr_addr, slen);
3904 if (addend)
3905 {
3906 _bfd_vms_output_begin_subrec (recwr, ETIR__C_STA_GBL);
3907 _bfd_vms_output_counted (recwr, sym->name);
3908 _bfd_vms_output_end_subrec (recwr);
3909 _bfd_vms_output_begin_subrec (recwr, ETIR__C_STA_LW);
3910 _bfd_vms_output_long (recwr, (unsigned long) addend);
3911 _bfd_vms_output_end_subrec (recwr);
3912 _bfd_vms_output_begin_subrec (recwr, ETIR__C_OPR_ADD);
3913 _bfd_vms_output_end_subrec (recwr);
3914 _bfd_vms_output_begin_subrec (recwr, ETIR__C_STO_LW);
3915 _bfd_vms_output_end_subrec (recwr);
3916 }
3917 else
3918 {
3919 _bfd_vms_output_begin_subrec
3920 (recwr, ETIR__C_STO_GBL_LW);
3921 _bfd_vms_output_counted (recwr, sym->name);
3922 _bfd_vms_output_end_subrec (recwr);
3923 }
3924 }
3925 else if (bfd_is_abs_section (sym->section))
3926 {
3927 etir_output_check (abfd, section, curr_addr, 16);
3928 _bfd_vms_output_begin_subrec (recwr, ETIR__C_STA_LW);
3929 _bfd_vms_output_long (recwr, (unsigned long) sym->value);
3930 _bfd_vms_output_end_subrec (recwr);
3931 _bfd_vms_output_begin_subrec (recwr, ETIR__C_STO_LW);
3932 _bfd_vms_output_end_subrec (recwr);
3933 }
3934 else
3935 {
3936 etir_output_check (abfd, section, curr_addr, 32);
3937 _bfd_vms_output_begin_subrec (recwr, ETIR__C_STA_PQ);
3938 _bfd_vms_output_long (recwr,
3939 (unsigned long) sec->target_index);
3940 _bfd_vms_output_quad (recwr, rptr->addend + sym->value);
3941 _bfd_vms_output_end_subrec (recwr);
3942 /* ??? Table B-8 of the OpenVMS Linker Utilily Manual
3943 says that we should have a ETIR__C_STO_OFF here.
3944 But the relocation would not be BFD_RELOC_32 then.
3945 This case is very likely unreachable. */
3946 _bfd_vms_output_begin_subrec (recwr, ETIR__C_STO_LW);
3947 _bfd_vms_output_end_subrec (recwr);
3948 }
3949 break;
3950
3951 case ALPHA_R_REFQUAD:
3952 if (bfd_is_und_section (sym->section))
3953 {
3954 bfd_vma addend = rptr->addend;
3955 slen = strlen ((char *) sym->name);
3956 etir_output_check (abfd, section, curr_addr, slen);
3957 if (addend)
3958 {
3959 _bfd_vms_output_begin_subrec (recwr, ETIR__C_STA_GBL);
3960 _bfd_vms_output_counted (recwr, sym->name);
3961 _bfd_vms_output_end_subrec (recwr);
3962 _bfd_vms_output_begin_subrec (recwr, ETIR__C_STA_QW);
3963 _bfd_vms_output_quad (recwr, addend);
3964 _bfd_vms_output_end_subrec (recwr);
3965 _bfd_vms_output_begin_subrec (recwr, ETIR__C_OPR_ADD);
3966 _bfd_vms_output_end_subrec (recwr);
3967 _bfd_vms_output_begin_subrec (recwr, ETIR__C_STO_QW);
3968 _bfd_vms_output_end_subrec (recwr);
3969 }
3970 else
3971 {
3972 _bfd_vms_output_begin_subrec (recwr, ETIR__C_STO_GBL);
3973 _bfd_vms_output_counted (recwr, sym->name);
3974 _bfd_vms_output_end_subrec (recwr);
3975 }
3976 }
3977 else if (bfd_is_abs_section (sym->section))
3978 {
3979 etir_output_check (abfd, section, curr_addr, 16);
3980 _bfd_vms_output_begin_subrec (recwr, ETIR__C_STA_QW);
3981 _bfd_vms_output_quad (recwr, sym->value);
3982 _bfd_vms_output_end_subrec (recwr);
3983 _bfd_vms_output_begin_subrec (recwr, ETIR__C_STO_QW);
3984 _bfd_vms_output_end_subrec (recwr);
3985 }
3986 else
3987 {
3988 etir_output_check (abfd, section, curr_addr, 32);
3989 _bfd_vms_output_begin_subrec (recwr, ETIR__C_STA_PQ);
3990 _bfd_vms_output_long (recwr,
3991 (unsigned long) sec->target_index);
3992 _bfd_vms_output_quad (recwr, rptr->addend + sym->value);
3993 _bfd_vms_output_end_subrec (recwr);
3994 _bfd_vms_output_begin_subrec (recwr, ETIR__C_STO_OFF);
3995 _bfd_vms_output_end_subrec (recwr);
3996 }
3997 break;
3998
3999 case ALPHA_R_HINT:
4000 sto_imm (abfd, section, size, curr_data, curr_addr);
4001 break;
4002
4003 case ALPHA_R_LINKAGE:
4004 size = 16;
4005 etir_output_check (abfd, section, curr_addr, 64);
4006 _bfd_vms_output_begin_subrec (recwr, ETIR__C_STC_LP_PSB);
4007 _bfd_vms_output_long
4008 (recwr, (unsigned long) rptr->addend);
4009 if (rptr->addend > PRIV (vms_linkage_index))
4010 PRIV (vms_linkage_index) = rptr->addend;
4011 _bfd_vms_output_counted (recwr, sym->name);
4012 _bfd_vms_output_byte (recwr, 0);
4013 _bfd_vms_output_end_subrec (recwr);
4014 break;
4015
4016 case ALPHA_R_CODEADDR:
4017 slen = strlen ((char *) sym->name);
4018 etir_output_check (abfd, section, curr_addr, slen);
4019 _bfd_vms_output_begin_subrec (recwr, ETIR__C_STO_CA);
4020 _bfd_vms_output_counted (recwr, sym->name);
4021 _bfd_vms_output_end_subrec (recwr);
4022 break;
4023
4024 case ALPHA_R_NOP:
4025 udata
4026 = (struct evax_private_udata_struct *) rptr->sym_ptr_ptr;
4027 etir_output_check (abfd, section, curr_addr,
4028 32 + 1 + strlen (udata->origname));
4029 _bfd_vms_output_begin_subrec (recwr, ETIR__C_STC_NOP_GBL);
4030 _bfd_vms_output_long (recwr, (unsigned long) udata->lkindex);
4031 _bfd_vms_output_long
4032 (recwr, (unsigned long) section->target_index);
4033 _bfd_vms_output_quad (recwr, rptr->address);
4034 _bfd_vms_output_long (recwr, (unsigned long) 0x47ff041f);
4035 _bfd_vms_output_long
4036 (recwr, (unsigned long) section->target_index);
4037 _bfd_vms_output_quad (recwr, rptr->addend);
4038 _bfd_vms_output_counted (recwr, udata->origname);
4039 _bfd_vms_output_end_subrec (recwr);
4040 break;
4041
4042 case ALPHA_R_BSR:
4043 _bfd_error_handler (_("spurious ALPHA_R_BSR reloc"));
4044 break;
4045
4046 case ALPHA_R_LDA:
4047 udata
4048 = (struct evax_private_udata_struct *) rptr->sym_ptr_ptr;
4049 etir_output_check (abfd, section, curr_addr,
4050 32 + 1 + strlen (udata->origname));
4051 _bfd_vms_output_begin_subrec (recwr, ETIR__C_STC_LDA_GBL);
4052 _bfd_vms_output_long
4053 (recwr, (unsigned long) udata->lkindex + 1);
4054 _bfd_vms_output_long
4055 (recwr, (unsigned long) section->target_index);
4056 _bfd_vms_output_quad (recwr, rptr->address);
4057 _bfd_vms_output_long (recwr, (unsigned long) 0x237B0000);
4058 _bfd_vms_output_long
4059 (recwr, (unsigned long) udata->bsym->section->target_index);
4060 _bfd_vms_output_quad (recwr, rptr->addend);
4061 _bfd_vms_output_counted (recwr, udata->origname);
4062 _bfd_vms_output_end_subrec (recwr);
4063 break;
4064
4065 case ALPHA_R_BOH:
4066 udata
4067 = (struct evax_private_udata_struct *) rptr->sym_ptr_ptr;
4068 etir_output_check (abfd, section, curr_addr,
4069 32 + 1 + strlen (udata->origname));
4070 _bfd_vms_output_begin_subrec (recwr, ETIR__C_STC_BOH_GBL);
4071 _bfd_vms_output_long (recwr, (unsigned long) udata->lkindex);
4072 _bfd_vms_output_long
4073 (recwr, (unsigned long) section->target_index);
4074 _bfd_vms_output_quad (recwr, rptr->address);
4075 _bfd_vms_output_long (recwr, (unsigned long) 0xD3400000);
4076 _bfd_vms_output_long
4077 (recwr, (unsigned long) section->target_index);
4078 _bfd_vms_output_quad (recwr, rptr->addend);
4079 _bfd_vms_output_counted (recwr, udata->origname);
4080 _bfd_vms_output_end_subrec (recwr);
4081 break;
4082
4083 default:
4084 _bfd_error_handler (_("unhandled relocation %s"),
4085 rptr->howto->name);
4086 break;
4087 }
4088
4089 curr_data += size;
4090 curr_addr += size;
4091 } /* End of relocs loop. */
4092
4093 if (!pass2_in_progress)
4094 {
4095 /* Output rest of section. */
4096 if (curr_addr > section->size)
4097 _bfd_error_handler (_("size error in section %pA"), section);
4098 size = section->size - curr_addr;
4099 sto_imm (abfd, section, size, curr_data, curr_addr);
4100 curr_data += size;
4101 curr_addr += size;
4102
4103 if (pass2_needed)
4104 {
4105 pass2_in_progress = 1;
4106 goto new_pass;
4107 }
4108 }
4109 }
4110
4111 else /* (section->flags & SEC_RELOC) */
4112 sto_imm (abfd, section, section->size, section->contents, 0);
4113
4114 end_etir_record (abfd);
4115 }
4116
4117 _bfd_vms_output_alignment (recwr, 2);
4118 return TRUE;
4119 }
4120
4121 /* Write cached information into a file being written, at bfd_close. */
4122
4123 static bfd_boolean
4124 alpha_vms_write_object_contents (bfd *abfd)
4125 {
4126 vms_debug2 ((1, "vms_write_object_contents (%p)\n", abfd));
4127
4128 if (abfd->flags & (EXEC_P | DYNAMIC))
4129 {
4130 return alpha_vms_write_exec (abfd);
4131 }
4132 else
4133 {
4134 if (abfd->section_count > 0) /* we have sections */
4135 {
4136 if (!_bfd_vms_write_ehdr (abfd))
4137 return FALSE;
4138 if (!_bfd_vms_write_egsd (abfd))
4139 return FALSE;
4140 if (!_bfd_vms_write_etir (abfd, EOBJ__C_ETIR))
4141 return FALSE;
4142 if (!_bfd_vms_write_eeom (abfd))
4143 return FALSE;
4144 }
4145 }
4146 return TRUE;
4147 }
4148 \f
4149 /* Debug stuff: nearest line. */
4150
4151 #define SET_MODULE_PARSED(m) \
4152 do { if ((m)->name == NULL) (m)->name = ""; } while (0)
4153 #define IS_MODULE_PARSED(m) ((m)->name != NULL)
4154
4155 /* Build a new module for the specified BFD. */
4156
4157 static struct module *
4158 new_module (bfd *abfd)
4159 {
4160 struct module *module
4161 = (struct module *) bfd_zalloc (abfd, sizeof (struct module));
4162 module->file_table_count = 16; /* Arbitrary. */
4163 module->file_table
4164 = bfd_malloc (module->file_table_count * sizeof (struct fileinfo));
4165 return module;
4166 }
4167
4168 /* Parse debug info for a module and internalize it. */
4169
4170 static void
4171 parse_module (bfd *abfd, struct module *module, unsigned char *ptr,
4172 int length)
4173 {
4174 unsigned char *maxptr = ptr + length;
4175 unsigned char *src_ptr, *pcl_ptr;
4176 unsigned int prev_linum = 0, curr_linenum = 0;
4177 bfd_vma prev_pc = 0, curr_pc = 0;
4178 struct srecinfo *curr_srec, *srec;
4179 struct lineinfo *curr_line, *line;
4180 struct funcinfo *funcinfo;
4181
4182 /* Initialize tables with zero element. */
4183 curr_srec = (struct srecinfo *) bfd_zalloc (abfd, sizeof (struct srecinfo));
4184 module->srec_table = curr_srec;
4185
4186 curr_line = (struct lineinfo *) bfd_zalloc (abfd, sizeof (struct lineinfo));
4187 module->line_table = curr_line;
4188
4189 while (length == -1 || ptr < maxptr)
4190 {
4191 /* The first byte is not counted in the recorded length. */
4192 int rec_length = bfd_getl16 (ptr) + 1;
4193 int rec_type = bfd_getl16 (ptr + 2);
4194
4195 vms_debug2 ((2, "DST record: leng %d, type %d\n", rec_length, rec_type));
4196
4197 if (length == -1 && rec_type == DST__K_MODEND)
4198 break;
4199
4200 switch (rec_type)
4201 {
4202 case DST__K_MODBEG:
4203 module->name
4204 = _bfd_vms_save_counted_string (ptr + DST_S_B_MODBEG_NAME,
4205 maxptr - (ptr + DST_S_B_MODBEG_NAME));
4206
4207 curr_pc = 0;
4208 prev_pc = 0;
4209 curr_linenum = 0;
4210 prev_linum = 0;
4211
4212 vms_debug2 ((3, "module: %s\n", module->name));
4213 break;
4214
4215 case DST__K_MODEND:
4216 break;
4217
4218 case DST__K_RTNBEG:
4219 funcinfo = (struct funcinfo *)
4220 bfd_zalloc (abfd, sizeof (struct funcinfo));
4221 funcinfo->name
4222 = _bfd_vms_save_counted_string (ptr + DST_S_B_RTNBEG_NAME,
4223 maxptr - (ptr + DST_S_B_RTNBEG_NAME));
4224 funcinfo->low = bfd_getl32 (ptr + DST_S_L_RTNBEG_ADDRESS);
4225 funcinfo->next = module->func_table;
4226 module->func_table = funcinfo;
4227
4228 vms_debug2 ((3, "routine: %s at 0x%lx\n",
4229 funcinfo->name, (unsigned long) funcinfo->low));
4230 break;
4231
4232 case DST__K_RTNEND:
4233 module->func_table->high = module->func_table->low
4234 + bfd_getl32 (ptr + DST_S_L_RTNEND_SIZE) - 1;
4235
4236 if (module->func_table->high > module->high)
4237 module->high = module->func_table->high;
4238
4239 vms_debug2 ((3, "end routine\n"));
4240 break;
4241
4242 case DST__K_PROLOG:
4243 vms_debug2 ((3, "prologue\n"));
4244 break;
4245
4246 case DST__K_EPILOG:
4247 vms_debug2 ((3, "epilog\n"));
4248 break;
4249
4250 case DST__K_BLKBEG:
4251 vms_debug2 ((3, "block\n"));
4252 break;
4253
4254 case DST__K_BLKEND:
4255 vms_debug2 ((3, "end block\n"));
4256 break;
4257
4258 case DST__K_SOURCE:
4259 src_ptr = ptr + DST_S_C_SOURCE_HEADER_SIZE;
4260
4261 vms_debug2 ((3, "source info\n"));
4262
4263 while (src_ptr < ptr + rec_length)
4264 {
4265 int cmd = src_ptr[0], cmd_length, data;
4266
4267 switch (cmd)
4268 {
4269 case DST__K_SRC_DECLFILE:
4270 {
4271 unsigned int fileid
4272 = bfd_getl16 (src_ptr + DST_S_W_SRC_DF_FILEID);
4273 char *filename
4274 = _bfd_vms_save_counted_string (src_ptr + DST_S_B_SRC_DF_FILENAME,
4275 (ptr + rec_length) -
4276 (src_ptr + DST_S_B_SRC_DF_FILENAME)
4277 );
4278
4279 while (fileid >= module->file_table_count)
4280 {
4281 module->file_table_count *= 2;
4282 module->file_table
4283 = bfd_realloc (module->file_table,
4284 module->file_table_count
4285 * sizeof (struct fileinfo));
4286 }
4287
4288 module->file_table [fileid].name = filename;
4289 module->file_table [fileid].srec = 1;
4290 cmd_length = src_ptr[DST_S_B_SRC_DF_LENGTH] + 2;
4291 vms_debug2 ((4, "DST_S_C_SRC_DECLFILE: %d, %s\n",
4292 fileid, module->file_table [fileid].name));
4293 }
4294 break;
4295
4296 case DST__K_SRC_DEFLINES_B:
4297 /* Perform the association and set the next higher index
4298 to the limit. */
4299 data = src_ptr[DST_S_B_SRC_UNSBYTE];
4300 srec = (struct srecinfo *)
4301 bfd_zalloc (abfd, sizeof (struct srecinfo));
4302 srec->line = curr_srec->line + data;
4303 srec->srec = curr_srec->srec + data;
4304 srec->sfile = curr_srec->sfile;
4305 curr_srec->next = srec;
4306 curr_srec = srec;
4307 cmd_length = 2;
4308 vms_debug2 ((4, "DST_S_C_SRC_DEFLINES_B: %d\n", data));
4309 break;
4310
4311 case DST__K_SRC_DEFLINES_W:
4312 /* Perform the association and set the next higher index
4313 to the limit. */
4314 data = bfd_getl16 (src_ptr + DST_S_W_SRC_UNSWORD);
4315 srec = (struct srecinfo *)
4316 bfd_zalloc (abfd, sizeof (struct srecinfo));
4317 srec->line = curr_srec->line + data;
4318 srec->srec = curr_srec->srec + data,
4319 srec->sfile = curr_srec->sfile;
4320 curr_srec->next = srec;
4321 curr_srec = srec;
4322 cmd_length = 3;
4323 vms_debug2 ((4, "DST_S_C_SRC_DEFLINES_W: %d\n", data));
4324 break;
4325
4326 case DST__K_SRC_INCRLNUM_B:
4327 data = src_ptr[DST_S_B_SRC_UNSBYTE];
4328 curr_srec->line += data;
4329 cmd_length = 2;
4330 vms_debug2 ((4, "DST_S_C_SRC_INCRLNUM_B: %d\n", data));
4331 break;
4332
4333 case DST__K_SRC_SETFILE:
4334 data = bfd_getl16 (src_ptr + DST_S_W_SRC_UNSWORD);
4335 curr_srec->sfile = data;
4336 curr_srec->srec = module->file_table[data].srec;
4337 cmd_length = 3;
4338 vms_debug2 ((4, "DST_S_C_SRC_SETFILE: %d\n", data));
4339 break;
4340
4341 case DST__K_SRC_SETLNUM_L:
4342 data = bfd_getl32 (src_ptr + DST_S_L_SRC_UNSLONG);
4343 curr_srec->line = data;
4344 cmd_length = 5;
4345 vms_debug2 ((4, "DST_S_C_SRC_SETLNUM_L: %d\n", data));
4346 break;
4347
4348 case DST__K_SRC_SETLNUM_W:
4349 data = bfd_getl16 (src_ptr + DST_S_W_SRC_UNSWORD);
4350 curr_srec->line = data;
4351 cmd_length = 3;
4352 vms_debug2 ((4, "DST_S_C_SRC_SETLNUM_W: %d\n", data));
4353 break;
4354
4355 case DST__K_SRC_SETREC_L:
4356 data = bfd_getl32 (src_ptr + DST_S_L_SRC_UNSLONG);
4357 curr_srec->srec = data;
4358 module->file_table[curr_srec->sfile].srec = data;
4359 cmd_length = 5;
4360 vms_debug2 ((4, "DST_S_C_SRC_SETREC_L: %d\n", data));
4361 break;
4362
4363 case DST__K_SRC_SETREC_W:
4364 data = bfd_getl16 (src_ptr + DST_S_W_SRC_UNSWORD);
4365 curr_srec->srec = data;
4366 module->file_table[curr_srec->sfile].srec = data;
4367 cmd_length = 3;
4368 vms_debug2 ((4, "DST_S_C_SRC_SETREC_W: %d\n", data));
4369 break;
4370
4371 case DST__K_SRC_FORMFEED:
4372 cmd_length = 1;
4373 vms_debug2 ((4, "DST_S_C_SRC_FORMFEED\n"));
4374 break;
4375
4376 default:
4377 _bfd_error_handler (_("unknown source command %d"),
4378 cmd);
4379 cmd_length = 2;
4380 break;
4381 }
4382
4383 src_ptr += cmd_length;
4384 }
4385 break;
4386
4387 case DST__K_LINE_NUM:
4388 pcl_ptr = ptr + DST_S_C_LINE_NUM_HEADER_SIZE;
4389
4390 vms_debug2 ((3, "line info\n"));
4391
4392 while (pcl_ptr < ptr + rec_length)
4393 {
4394 /* The command byte is signed so we must sign-extend it. */
4395 int cmd = ((signed char *)pcl_ptr)[0], cmd_length, data;
4396
4397 switch (cmd)
4398 {
4399 case DST__K_DELTA_PC_W:
4400 data = bfd_getl16 (pcl_ptr + DST_S_W_PCLINE_UNSWORD);
4401 curr_pc += data;
4402 curr_linenum += 1;
4403 cmd_length = 3;
4404 vms_debug2 ((4, "DST__K_DELTA_PC_W: %d\n", data));
4405 break;
4406
4407 case DST__K_DELTA_PC_L:
4408 data = bfd_getl32 (pcl_ptr + DST_S_L_PCLINE_UNSLONG);
4409 curr_pc += data;
4410 curr_linenum += 1;
4411 cmd_length = 5;
4412 vms_debug2 ((4, "DST__K_DELTA_PC_L: %d\n", data));
4413 break;
4414
4415 case DST__K_INCR_LINUM:
4416 data = pcl_ptr[DST_S_B_PCLINE_UNSBYTE];
4417 curr_linenum += data;
4418 cmd_length = 2;
4419 vms_debug2 ((4, "DST__K_INCR_LINUM: %d\n", data));
4420 break;
4421
4422 case DST__K_INCR_LINUM_W:
4423 data = bfd_getl16 (pcl_ptr + DST_S_W_PCLINE_UNSWORD);
4424 curr_linenum += data;
4425 cmd_length = 3;
4426 vms_debug2 ((4, "DST__K_INCR_LINUM_W: %d\n", data));
4427 break;
4428
4429 case DST__K_INCR_LINUM_L:
4430 data = bfd_getl32 (pcl_ptr + DST_S_L_PCLINE_UNSLONG);
4431 curr_linenum += data;
4432 cmd_length = 5;
4433 vms_debug2 ((4, "DST__K_INCR_LINUM_L: %d\n", data));
4434 break;
4435
4436 case DST__K_SET_LINUM_INCR:
4437 _bfd_error_handler
4438 (_("%s not implemented"), "DST__K_SET_LINUM_INCR");
4439 cmd_length = 2;
4440 break;
4441
4442 case DST__K_SET_LINUM_INCR_W:
4443 _bfd_error_handler
4444 (_("%s not implemented"), "DST__K_SET_LINUM_INCR_W");
4445 cmd_length = 3;
4446 break;
4447
4448 case DST__K_RESET_LINUM_INCR:
4449 _bfd_error_handler
4450 (_("%s not implemented"), "DST__K_RESET_LINUM_INCR");
4451 cmd_length = 1;
4452 break;
4453
4454 case DST__K_BEG_STMT_MODE:
4455 _bfd_error_handler
4456 (_("%s not implemented"), "DST__K_BEG_STMT_MODE");
4457 cmd_length = 1;
4458 break;
4459
4460 case DST__K_END_STMT_MODE:
4461 _bfd_error_handler
4462 (_("%s not implemented"), "DST__K_END_STMT_MODE");
4463 cmd_length = 1;
4464 break;
4465
4466 case DST__K_SET_LINUM_B:
4467 data = pcl_ptr[DST_S_B_PCLINE_UNSBYTE];
4468 curr_linenum = data;
4469 cmd_length = 2;
4470 vms_debug2 ((4, "DST__K_SET_LINUM_B: %d\n", data));
4471 break;
4472
4473 case DST__K_SET_LINUM:
4474 data = bfd_getl16 (pcl_ptr + DST_S_W_PCLINE_UNSWORD);
4475 curr_linenum = data;
4476 cmd_length = 3;
4477 vms_debug2 ((4, "DST__K_SET_LINE_NUM: %d\n", data));
4478 break;
4479
4480 case DST__K_SET_LINUM_L:
4481 data = bfd_getl32 (pcl_ptr + DST_S_L_PCLINE_UNSLONG);
4482 curr_linenum = data;
4483 cmd_length = 5;
4484 vms_debug2 ((4, "DST__K_SET_LINUM_L: %d\n", data));
4485 break;
4486
4487 case DST__K_SET_PC:
4488 _bfd_error_handler
4489 (_("%s not implemented"), "DST__K_SET_PC");
4490 cmd_length = 2;
4491 break;
4492
4493 case DST__K_SET_PC_W:
4494 _bfd_error_handler
4495 (_("%s not implemented"), "DST__K_SET_PC_W");
4496 cmd_length = 3;
4497 break;
4498
4499 case DST__K_SET_PC_L:
4500 _bfd_error_handler
4501 (_("%s not implemented"), "DST__K_SET_PC_L");
4502 cmd_length = 5;
4503 break;
4504
4505 case DST__K_SET_STMTNUM:
4506 _bfd_error_handler
4507 (_("%s not implemented"), "DST__K_SET_STMTNUM");
4508 cmd_length = 2;
4509 break;
4510
4511 case DST__K_TERM:
4512 data = pcl_ptr[DST_S_B_PCLINE_UNSBYTE];
4513 curr_pc += data;
4514 cmd_length = 2;
4515 vms_debug2 ((4, "DST__K_TERM: %d\n", data));
4516 break;
4517
4518 case DST__K_TERM_W:
4519 data = bfd_getl16 (pcl_ptr + DST_S_W_PCLINE_UNSWORD);
4520 curr_pc += data;
4521 cmd_length = 3;
4522 vms_debug2 ((4, "DST__K_TERM_W: %d\n", data));
4523 break;
4524
4525 case DST__K_TERM_L:
4526 data = bfd_getl32 (pcl_ptr + DST_S_L_PCLINE_UNSLONG);
4527 curr_pc += data;
4528 cmd_length = 5;
4529 vms_debug2 ((4, "DST__K_TERM_L: %d\n", data));
4530 break;
4531
4532 case DST__K_SET_ABS_PC:
4533 data = bfd_getl32 (pcl_ptr + DST_S_L_PCLINE_UNSLONG);
4534 curr_pc = data;
4535 cmd_length = 5;
4536 vms_debug2 ((4, "DST__K_SET_ABS_PC: 0x%x\n", data));
4537 break;
4538
4539 default:
4540 if (cmd <= 0)
4541 {
4542 curr_pc -= cmd;
4543 curr_linenum += 1;
4544 cmd_length = 1;
4545 vms_debug2 ((4, "bump pc to 0x%lx and line to %d\n",
4546 (unsigned long)curr_pc, curr_linenum));
4547 }
4548 else
4549 {
4550 _bfd_error_handler (_("unknown line command %d"), cmd);
4551 cmd_length = 2;
4552 }
4553 break;
4554 }
4555
4556 if ((curr_linenum != prev_linum && curr_pc != prev_pc)
4557 || cmd <= 0
4558 || cmd == DST__K_DELTA_PC_L
4559 || cmd == DST__K_DELTA_PC_W)
4560 {
4561 line = (struct lineinfo *)
4562 bfd_zalloc (abfd, sizeof (struct lineinfo));
4563 line->address = curr_pc;
4564 line->line = curr_linenum;
4565
4566 curr_line->next = line;
4567 curr_line = line;
4568
4569 prev_linum = curr_linenum;
4570 prev_pc = curr_pc;
4571 vms_debug2 ((4, "-> correlate pc 0x%lx with line %d\n",
4572 (unsigned long)curr_pc, curr_linenum));
4573 }
4574
4575 pcl_ptr += cmd_length;
4576 }
4577 break;
4578
4579 case 0x17: /* Undocumented type used by DEC C to declare equates. */
4580 vms_debug2 ((3, "undocumented type 0x17\n"));
4581 break;
4582
4583 default:
4584 vms_debug2 ((3, "ignoring record\n"));
4585 break;
4586
4587 }
4588
4589 ptr += rec_length;
4590 }
4591
4592 /* Finalize tables with EOL marker. */
4593 srec = (struct srecinfo *) bfd_zalloc (abfd, sizeof (struct srecinfo));
4594 srec->line = (unsigned int) -1;
4595 srec->srec = (unsigned int) -1;
4596 curr_srec->next = srec;
4597
4598 line = (struct lineinfo *) bfd_zalloc (abfd, sizeof (struct lineinfo));
4599 line->line = (unsigned int) -1;
4600 line->address = (bfd_vma) -1;
4601 curr_line->next = line;
4602
4603 /* Advertise that this module has been parsed. This is needed
4604 because parsing can be either performed at module creation
4605 or deferred until debug info is consumed. */
4606 SET_MODULE_PARSED (module);
4607 }
4608
4609 /* Build the list of modules for the specified BFD. */
4610
4611 static struct module *
4612 build_module_list (bfd *abfd)
4613 {
4614 struct module *module, *list = NULL;
4615 asection *dmt;
4616
4617 if ((dmt = bfd_get_section_by_name (abfd, "$DMT$")))
4618 {
4619 /* We have a DMT section so this must be an image. Parse the
4620 section and build the list of modules. This is sufficient
4621 since we can compute the start address and the end address
4622 of every module from the section contents. */
4623 bfd_size_type size = bfd_get_section_size (dmt);
4624 unsigned char *ptr, *end;
4625
4626 ptr = (unsigned char *) bfd_alloc (abfd, size);
4627 if (! ptr)
4628 return NULL;
4629
4630 if (! bfd_get_section_contents (abfd, dmt, ptr, 0, size))
4631 return NULL;
4632
4633 vms_debug2 ((2, "DMT\n"));
4634
4635 end = ptr + size;
4636
4637 while (ptr < end)
4638 {
4639 /* Each header declares a module with its start offset and size
4640 of debug info in the DST section, as well as the count of
4641 program sections (i.e. address spans) it contains. */
4642 int modbeg = bfd_getl32 (ptr + DBG_S_L_DMT_MODBEG);
4643 int msize = bfd_getl32 (ptr + DBG_S_L_DST_SIZE);
4644 int count = bfd_getl16 (ptr + DBG_S_W_DMT_PSECT_COUNT);
4645 ptr += DBG_S_C_DMT_HEADER_SIZE;
4646
4647 vms_debug2 ((3, "module: modbeg = %d, size = %d, count = %d\n",
4648 modbeg, msize, count));
4649
4650 /* We create a 'module' structure for each program section since
4651 we only support contiguous addresses in a 'module' structure.
4652 As a consequence, the actual debug info in the DST section is
4653 shared and can be parsed multiple times; that doesn't seem to
4654 cause problems in practice. */
4655 while (count-- > 0)
4656 {
4657 int start = bfd_getl32 (ptr + DBG_S_L_DMT_PSECT_START);
4658 int length = bfd_getl32 (ptr + DBG_S_L_DMT_PSECT_LENGTH);
4659 module = new_module (abfd);
4660 module->modbeg = modbeg;
4661 module->size = msize;
4662 module->low = start;
4663 module->high = start + length;
4664 module->next = list;
4665 list = module;
4666 ptr += DBG_S_C_DMT_PSECT_SIZE;
4667
4668 vms_debug2 ((4, "section: start = 0x%x, length = %d\n",
4669 start, length));
4670 }
4671 }
4672 }
4673 else
4674 {
4675 /* We don't have a DMT section so this must be an object. Parse
4676 the module right now in order to compute its start address and
4677 end address. */
4678 void *dst = PRIV (dst_section)->contents;
4679
4680 if (dst == NULL)
4681 return NULL;
4682
4683 module = new_module (abfd);
4684 parse_module (abfd, module, PRIV (dst_section)->contents, -1);
4685 list = module;
4686 }
4687
4688 return list;
4689 }
4690
4691 /* Calculate and return the name of the source file and the line nearest
4692 to the wanted location in the specified module. */
4693
4694 static bfd_boolean
4695 module_find_nearest_line (bfd *abfd, struct module *module, bfd_vma addr,
4696 const char **file, const char **func,
4697 unsigned int *line)
4698 {
4699 struct funcinfo *funcinfo;
4700 struct lineinfo *lineinfo;
4701 struct srecinfo *srecinfo;
4702 bfd_boolean ret = FALSE;
4703
4704 /* Parse this module if that was not done at module creation. */
4705 if (! IS_MODULE_PARSED (module))
4706 {
4707 unsigned int size = module->size;
4708 unsigned int modbeg = PRIV (dst_section)->filepos + module->modbeg;
4709 unsigned char *buffer = (unsigned char *) bfd_malloc (module->size);
4710
4711 if (bfd_seek (abfd, modbeg, SEEK_SET) != 0
4712 || bfd_bread (buffer, size, abfd) != size)
4713 {
4714 bfd_set_error (bfd_error_no_debug_section);
4715 return FALSE;
4716 }
4717
4718 parse_module (abfd, module, buffer, size);
4719 free (buffer);
4720 }
4721
4722 /* Find out the function (if any) that contains the address. */
4723 for (funcinfo = module->func_table; funcinfo; funcinfo = funcinfo->next)
4724 if (addr >= funcinfo->low && addr <= funcinfo->high)
4725 {
4726 *func = funcinfo->name;
4727 ret = TRUE;
4728 break;
4729 }
4730
4731 /* Find out the source file and the line nearest to the address. */
4732 for (lineinfo = module->line_table; lineinfo; lineinfo = lineinfo->next)
4733 if (lineinfo->next && addr < lineinfo->next->address)
4734 {
4735 for (srecinfo = module->srec_table; srecinfo; srecinfo = srecinfo->next)
4736 if (srecinfo->next && lineinfo->line < srecinfo->next->line)
4737 {
4738 if (srecinfo->sfile > 0)
4739 {
4740 *file = module->file_table[srecinfo->sfile].name;
4741 *line = srecinfo->srec + lineinfo->line - srecinfo->line;
4742 }
4743 else
4744 {
4745 *file = module->name;
4746 *line = lineinfo->line;
4747 }
4748 return TRUE;
4749 }
4750
4751 break;
4752 }
4753
4754 return ret;
4755 }
4756
4757 /* Provided a BFD, a section and an offset into the section, calculate and
4758 return the name of the source file and the line nearest to the wanted
4759 location. */
4760
4761 static bfd_boolean
4762 _bfd_vms_find_nearest_line (bfd *abfd,
4763 asymbol **symbols ATTRIBUTE_UNUSED,
4764 asection *section,
4765 bfd_vma offset,
4766 const char **file,
4767 const char **func,
4768 unsigned int *line,
4769 unsigned int *discriminator)
4770 {
4771 struct module *module;
4772
4773 /* What address are we looking for? */
4774 bfd_vma addr = section->vma + offset;
4775
4776 *file = NULL;
4777 *func = NULL;
4778 *line = 0;
4779 if (discriminator)
4780 *discriminator = 0;
4781
4782 /* We can't do anything if there is no DST (debug symbol table). */
4783 if (PRIV (dst_section) == NULL)
4784 return FALSE;
4785
4786 /* Create the module list - if not already done. */
4787 if (PRIV (modules) == NULL)
4788 {
4789 PRIV (modules) = build_module_list (abfd);
4790 if (PRIV (modules) == NULL)
4791 return FALSE;
4792 }
4793
4794 for (module = PRIV (modules); module; module = module->next)
4795 if (addr >= module->low && addr <= module->high)
4796 return module_find_nearest_line (abfd, module, addr, file, func, line);
4797
4798 return FALSE;
4799 }
4800 \f
4801 /* Canonicalizations. */
4802 /* Set name, value, section and flags of SYM from E. */
4803
4804 static bfd_boolean
4805 alpha_vms_convert_symbol (bfd *abfd, struct vms_symbol_entry *e, asymbol *sym)
4806 {
4807 flagword flags;
4808 symvalue value;
4809 asection *sec;
4810 const char *name;
4811
4812 name = e->name;
4813 value = 0;
4814 flags = BSF_NO_FLAGS;
4815 sec = NULL;
4816
4817 switch (e->typ)
4818 {
4819 case EGSD__C_SYM:
4820 if (e->flags & EGSY__V_WEAK)
4821 flags |= BSF_WEAK;
4822
4823 if (e->flags & EGSY__V_DEF)
4824 {
4825 /* Symbol definition. */
4826 flags |= BSF_GLOBAL;
4827 if (e->flags & EGSY__V_NORM)
4828 flags |= BSF_FUNCTION;
4829 value = e->value;
4830 sec = e->section;
4831 }
4832 else
4833 {
4834 /* Symbol reference. */
4835 sec = bfd_und_section_ptr;
4836 }
4837 break;
4838
4839 case EGSD__C_SYMG:
4840 /* A universal symbol is by definition global... */
4841 flags |= BSF_GLOBAL;
4842
4843 /* ...and dynamic in shared libraries. */
4844 if (abfd->flags & DYNAMIC)
4845 flags |= BSF_DYNAMIC;
4846
4847 if (e->flags & EGSY__V_WEAK)
4848 flags |= BSF_WEAK;
4849
4850 if (!(e->flags & EGSY__V_DEF))
4851 abort ();
4852
4853 if (e->flags & EGSY__V_NORM)
4854 flags |= BSF_FUNCTION;
4855
4856 value = e->value;
4857 /* sec = e->section; */
4858 sec = bfd_abs_section_ptr;
4859 break;
4860
4861 default:
4862 return FALSE;
4863 }
4864
4865 sym->name = name;
4866 sym->section = sec;
4867 sym->flags = flags;
4868 sym->value = value;
4869 return TRUE;
4870 }
4871
4872
4873 /* Return the number of bytes required to store a vector of pointers
4874 to asymbols for all the symbols in the BFD abfd, including a
4875 terminal NULL pointer. If there are no symbols in the BFD,
4876 then return 0. If an error occurs, return -1. */
4877
4878 static long
4879 alpha_vms_get_symtab_upper_bound (bfd *abfd)
4880 {
4881 vms_debug2 ((1, "alpha_vms_get_symtab_upper_bound (%p), %d symbols\n",
4882 abfd, PRIV (gsd_sym_count)));
4883
4884 return (PRIV (gsd_sym_count) + 1) * sizeof (asymbol *);
4885 }
4886
4887 /* Read the symbols from the BFD abfd, and fills in the vector
4888 location with pointers to the symbols and a trailing NULL.
4889
4890 Return number of symbols read. */
4891
4892 static long
4893 alpha_vms_canonicalize_symtab (bfd *abfd, asymbol **symbols)
4894 {
4895 unsigned int i;
4896
4897 vms_debug2 ((1, "alpha_vms_canonicalize_symtab (%p, <ret>)\n", abfd));
4898
4899 if (PRIV (csymbols) == NULL)
4900 {
4901 PRIV (csymbols) = (asymbol **) bfd_alloc
4902 (abfd, PRIV (gsd_sym_count) * sizeof (asymbol *));
4903
4904 /* Traverse table and fill symbols vector. */
4905 for (i = 0; i < PRIV (gsd_sym_count); i++)
4906 {
4907 struct vms_symbol_entry *e = PRIV (syms)[i];
4908 asymbol *sym;
4909
4910 sym = bfd_make_empty_symbol (abfd);
4911 if (sym == NULL || !alpha_vms_convert_symbol (abfd, e, sym))
4912 {
4913 bfd_release (abfd, PRIV (csymbols));
4914 PRIV (csymbols) = NULL;
4915 return -1;
4916 }
4917
4918 PRIV (csymbols)[i] = sym;
4919 }
4920 }
4921
4922 if (symbols != NULL)
4923 {
4924 for (i = 0; i < PRIV (gsd_sym_count); i++)
4925 symbols[i] = PRIV (csymbols)[i];
4926 symbols[i] = NULL;
4927 }
4928
4929 return PRIV (gsd_sym_count);
4930 }
4931
4932 /* Read and convert relocations from ETIR. We do it once for all sections. */
4933
4934 static bfd_boolean
4935 alpha_vms_slurp_relocs (bfd *abfd)
4936 {
4937 int cur_psect = -1;
4938
4939 vms_debug2 ((3, "alpha_vms_slurp_relocs\n"));
4940
4941 /* We slurp relocs only once, for all sections. */
4942 if (PRIV (reloc_done))
4943 return TRUE;
4944 PRIV (reloc_done) = TRUE;
4945
4946 if (alpha_vms_canonicalize_symtab (abfd, NULL) < 0)
4947 return FALSE;
4948
4949 if (bfd_seek (abfd, 0, SEEK_SET) != 0)
4950 return FALSE;
4951
4952 while (1)
4953 {
4954 unsigned char *begin;
4955 unsigned char *end;
4956 unsigned char *ptr;
4957 bfd_reloc_code_real_type reloc_code;
4958 int type;
4959 bfd_vma vaddr = 0;
4960
4961 int length;
4962
4963 bfd_vma cur_address;
4964 int cur_psidx = -1;
4965 unsigned char *cur_sym = NULL;
4966 int prev_cmd = -1;
4967 bfd_vma cur_addend = 0;
4968
4969 /* Skip non-ETIR records. */
4970 type = _bfd_vms_get_object_record (abfd);
4971 if (type == EOBJ__C_EEOM)
4972 break;
4973 if (type != EOBJ__C_ETIR)
4974 continue;
4975
4976 begin = PRIV (recrd.rec) + 4;
4977 end = PRIV (recrd.rec) + PRIV (recrd.rec_size);
4978
4979 for (ptr = begin; ptr < end; ptr += length)
4980 {
4981 int cmd;
4982
4983 cmd = bfd_getl16 (ptr);
4984 length = bfd_getl16 (ptr + 2);
4985
4986 cur_address = vaddr;
4987
4988 vms_debug2 ((4, "alpha_vms_slurp_relocs: etir %s\n",
4989 _bfd_vms_etir_name (cmd)));
4990
4991 switch (cmd)
4992 {
4993 case ETIR__C_STA_GBL: /* ALPHA_R_REFLONG und_section, step 1 */
4994 /* ALPHA_R_REFQUAD und_section, step 1 */
4995 cur_sym = ptr + 4;
4996 prev_cmd = cmd;
4997 continue;
4998
4999 case ETIR__C_STA_PQ: /* ALPHA_R_REF{LONG|QUAD}, others part 1 */
5000 cur_psidx = bfd_getl32 (ptr + 4);
5001 cur_addend = bfd_getl64 (ptr + 8);
5002 prev_cmd = cmd;
5003 continue;
5004
5005 case ETIR__C_CTL_SETRB:
5006 if (prev_cmd != ETIR__C_STA_PQ)
5007 {
5008 _bfd_error_handler
5009 /* xgettext:c-format */
5010 (_("unknown reloc %s + %s"), _bfd_vms_etir_name (prev_cmd),
5011 _bfd_vms_etir_name (cmd));
5012 return FALSE;
5013 }
5014 cur_psect = cur_psidx;
5015 vaddr = cur_addend;
5016 cur_psidx = -1;
5017 cur_addend = 0;
5018 continue;
5019
5020 case ETIR__C_STA_LW: /* ALPHA_R_REFLONG abs_section, step 1 */
5021 /* ALPHA_R_REFLONG und_section, step 2 */
5022 if (prev_cmd != -1)
5023 {
5024 if (prev_cmd != ETIR__C_STA_GBL)
5025 {
5026 _bfd_error_handler
5027 /* xgettext:c-format */
5028 (_("unknown reloc %s + %s"), _bfd_vms_etir_name (cmd),
5029 _bfd_vms_etir_name (ETIR__C_STA_LW));
5030 return FALSE;
5031 }
5032 }
5033 cur_addend = bfd_getl32 (ptr + 4);
5034 prev_cmd = cmd;
5035 continue;
5036
5037 case ETIR__C_STA_QW: /* ALPHA_R_REFQUAD abs_section, step 1 */
5038 /* ALPHA_R_REFQUAD und_section, step 2 */
5039 if (prev_cmd != -1 && prev_cmd != ETIR__C_STA_GBL)
5040 {
5041 _bfd_error_handler
5042 /* xgettext:c-format */
5043 (_("unknown reloc %s + %s"), _bfd_vms_etir_name (cmd),
5044 _bfd_vms_etir_name (ETIR__C_STA_QW));
5045 return FALSE;
5046 }
5047 cur_addend = bfd_getl64 (ptr + 4);
5048 prev_cmd = cmd;
5049 continue;
5050
5051 case ETIR__C_STO_LW: /* ALPHA_R_REFLONG und_section, step 4 */
5052 /* ALPHA_R_REFLONG abs_section, step 2 */
5053 /* ALPHA_R_REFLONG others, step 2 */
5054 if (prev_cmd != ETIR__C_OPR_ADD
5055 && prev_cmd != ETIR__C_STA_LW
5056 && prev_cmd != ETIR__C_STA_PQ)
5057 {
5058 /* xgettext:c-format */
5059 _bfd_error_handler (_("unknown reloc %s + %s"),
5060 _bfd_vms_etir_name (prev_cmd),
5061 _bfd_vms_etir_name (ETIR__C_STO_LW));
5062 return FALSE;
5063 }
5064 reloc_code = BFD_RELOC_32;
5065 break;
5066
5067 case ETIR__C_STO_QW: /* ALPHA_R_REFQUAD und_section, step 4 */
5068 /* ALPHA_R_REFQUAD abs_section, step 2 */
5069 if (prev_cmd != ETIR__C_OPR_ADD && prev_cmd != ETIR__C_STA_QW)
5070 {
5071 /* xgettext:c-format */
5072 _bfd_error_handler (_("unknown reloc %s + %s"),
5073 _bfd_vms_etir_name (prev_cmd),
5074 _bfd_vms_etir_name (ETIR__C_STO_QW));
5075 return FALSE;
5076 }
5077 reloc_code = BFD_RELOC_64;
5078 break;
5079
5080 case ETIR__C_STO_OFF: /* ALPHA_R_REFQUAD others, step 2 */
5081 if (prev_cmd != ETIR__C_STA_PQ)
5082 {
5083 /* xgettext:c-format */
5084 _bfd_error_handler (_("unknown reloc %s + %s"),
5085 _bfd_vms_etir_name (prev_cmd),
5086 _bfd_vms_etir_name (ETIR__C_STO_OFF));
5087 return FALSE;
5088 }
5089 reloc_code = BFD_RELOC_64;
5090 break;
5091
5092 case ETIR__C_OPR_ADD: /* ALPHA_R_REFLONG und_section, step 3 */
5093 /* ALPHA_R_REFQUAD und_section, step 3 */
5094 if (prev_cmd != ETIR__C_STA_LW && prev_cmd != ETIR__C_STA_QW)
5095 {
5096 /* xgettext:c-format */
5097 _bfd_error_handler (_("unknown reloc %s + %s"),
5098 _bfd_vms_etir_name (prev_cmd),
5099 _bfd_vms_etir_name (ETIR__C_OPR_ADD));
5100 return FALSE;
5101 }
5102 prev_cmd = ETIR__C_OPR_ADD;
5103 continue;
5104
5105 case ETIR__C_STO_CA: /* ALPHA_R_CODEADDR */
5106 reloc_code = BFD_RELOC_ALPHA_CODEADDR;
5107 cur_sym = ptr + 4;
5108 break;
5109
5110 case ETIR__C_STO_GBL: /* ALPHA_R_REFQUAD und_section */
5111 reloc_code = BFD_RELOC_64;
5112 cur_sym = ptr + 4;
5113 break;
5114
5115 case ETIR__C_STO_GBL_LW: /* ALPHA_R_REFLONG und_section */
5116 reloc_code = BFD_RELOC_32;
5117 cur_sym = ptr + 4;
5118 break;
5119
5120 case ETIR__C_STC_LP_PSB: /* ALPHA_R_LINKAGE */
5121 reloc_code = BFD_RELOC_ALPHA_LINKAGE;
5122 cur_sym = ptr + 8;
5123 break;
5124
5125 case ETIR__C_STC_NOP_GBL: /* ALPHA_R_NOP */
5126 reloc_code = BFD_RELOC_ALPHA_NOP;
5127 goto call_reloc;
5128
5129 case ETIR__C_STC_BSR_GBL: /* ALPHA_R_BSR */
5130 reloc_code = BFD_RELOC_ALPHA_BSR;
5131 goto call_reloc;
5132
5133 case ETIR__C_STC_LDA_GBL: /* ALPHA_R_LDA */
5134 reloc_code = BFD_RELOC_ALPHA_LDA;
5135 goto call_reloc;
5136
5137 case ETIR__C_STC_BOH_GBL: /* ALPHA_R_BOH */
5138 reloc_code = BFD_RELOC_ALPHA_BOH;
5139 goto call_reloc;
5140
5141 call_reloc:
5142 cur_sym = ptr + 4 + 32;
5143 cur_address = bfd_getl64 (ptr + 4 + 8);
5144 cur_addend = bfd_getl64 (ptr + 4 + 24);
5145 break;
5146
5147 case ETIR__C_STO_IMM:
5148 vaddr += bfd_getl32 (ptr + 4);
5149 continue;
5150
5151 default:
5152 _bfd_error_handler (_("unknown reloc %s"),
5153 _bfd_vms_etir_name (cmd));
5154 return FALSE;
5155 }
5156
5157 {
5158 asection *sec;
5159 struct vms_section_data_struct *vms_sec;
5160 arelent *reloc;
5161 bfd_size_type size;
5162
5163 /* Get section to which the relocation applies. */
5164 if (cur_psect < 0 || cur_psect > (int)PRIV (section_count))
5165 {
5166 _bfd_error_handler (_("invalid section index in ETIR"));
5167 return FALSE;
5168 }
5169
5170 if (PRIV (sections) == NULL)
5171 return FALSE;
5172 sec = PRIV (sections)[cur_psect];
5173 if (sec == bfd_abs_section_ptr)
5174 {
5175 _bfd_error_handler (_("relocation for non-REL psect"));
5176 return FALSE;
5177 }
5178
5179 vms_sec = vms_section_data (sec);
5180
5181 /* Allocate a reloc entry. */
5182 if (sec->reloc_count >= vms_sec->reloc_max)
5183 {
5184 if (vms_sec->reloc_max == 0)
5185 {
5186 vms_sec->reloc_max = 64;
5187 sec->relocation = bfd_zmalloc
5188 (vms_sec->reloc_max * sizeof (arelent));
5189 }
5190 else
5191 {
5192 vms_sec->reloc_max *= 2;
5193 sec->relocation = bfd_realloc
5194 (sec->relocation, vms_sec->reloc_max * sizeof (arelent));
5195 }
5196 }
5197 reloc = &sec->relocation[sec->reloc_count];
5198 sec->reloc_count++;
5199
5200 reloc->howto = bfd_reloc_type_lookup (abfd, reloc_code);
5201
5202 if (cur_sym != NULL)
5203 {
5204 unsigned int j;
5205 unsigned int symlen = *cur_sym;
5206 asymbol **sym;
5207
5208 /* Linear search. */
5209 symlen = *cur_sym;
5210 cur_sym++;
5211 sym = NULL;
5212
5213 for (j = 0; j < PRIV (gsd_sym_count); j++)
5214 if (PRIV (syms)[j]->namelen == symlen
5215 && memcmp (PRIV (syms)[j]->name, cur_sym, symlen) == 0)
5216 {
5217 sym = &PRIV (csymbols)[j];
5218 break;
5219 }
5220 if (sym == NULL)
5221 {
5222 _bfd_error_handler (_("unknown symbol in command %s"),
5223 _bfd_vms_etir_name (cmd));
5224 reloc->sym_ptr_ptr = NULL;
5225 }
5226 else
5227 reloc->sym_ptr_ptr = sym;
5228 }
5229 else if (cur_psidx >= 0)
5230 {
5231 if (PRIV (sections) == NULL || cur_psidx >= (int) PRIV (section_count))
5232 return FALSE;
5233 reloc->sym_ptr_ptr =
5234 PRIV (sections)[cur_psidx]->symbol_ptr_ptr;
5235 }
5236 else
5237 reloc->sym_ptr_ptr = NULL;
5238
5239 reloc->address = cur_address;
5240 reloc->addend = cur_addend;
5241
5242 if (reloc_code == ALPHA_R_LINKAGE)
5243 size = 16;
5244 else
5245 size = bfd_get_reloc_size (reloc->howto);
5246 vaddr += size;
5247 }
5248
5249 cur_addend = 0;
5250 prev_cmd = -1;
5251 cur_sym = NULL;
5252 cur_psidx = -1;
5253 }
5254 }
5255 vms_debug2 ((3, "alpha_vms_slurp_relocs: result = TRUE\n"));
5256
5257 return TRUE;
5258 }
5259
5260 /* Return the number of bytes required to store the relocation
5261 information associated with the given section. */
5262
5263 static long
5264 alpha_vms_get_reloc_upper_bound (bfd *abfd ATTRIBUTE_UNUSED, asection *section)
5265 {
5266 alpha_vms_slurp_relocs (abfd);
5267
5268 return (section->reloc_count + 1) * sizeof (arelent *);
5269 }
5270
5271 /* Convert relocations from VMS (external) form into BFD internal
5272 form. Return the number of relocations. */
5273
5274 static long
5275 alpha_vms_canonicalize_reloc (bfd *abfd, asection *section, arelent **relptr,
5276 asymbol **symbols ATTRIBUTE_UNUSED)
5277 {
5278 arelent *tblptr;
5279 int count;
5280
5281 if (!alpha_vms_slurp_relocs (abfd))
5282 return -1;
5283
5284 count = section->reloc_count;
5285 tblptr = section->relocation;
5286
5287 while (count--)
5288 *relptr++ = tblptr++;
5289
5290 *relptr = (arelent *) NULL;
5291 return section->reloc_count;
5292 }
5293
5294 /* Install a new set of internal relocs. */
5295
5296 #define alpha_vms_set_reloc _bfd_generic_set_reloc
5297
5298 \f
5299 /* This is just copied from ecoff-alpha, needs to be fixed probably. */
5300
5301 /* How to process the various reloc types. */
5302
5303 static bfd_reloc_status_type
5304 reloc_nil (bfd * abfd ATTRIBUTE_UNUSED,
5305 arelent *reloc ATTRIBUTE_UNUSED,
5306 asymbol *sym ATTRIBUTE_UNUSED,
5307 void * data ATTRIBUTE_UNUSED,
5308 asection *sec ATTRIBUTE_UNUSED,
5309 bfd *output_bfd ATTRIBUTE_UNUSED,
5310 char **error_message ATTRIBUTE_UNUSED)
5311 {
5312 #if VMS_DEBUG
5313 vms_debug (1, "reloc_nil (abfd %p, output_bfd %p)\n", abfd, output_bfd);
5314 vms_debug (2, "In section %s, symbol %s\n",
5315 sec->name, sym->name);
5316 vms_debug (2, "reloc sym %s, addr %08lx, addend %08lx, reloc is a %s\n",
5317 reloc->sym_ptr_ptr[0]->name,
5318 (unsigned long)reloc->address,
5319 (unsigned long)reloc->addend, reloc->howto->name);
5320 vms_debug (2, "data at %p\n", data);
5321 /* _bfd_hexdump (2, data, bfd_get_reloc_size (reloc->howto), 0); */
5322 #endif
5323
5324 return bfd_reloc_ok;
5325 }
5326
5327 /* In case we're on a 32-bit machine, construct a 64-bit "-1" value
5328 from smaller values. Start with zero, widen, *then* decrement. */
5329 #define MINUS_ONE (((bfd_vma)0) - 1)
5330
5331 static reloc_howto_type alpha_howto_table[] =
5332 {
5333 HOWTO (ALPHA_R_IGNORE, /* Type. */
5334 0, /* Rightshift. */
5335 0, /* Size (0 = byte, 1 = short, 2 = long). */
5336 8, /* Bitsize. */
5337 TRUE, /* PC relative. */
5338 0, /* Bitpos. */
5339 complain_overflow_dont,/* Complain_on_overflow. */
5340 reloc_nil, /* Special_function. */
5341 "IGNORE", /* Name. */
5342 TRUE, /* Partial_inplace. */
5343 0, /* Source mask */
5344 0, /* Dest mask. */
5345 TRUE), /* PC rel offset. */
5346
5347 /* A 64 bit reference to a symbol. */
5348 HOWTO (ALPHA_R_REFQUAD, /* Type. */
5349 0, /* Rightshift. */
5350 4, /* Size (0 = byte, 1 = short, 2 = long). */
5351 64, /* Bitsize. */
5352 FALSE, /* PC relative. */
5353 0, /* Bitpos. */
5354 complain_overflow_bitfield, /* Complain_on_overflow. */
5355 reloc_nil, /* Special_function. */
5356 "REFQUAD", /* Name. */
5357 TRUE, /* Partial_inplace. */
5358 MINUS_ONE, /* Source mask. */
5359 MINUS_ONE, /* Dest mask. */
5360 FALSE), /* PC rel offset. */
5361
5362 /* A 21 bit branch. The native assembler generates these for
5363 branches within the text segment, and also fills in the PC
5364 relative offset in the instruction. */
5365 HOWTO (ALPHA_R_BRADDR, /* Type. */
5366 2, /* Rightshift. */
5367 2, /* Size (0 = byte, 1 = short, 2 = long). */
5368 21, /* Bitsize. */
5369 TRUE, /* PC relative. */
5370 0, /* Bitpos. */
5371 complain_overflow_signed, /* Complain_on_overflow. */
5372 reloc_nil, /* Special_function. */
5373 "BRADDR", /* Name. */
5374 TRUE, /* Partial_inplace. */
5375 0x1fffff, /* Source mask. */
5376 0x1fffff, /* Dest mask. */
5377 FALSE), /* PC rel offset. */
5378
5379 /* A hint for a jump to a register. */
5380 HOWTO (ALPHA_R_HINT, /* Type. */
5381 2, /* Rightshift. */
5382 1, /* Size (0 = byte, 1 = short, 2 = long). */
5383 14, /* Bitsize. */
5384 TRUE, /* PC relative. */
5385 0, /* Bitpos. */
5386 complain_overflow_dont,/* Complain_on_overflow. */
5387 reloc_nil, /* Special_function. */
5388 "HINT", /* Name. */
5389 TRUE, /* Partial_inplace. */
5390 0x3fff, /* Source mask. */
5391 0x3fff, /* Dest mask. */
5392 FALSE), /* PC rel offset. */
5393
5394 /* 16 bit PC relative offset. */
5395 HOWTO (ALPHA_R_SREL16, /* Type. */
5396 0, /* Rightshift. */
5397 1, /* Size (0 = byte, 1 = short, 2 = long). */
5398 16, /* Bitsize. */
5399 TRUE, /* PC relative. */
5400 0, /* Bitpos. */
5401 complain_overflow_signed, /* Complain_on_overflow. */
5402 reloc_nil, /* Special_function. */
5403 "SREL16", /* Name. */
5404 TRUE, /* Partial_inplace. */
5405 0xffff, /* Source mask. */
5406 0xffff, /* Dest mask. */
5407 FALSE), /* PC rel offset. */
5408
5409 /* 32 bit PC relative offset. */
5410 HOWTO (ALPHA_R_SREL32, /* Type. */
5411 0, /* Rightshift. */
5412 2, /* Size (0 = byte, 1 = short, 2 = long). */
5413 32, /* Bitsize. */
5414 TRUE, /* PC relative. */
5415 0, /* Bitpos. */
5416 complain_overflow_signed, /* Complain_on_overflow. */
5417 reloc_nil, /* Special_function. */
5418 "SREL32", /* Name. */
5419 TRUE, /* Partial_inplace. */
5420 0xffffffff, /* Source mask. */
5421 0xffffffff, /* Dest mask. */
5422 FALSE), /* PC rel offset. */
5423
5424 /* A 64 bit PC relative offset. */
5425 HOWTO (ALPHA_R_SREL64, /* Type. */
5426 0, /* Rightshift. */
5427 4, /* Size (0 = byte, 1 = short, 2 = long). */
5428 64, /* Bitsize. */
5429 TRUE, /* PC relative. */
5430 0, /* Bitpos. */
5431 complain_overflow_signed, /* Complain_on_overflow. */
5432 reloc_nil, /* Special_function. */
5433 "SREL64", /* Name. */
5434 TRUE, /* Partial_inplace. */
5435 MINUS_ONE, /* Source mask. */
5436 MINUS_ONE, /* Dest mask. */
5437 FALSE), /* PC rel offset. */
5438
5439 /* Push a value on the reloc evaluation stack. */
5440 HOWTO (ALPHA_R_OP_PUSH, /* Type. */
5441 0, /* Rightshift. */
5442 0, /* Size (0 = byte, 1 = short, 2 = long). */
5443 0, /* Bitsize. */
5444 FALSE, /* PC relative. */
5445 0, /* Bitpos. */
5446 complain_overflow_dont,/* Complain_on_overflow. */
5447 reloc_nil, /* Special_function. */
5448 "OP_PUSH", /* Name. */
5449 FALSE, /* Partial_inplace. */
5450 0, /* Source mask. */
5451 0, /* Dest mask. */
5452 FALSE), /* PC rel offset. */
5453
5454 /* Store the value from the stack at the given address. Store it in
5455 a bitfield of size r_size starting at bit position r_offset. */
5456 HOWTO (ALPHA_R_OP_STORE, /* Type. */
5457 0, /* Rightshift. */
5458 4, /* Size (0 = byte, 1 = short, 2 = long). */
5459 64, /* Bitsize. */
5460 FALSE, /* PC relative. */
5461 0, /* Bitpos. */
5462 complain_overflow_dont,/* Complain_on_overflow. */
5463 reloc_nil, /* Special_function. */
5464 "OP_STORE", /* Name. */
5465 FALSE, /* Partial_inplace. */
5466 0, /* Source mask. */
5467 MINUS_ONE, /* Dest mask. */
5468 FALSE), /* PC rel offset. */
5469
5470 /* Subtract the reloc address from the value on the top of the
5471 relocation stack. */
5472 HOWTO (ALPHA_R_OP_PSUB, /* Type. */
5473 0, /* Rightshift. */
5474 0, /* Size (0 = byte, 1 = short, 2 = long). */
5475 0, /* Bitsize. */
5476 FALSE, /* PC relative. */
5477 0, /* Bitpos. */
5478 complain_overflow_dont,/* Complain_on_overflow. */
5479 reloc_nil, /* Special_function. */
5480 "OP_PSUB", /* Name. */
5481 FALSE, /* Partial_inplace. */
5482 0, /* Source mask. */
5483 0, /* Dest mask. */
5484 FALSE), /* PC rel offset. */
5485
5486 /* Shift the value on the top of the relocation stack right by the
5487 given value. */
5488 HOWTO (ALPHA_R_OP_PRSHIFT, /* Type. */
5489 0, /* Rightshift. */
5490 0, /* Size (0 = byte, 1 = short, 2 = long). */
5491 0, /* Bitsize. */
5492 FALSE, /* PC relative. */
5493 0, /* Bitpos. */
5494 complain_overflow_dont,/* Complain_on_overflow. */
5495 reloc_nil, /* Special_function. */
5496 "OP_PRSHIFT", /* Name. */
5497 FALSE, /* Partial_inplace. */
5498 0, /* Source mask. */
5499 0, /* Dest mask. */
5500 FALSE), /* PC rel offset. */
5501
5502 /* Hack. Linkage is done by linker. */
5503 HOWTO (ALPHA_R_LINKAGE, /* Type. */
5504 0, /* Rightshift. */
5505 0, /* Size (0 = byte, 1 = short, 2 = long). */
5506 0, /* Bitsize. */
5507 FALSE, /* PC relative. */
5508 0, /* Bitpos. */
5509 complain_overflow_dont,/* Complain_on_overflow. */
5510 reloc_nil, /* Special_function. */
5511 "LINKAGE", /* Name. */
5512 FALSE, /* Partial_inplace. */
5513 0, /* Source mask. */
5514 0, /* Dest mask. */
5515 FALSE), /* PC rel offset. */
5516
5517 /* A 32 bit reference to a symbol. */
5518 HOWTO (ALPHA_R_REFLONG, /* Type. */
5519 0, /* Rightshift. */
5520 2, /* Size (0 = byte, 1 = short, 2 = long). */
5521 32, /* Bitsize. */
5522 FALSE, /* PC relative. */
5523 0, /* Bitpos. */
5524 complain_overflow_bitfield, /* Complain_on_overflow. */
5525 reloc_nil, /* Special_function. */
5526 "REFLONG", /* Name. */
5527 TRUE, /* Partial_inplace. */
5528 0xffffffff, /* Source mask. */
5529 0xffffffff, /* Dest mask. */
5530 FALSE), /* PC rel offset. */
5531
5532 /* A 64 bit reference to a procedure, written as 32 bit value. */
5533 HOWTO (ALPHA_R_CODEADDR, /* Type. */
5534 0, /* Rightshift. */
5535 4, /* Size (0 = byte, 1 = short, 2 = long). */
5536 64, /* Bitsize. */
5537 FALSE, /* PC relative. */
5538 0, /* Bitpos. */
5539 complain_overflow_signed,/* Complain_on_overflow. */
5540 reloc_nil, /* Special_function. */
5541 "CODEADDR", /* Name. */
5542 FALSE, /* Partial_inplace. */
5543 0xffffffff, /* Source mask. */
5544 0xffffffff, /* Dest mask. */
5545 FALSE), /* PC rel offset. */
5546
5547 HOWTO (ALPHA_R_NOP, /* Type. */
5548 0, /* Rightshift. */
5549 3, /* Size (0 = byte, 1 = short, 2 = long). */
5550 0, /* Bitsize. */
5551 /* The following value must match that of ALPHA_R_BSR/ALPHA_R_BOH
5552 because the calculations for the 3 relocations are the same.
5553 See B.4.5.2 of the OpenVMS Linker Utility Manual. */
5554 TRUE, /* PC relative. */
5555 0, /* Bitpos. */
5556 complain_overflow_dont,/* Complain_on_overflow. */
5557 reloc_nil, /* Special_function. */
5558 "NOP", /* Name. */
5559 FALSE, /* Partial_inplace. */
5560 0xffffffff, /* Source mask. */
5561 0xffffffff, /* Dest mask. */
5562 FALSE), /* PC rel offset. */
5563
5564 HOWTO (ALPHA_R_BSR, /* Type. */
5565 0, /* Rightshift. */
5566 3, /* Size (0 = byte, 1 = short, 2 = long). */
5567 0, /* Bitsize. */
5568 TRUE, /* PC relative. */
5569 0, /* Bitpos. */
5570 complain_overflow_dont,/* Complain_on_overflow. */
5571 reloc_nil, /* Special_function. */
5572 "BSR", /* Name. */
5573 FALSE, /* Partial_inplace. */
5574 0xffffffff, /* Source mask. */
5575 0xffffffff, /* Dest mask. */
5576 FALSE), /* PC rel offset. */
5577
5578 HOWTO (ALPHA_R_LDA, /* Type. */
5579 0, /* Rightshift. */
5580 3, /* Size (0 = byte, 1 = short, 2 = long). */
5581 0, /* Bitsize. */
5582 FALSE, /* PC relative. */
5583 0, /* Bitpos. */
5584 complain_overflow_dont,/* Complain_on_overflow. */
5585 reloc_nil, /* Special_function. */
5586 "LDA", /* Name. */
5587 FALSE, /* Partial_inplace. */
5588 0xffffffff, /* Source mask. */
5589 0xffffffff, /* Dest mask. */
5590 FALSE), /* PC rel offset. */
5591
5592 HOWTO (ALPHA_R_BOH, /* Type. */
5593 0, /* Rightshift. */
5594 3, /* Size (0 = byte, 1 = short, 2 = long, 3 = nil). */
5595 0, /* Bitsize. */
5596 TRUE, /* PC relative. */
5597 0, /* Bitpos. */
5598 complain_overflow_dont,/* Complain_on_overflow. */
5599 reloc_nil, /* Special_function. */
5600 "BOH", /* Name. */
5601 FALSE, /* Partial_inplace. */
5602 0xffffffff, /* Source mask. */
5603 0xffffffff, /* Dest mask. */
5604 FALSE), /* PC rel offset. */
5605 };
5606
5607 /* Return a pointer to a howto structure which, when invoked, will perform
5608 the relocation code on data from the architecture noted. */
5609
5610 static reloc_howto_type *
5611 alpha_vms_bfd_reloc_type_lookup (bfd * abfd ATTRIBUTE_UNUSED,
5612 bfd_reloc_code_real_type code)
5613 {
5614 int alpha_type;
5615
5616 vms_debug2 ((1, "vms_bfd_reloc_type_lookup (%p, %d)\t", abfd, code));
5617
5618 switch (code)
5619 {
5620 case BFD_RELOC_16: alpha_type = ALPHA_R_SREL16; break;
5621 case BFD_RELOC_32: alpha_type = ALPHA_R_REFLONG; break;
5622 case BFD_RELOC_64: alpha_type = ALPHA_R_REFQUAD; break;
5623 case BFD_RELOC_CTOR: alpha_type = ALPHA_R_REFQUAD; break;
5624 case BFD_RELOC_23_PCREL_S2: alpha_type = ALPHA_R_BRADDR; break;
5625 case BFD_RELOC_ALPHA_HINT: alpha_type = ALPHA_R_HINT; break;
5626 case BFD_RELOC_16_PCREL: alpha_type = ALPHA_R_SREL16; break;
5627 case BFD_RELOC_32_PCREL: alpha_type = ALPHA_R_SREL32; break;
5628 case BFD_RELOC_64_PCREL: alpha_type = ALPHA_R_SREL64; break;
5629 case BFD_RELOC_ALPHA_LINKAGE: alpha_type = ALPHA_R_LINKAGE; break;
5630 case BFD_RELOC_ALPHA_CODEADDR: alpha_type = ALPHA_R_CODEADDR; break;
5631 case BFD_RELOC_ALPHA_NOP: alpha_type = ALPHA_R_NOP; break;
5632 case BFD_RELOC_ALPHA_BSR: alpha_type = ALPHA_R_BSR; break;
5633 case BFD_RELOC_ALPHA_LDA: alpha_type = ALPHA_R_LDA; break;
5634 case BFD_RELOC_ALPHA_BOH: alpha_type = ALPHA_R_BOH; break;
5635 default:
5636 _bfd_error_handler (_("reloc (%d) is *UNKNOWN*"), code);
5637 return NULL;
5638 }
5639 vms_debug2 ((2, "reloc is %s\n", alpha_howto_table[alpha_type].name));
5640 return & alpha_howto_table[alpha_type];
5641 }
5642
5643 static reloc_howto_type *
5644 alpha_vms_bfd_reloc_name_lookup (bfd *abfd ATTRIBUTE_UNUSED,
5645 const char *r_name)
5646 {
5647 unsigned int i;
5648
5649 for (i = 0;
5650 i < sizeof (alpha_howto_table) / sizeof (alpha_howto_table[0]);
5651 i++)
5652 if (alpha_howto_table[i].name != NULL
5653 && strcasecmp (alpha_howto_table[i].name, r_name) == 0)
5654 return &alpha_howto_table[i];
5655
5656 return NULL;
5657 }
5658 \f
5659 static long
5660 alpha_vms_get_synthetic_symtab (bfd *abfd,
5661 long symcount ATTRIBUTE_UNUSED,
5662 asymbol **usyms ATTRIBUTE_UNUSED,
5663 long dynsymcount ATTRIBUTE_UNUSED,
5664 asymbol **dynsyms ATTRIBUTE_UNUSED,
5665 asymbol **ret)
5666 {
5667 asymbol *syms;
5668 unsigned int i;
5669 unsigned int n = 0;
5670
5671 syms = (asymbol *) bfd_malloc (PRIV (norm_sym_count) * sizeof (asymbol));
5672 *ret = syms;
5673 if (syms == NULL)
5674 return -1;
5675
5676 for (i = 0; i < PRIV (gsd_sym_count); i++)
5677 {
5678 struct vms_symbol_entry *e = PRIV (syms)[i];
5679 asymbol *sym;
5680 flagword flags;
5681 symvalue value;
5682 asection *sec;
5683 const char *name;
5684 char *sname;
5685 int l;
5686
5687 name = e->name;
5688 value = 0;
5689 flags = BSF_LOCAL | BSF_SYNTHETIC;
5690 sec = NULL;
5691
5692 switch (e->typ)
5693 {
5694 case EGSD__C_SYM:
5695 case EGSD__C_SYMG:
5696 if ((e->flags & EGSY__V_DEF) && (e->flags & EGSY__V_NORM))
5697 {
5698 value = e->code_value;
5699 sec = e->code_section;
5700 }
5701 else
5702 continue;
5703 break;
5704
5705 default:
5706 continue;
5707 }
5708
5709 l = strlen (name);
5710 sname = bfd_alloc (abfd, l + 5);
5711 if (sname == NULL)
5712 return FALSE;
5713 memcpy (sname, name, l);
5714 memcpy (sname + l, "..en", 5);
5715
5716 sym = &syms[n++];
5717 sym->name = sname;
5718 sym->section = sec;
5719 sym->flags = flags;
5720 sym->value = value;
5721 sym->udata.p = NULL;
5722 }
5723
5724 return n;
5725 }
5726 \f
5727 /* Private dump. */
5728
5729 static const char *
5730 vms_time_to_str (unsigned char *buf)
5731 {
5732 time_t t = vms_rawtime_to_time_t (buf);
5733 char *res = ctime (&t);
5734
5735 if (!res)
5736 res = "*invalid time*";
5737 else
5738 res[24] = 0;
5739 return res;
5740 }
5741
5742 static void
5743 evax_bfd_print_emh (FILE *file, unsigned char *rec, unsigned int rec_len)
5744 {
5745 struct vms_emh_common *emh = (struct vms_emh_common *)rec;
5746 unsigned int subtype;
5747 int extra;
5748
5749 subtype = (unsigned) bfd_getl16 (emh->subtyp);
5750
5751 /* xgettext:c-format */
5752 fprintf (file, _(" EMH %u (len=%u): "), subtype, rec_len);
5753
5754 /* PR 21618: Check for invalid lengths. */
5755 if (rec_len < sizeof (* emh))
5756 {
5757 fprintf (file, _(" Error: The length is less than the length of an EMH record\n"));
5758 return;
5759 }
5760 extra = rec_len - sizeof (struct vms_emh_common);
5761
5762 switch (subtype)
5763 {
5764 case EMH__C_MHD:
5765 {
5766 struct vms_emh_mhd *mhd = (struct vms_emh_mhd *) rec;
5767 const char * name;
5768 const char * nextname;
5769 const char * maxname;
5770
5771 /* PR 21840: Check for invalid lengths. */
5772 if (rec_len < sizeof (* mhd))
5773 {
5774 fprintf (file, _(" Error: The record length is less than the size of an EMH_MHD record\n"));
5775 return;
5776 }
5777 fprintf (file, _("Module header\n"));
5778 fprintf (file, _(" structure level: %u\n"), mhd->strlvl);
5779 fprintf (file, _(" max record size: %u\n"),
5780 (unsigned) bfd_getl32 (mhd->recsiz));
5781 name = (char *)(mhd + 1);
5782 maxname = (char *) rec + rec_len;
5783 if (name > maxname - 2)
5784 {
5785 fprintf (file, _(" Error: The module name is missing\n"));
5786 return;
5787 }
5788 nextname = name + name[0] + 1;
5789 if (nextname >= maxname)
5790 {
5791 fprintf (file, _(" Error: The module name is too long\n"));
5792 return;
5793 }
5794 fprintf (file, _(" module name : %.*s\n"), name[0], name + 1);
5795 name = nextname;
5796 if (name > maxname - 2)
5797 {
5798 fprintf (file, _(" Error: The module version is missing\n"));
5799 return;
5800 }
5801 nextname = name + name[0] + 1;
5802 if (nextname >= maxname)
5803 {
5804 fprintf (file, _(" Error: The module version is too long\n"));
5805 return;
5806 }
5807 fprintf (file, _(" module version : %.*s\n"), name[0], name + 1);
5808 name = nextname;
5809 if ((maxname - name) < 17 && maxname[-1] != 0)
5810 fprintf (file, _(" Error: The compile date is truncated\n"));
5811 else
5812 fprintf (file, _(" compile date : %.17s\n"), name);
5813 }
5814 break;
5815
5816 case EMH__C_LNM:
5817 fprintf (file, _("Language Processor Name\n"));
5818 fprintf (file, _(" language name: %.*s\n"), extra, (char *)(emh + 1));
5819 break;
5820
5821 case EMH__C_SRC:
5822 fprintf (file, _("Source Files Header\n"));
5823 fprintf (file, _(" file: %.*s\n"), extra, (char *)(emh + 1));
5824 break;
5825
5826 case EMH__C_TTL:
5827 fprintf (file, _("Title Text Header\n"));
5828 fprintf (file, _(" title: %.*s\n"), extra, (char *)(emh + 1));
5829 break;
5830
5831 case EMH__C_CPR:
5832 fprintf (file, _("Copyright Header\n"));
5833 fprintf (file, _(" copyright: %.*s\n"), extra, (char *)(emh + 1));
5834 break;
5835
5836 default:
5837 fprintf (file, _("unhandled emh subtype %u\n"), subtype);
5838 break;
5839 }
5840 }
5841
5842 static void
5843 evax_bfd_print_eeom (FILE *file, unsigned char *rec, unsigned int rec_len)
5844 {
5845 struct vms_eeom *eeom = (struct vms_eeom *)rec;
5846
5847 fprintf (file, _(" EEOM (len=%u):\n"), rec_len);
5848
5849 /* PR 21618: Check for invalid lengths. */
5850 if (rec_len < sizeof (* eeom))
5851 {
5852 fprintf (file, _(" Error: The length is less than the length of an EEOM record\n"));
5853 return;
5854 }
5855
5856 fprintf (file, _(" number of cond linkage pairs: %u\n"),
5857 (unsigned)bfd_getl32 (eeom->total_lps));
5858 fprintf (file, _(" completion code: %u\n"),
5859 (unsigned)bfd_getl16 (eeom->comcod));
5860 if (rec_len > 10)
5861 {
5862 fprintf (file, _(" transfer addr flags: 0x%02x\n"), eeom->tfrflg);
5863 fprintf (file, _(" transfer addr psect: %u\n"),
5864 (unsigned)bfd_getl32 (eeom->psindx));
5865 fprintf (file, _(" transfer address : 0x%08x\n"),
5866 (unsigned)bfd_getl32 (eeom->tfradr));
5867 }
5868 }
5869
5870 static void
5871 exav_bfd_print_egsy_flags (unsigned int flags, FILE *file)
5872 {
5873 if (flags & EGSY__V_WEAK)
5874 fputs (_(" WEAK"), file);
5875 if (flags & EGSY__V_DEF)
5876 fputs (_(" DEF"), file);
5877 if (flags & EGSY__V_UNI)
5878 fputs (_(" UNI"), file);
5879 if (flags & EGSY__V_REL)
5880 fputs (_(" REL"), file);
5881 if (flags & EGSY__V_COMM)
5882 fputs (_(" COMM"), file);
5883 if (flags & EGSY__V_VECEP)
5884 fputs (_(" VECEP"), file);
5885 if (flags & EGSY__V_NORM)
5886 fputs (_(" NORM"), file);
5887 if (flags & EGSY__V_QUAD_VAL)
5888 fputs (_(" QVAL"), file);
5889 }
5890
5891 static void
5892 evax_bfd_print_egsd_flags (FILE *file, unsigned int flags)
5893 {
5894 if (flags & EGPS__V_PIC)
5895 fputs (_(" PIC"), file);
5896 if (flags & EGPS__V_LIB)
5897 fputs (_(" LIB"), file);
5898 if (flags & EGPS__V_OVR)
5899 fputs (_(" OVR"), file);
5900 if (flags & EGPS__V_REL)
5901 fputs (_(" REL"), file);
5902 if (flags & EGPS__V_GBL)
5903 fputs (_(" GBL"), file);
5904 if (flags & EGPS__V_SHR)
5905 fputs (_(" SHR"), file);
5906 if (flags & EGPS__V_EXE)
5907 fputs (_(" EXE"), file);
5908 if (flags & EGPS__V_RD)
5909 fputs (_(" RD"), file);
5910 if (flags & EGPS__V_WRT)
5911 fputs (_(" WRT"), file);
5912 if (flags & EGPS__V_VEC)
5913 fputs (_(" VEC"), file);
5914 if (flags & EGPS__V_NOMOD)
5915 fputs (_(" NOMOD"), file);
5916 if (flags & EGPS__V_COM)
5917 fputs (_(" COM"), file);
5918 if (flags & EGPS__V_ALLOC_64BIT)
5919 fputs (_(" 64B"), file);
5920 }
5921
5922 static void
5923 evax_bfd_print_egsd (FILE *file, unsigned char *rec, unsigned int rec_len)
5924 {
5925 unsigned int off = sizeof (struct vms_egsd);
5926 unsigned int n;
5927
5928 fprintf (file, _(" EGSD (len=%u):\n"), rec_len);
5929
5930 n = 0;
5931 for (off = sizeof (struct vms_egsd); off < rec_len; )
5932 {
5933 struct vms_egsd_entry *e = (struct vms_egsd_entry *)(rec + off);
5934 unsigned int type;
5935 unsigned int len;
5936
5937 type = (unsigned)bfd_getl16 (e->gsdtyp);
5938 len = (unsigned)bfd_getl16 (e->gsdsiz);
5939
5940 /* xgettext:c-format */
5941 fprintf (file, _(" EGSD entry %2u (type: %u, len: %u): "),
5942 n, type, len);
5943 n++;
5944
5945 if (off + len > rec_len || off + len < off)
5946 {
5947 fprintf (file, _(" Error: length larger than remaining space in record\n"));
5948 return;
5949 }
5950
5951 switch (type)
5952 {
5953 case EGSD__C_PSC:
5954 {
5955 struct vms_egps *egps = (struct vms_egps *)e;
5956 unsigned int flags = bfd_getl16 (egps->flags);
5957 unsigned int l;
5958
5959 fprintf (file, _("PSC - Program section definition\n"));
5960 fprintf (file, _(" alignment : 2**%u\n"), egps->align);
5961 fprintf (file, _(" flags : 0x%04x"), flags);
5962 evax_bfd_print_egsd_flags (file, flags);
5963 fputc ('\n', file);
5964 l = bfd_getl32 (egps->alloc);
5965 fprintf (file, _(" alloc (len): %u (0x%08x)\n"), l, l);
5966 fprintf (file, _(" name : %.*s\n"),
5967 egps->namlng, egps->name);
5968 }
5969 break;
5970 case EGSD__C_SPSC:
5971 {
5972 struct vms_esgps *esgps = (struct vms_esgps *)e;
5973 unsigned int flags = bfd_getl16 (esgps->flags);
5974 unsigned int l;
5975
5976 fprintf (file, _("SPSC - Shared Image Program section def\n"));
5977 fprintf (file, _(" alignment : 2**%u\n"), esgps->align);
5978 fprintf (file, _(" flags : 0x%04x"), flags);
5979 evax_bfd_print_egsd_flags (file, flags);
5980 fputc ('\n', file);
5981 l = bfd_getl32 (esgps->alloc);
5982 fprintf (file, _(" alloc (len) : %u (0x%08x)\n"), l, l);
5983 fprintf (file, _(" image offset : 0x%08x\n"),
5984 (unsigned int)bfd_getl32 (esgps->base));
5985 fprintf (file, _(" symvec offset : 0x%08x\n"),
5986 (unsigned int)bfd_getl32 (esgps->value));
5987 fprintf (file, _(" name : %.*s\n"),
5988 esgps->namlng, esgps->name);
5989 }
5990 break;
5991 case EGSD__C_SYM:
5992 {
5993 struct vms_egsy *egsy = (struct vms_egsy *)e;
5994 unsigned int flags = bfd_getl16 (egsy->flags);
5995
5996 if (flags & EGSY__V_DEF)
5997 {
5998 struct vms_esdf *esdf = (struct vms_esdf *)e;
5999
6000 fprintf (file, _("SYM - Global symbol definition\n"));
6001 fprintf (file, _(" flags: 0x%04x"), flags);
6002 exav_bfd_print_egsy_flags (flags, file);
6003 fputc ('\n', file);
6004 fprintf (file, _(" psect offset: 0x%08x\n"),
6005 (unsigned)bfd_getl32 (esdf->value));
6006 if (flags & EGSY__V_NORM)
6007 {
6008 fprintf (file, _(" code address: 0x%08x\n"),
6009 (unsigned)bfd_getl32 (esdf->code_address));
6010 fprintf (file, _(" psect index for entry point : %u\n"),
6011 (unsigned)bfd_getl32 (esdf->ca_psindx));
6012 }
6013 fprintf (file, _(" psect index : %u\n"),
6014 (unsigned)bfd_getl32 (esdf->psindx));
6015 fprintf (file, _(" name : %.*s\n"),
6016 esdf->namlng, esdf->name);
6017 }
6018 else
6019 {
6020 struct vms_esrf *esrf = (struct vms_esrf *)e;
6021
6022 fprintf (file, _("SYM - Global symbol reference\n"));
6023 fprintf (file, _(" name : %.*s\n"),
6024 esrf->namlng, esrf->name);
6025 }
6026 }
6027 break;
6028 case EGSD__C_IDC:
6029 {
6030 struct vms_eidc *eidc = (struct vms_eidc *)e;
6031 unsigned int flags = bfd_getl32 (eidc->flags);
6032 unsigned char *p;
6033
6034 fprintf (file, _("IDC - Ident Consistency check\n"));
6035 fprintf (file, _(" flags : 0x%08x"), flags);
6036 if (flags & EIDC__V_BINIDENT)
6037 fputs (" BINDENT", file);
6038 fputc ('\n', file);
6039 fprintf (file, _(" id match : %x\n"),
6040 (flags >> EIDC__V_IDMATCH_SH) & EIDC__V_IDMATCH_MASK);
6041 fprintf (file, _(" error severity: %x\n"),
6042 (flags >> EIDC__V_ERRSEV_SH) & EIDC__V_ERRSEV_MASK);
6043 p = eidc->name;
6044 fprintf (file, _(" entity name : %.*s\n"), p[0], p + 1);
6045 p += 1 + p[0];
6046 fprintf (file, _(" object name : %.*s\n"), p[0], p + 1);
6047 p += 1 + p[0];
6048 if (flags & EIDC__V_BINIDENT)
6049 fprintf (file, _(" binary ident : 0x%08x\n"),
6050 (unsigned)bfd_getl32 (p + 1));
6051 else
6052 fprintf (file, _(" ascii ident : %.*s\n"), p[0], p + 1);
6053 }
6054 break;
6055 case EGSD__C_SYMG:
6056 {
6057 struct vms_egst *egst = (struct vms_egst *)e;
6058 unsigned int flags = bfd_getl16 (egst->header.flags);
6059
6060 fprintf (file, _("SYMG - Universal symbol definition\n"));
6061 fprintf (file, _(" flags: 0x%04x"), flags);
6062 exav_bfd_print_egsy_flags (flags, file);
6063 fputc ('\n', file);
6064 fprintf (file, _(" symbol vector offset: 0x%08x\n"),
6065 (unsigned)bfd_getl32 (egst->value));
6066 fprintf (file, _(" entry point: 0x%08x\n"),
6067 (unsigned)bfd_getl32 (egst->lp_1));
6068 fprintf (file, _(" proc descr : 0x%08x\n"),
6069 (unsigned)bfd_getl32 (egst->lp_2));
6070 fprintf (file, _(" psect index: %u\n"),
6071 (unsigned)bfd_getl32 (egst->psindx));
6072 fprintf (file, _(" name : %.*s\n"),
6073 egst->namlng, egst->name);
6074 }
6075 break;
6076 case EGSD__C_SYMV:
6077 {
6078 struct vms_esdfv *esdfv = (struct vms_esdfv *)e;
6079 unsigned int flags = bfd_getl16 (esdfv->flags);
6080
6081 fprintf (file, _("SYMV - Vectored symbol definition\n"));
6082 fprintf (file, _(" flags: 0x%04x"), flags);
6083 exav_bfd_print_egsy_flags (flags, file);
6084 fputc ('\n', file);
6085 fprintf (file, _(" vector : 0x%08x\n"),
6086 (unsigned)bfd_getl32 (esdfv->vector));
6087 fprintf (file, _(" psect offset: %u\n"),
6088 (unsigned)bfd_getl32 (esdfv->value));
6089 fprintf (file, _(" psect index : %u\n"),
6090 (unsigned)bfd_getl32 (esdfv->psindx));
6091 fprintf (file, _(" name : %.*s\n"),
6092 esdfv->namlng, esdfv->name);
6093 }
6094 break;
6095 case EGSD__C_SYMM:
6096 {
6097 struct vms_esdfm *esdfm = (struct vms_esdfm *)e;
6098 unsigned int flags = bfd_getl16 (esdfm->flags);
6099
6100 fprintf (file, _("SYMM - Global symbol definition with version\n"));
6101 fprintf (file, _(" flags: 0x%04x"), flags);
6102 exav_bfd_print_egsy_flags (flags, file);
6103 fputc ('\n', file);
6104 fprintf (file, _(" version mask: 0x%08x\n"),
6105 (unsigned)bfd_getl32 (esdfm->version_mask));
6106 fprintf (file, _(" psect offset: %u\n"),
6107 (unsigned)bfd_getl32 (esdfm->value));
6108 fprintf (file, _(" psect index : %u\n"),
6109 (unsigned)bfd_getl32 (esdfm->psindx));
6110 fprintf (file, _(" name : %.*s\n"),
6111 esdfm->namlng, esdfm->name);
6112 }
6113 break;
6114 default:
6115 fprintf (file, _("unhandled egsd entry type %u\n"), type);
6116 break;
6117 }
6118 off += len;
6119 }
6120 }
6121
6122 static void
6123 evax_bfd_print_hex (FILE *file, const char *pfx,
6124 const unsigned char *buf, unsigned int len)
6125 {
6126 unsigned int i;
6127 unsigned int n;
6128
6129 n = 0;
6130 for (i = 0; i < len; i++)
6131 {
6132 if (n == 0)
6133 fputs (pfx, file);
6134 fprintf (file, " %02x", buf[i]);
6135 n++;
6136 if (n == 16)
6137 {
6138 n = 0;
6139 fputc ('\n', file);
6140 }
6141 }
6142 if (n != 0)
6143 fputc ('\n', file);
6144 }
6145
6146 static void
6147 evax_bfd_print_etir_stc_ir (FILE *file, const unsigned char *buf, int is_ps)
6148 {
6149 /* xgettext:c-format */
6150 fprintf (file, _(" linkage index: %u, replacement insn: 0x%08x\n"),
6151 (unsigned)bfd_getl32 (buf),
6152 (unsigned)bfd_getl32 (buf + 16));
6153 /* xgettext:c-format */
6154 fprintf (file, _(" psect idx 1: %u, offset 1: 0x%08x %08x\n"),
6155 (unsigned)bfd_getl32 (buf + 4),
6156 (unsigned)bfd_getl32 (buf + 12),
6157 (unsigned)bfd_getl32 (buf + 8));
6158 /* xgettext:c-format */
6159 fprintf (file, _(" psect idx 2: %u, offset 2: 0x%08x %08x\n"),
6160 (unsigned)bfd_getl32 (buf + 20),
6161 (unsigned)bfd_getl32 (buf + 28),
6162 (unsigned)bfd_getl32 (buf + 24));
6163 if (is_ps)
6164 /* xgettext:c-format */
6165 fprintf (file, _(" psect idx 3: %u, offset 3: 0x%08x %08x\n"),
6166 (unsigned)bfd_getl32 (buf + 32),
6167 (unsigned)bfd_getl32 (buf + 40),
6168 (unsigned)bfd_getl32 (buf + 36));
6169 else
6170 fprintf (file, _(" global name: %.*s\n"), buf[32], buf + 33);
6171 }
6172
6173 static void
6174 evax_bfd_print_etir (FILE *file, const char *name,
6175 unsigned char *rec, unsigned int rec_len)
6176 {
6177 unsigned int off = sizeof (struct vms_egsd);
6178 unsigned int sec_len = 0;
6179
6180 /* xgettext:c-format */
6181 fprintf (file, _(" %s (len=%u+%u):\n"), name,
6182 (unsigned)(rec_len - sizeof (struct vms_eobjrec)),
6183 (unsigned)sizeof (struct vms_eobjrec));
6184
6185 for (off = sizeof (struct vms_eobjrec); off < rec_len; )
6186 {
6187 struct vms_etir *etir = (struct vms_etir *)(rec + off);
6188 unsigned char *buf;
6189 unsigned int type;
6190 unsigned int size;
6191
6192 type = bfd_getl16 (etir->rectyp);
6193 size = bfd_getl16 (etir->size);
6194 buf = rec + off + sizeof (struct vms_etir);
6195
6196 if (off + size > rec_len || off + size < off)
6197 {
6198 fprintf (file, _(" Error: length larger than remaining space in record\n"));
6199 return;
6200 }
6201
6202 /* xgettext:c-format */
6203 fprintf (file, _(" (type: %3u, size: 4+%3u): "), type, size - 4);
6204 switch (type)
6205 {
6206 case ETIR__C_STA_GBL:
6207 fprintf (file, _("STA_GBL (stack global) %.*s\n"),
6208 buf[0], buf + 1);
6209 break;
6210 case ETIR__C_STA_LW:
6211 fprintf (file, _("STA_LW (stack longword) 0x%08x\n"),
6212 (unsigned)bfd_getl32 (buf));
6213 break;
6214 case ETIR__C_STA_QW:
6215 fprintf (file, _("STA_QW (stack quadword) 0x%08x %08x\n"),
6216 (unsigned)bfd_getl32 (buf + 4),
6217 (unsigned)bfd_getl32 (buf + 0));
6218 break;
6219 case ETIR__C_STA_PQ:
6220 fprintf (file, _("STA_PQ (stack psect base + offset)\n"));
6221 /* xgettext:c-format */
6222 fprintf (file, _(" psect: %u, offset: 0x%08x %08x\n"),
6223 (unsigned)bfd_getl32 (buf + 0),
6224 (unsigned)bfd_getl32 (buf + 8),
6225 (unsigned)bfd_getl32 (buf + 4));
6226 break;
6227 case ETIR__C_STA_LI:
6228 fprintf (file, _("STA_LI (stack literal)\n"));
6229 break;
6230 case ETIR__C_STA_MOD:
6231 fprintf (file, _("STA_MOD (stack module)\n"));
6232 break;
6233 case ETIR__C_STA_CKARG:
6234 fprintf (file, _("STA_CKARG (compare procedure argument)\n"));
6235 break;
6236
6237 case ETIR__C_STO_B:
6238 fprintf (file, _("STO_B (store byte)\n"));
6239 break;
6240 case ETIR__C_STO_W:
6241 fprintf (file, _("STO_W (store word)\n"));
6242 break;
6243 case ETIR__C_STO_LW:
6244 fprintf (file, _("STO_LW (store longword)\n"));
6245 break;
6246 case ETIR__C_STO_QW:
6247 fprintf (file, _("STO_QW (store quadword)\n"));
6248 break;
6249 case ETIR__C_STO_IMMR:
6250 {
6251 unsigned int len = bfd_getl32 (buf);
6252 fprintf (file,
6253 _("STO_IMMR (store immediate repeat) %u bytes\n"),
6254 len);
6255 evax_bfd_print_hex (file, " ", buf + 4, len);
6256 sec_len += len;
6257 }
6258 break;
6259 case ETIR__C_STO_GBL:
6260 fprintf (file, _("STO_GBL (store global) %.*s\n"),
6261 buf[0], buf + 1);
6262 break;
6263 case ETIR__C_STO_CA:
6264 fprintf (file, _("STO_CA (store code address) %.*s\n"),
6265 buf[0], buf + 1);
6266 break;
6267 case ETIR__C_STO_RB:
6268 fprintf (file, _("STO_RB (store relative branch)\n"));
6269 break;
6270 case ETIR__C_STO_AB:
6271 fprintf (file, _("STO_AB (store absolute branch)\n"));
6272 break;
6273 case ETIR__C_STO_OFF:
6274 fprintf (file, _("STO_OFF (store offset to psect)\n"));
6275 break;
6276 case ETIR__C_STO_IMM:
6277 {
6278 unsigned int len = bfd_getl32 (buf);
6279 fprintf (file,
6280 _("STO_IMM (store immediate) %u bytes\n"),
6281 len);
6282 evax_bfd_print_hex (file, " ", buf + 4, len);
6283 sec_len += len;
6284 }
6285 break;
6286 case ETIR__C_STO_GBL_LW:
6287 fprintf (file, _("STO_GBL_LW (store global longword) %.*s\n"),
6288 buf[0], buf + 1);
6289 break;
6290 case ETIR__C_STO_LP_PSB:
6291 fprintf (file, _("STO_OFF (store LP with procedure signature)\n"));
6292 break;
6293 case ETIR__C_STO_HINT_GBL:
6294 fprintf (file, _("STO_BR_GBL (store branch global) *todo*\n"));
6295 break;
6296 case ETIR__C_STO_HINT_PS:
6297 fprintf (file, _("STO_BR_PS (store branch psect + offset) *todo*\n"));
6298 break;
6299
6300 case ETIR__C_OPR_NOP:
6301 fprintf (file, _("OPR_NOP (no-operation)\n"));
6302 break;
6303 case ETIR__C_OPR_ADD:
6304 fprintf (file, _("OPR_ADD (add)\n"));
6305 break;
6306 case ETIR__C_OPR_SUB:
6307 fprintf (file, _("OPR_SUB (subtract)\n"));
6308 break;
6309 case ETIR__C_OPR_MUL:
6310 fprintf (file, _("OPR_MUL (multiply)\n"));
6311 break;
6312 case ETIR__C_OPR_DIV:
6313 fprintf (file, _("OPR_DIV (divide)\n"));
6314 break;
6315 case ETIR__C_OPR_AND:
6316 fprintf (file, _("OPR_AND (logical and)\n"));
6317 break;
6318 case ETIR__C_OPR_IOR:
6319 fprintf (file, _("OPR_IOR (logical inclusive or)\n"));
6320 break;
6321 case ETIR__C_OPR_EOR:
6322 fprintf (file, _("OPR_EOR (logical exclusive or)\n"));
6323 break;
6324 case ETIR__C_OPR_NEG:
6325 fprintf (file, _("OPR_NEG (negate)\n"));
6326 break;
6327 case ETIR__C_OPR_COM:
6328 fprintf (file, _("OPR_COM (complement)\n"));
6329 break;
6330 case ETIR__C_OPR_INSV:
6331 fprintf (file, _("OPR_INSV (insert field)\n"));
6332 break;
6333 case ETIR__C_OPR_ASH:
6334 fprintf (file, _("OPR_ASH (arithmetic shift)\n"));
6335 break;
6336 case ETIR__C_OPR_USH:
6337 fprintf (file, _("OPR_USH (unsigned shift)\n"));
6338 break;
6339 case ETIR__C_OPR_ROT:
6340 fprintf (file, _("OPR_ROT (rotate)\n"));
6341 break;
6342 case ETIR__C_OPR_SEL:
6343 fprintf (file, _("OPR_SEL (select)\n"));
6344 break;
6345 case ETIR__C_OPR_REDEF:
6346 fprintf (file, _("OPR_REDEF (redefine symbol to curr location)\n"));
6347 break;
6348 case ETIR__C_OPR_DFLIT:
6349 fprintf (file, _("OPR_REDEF (define a literal)\n"));
6350 break;
6351
6352 case ETIR__C_STC_LP:
6353 fprintf (file, _("STC_LP (store cond linkage pair)\n"));
6354 break;
6355 case ETIR__C_STC_LP_PSB:
6356 fprintf (file,
6357 _("STC_LP_PSB (store cond linkage pair + signature)\n"));
6358 /* xgettext:c-format */
6359 fprintf (file, _(" linkage index: %u, procedure: %.*s\n"),
6360 (unsigned)bfd_getl32 (buf), buf[4], buf + 5);
6361 buf += 4 + 1 + buf[4];
6362 fprintf (file, _(" signature: %.*s\n"), buf[0], buf + 1);
6363 break;
6364 case ETIR__C_STC_GBL:
6365 fprintf (file, _("STC_GBL (store cond global)\n"));
6366 /* xgettext:c-format */
6367 fprintf (file, _(" linkage index: %u, global: %.*s\n"),
6368 (unsigned)bfd_getl32 (buf), buf[4], buf + 5);
6369 break;
6370 case ETIR__C_STC_GCA:
6371 fprintf (file, _("STC_GCA (store cond code address)\n"));
6372 /* xgettext:c-format */
6373 fprintf (file, _(" linkage index: %u, procedure name: %.*s\n"),
6374 (unsigned)bfd_getl32 (buf), buf[4], buf + 5);
6375 break;
6376 case ETIR__C_STC_PS:
6377 fprintf (file, _("STC_PS (store cond psect + offset)\n"));
6378 fprintf (file,
6379 /* xgettext:c-format */
6380 _(" linkage index: %u, psect: %u, offset: 0x%08x %08x\n"),
6381 (unsigned)bfd_getl32 (buf),
6382 (unsigned)bfd_getl32 (buf + 4),
6383 (unsigned)bfd_getl32 (buf + 12),
6384 (unsigned)bfd_getl32 (buf + 8));
6385 break;
6386 case ETIR__C_STC_NOP_GBL:
6387 fprintf (file, _("STC_NOP_GBL (store cond NOP at global addr)\n"));
6388 evax_bfd_print_etir_stc_ir (file, buf, 0);
6389 break;
6390 case ETIR__C_STC_NOP_PS:
6391 fprintf (file, _("STC_NOP_PS (store cond NOP at psect + offset)\n"));
6392 evax_bfd_print_etir_stc_ir (file, buf, 1);
6393 break;
6394 case ETIR__C_STC_BSR_GBL:
6395 fprintf (file, _("STC_BSR_GBL (store cond BSR at global addr)\n"));
6396 evax_bfd_print_etir_stc_ir (file, buf, 0);
6397 break;
6398 case ETIR__C_STC_BSR_PS:
6399 fprintf (file, _("STC_BSR_PS (store cond BSR at psect + offset)\n"));
6400 evax_bfd_print_etir_stc_ir (file, buf, 1);
6401 break;
6402 case ETIR__C_STC_LDA_GBL:
6403 fprintf (file, _("STC_LDA_GBL (store cond LDA at global addr)\n"));
6404 evax_bfd_print_etir_stc_ir (file, buf, 0);
6405 break;
6406 case ETIR__C_STC_LDA_PS:
6407 fprintf (file, _("STC_LDA_PS (store cond LDA at psect + offset)\n"));
6408 evax_bfd_print_etir_stc_ir (file, buf, 1);
6409 break;
6410 case ETIR__C_STC_BOH_GBL:
6411 fprintf (file, _("STC_BOH_GBL (store cond BOH at global addr)\n"));
6412 evax_bfd_print_etir_stc_ir (file, buf, 0);
6413 break;
6414 case ETIR__C_STC_BOH_PS:
6415 fprintf (file, _("STC_BOH_PS (store cond BOH at psect + offset)\n"));
6416 evax_bfd_print_etir_stc_ir (file, buf, 1);
6417 break;
6418 case ETIR__C_STC_NBH_GBL:
6419 fprintf (file,
6420 _("STC_NBH_GBL (store cond or hint at global addr)\n"));
6421 break;
6422 case ETIR__C_STC_NBH_PS:
6423 fprintf (file,
6424 _("STC_NBH_PS (store cond or hint at psect + offset)\n"));
6425 break;
6426
6427 case ETIR__C_CTL_SETRB:
6428 fprintf (file, _("CTL_SETRB (set relocation base)\n"));
6429 sec_len += 4;
6430 break;
6431 case ETIR__C_CTL_AUGRB:
6432 {
6433 unsigned int val = bfd_getl32 (buf);
6434 fprintf (file, _("CTL_AUGRB (augment relocation base) %u\n"), val);
6435 }
6436 break;
6437 case ETIR__C_CTL_DFLOC:
6438 fprintf (file, _("CTL_DFLOC (define location)\n"));
6439 break;
6440 case ETIR__C_CTL_STLOC:
6441 fprintf (file, _("CTL_STLOC (set location)\n"));
6442 break;
6443 case ETIR__C_CTL_STKDL:
6444 fprintf (file, _("CTL_STKDL (stack defined location)\n"));
6445 break;
6446 default:
6447 fprintf (file, _("*unhandled*\n"));
6448 break;
6449 }
6450 off += size;
6451 }
6452 }
6453
6454 static void
6455 evax_bfd_print_eobj (struct bfd *abfd, FILE *file)
6456 {
6457 bfd_boolean is_first = TRUE;
6458 bfd_boolean has_records = FALSE;
6459
6460 while (1)
6461 {
6462 unsigned int rec_len;
6463 unsigned int pad_len;
6464 unsigned char *rec;
6465 unsigned int hdr_size;
6466 unsigned int type;
6467
6468 if (is_first)
6469 {
6470 unsigned char buf[6];
6471
6472 is_first = FALSE;
6473
6474 /* Read 6 bytes. */
6475 if (bfd_bread (buf, sizeof (buf), abfd) != sizeof (buf))
6476 {
6477 fprintf (file, _("cannot read GST record length\n"));
6478 return;
6479 }
6480 rec_len = bfd_getl16 (buf + 0);
6481 if (rec_len == bfd_getl16 (buf + 4)
6482 && bfd_getl16 (buf + 2) == EOBJ__C_EMH)
6483 {
6484 /* The format is raw: record-size, type, record-size. */
6485 has_records = TRUE;
6486 pad_len = (rec_len + 1) & ~1U;
6487 hdr_size = 4;
6488 }
6489 else if (rec_len == EOBJ__C_EMH)
6490 {
6491 has_records = FALSE;
6492 pad_len = bfd_getl16 (buf + 2);
6493 hdr_size = 6;
6494 }
6495 else
6496 {
6497 /* Ill-formed. */
6498 fprintf (file, _("cannot find EMH in first GST record\n"));
6499 return;
6500 }
6501 rec = bfd_malloc (pad_len);
6502 memcpy (rec, buf + sizeof (buf) - hdr_size, hdr_size);
6503 }
6504 else
6505 {
6506 unsigned int rec_len2 = 0;
6507 unsigned char hdr[4];
6508
6509 if (has_records)
6510 {
6511 unsigned char buf_len[2];
6512
6513 if (bfd_bread (buf_len, sizeof (buf_len), abfd)
6514 != sizeof (buf_len))
6515 {
6516 fprintf (file, _("cannot read GST record length\n"));
6517 return;
6518 }
6519 rec_len2 = (unsigned)bfd_getl16 (buf_len);
6520 }
6521
6522 if (bfd_bread (hdr, sizeof (hdr), abfd) != sizeof (hdr))
6523 {
6524 fprintf (file, _("cannot read GST record header\n"));
6525 return;
6526 }
6527 rec_len = (unsigned)bfd_getl16 (hdr + 2);
6528 if (has_records)
6529 pad_len = (rec_len + 1) & ~1U;
6530 else
6531 pad_len = rec_len;
6532 rec = bfd_malloc (pad_len);
6533 memcpy (rec, hdr, sizeof (hdr));
6534 hdr_size = sizeof (hdr);
6535 if (has_records && rec_len2 != rec_len)
6536 {
6537 fprintf (file, _(" corrupted GST\n"));
6538 break;
6539 }
6540 }
6541
6542 if (bfd_bread (rec + hdr_size, pad_len - hdr_size, abfd)
6543 != pad_len - hdr_size)
6544 {
6545 fprintf (file, _("cannot read GST record\n"));
6546 return;
6547 }
6548
6549 type = (unsigned)bfd_getl16 (rec);
6550
6551 switch (type)
6552 {
6553 case EOBJ__C_EMH:
6554 evax_bfd_print_emh (file, rec, rec_len);
6555 break;
6556 case EOBJ__C_EGSD:
6557 evax_bfd_print_egsd (file, rec, rec_len);
6558 break;
6559 case EOBJ__C_EEOM:
6560 evax_bfd_print_eeom (file, rec, rec_len);
6561 free (rec);
6562 return;
6563 break;
6564 case EOBJ__C_ETIR:
6565 evax_bfd_print_etir (file, "ETIR", rec, rec_len);
6566 break;
6567 case EOBJ__C_EDBG:
6568 evax_bfd_print_etir (file, "EDBG", rec, rec_len);
6569 break;
6570 case EOBJ__C_ETBT:
6571 evax_bfd_print_etir (file, "ETBT", rec, rec_len);
6572 break;
6573 default:
6574 fprintf (file, _(" unhandled EOBJ record type %u\n"), type);
6575 break;
6576 }
6577 free (rec);
6578 }
6579 }
6580
6581 static void
6582 evax_bfd_print_relocation_records (FILE *file, const unsigned char *rel,
6583 unsigned int stride)
6584 {
6585 while (1)
6586 {
6587 unsigned int base;
6588 unsigned int count;
6589 unsigned int j;
6590
6591 count = bfd_getl32 (rel + 0);
6592
6593 if (count == 0)
6594 break;
6595 base = bfd_getl32 (rel + 4);
6596
6597 /* xgettext:c-format */
6598 fprintf (file, _(" bitcount: %u, base addr: 0x%08x\n"),
6599 count, base);
6600
6601 rel += 8;
6602 for (j = 0; count > 0; j += 4, count -= 32)
6603 {
6604 unsigned int k;
6605 unsigned int n = 0;
6606 unsigned int val;
6607
6608 val = bfd_getl32 (rel);
6609 rel += 4;
6610
6611 /* xgettext:c-format */
6612 fprintf (file, _(" bitmap: 0x%08x (count: %u):\n"), val, count);
6613
6614 for (k = 0; k < 32; k++)
6615 if (val & (1 << k))
6616 {
6617 if (n == 0)
6618 fputs (" ", file);
6619 fprintf (file, _(" %08x"), base + (j * 8 + k) * stride);
6620 n++;
6621 if (n == 8)
6622 {
6623 fputs ("\n", file);
6624 n = 0;
6625 }
6626 }
6627 if (n)
6628 fputs ("\n", file);
6629 }
6630 }
6631 }
6632
6633 static void
6634 evax_bfd_print_address_fixups (FILE *file, const unsigned char *rel)
6635 {
6636 while (1)
6637 {
6638 unsigned int j;
6639 unsigned int count;
6640
6641 count = bfd_getl32 (rel + 0);
6642 if (count == 0)
6643 return;
6644 /* xgettext:c-format */
6645 fprintf (file, _(" image %u (%u entries)\n"),
6646 (unsigned)bfd_getl32 (rel + 4), count);
6647 rel += 8;
6648 for (j = 0; j < count; j++)
6649 {
6650 /* xgettext:c-format */
6651 fprintf (file, _(" offset: 0x%08x, val: 0x%08x\n"),
6652 (unsigned)bfd_getl32 (rel + 0),
6653 (unsigned)bfd_getl32 (rel + 4));
6654 rel += 8;
6655 }
6656 }
6657 }
6658
6659 static void
6660 evax_bfd_print_reference_fixups (FILE *file, const unsigned char *rel)
6661 {
6662 unsigned int count;
6663
6664 while (1)
6665 {
6666 unsigned int j;
6667 unsigned int n = 0;
6668
6669 count = bfd_getl32 (rel + 0);
6670 if (count == 0)
6671 break;
6672 /* xgettext:c-format */
6673 fprintf (file, _(" image %u (%u entries), offsets:\n"),
6674 (unsigned)bfd_getl32 (rel + 4), count);
6675 rel += 8;
6676 for (j = 0; j < count; j++)
6677 {
6678 if (n == 0)
6679 fputs (" ", file);
6680 fprintf (file, _(" 0x%08x"), (unsigned)bfd_getl32 (rel));
6681 n++;
6682 if (n == 7)
6683 {
6684 fputs ("\n", file);
6685 n = 0;
6686 }
6687 rel += 4;
6688 }
6689 if (n)
6690 fputs ("\n", file);
6691 }
6692 }
6693
6694 static void
6695 evax_bfd_print_indent (int indent, FILE *file)
6696 {
6697 for (; indent; indent--)
6698 fputc (' ', file);
6699 }
6700
6701 static const char *
6702 evax_bfd_get_dsc_name (unsigned int v)
6703 {
6704 switch (v)
6705 {
6706 case DSC__K_DTYPE_Z:
6707 return "Z (Unspecified)";
6708 case DSC__K_DTYPE_V:
6709 return "V (Bit)";
6710 case DSC__K_DTYPE_BU:
6711 return "BU (Byte logical)";
6712 case DSC__K_DTYPE_WU:
6713 return "WU (Word logical)";
6714 case DSC__K_DTYPE_LU:
6715 return "LU (Longword logical)";
6716 case DSC__K_DTYPE_QU:
6717 return "QU (Quadword logical)";
6718 case DSC__K_DTYPE_B:
6719 return "B (Byte integer)";
6720 case DSC__K_DTYPE_W:
6721 return "W (Word integer)";
6722 case DSC__K_DTYPE_L:
6723 return "L (Longword integer)";
6724 case DSC__K_DTYPE_Q:
6725 return "Q (Quadword integer)";
6726 case DSC__K_DTYPE_F:
6727 return "F (Single-precision floating)";
6728 case DSC__K_DTYPE_D:
6729 return "D (Double-precision floating)";
6730 case DSC__K_DTYPE_FC:
6731 return "FC (Complex)";
6732 case DSC__K_DTYPE_DC:
6733 return "DC (Double-precision Complex)";
6734 case DSC__K_DTYPE_T:
6735 return "T (ASCII text string)";
6736 case DSC__K_DTYPE_NU:
6737 return "NU (Numeric string, unsigned)";
6738 case DSC__K_DTYPE_NL:
6739 return "NL (Numeric string, left separate sign)";
6740 case DSC__K_DTYPE_NLO:
6741 return "NLO (Numeric string, left overpunched sign)";
6742 case DSC__K_DTYPE_NR:
6743 return "NR (Numeric string, right separate sign)";
6744 case DSC__K_DTYPE_NRO:
6745 return "NRO (Numeric string, right overpunched sig)";
6746 case DSC__K_DTYPE_NZ:
6747 return "NZ (Numeric string, zoned sign)";
6748 case DSC__K_DTYPE_P:
6749 return "P (Packed decimal string)";
6750 case DSC__K_DTYPE_ZI:
6751 return "ZI (Sequence of instructions)";
6752 case DSC__K_DTYPE_ZEM:
6753 return "ZEM (Procedure entry mask)";
6754 case DSC__K_DTYPE_DSC:
6755 return "DSC (Descriptor, used for arrays of dyn strings)";
6756 case DSC__K_DTYPE_OU:
6757 return "OU (Octaword logical)";
6758 case DSC__K_DTYPE_O:
6759 return "O (Octaword integer)";
6760 case DSC__K_DTYPE_G:
6761 return "G (Double precision G floating, 64 bit)";
6762 case DSC__K_DTYPE_H:
6763 return "H (Quadruple precision floating, 128 bit)";
6764 case DSC__K_DTYPE_GC:
6765 return "GC (Double precision complex, G floating)";
6766 case DSC__K_DTYPE_HC:
6767 return "HC (Quadruple precision complex, H floating)";
6768 case DSC__K_DTYPE_CIT:
6769 return "CIT (COBOL intermediate temporary)";
6770 case DSC__K_DTYPE_BPV:
6771 return "BPV (Bound Procedure Value)";
6772 case DSC__K_DTYPE_BLV:
6773 return "BLV (Bound Label Value)";
6774 case DSC__K_DTYPE_VU:
6775 return "VU (Bit Unaligned)";
6776 case DSC__K_DTYPE_ADT:
6777 return "ADT (Absolute Date-Time)";
6778 case DSC__K_DTYPE_VT:
6779 return "VT (Varying Text)";
6780 case DSC__K_DTYPE_T2:
6781 return "T2 (16-bit char)";
6782 case DSC__K_DTYPE_VT2:
6783 return "VT2 (16-bit varying char)";
6784 default:
6785 return "?? (unknown)";
6786 }
6787 }
6788
6789 static void
6790 evax_bfd_print_desc (const unsigned char *buf, int indent, FILE *file)
6791 {
6792 unsigned char bclass = buf[3];
6793 unsigned char dtype = buf[2];
6794 unsigned int len = (unsigned)bfd_getl16 (buf);
6795 unsigned int pointer = (unsigned)bfd_getl32 (buf + 4);
6796
6797 evax_bfd_print_indent (indent, file);
6798
6799 if (len == 1 && pointer == 0xffffffffUL)
6800 {
6801 /* 64 bits. */
6802 fprintf (file, _("64 bits *unhandled*\n"));
6803 }
6804 else
6805 {
6806 /* xgettext:c-format */
6807 fprintf (file, _("class: %u, dtype: %u, length: %u, pointer: 0x%08x\n"),
6808 bclass, dtype, len, pointer);
6809 switch (bclass)
6810 {
6811 case DSC__K_CLASS_NCA:
6812 {
6813 const struct vms_dsc_nca *dsc = (const void *)buf;
6814 unsigned int i;
6815 const unsigned char *b;
6816
6817 evax_bfd_print_indent (indent, file);
6818 fprintf (file, _("non-contiguous array of %s\n"),
6819 evax_bfd_get_dsc_name (dsc->dtype));
6820 evax_bfd_print_indent (indent + 1, file);
6821 fprintf (file,
6822 /* xgettext:c-format */
6823 _("dimct: %u, aflags: 0x%02x, digits: %u, scale: %u\n"),
6824 dsc->dimct, dsc->aflags, dsc->digits, dsc->scale);
6825 evax_bfd_print_indent (indent + 1, file);
6826 fprintf (file,
6827 /* xgettext:c-format */
6828 _("arsize: %u, a0: 0x%08x\n"),
6829 (unsigned)bfd_getl32 (dsc->arsize),
6830 (unsigned)bfd_getl32 (dsc->a0));
6831 evax_bfd_print_indent (indent + 1, file);
6832 fprintf (file, _("Strides:\n"));
6833 b = buf + sizeof (*dsc);
6834 for (i = 0; i < dsc->dimct; i++)
6835 {
6836 evax_bfd_print_indent (indent + 2, file);
6837 fprintf (file, "[%u]: %u\n", i + 1,
6838 (unsigned)bfd_getl32 (b));
6839 b += 4;
6840 }
6841 evax_bfd_print_indent (indent + 1, file);
6842 fprintf (file, _("Bounds:\n"));
6843 b = buf + sizeof (*dsc);
6844 for (i = 0; i < dsc->dimct; i++)
6845 {
6846 evax_bfd_print_indent (indent + 2, file);
6847 /* xgettext:c-format */
6848 fprintf (file, _("[%u]: Lower: %u, upper: %u\n"), i + 1,
6849 (unsigned)bfd_getl32 (b + 0),
6850 (unsigned)bfd_getl32 (b + 4));
6851 b += 8;
6852 }
6853 }
6854 break;
6855 case DSC__K_CLASS_UBS:
6856 {
6857 const struct vms_dsc_ubs *ubs = (const void *)buf;
6858
6859 evax_bfd_print_indent (indent, file);
6860 fprintf (file, _("unaligned bit-string of %s\n"),
6861 evax_bfd_get_dsc_name (ubs->dtype));
6862 evax_bfd_print_indent (indent + 1, file);
6863 fprintf (file,
6864 /* xgettext:c-format */
6865 _("base: %u, pos: %u\n"),
6866 (unsigned)bfd_getl32 (ubs->base),
6867 (unsigned)bfd_getl32 (ubs->pos));
6868 }
6869 break;
6870 default:
6871 fprintf (file, _("*unhandled*\n"));
6872 break;
6873 }
6874 }
6875 }
6876
6877 static unsigned int
6878 evax_bfd_print_valspec (const unsigned char *buf, int indent, FILE *file)
6879 {
6880 unsigned int vflags = buf[0];
6881 unsigned int value = (unsigned)bfd_getl32 (buf + 1);
6882 unsigned int len = 5;
6883
6884 evax_bfd_print_indent (indent, file);
6885 /* xgettext:c-format */
6886 fprintf (file, _("vflags: 0x%02x, value: 0x%08x "), vflags, value);
6887 buf += 5;
6888
6889 switch (vflags)
6890 {
6891 case DST__K_VFLAGS_NOVAL:
6892 fprintf (file, _("(no value)\n"));
6893 break;
6894 case DST__K_VFLAGS_NOTACTIVE:
6895 fprintf (file, _("(not active)\n"));
6896 break;
6897 case DST__K_VFLAGS_UNALLOC:
6898 fprintf (file, _("(not allocated)\n"));
6899 break;
6900 case DST__K_VFLAGS_DSC:
6901 fprintf (file, _("(descriptor)\n"));
6902 evax_bfd_print_desc (buf + value, indent + 1, file);
6903 break;
6904 case DST__K_VFLAGS_TVS:
6905 fprintf (file, _("(trailing value)\n"));
6906 break;
6907 case DST__K_VS_FOLLOWS:
6908 fprintf (file, _("(value spec follows)\n"));
6909 break;
6910 case DST__K_VFLAGS_BITOFFS:
6911 fprintf (file, _("(at bit offset %u)\n"), value);
6912 break;
6913 default:
6914 /* xgettext:c-format */
6915 fprintf (file, _("(reg: %u, disp: %u, indir: %u, kind: "),
6916 (vflags & DST__K_REGNUM_MASK) >> DST__K_REGNUM_SHIFT,
6917 vflags & DST__K_DISP ? 1 : 0,
6918 vflags & DST__K_INDIR ? 1 : 0);
6919 switch (vflags & DST__K_VALKIND_MASK)
6920 {
6921 case DST__K_VALKIND_LITERAL:
6922 fputs (_("literal"), file);
6923 break;
6924 case DST__K_VALKIND_ADDR:
6925 fputs (_("address"), file);
6926 break;
6927 case DST__K_VALKIND_DESC:
6928 fputs (_("desc"), file);
6929 break;
6930 case DST__K_VALKIND_REG:
6931 fputs (_("reg"), file);
6932 break;
6933 }
6934 fputs (")\n", file);
6935 break;
6936 }
6937 return len;
6938 }
6939
6940 static void
6941 evax_bfd_print_typspec (const unsigned char *buf, int indent, FILE *file)
6942 {
6943 unsigned char kind = buf[2];
6944 unsigned int len = (unsigned)bfd_getl16 (buf);
6945
6946 evax_bfd_print_indent (indent, file);
6947 /* xgettext:c-format */
6948 fprintf (file, _("len: %2u, kind: %2u "), len, kind);
6949 buf += 3;
6950 switch (kind)
6951 {
6952 case DST__K_TS_ATOM:
6953 /* xgettext:c-format */
6954 fprintf (file, _("atomic, type=0x%02x %s\n"),
6955 buf[0], evax_bfd_get_dsc_name (buf[0]));
6956 break;
6957 case DST__K_TS_IND:
6958 fprintf (file, _("indirect, defined at 0x%08x\n"),
6959 (unsigned)bfd_getl32 (buf));
6960 break;
6961 case DST__K_TS_TPTR:
6962 fprintf (file, _("typed pointer\n"));
6963 evax_bfd_print_typspec (buf, indent + 1, file);
6964 break;
6965 case DST__K_TS_PTR:
6966 fprintf (file, _("pointer\n"));
6967 break;
6968 case DST__K_TS_ARRAY:
6969 {
6970 const unsigned char *vs;
6971 unsigned int vec_len;
6972 unsigned int i;
6973
6974 fprintf (file, _("array, dim: %u, bitmap: "), buf[0]);
6975 vec_len = (buf[0] + 1 + 7) / 8;
6976 for (i = 0; i < vec_len; i++)
6977 fprintf (file, " %02x", buf[i + 1]);
6978 fputc ('\n', file);
6979 vs = buf + 1 + vec_len;
6980 evax_bfd_print_indent (indent, file);
6981 fprintf (file, _("array descriptor:\n"));
6982 vs += evax_bfd_print_valspec (vs, indent + 1, file);
6983 for (i = 0; i < buf[0] + 1U; i++)
6984 if (buf[1 + i / 8] & (1 << (i % 8)))
6985 {
6986 evax_bfd_print_indent (indent, file);
6987 if (i == 0)
6988 fprintf (file, _("type spec for element:\n"));
6989 else
6990 fprintf (file, _("type spec for subscript %u:\n"), i);
6991 evax_bfd_print_typspec (vs, indent + 1, file);
6992 vs += bfd_getl16 (vs);
6993 }
6994 }
6995 break;
6996 default:
6997 fprintf (file, _("*unhandled*\n"));
6998 }
6999 }
7000
7001 static void
7002 evax_bfd_print_dst (struct bfd *abfd, unsigned int dst_size, FILE *file)
7003 {
7004 unsigned int off = 0;
7005 unsigned int pc = 0;
7006 unsigned int line = 0;
7007
7008 fprintf (file, _("Debug symbol table:\n"));
7009
7010 while (dst_size > 0)
7011 {
7012 struct vms_dst_header dsth;
7013 unsigned int len;
7014 unsigned int type;
7015 unsigned char *buf;
7016
7017 if (bfd_bread (&dsth, sizeof (dsth), abfd) != sizeof (dsth))
7018 {
7019 fprintf (file, _("cannot read DST header\n"));
7020 return;
7021 }
7022 len = bfd_getl16 (dsth.length);
7023 type = bfd_getl16 (dsth.type);
7024 /* xgettext:c-format */
7025 fprintf (file, _(" type: %3u, len: %3u (at 0x%08x): "),
7026 type, len, off);
7027 if (len == 0)
7028 {
7029 fputc ('\n', file);
7030 break;
7031 }
7032 len++;
7033 dst_size -= len;
7034 off += len;
7035 len -= sizeof (dsth);
7036 buf = bfd_malloc (len);
7037 if (bfd_bread (buf, len, abfd) != len)
7038 {
7039 fprintf (file, _("cannot read DST symbol\n"));
7040 return;
7041 }
7042 switch (type)
7043 {
7044 case DSC__K_DTYPE_V:
7045 case DSC__K_DTYPE_BU:
7046 case DSC__K_DTYPE_WU:
7047 case DSC__K_DTYPE_LU:
7048 case DSC__K_DTYPE_QU:
7049 case DSC__K_DTYPE_B:
7050 case DSC__K_DTYPE_W:
7051 case DSC__K_DTYPE_L:
7052 case DSC__K_DTYPE_Q:
7053 case DSC__K_DTYPE_F:
7054 case DSC__K_DTYPE_D:
7055 case DSC__K_DTYPE_FC:
7056 case DSC__K_DTYPE_DC:
7057 case DSC__K_DTYPE_T:
7058 case DSC__K_DTYPE_NU:
7059 case DSC__K_DTYPE_NL:
7060 case DSC__K_DTYPE_NLO:
7061 case DSC__K_DTYPE_NR:
7062 case DSC__K_DTYPE_NRO:
7063 case DSC__K_DTYPE_NZ:
7064 case DSC__K_DTYPE_P:
7065 case DSC__K_DTYPE_ZI:
7066 case DSC__K_DTYPE_ZEM:
7067 case DSC__K_DTYPE_DSC:
7068 case DSC__K_DTYPE_OU:
7069 case DSC__K_DTYPE_O:
7070 case DSC__K_DTYPE_G:
7071 case DSC__K_DTYPE_H:
7072 case DSC__K_DTYPE_GC:
7073 case DSC__K_DTYPE_HC:
7074 case DSC__K_DTYPE_CIT:
7075 case DSC__K_DTYPE_BPV:
7076 case DSC__K_DTYPE_BLV:
7077 case DSC__K_DTYPE_VU:
7078 case DSC__K_DTYPE_ADT:
7079 case DSC__K_DTYPE_VT:
7080 case DSC__K_DTYPE_T2:
7081 case DSC__K_DTYPE_VT2:
7082 fprintf (file, _("standard data: %s\n"),
7083 evax_bfd_get_dsc_name (type));
7084 evax_bfd_print_valspec (buf, 4, file);
7085 fprintf (file, _(" name: %.*s\n"), buf[5], buf + 6);
7086 break;
7087 case DST__K_MODBEG:
7088 {
7089 struct vms_dst_modbeg *dst = (void *)buf;
7090 const char *name = (const char *)buf + sizeof (*dst);
7091
7092 fprintf (file, _("modbeg\n"));
7093 /* xgettext:c-format */
7094 fprintf (file, _(" flags: %d, language: %u, "
7095 "major: %u, minor: %u\n"),
7096 dst->flags,
7097 (unsigned)bfd_getl32 (dst->language),
7098 (unsigned)bfd_getl16 (dst->major),
7099 (unsigned)bfd_getl16 (dst->minor));
7100 fprintf (file, _(" module name: %.*s\n"),
7101 name[0], name + 1);
7102 name += name[0] + 1;
7103 fprintf (file, _(" compiler : %.*s\n"),
7104 name[0], name + 1);
7105 }
7106 break;
7107 case DST__K_MODEND:
7108 fprintf (file, _("modend\n"));
7109 break;
7110 case DST__K_RTNBEG:
7111 {
7112 struct vms_dst_rtnbeg *dst = (void *)buf;
7113 const char *name = (const char *)buf + sizeof (*dst);
7114
7115 fputs (_("rtnbeg\n"), file);
7116 /* xgettext:c-format */
7117 fprintf (file, _(" flags: %u, address: 0x%08x, "
7118 "pd-address: 0x%08x\n"),
7119 dst->flags,
7120 (unsigned)bfd_getl32 (dst->address),
7121 (unsigned)bfd_getl32 (dst->pd_address));
7122 fprintf (file, _(" routine name: %.*s\n"),
7123 name[0], name + 1);
7124 }
7125 break;
7126 case DST__K_RTNEND:
7127 {
7128 struct vms_dst_rtnend *dst = (void *)buf;
7129
7130 fprintf (file, _("rtnend: size 0x%08x\n"),
7131 (unsigned)bfd_getl32 (dst->size));
7132 }
7133 break;
7134 case DST__K_PROLOG:
7135 {
7136 struct vms_dst_prolog *dst = (void *)buf;
7137
7138 fprintf (file, _("prolog: bkpt address 0x%08x\n"),
7139 (unsigned)bfd_getl32 (dst->bkpt_addr));
7140 }
7141 break;
7142 case DST__K_EPILOG:
7143 {
7144 struct vms_dst_epilog *dst = (void *)buf;
7145
7146 /* xgettext:c-format */
7147 fprintf (file, _("epilog: flags: %u, count: %u\n"),
7148 dst->flags, (unsigned)bfd_getl32 (dst->count));
7149 }
7150 break;
7151 case DST__K_BLKBEG:
7152 {
7153 struct vms_dst_blkbeg *dst = (void *)buf;
7154 const char *name = (const char *)buf + sizeof (*dst);
7155
7156 /* xgettext:c-format */
7157 fprintf (file, _("blkbeg: address: 0x%08x, name: %.*s\n"),
7158 (unsigned)bfd_getl32 (dst->address),
7159 name[0], name + 1);
7160 }
7161 break;
7162 case DST__K_BLKEND:
7163 {
7164 struct vms_dst_blkend *dst = (void *)buf;
7165
7166 fprintf (file, _("blkend: size: 0x%08x\n"),
7167 (unsigned)bfd_getl32 (dst->size));
7168 }
7169 break;
7170 case DST__K_TYPSPEC:
7171 {
7172 fprintf (file, _("typspec (len: %u)\n"), len);
7173 fprintf (file, _(" name: %.*s\n"), buf[0], buf + 1);
7174 evax_bfd_print_typspec (buf + 1 + buf[0], 5, file);
7175 }
7176 break;
7177 case DST__K_SEPTYP:
7178 {
7179 fprintf (file, _("septyp, name: %.*s\n"), buf[5], buf + 6);
7180 evax_bfd_print_valspec (buf, 4, file);
7181 }
7182 break;
7183 case DST__K_RECBEG:
7184 {
7185 struct vms_dst_recbeg *recbeg = (void *)buf;
7186 const char *name = (const char *)buf + sizeof (*recbeg);
7187
7188 fprintf (file, _("recbeg: name: %.*s\n"), name[0], name + 1);
7189 evax_bfd_print_valspec (buf, 4, file);
7190 fprintf (file, _(" len: %u bits\n"),
7191 (unsigned)bfd_getl32 (name + 1 + name[0]));
7192 }
7193 break;
7194 case DST__K_RECEND:
7195 fprintf (file, _("recend\n"));
7196 break;
7197 case DST__K_ENUMBEG:
7198 /* xgettext:c-format */
7199 fprintf (file, _("enumbeg, len: %u, name: %.*s\n"),
7200 buf[0], buf[1], buf + 2);
7201 break;
7202 case DST__K_ENUMELT:
7203 fprintf (file, _("enumelt, name: %.*s\n"), buf[5], buf + 6);
7204 evax_bfd_print_valspec (buf, 4, file);
7205 break;
7206 case DST__K_ENUMEND:
7207 fprintf (file, _("enumend\n"));
7208 break;
7209 case DST__K_LABEL:
7210 {
7211 struct vms_dst_label *lab = (void *)buf;
7212 fprintf (file, _("label, name: %.*s\n"),
7213 lab->name[0], lab->name + 1);
7214 fprintf (file, _(" address: 0x%08x\n"),
7215 (unsigned)bfd_getl32 (lab->value));
7216 }
7217 break;
7218 case DST__K_DIS_RANGE:
7219 {
7220 unsigned int cnt = bfd_getl32 (buf);
7221 unsigned char *rng = buf + 4;
7222 unsigned int i;
7223
7224 fprintf (file, _("discontiguous range (nbr: %u)\n"), cnt);
7225 for (i = 0; i < cnt; i++, rng += 8)
7226 /* xgettext:c-format */
7227 fprintf (file, _(" address: 0x%08x, size: %u\n"),
7228 (unsigned)bfd_getl32 (rng),
7229 (unsigned)bfd_getl32 (rng + 4));
7230
7231 }
7232 break;
7233 case DST__K_LINE_NUM:
7234 {
7235 unsigned char *buf_orig = buf;
7236
7237 fprintf (file, _("line num (len: %u)\n"), len);
7238
7239 while (len > 0)
7240 {
7241 signed char cmd;
7242 unsigned char cmdlen;
7243 unsigned int val;
7244
7245 cmd = buf[0];
7246 cmdlen = 0;
7247
7248 fputs (" ", file);
7249
7250 switch (cmd)
7251 {
7252 case DST__K_DELTA_PC_W:
7253 val = bfd_getl16 (buf + 1);
7254 fprintf (file, _("delta_pc_w %u\n"), val);
7255 pc += val;
7256 line++;
7257 cmdlen = 3;
7258 break;
7259 case DST__K_INCR_LINUM:
7260 val = buf[1];
7261 fprintf (file, _("incr_linum(b): +%u\n"), val);
7262 line += val;
7263 cmdlen = 2;
7264 break;
7265 case DST__K_INCR_LINUM_W:
7266 val = bfd_getl16 (buf + 1);
7267 fprintf (file, _("incr_linum_w: +%u\n"), val);
7268 line += val;
7269 cmdlen = 3;
7270 break;
7271 case DST__K_INCR_LINUM_L:
7272 val = bfd_getl32 (buf + 1);
7273 fprintf (file, _("incr_linum_l: +%u\n"), val);
7274 line += val;
7275 cmdlen = 5;
7276 break;
7277 case DST__K_SET_LINUM:
7278 line = bfd_getl16 (buf + 1);
7279 fprintf (file, _("set_line_num(w) %u\n"), line);
7280 cmdlen = 3;
7281 break;
7282 case DST__K_SET_LINUM_B:
7283 line = buf[1];
7284 fprintf (file, _("set_line_num_b %u\n"), line);
7285 cmdlen = 2;
7286 break;
7287 case DST__K_SET_LINUM_L:
7288 line = bfd_getl32 (buf + 1);
7289 fprintf (file, _("set_line_num_l %u\n"), line);
7290 cmdlen = 5;
7291 break;
7292 case DST__K_SET_ABS_PC:
7293 pc = bfd_getl32 (buf + 1);
7294 fprintf (file, _("set_abs_pc: 0x%08x\n"), pc);
7295 cmdlen = 5;
7296 break;
7297 case DST__K_DELTA_PC_L:
7298 fprintf (file, _("delta_pc_l: +0x%08x\n"),
7299 (unsigned)bfd_getl32 (buf + 1));
7300 cmdlen = 5;
7301 break;
7302 case DST__K_TERM:
7303 fprintf (file, _("term(b): 0x%02x"), buf[1]);
7304 pc += buf[1];
7305 fprintf (file, _(" pc: 0x%08x\n"), pc);
7306 cmdlen = 2;
7307 break;
7308 case DST__K_TERM_W:
7309 val = bfd_getl16 (buf + 1);
7310 fprintf (file, _("term_w: 0x%04x"), val);
7311 pc += val;
7312 fprintf (file, _(" pc: 0x%08x\n"), pc);
7313 cmdlen = 3;
7314 break;
7315 default:
7316 if (cmd <= 0)
7317 {
7318 fprintf (file, _("delta pc +%-4d"), -cmd);
7319 line++; /* FIXME: curr increment. */
7320 pc += -cmd;
7321 /* xgettext:c-format */
7322 fprintf (file, _(" pc: 0x%08x line: %5u\n"),
7323 pc, line);
7324 cmdlen = 1;
7325 }
7326 else
7327 fprintf (file, _(" *unhandled* cmd %u\n"), cmd);
7328 break;
7329 }
7330 if (cmdlen == 0)
7331 break;
7332 len -= cmdlen;
7333 buf += cmdlen;
7334 }
7335 buf = buf_orig;
7336 }
7337 break;
7338 case DST__K_SOURCE:
7339 {
7340 unsigned char *buf_orig = buf;
7341
7342 fprintf (file, _("source (len: %u)\n"), len);
7343
7344 while (len > 0)
7345 {
7346 signed char cmd = buf[0];
7347 unsigned char cmdlen = 0;
7348
7349 switch (cmd)
7350 {
7351 case DST__K_SRC_DECLFILE:
7352 {
7353 struct vms_dst_src_decl_src *src = (void *)(buf + 1);
7354 const char *name;
7355
7356 /* xgettext:c-format */
7357 fprintf (file, _(" declfile: len: %u, flags: %u, "
7358 "fileid: %u\n"),
7359 src->length, src->flags,
7360 (unsigned)bfd_getl16 (src->fileid));
7361 /* xgettext:c-format */
7362 fprintf (file, _(" rms: cdt: 0x%08x %08x, "
7363 "ebk: 0x%08x, ffb: 0x%04x, "
7364 "rfo: %u\n"),
7365 (unsigned)bfd_getl32 (src->rms_cdt + 4),
7366 (unsigned)bfd_getl32 (src->rms_cdt + 0),
7367 (unsigned)bfd_getl32 (src->rms_ebk),
7368 (unsigned)bfd_getl16 (src->rms_ffb),
7369 src->rms_rfo);
7370 name = (const char *)buf + 1 + sizeof (*src);
7371 fprintf (file, _(" filename : %.*s\n"),
7372 name[0], name + 1);
7373 name += name[0] + 1;
7374 fprintf (file, _(" module name: %.*s\n"),
7375 name[0], name + 1);
7376 cmdlen = 2 + src->length;
7377 }
7378 break;
7379 case DST__K_SRC_SETFILE:
7380 fprintf (file, _(" setfile %u\n"),
7381 (unsigned)bfd_getl16 (buf + 1));
7382 cmdlen = 3;
7383 break;
7384 case DST__K_SRC_SETREC_W:
7385 fprintf (file, _(" setrec %u\n"),
7386 (unsigned)bfd_getl16 (buf + 1));
7387 cmdlen = 3;
7388 break;
7389 case DST__K_SRC_SETREC_L:
7390 fprintf (file, _(" setrec %u\n"),
7391 (unsigned)bfd_getl32 (buf + 1));
7392 cmdlen = 5;
7393 break;
7394 case DST__K_SRC_SETLNUM_W:
7395 fprintf (file, _(" setlnum %u\n"),
7396 (unsigned)bfd_getl16 (buf + 1));
7397 cmdlen = 3;
7398 break;
7399 case DST__K_SRC_SETLNUM_L:
7400 fprintf (file, _(" setlnum %u\n"),
7401 (unsigned)bfd_getl32 (buf + 1));
7402 cmdlen = 5;
7403 break;
7404 case DST__K_SRC_DEFLINES_W:
7405 fprintf (file, _(" deflines %u\n"),
7406 (unsigned)bfd_getl16 (buf + 1));
7407 cmdlen = 3;
7408 break;
7409 case DST__K_SRC_DEFLINES_B:
7410 fprintf (file, _(" deflines %u\n"), buf[1]);
7411 cmdlen = 2;
7412 break;
7413 case DST__K_SRC_FORMFEED:
7414 fprintf (file, _(" formfeed\n"));
7415 cmdlen = 1;
7416 break;
7417 default:
7418 fprintf (file, _(" *unhandled* cmd %u\n"), cmd);
7419 break;
7420 }
7421 if (cmdlen == 0)
7422 break;
7423 len -= cmdlen;
7424 buf += cmdlen;
7425 }
7426 buf = buf_orig;
7427 }
7428 break;
7429 default:
7430 fprintf (file, _("*unhandled* dst type %u\n"), type);
7431 break;
7432 }
7433 free (buf);
7434 }
7435 }
7436
7437 static void
7438 evax_bfd_print_image (bfd *abfd, FILE *file)
7439 {
7440 struct vms_eihd eihd;
7441 const char *name;
7442 unsigned int val;
7443 unsigned int eiha_off;
7444 unsigned int eihi_off;
7445 unsigned int eihs_off;
7446 unsigned int eisd_off;
7447 unsigned int eihef_off = 0;
7448 unsigned int eihnp_off = 0;
7449 unsigned int dmt_vbn = 0;
7450 unsigned int dmt_size = 0;
7451 unsigned int dst_vbn = 0;
7452 unsigned int dst_size = 0;
7453 unsigned int gst_vbn = 0;
7454 unsigned int gst_size = 0;
7455 unsigned int eiaf_vbn = 0;
7456 unsigned int eiaf_size = 0;
7457 unsigned int eihvn_off;
7458
7459 if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET)
7460 || bfd_bread (&eihd, sizeof (eihd), abfd) != sizeof (eihd))
7461 {
7462 fprintf (file, _("cannot read EIHD\n"));
7463 return;
7464 }
7465 /* xgettext:c-format */
7466 fprintf (file, _("EIHD: (size: %u, nbr blocks: %u)\n"),
7467 (unsigned)bfd_getl32 (eihd.size),
7468 (unsigned)bfd_getl32 (eihd.hdrblkcnt));
7469 /* xgettext:c-format */
7470 fprintf (file, _(" majorid: %u, minorid: %u\n"),
7471 (unsigned)bfd_getl32 (eihd.majorid),
7472 (unsigned)bfd_getl32 (eihd.minorid));
7473
7474 val = (unsigned)bfd_getl32 (eihd.imgtype);
7475 switch (val)
7476 {
7477 case EIHD__K_EXE:
7478 name = _("executable");
7479 break;
7480 case EIHD__K_LIM:
7481 name = _("linkable image");
7482 break;
7483 default:
7484 name = _("unknown");
7485 break;
7486 }
7487 /* xgettext:c-format */
7488 fprintf (file, _(" image type: %u (%s)"), val, name);
7489
7490 val = (unsigned)bfd_getl32 (eihd.subtype);
7491 switch (val)
7492 {
7493 case EIHD__C_NATIVE:
7494 name = _("native");
7495 break;
7496 case EIHD__C_CLI:
7497 name = _("CLI");
7498 break;
7499 default:
7500 name = _("unknown");
7501 break;
7502 }
7503 /* xgettext:c-format */
7504 fprintf (file, _(", subtype: %u (%s)\n"), val, name);
7505
7506 eisd_off = bfd_getl32 (eihd.isdoff);
7507 eiha_off = bfd_getl32 (eihd.activoff);
7508 eihi_off = bfd_getl32 (eihd.imgidoff);
7509 eihs_off = bfd_getl32 (eihd.symdbgoff);
7510 /* xgettext:c-format */
7511 fprintf (file, _(" offsets: isd: %u, activ: %u, symdbg: %u, "
7512 "imgid: %u, patch: %u\n"),
7513 eisd_off, eiha_off, eihs_off, eihi_off,
7514 (unsigned)bfd_getl32 (eihd.patchoff));
7515 fprintf (file, _(" fixup info rva: "));
7516 bfd_fprintf_vma (abfd, file, bfd_getl64 (eihd.iafva));
7517 fprintf (file, _(", symbol vector rva: "));
7518 bfd_fprintf_vma (abfd, file, bfd_getl64 (eihd.symvva));
7519 eihvn_off = bfd_getl32 (eihd.version_array_off);
7520 fprintf (file, _("\n"
7521 " version array off: %u\n"),
7522 eihvn_off);
7523 fprintf (file,
7524 /* xgettext:c-format */
7525 _(" img I/O count: %u, nbr channels: %u, req pri: %08x%08x\n"),
7526 (unsigned)bfd_getl32 (eihd.imgiocnt),
7527 (unsigned)bfd_getl32 (eihd.iochancnt),
7528 (unsigned)bfd_getl32 (eihd.privreqs + 4),
7529 (unsigned)bfd_getl32 (eihd.privreqs + 0));
7530 val = (unsigned)bfd_getl32 (eihd.lnkflags);
7531 fprintf (file, _(" linker flags: %08x:"), val);
7532 if (val & EIHD__M_LNKDEBUG)
7533 fprintf (file, " LNKDEBUG");
7534 if (val & EIHD__M_LNKNOTFR)
7535 fprintf (file, " LNKNOTFR");
7536 if (val & EIHD__M_NOP0BUFS)
7537 fprintf (file, " NOP0BUFS");
7538 if (val & EIHD__M_PICIMG)
7539 fprintf (file, " PICIMG");
7540 if (val & EIHD__M_P0IMAGE)
7541 fprintf (file, " P0IMAGE");
7542 if (val & EIHD__M_DBGDMT)
7543 fprintf (file, " DBGDMT");
7544 if (val & EIHD__M_INISHR)
7545 fprintf (file, " INISHR");
7546 if (val & EIHD__M_XLATED)
7547 fprintf (file, " XLATED");
7548 if (val & EIHD__M_BIND_CODE_SEC)
7549 fprintf (file, " BIND_CODE_SEC");
7550 if (val & EIHD__M_BIND_DATA_SEC)
7551 fprintf (file, " BIND_DATA_SEC");
7552 if (val & EIHD__M_MKTHREADS)
7553 fprintf (file, " MKTHREADS");
7554 if (val & EIHD__M_UPCALLS)
7555 fprintf (file, " UPCALLS");
7556 if (val & EIHD__M_OMV_READY)
7557 fprintf (file, " OMV_READY");
7558 if (val & EIHD__M_EXT_BIND_SECT)
7559 fprintf (file, " EXT_BIND_SECT");
7560 fprintf (file, "\n");
7561 /* xgettext:c-format */
7562 fprintf (file, _(" ident: 0x%08x, sysver: 0x%08x, "
7563 "match ctrl: %u, symvect_size: %u\n"),
7564 (unsigned)bfd_getl32 (eihd.ident),
7565 (unsigned)bfd_getl32 (eihd.sysver),
7566 eihd.matchctl,
7567 (unsigned)bfd_getl32 (eihd.symvect_size));
7568 fprintf (file, _(" BPAGE: %u"),
7569 (unsigned)bfd_getl32 (eihd.virt_mem_block_size));
7570 if (val & (EIHD__M_OMV_READY | EIHD__M_EXT_BIND_SECT))
7571 {
7572 eihef_off = bfd_getl32 (eihd.ext_fixup_off);
7573 eihnp_off = bfd_getl32 (eihd.noopt_psect_off);
7574 /* xgettext:c-format */
7575 fprintf (file, _(", ext fixup offset: %u, no_opt psect off: %u"),
7576 eihef_off, eihnp_off);
7577 }
7578 fprintf (file, _(", alias: %u\n"), (unsigned)bfd_getl16 (eihd.alias));
7579
7580 if (eihvn_off != 0)
7581 {
7582 struct vms_eihvn eihvn;
7583 unsigned int mask;
7584 unsigned int j;
7585
7586 fprintf (file, _("system version array information:\n"));
7587 if (bfd_seek (abfd, (file_ptr) eihvn_off, SEEK_SET)
7588 || bfd_bread (&eihvn, sizeof (eihvn), abfd) != sizeof (eihvn))
7589 {
7590 fprintf (file, _("cannot read EIHVN header\n"));
7591 return;
7592 }
7593 mask = bfd_getl32 (eihvn.subsystem_mask);
7594 for (j = 0; j < 32; j++)
7595 if (mask & (1 << j))
7596 {
7597 struct vms_eihvn_subversion ver;
7598 if (bfd_bread (&ver, sizeof (ver), abfd) != sizeof (ver))
7599 {
7600 fprintf (file, _("cannot read EIHVN version\n"));
7601 return;
7602 }
7603 fprintf (file, _(" %02u "), j);
7604 switch (j)
7605 {
7606 case EIHVN__BASE_IMAGE_BIT:
7607 fputs (_("BASE_IMAGE "), file);
7608 break;
7609 case EIHVN__MEMORY_MANAGEMENT_BIT:
7610 fputs (_("MEMORY_MANAGEMENT"), file);
7611 break;
7612 case EIHVN__IO_BIT:
7613 fputs (_("IO "), file);
7614 break;
7615 case EIHVN__FILES_VOLUMES_BIT:
7616 fputs (_("FILES_VOLUMES "), file);
7617 break;
7618 case EIHVN__PROCESS_SCHED_BIT:
7619 fputs (_("PROCESS_SCHED "), file);
7620 break;
7621 case EIHVN__SYSGEN_BIT:
7622 fputs (_("SYSGEN "), file);
7623 break;
7624 case EIHVN__CLUSTERS_LOCKMGR_BIT:
7625 fputs (_("CLUSTERS_LOCKMGR "), file);
7626 break;
7627 case EIHVN__LOGICAL_NAMES_BIT:
7628 fputs (_("LOGICAL_NAMES "), file);
7629 break;
7630 case EIHVN__SECURITY_BIT:
7631 fputs (_("SECURITY "), file);
7632 break;
7633 case EIHVN__IMAGE_ACTIVATOR_BIT:
7634 fputs (_("IMAGE_ACTIVATOR "), file);
7635 break;
7636 case EIHVN__NETWORKS_BIT:
7637 fputs (_("NETWORKS "), file);
7638 break;
7639 case EIHVN__COUNTERS_BIT:
7640 fputs (_("COUNTERS "), file);
7641 break;
7642 case EIHVN__STABLE_BIT:
7643 fputs (_("STABLE "), file);
7644 break;
7645 case EIHVN__MISC_BIT:
7646 fputs (_("MISC "), file);
7647 break;
7648 case EIHVN__CPU_BIT:
7649 fputs (_("CPU "), file);
7650 break;
7651 case EIHVN__VOLATILE_BIT:
7652 fputs (_("VOLATILE "), file);
7653 break;
7654 case EIHVN__SHELL_BIT:
7655 fputs (_("SHELL "), file);
7656 break;
7657 case EIHVN__POSIX_BIT:
7658 fputs (_("POSIX "), file);
7659 break;
7660 case EIHVN__MULTI_PROCESSING_BIT:
7661 fputs (_("MULTI_PROCESSING "), file);
7662 break;
7663 case EIHVN__GALAXY_BIT:
7664 fputs (_("GALAXY "), file);
7665 break;
7666 default:
7667 fputs (_("*unknown* "), file);
7668 break;
7669 }
7670 fprintf (file, ": %u.%u\n",
7671 (unsigned)bfd_getl16 (ver.major),
7672 (unsigned)bfd_getl16 (ver.minor));
7673 }
7674 }
7675
7676 if (eiha_off != 0)
7677 {
7678 struct vms_eiha eiha;
7679
7680 if (bfd_seek (abfd, (file_ptr) eiha_off, SEEK_SET)
7681 || bfd_bread (&eiha, sizeof (eiha), abfd) != sizeof (eiha))
7682 {
7683 fprintf (file, _("cannot read EIHA\n"));
7684 return;
7685 }
7686 fprintf (file, _("Image activation: (size=%u)\n"),
7687 (unsigned)bfd_getl32 (eiha.size));
7688 /* xgettext:c-format */
7689 fprintf (file, _(" First address : 0x%08x 0x%08x\n"),
7690 (unsigned)bfd_getl32 (eiha.tfradr1_h),
7691 (unsigned)bfd_getl32 (eiha.tfradr1));
7692 /* xgettext:c-format */
7693 fprintf (file, _(" Second address: 0x%08x 0x%08x\n"),
7694 (unsigned)bfd_getl32 (eiha.tfradr2_h),
7695 (unsigned)bfd_getl32 (eiha.tfradr2));
7696 /* xgettext:c-format */
7697 fprintf (file, _(" Third address : 0x%08x 0x%08x\n"),
7698 (unsigned)bfd_getl32 (eiha.tfradr3_h),
7699 (unsigned)bfd_getl32 (eiha.tfradr3));
7700 /* xgettext:c-format */
7701 fprintf (file, _(" Fourth address: 0x%08x 0x%08x\n"),
7702 (unsigned)bfd_getl32 (eiha.tfradr4_h),
7703 (unsigned)bfd_getl32 (eiha.tfradr4));
7704 /* xgettext:c-format */
7705 fprintf (file, _(" Shared image : 0x%08x 0x%08x\n"),
7706 (unsigned)bfd_getl32 (eiha.inishr_h),
7707 (unsigned)bfd_getl32 (eiha.inishr));
7708 }
7709 if (eihi_off != 0)
7710 {
7711 struct vms_eihi eihi;
7712
7713 if (bfd_seek (abfd, (file_ptr) eihi_off, SEEK_SET)
7714 || bfd_bread (&eihi, sizeof (eihi), abfd) != sizeof (eihi))
7715 {
7716 fprintf (file, _("cannot read EIHI\n"));
7717 return;
7718 }
7719 /* xgettext:c-format */
7720 fprintf (file, _("Image identification: (major: %u, minor: %u)\n"),
7721 (unsigned)bfd_getl32 (eihi.majorid),
7722 (unsigned)bfd_getl32 (eihi.minorid));
7723 fprintf (file, _(" image name : %.*s\n"),
7724 eihi.imgnam[0], eihi.imgnam + 1);
7725 fprintf (file, _(" link time : %s\n"),
7726 vms_time_to_str (eihi.linktime));
7727 fprintf (file, _(" image ident : %.*s\n"),
7728 eihi.imgid[0], eihi.imgid + 1);
7729 fprintf (file, _(" linker ident : %.*s\n"),
7730 eihi.linkid[0], eihi.linkid + 1);
7731 fprintf (file, _(" image build ident: %.*s\n"),
7732 eihi.imgbid[0], eihi.imgbid + 1);
7733 }
7734 if (eihs_off != 0)
7735 {
7736 struct vms_eihs eihs;
7737
7738 if (bfd_seek (abfd, (file_ptr) eihs_off, SEEK_SET)
7739 || bfd_bread (&eihs, sizeof (eihs), abfd) != sizeof (eihs))
7740 {
7741 fprintf (file, _("cannot read EIHS\n"));
7742 return;
7743 }
7744 /* xgettext:c-format */
7745 fprintf (file, _("Image symbol & debug table: (major: %u, minor: %u)\n"),
7746 (unsigned)bfd_getl32 (eihs.majorid),
7747 (unsigned)bfd_getl32 (eihs.minorid));
7748 dst_vbn = bfd_getl32 (eihs.dstvbn);
7749 dst_size = bfd_getl32 (eihs.dstsize);
7750 /* xgettext:c-format */
7751 fprintf (file, _(" debug symbol table : vbn: %u, size: %u (0x%x)\n"),
7752 dst_vbn, dst_size, dst_size);
7753 gst_vbn = bfd_getl32 (eihs.gstvbn);
7754 gst_size = bfd_getl32 (eihs.gstsize);
7755 /* xgettext:c-format */
7756 fprintf (file, _(" global symbol table: vbn: %u, records: %u\n"),
7757 gst_vbn, gst_size);
7758 dmt_vbn = bfd_getl32 (eihs.dmtvbn);
7759 dmt_size = bfd_getl32 (eihs.dmtsize);
7760 /* xgettext:c-format */
7761 fprintf (file, _(" debug module table : vbn: %u, size: %u\n"),
7762 dmt_vbn, dmt_size);
7763 }
7764 while (eisd_off != 0)
7765 {
7766 struct vms_eisd eisd;
7767 unsigned int len;
7768
7769 while (1)
7770 {
7771 if (bfd_seek (abfd, (file_ptr) eisd_off, SEEK_SET)
7772 || bfd_bread (&eisd, sizeof (eisd), abfd) != sizeof (eisd))
7773 {
7774 fprintf (file, _("cannot read EISD\n"));
7775 return;
7776 }
7777 len = (unsigned)bfd_getl32 (eisd.eisdsize);
7778 if (len != (unsigned)-1)
7779 break;
7780
7781 /* Next block. */
7782 eisd_off = (eisd_off + VMS_BLOCK_SIZE) & ~(VMS_BLOCK_SIZE - 1);
7783 }
7784 /* xgettext:c-format */
7785 fprintf (file, _("Image section descriptor: (major: %u, minor: %u, "
7786 "size: %u, offset: %u)\n"),
7787 (unsigned)bfd_getl32 (eisd.majorid),
7788 (unsigned)bfd_getl32 (eisd.minorid),
7789 len, eisd_off);
7790 if (len == 0)
7791 break;
7792 /* xgettext:c-format */
7793 fprintf (file, _(" section: base: 0x%08x%08x size: 0x%08x\n"),
7794 (unsigned)bfd_getl32 (eisd.virt_addr + 4),
7795 (unsigned)bfd_getl32 (eisd.virt_addr + 0),
7796 (unsigned)bfd_getl32 (eisd.secsize));
7797 val = (unsigned)bfd_getl32 (eisd.flags);
7798 fprintf (file, _(" flags: 0x%04x"), val);
7799 if (val & EISD__M_GBL)
7800 fprintf (file, " GBL");
7801 if (val & EISD__M_CRF)
7802 fprintf (file, " CRF");
7803 if (val & EISD__M_DZRO)
7804 fprintf (file, " DZRO");
7805 if (val & EISD__M_WRT)
7806 fprintf (file, " WRT");
7807 if (val & EISD__M_INITALCODE)
7808 fprintf (file, " INITALCODE");
7809 if (val & EISD__M_BASED)
7810 fprintf (file, " BASED");
7811 if (val & EISD__M_FIXUPVEC)
7812 fprintf (file, " FIXUPVEC");
7813 if (val & EISD__M_RESIDENT)
7814 fprintf (file, " RESIDENT");
7815 if (val & EISD__M_VECTOR)
7816 fprintf (file, " VECTOR");
7817 if (val & EISD__M_PROTECT)
7818 fprintf (file, " PROTECT");
7819 if (val & EISD__M_LASTCLU)
7820 fprintf (file, " LASTCLU");
7821 if (val & EISD__M_EXE)
7822 fprintf (file, " EXE");
7823 if (val & EISD__M_NONSHRADR)
7824 fprintf (file, " NONSHRADR");
7825 if (val & EISD__M_QUAD_LENGTH)
7826 fprintf (file, " QUAD_LENGTH");
7827 if (val & EISD__M_ALLOC_64BIT)
7828 fprintf (file, " ALLOC_64BIT");
7829 fprintf (file, "\n");
7830 if (val & EISD__M_FIXUPVEC)
7831 {
7832 eiaf_vbn = bfd_getl32 (eisd.vbn);
7833 eiaf_size = bfd_getl32 (eisd.secsize);
7834 }
7835 /* xgettext:c-format */
7836 fprintf (file, _(" vbn: %u, pfc: %u, matchctl: %u type: %u ("),
7837 (unsigned)bfd_getl32 (eisd.vbn),
7838 eisd.pfc, eisd.matchctl, eisd.type);
7839 switch (eisd.type)
7840 {
7841 case EISD__K_NORMAL:
7842 fputs (_("NORMAL"), file);
7843 break;
7844 case EISD__K_SHRFXD:
7845 fputs (_("SHRFXD"), file);
7846 break;
7847 case EISD__K_PRVFXD:
7848 fputs (_("PRVFXD"), file);
7849 break;
7850 case EISD__K_SHRPIC:
7851 fputs (_("SHRPIC"), file);
7852 break;
7853 case EISD__K_PRVPIC:
7854 fputs (_("PRVPIC"), file);
7855 break;
7856 case EISD__K_USRSTACK:
7857 fputs (_("USRSTACK"), file);
7858 break;
7859 default:
7860 fputs (_("*unknown*"), file);
7861 break;
7862 }
7863 fputs (_(")\n"), file);
7864 if (val & EISD__M_GBL)
7865 /* xgettext:c-format */
7866 fprintf (file, _(" ident: 0x%08x, name: %.*s\n"),
7867 (unsigned)bfd_getl32 (eisd.ident),
7868 eisd.gblnam[0], eisd.gblnam + 1);
7869 eisd_off += len;
7870 }
7871
7872 if (dmt_vbn != 0)
7873 {
7874 if (bfd_seek (abfd, (file_ptr) (dmt_vbn - 1) * VMS_BLOCK_SIZE, SEEK_SET))
7875 {
7876 fprintf (file, _("cannot read DMT\n"));
7877 return;
7878 }
7879
7880 fprintf (file, _("Debug module table:\n"));
7881
7882 while (dmt_size > 0)
7883 {
7884 struct vms_dmt_header dmth;
7885 unsigned int count;
7886
7887 if (bfd_bread (&dmth, sizeof (dmth), abfd) != sizeof (dmth))
7888 {
7889 fprintf (file, _("cannot read DMT header\n"));
7890 return;
7891 }
7892 count = bfd_getl16 (dmth.psect_count);
7893 fprintf (file,
7894 /* xgettext:c-format */
7895 _(" module offset: 0x%08x, size: 0x%08x, (%u psects)\n"),
7896 (unsigned)bfd_getl32 (dmth.modbeg),
7897 (unsigned)bfd_getl32 (dmth.size), count);
7898 dmt_size -= sizeof (dmth);
7899 while (count > 0)
7900 {
7901 struct vms_dmt_psect dmtp;
7902
7903 if (bfd_bread (&dmtp, sizeof (dmtp), abfd) != sizeof (dmtp))
7904 {
7905 fprintf (file, _("cannot read DMT psect\n"));
7906 return;
7907 }
7908 /* xgettext:c-format */
7909 fprintf (file, _(" psect start: 0x%08x, length: %u\n"),
7910 (unsigned)bfd_getl32 (dmtp.start),
7911 (unsigned)bfd_getl32 (dmtp.length));
7912 count--;
7913 dmt_size -= sizeof (dmtp);
7914 }
7915 }
7916 }
7917
7918 if (dst_vbn != 0)
7919 {
7920 if (bfd_seek (abfd, (file_ptr) (dst_vbn - 1) * VMS_BLOCK_SIZE, SEEK_SET))
7921 {
7922 fprintf (file, _("cannot read DST\n"));
7923 return;
7924 }
7925
7926 evax_bfd_print_dst (abfd, dst_size, file);
7927 }
7928 if (gst_vbn != 0)
7929 {
7930 if (bfd_seek (abfd, (file_ptr) (gst_vbn - 1) * VMS_BLOCK_SIZE, SEEK_SET))
7931 {
7932 fprintf (file, _("cannot read GST\n"));
7933 return;
7934 }
7935
7936 fprintf (file, _("Global symbol table:\n"));
7937 evax_bfd_print_eobj (abfd, file);
7938 }
7939 if (eiaf_vbn != 0)
7940 {
7941 unsigned char *buf;
7942 struct vms_eiaf *eiaf;
7943 unsigned int qrelfixoff;
7944 unsigned int lrelfixoff;
7945 unsigned int qdotadroff;
7946 unsigned int ldotadroff;
7947 unsigned int shrimgcnt;
7948 unsigned int shlstoff;
7949 unsigned int codeadroff;
7950 unsigned int lpfixoff;
7951 unsigned int chgprtoff;
7952
7953 buf = bfd_malloc (eiaf_size);
7954
7955 if (bfd_seek (abfd, (file_ptr) (eiaf_vbn - 1) * VMS_BLOCK_SIZE, SEEK_SET)
7956 || bfd_bread (buf, eiaf_size, abfd) != eiaf_size)
7957 {
7958 fprintf (file, _("cannot read EIHA\n"));
7959 free (buf);
7960 return;
7961 }
7962 eiaf = (struct vms_eiaf *)buf;
7963 fprintf (file,
7964 /* xgettext:c-format */
7965 _("Image activator fixup: (major: %u, minor: %u)\n"),
7966 (unsigned)bfd_getl32 (eiaf->majorid),
7967 (unsigned)bfd_getl32 (eiaf->minorid));
7968 /* xgettext:c-format */
7969 fprintf (file, _(" iaflink : 0x%08x %08x\n"),
7970 (unsigned)bfd_getl32 (eiaf->iaflink + 0),
7971 (unsigned)bfd_getl32 (eiaf->iaflink + 4));
7972 /* xgettext:c-format */
7973 fprintf (file, _(" fixuplnk: 0x%08x %08x\n"),
7974 (unsigned)bfd_getl32 (eiaf->fixuplnk + 0),
7975 (unsigned)bfd_getl32 (eiaf->fixuplnk + 4));
7976 fprintf (file, _(" size : %u\n"),
7977 (unsigned)bfd_getl32 (eiaf->size));
7978 fprintf (file, _(" flags: 0x%08x\n"),
7979 (unsigned)bfd_getl32 (eiaf->flags));
7980 qrelfixoff = bfd_getl32 (eiaf->qrelfixoff);
7981 lrelfixoff = bfd_getl32 (eiaf->lrelfixoff);
7982 /* xgettext:c-format */
7983 fprintf (file, _(" qrelfixoff: %5u, lrelfixoff: %5u\n"),
7984 qrelfixoff, lrelfixoff);
7985 qdotadroff = bfd_getl32 (eiaf->qdotadroff);
7986 ldotadroff = bfd_getl32 (eiaf->ldotadroff);
7987 /* xgettext:c-format */
7988 fprintf (file, _(" qdotadroff: %5u, ldotadroff: %5u\n"),
7989 qdotadroff, ldotadroff);
7990 codeadroff = bfd_getl32 (eiaf->codeadroff);
7991 lpfixoff = bfd_getl32 (eiaf->lpfixoff);
7992 /* xgettext:c-format */
7993 fprintf (file, _(" codeadroff: %5u, lpfixoff : %5u\n"),
7994 codeadroff, lpfixoff);
7995 chgprtoff = bfd_getl32 (eiaf->chgprtoff);
7996 fprintf (file, _(" chgprtoff : %5u\n"), chgprtoff);
7997 shrimgcnt = bfd_getl32 (eiaf->shrimgcnt);
7998 shlstoff = bfd_getl32 (eiaf->shlstoff);
7999 /* xgettext:c-format */
8000 fprintf (file, _(" shlstoff : %5u, shrimgcnt : %5u\n"),
8001 shlstoff, shrimgcnt);
8002 /* xgettext:c-format */
8003 fprintf (file, _(" shlextra : %5u, permctx : %5u\n"),
8004 (unsigned)bfd_getl32 (eiaf->shlextra),
8005 (unsigned)bfd_getl32 (eiaf->permctx));
8006 fprintf (file, _(" base_va : 0x%08x\n"),
8007 (unsigned)bfd_getl32 (eiaf->base_va));
8008 fprintf (file, _(" lppsbfixoff: %5u\n"),
8009 (unsigned)bfd_getl32 (eiaf->lppsbfixoff));
8010
8011 if (shlstoff)
8012 {
8013 struct vms_shl *shl = (struct vms_shl *)(buf + shlstoff);
8014 unsigned int j;
8015
8016 fprintf (file, _(" Shareable images:\n"));
8017 for (j = 0; j < shrimgcnt; j++, shl++)
8018 {
8019 fprintf (file,
8020 /* xgettext:c-format */
8021 _(" %u: size: %u, flags: 0x%02x, name: %.*s\n"),
8022 j, shl->size, shl->flags,
8023 shl->imgnam[0], shl->imgnam + 1);
8024 }
8025 }
8026 if (qrelfixoff != 0)
8027 {
8028 fprintf (file, _(" quad-word relocation fixups:\n"));
8029 evax_bfd_print_relocation_records (file, buf + qrelfixoff, 8);
8030 }
8031 if (lrelfixoff != 0)
8032 {
8033 fprintf (file, _(" long-word relocation fixups:\n"));
8034 evax_bfd_print_relocation_records (file, buf + lrelfixoff, 4);
8035 }
8036 if (qdotadroff != 0)
8037 {
8038 fprintf (file, _(" quad-word .address reference fixups:\n"));
8039 evax_bfd_print_address_fixups (file, buf + qdotadroff);
8040 }
8041 if (ldotadroff != 0)
8042 {
8043 fprintf (file, _(" long-word .address reference fixups:\n"));
8044 evax_bfd_print_address_fixups (file, buf + ldotadroff);
8045 }
8046 if (codeadroff != 0)
8047 {
8048 fprintf (file, _(" Code Address Reference Fixups:\n"));
8049 evax_bfd_print_reference_fixups (file, buf + codeadroff);
8050 }
8051 if (lpfixoff != 0)
8052 {
8053 fprintf (file, _(" Linkage Pairs Reference Fixups:\n"));
8054 evax_bfd_print_reference_fixups (file, buf + lpfixoff);
8055 }
8056 if (chgprtoff)
8057 {
8058 unsigned int count = (unsigned)bfd_getl32 (buf + chgprtoff);
8059 struct vms_eicp *eicp = (struct vms_eicp *)(buf + chgprtoff + 4);
8060 unsigned int j;
8061
8062 fprintf (file, _(" Change Protection (%u entries):\n"), count);
8063 for (j = 0; j < count; j++, eicp++)
8064 {
8065 unsigned int prot = bfd_getl32 (eicp->newprt);
8066 fprintf (file,
8067 /* xgettext:c-format */
8068 _(" base: 0x%08x %08x, size: 0x%08x, prot: 0x%08x "),
8069 (unsigned)bfd_getl32 (eicp->baseva + 4),
8070 (unsigned)bfd_getl32 (eicp->baseva + 0),
8071 (unsigned)bfd_getl32 (eicp->size),
8072 (unsigned)bfd_getl32 (eicp->newprt));
8073 switch (prot)
8074 {
8075 case PRT__C_NA:
8076 fprintf (file, "NA");
8077 break;
8078 case PRT__C_RESERVED:
8079 fprintf (file, "RES");
8080 break;
8081 case PRT__C_KW:
8082 fprintf (file, "KW");
8083 break;
8084 case PRT__C_KR:
8085 fprintf (file, "KR");
8086 break;
8087 case PRT__C_UW:
8088 fprintf (file, "UW");
8089 break;
8090 case PRT__C_EW:
8091 fprintf (file, "EW");
8092 break;
8093 case PRT__C_ERKW:
8094 fprintf (file, "ERKW");
8095 break;
8096 case PRT__C_ER:
8097 fprintf (file, "ER");
8098 break;
8099 case PRT__C_SW:
8100 fprintf (file, "SW");
8101 break;
8102 case PRT__C_SREW:
8103 fprintf (file, "SREW");
8104 break;
8105 case PRT__C_SRKW:
8106 fprintf (file, "SRKW");
8107 break;
8108 case PRT__C_SR:
8109 fprintf (file, "SR");
8110 break;
8111 case PRT__C_URSW:
8112 fprintf (file, "URSW");
8113 break;
8114 case PRT__C_UREW:
8115 fprintf (file, "UREW");
8116 break;
8117 case PRT__C_URKW:
8118 fprintf (file, "URKW");
8119 break;
8120 case PRT__C_UR:
8121 fprintf (file, "UR");
8122 break;
8123 default:
8124 fputs ("??", file);
8125 break;
8126 }
8127 fputc ('\n', file);
8128 }
8129 }
8130 free (buf);
8131 }
8132 }
8133
8134 static bfd_boolean
8135 vms_bfd_print_private_bfd_data (bfd *abfd, void *ptr)
8136 {
8137 FILE *file = (FILE *)ptr;
8138
8139 if (bfd_get_file_flags (abfd) & (EXEC_P | DYNAMIC))
8140 evax_bfd_print_image (abfd, file);
8141 else
8142 {
8143 if (bfd_seek (abfd, 0, SEEK_SET))
8144 return FALSE;
8145 evax_bfd_print_eobj (abfd, file);
8146 }
8147 return TRUE;
8148 }
8149 \f
8150 /* Linking. */
8151
8152 /* Slurp ETIR/EDBG/ETBT VMS object records. */
8153
8154 static bfd_boolean
8155 alpha_vms_read_sections_content (bfd *abfd, struct bfd_link_info *info)
8156 {
8157 asection *cur_section;
8158 file_ptr cur_offset;
8159 asection *dst_section;
8160 file_ptr dst_offset;
8161
8162 if (bfd_seek (abfd, 0, SEEK_SET) != 0)
8163 return FALSE;
8164
8165 cur_section = NULL;
8166 cur_offset = 0;
8167
8168 dst_section = PRIV (dst_section);
8169 dst_offset = 0;
8170 if (info)
8171 {
8172 if (info->strip == strip_all || info->strip == strip_debugger)
8173 {
8174 /* Discard the DST section. */
8175 dst_offset = 0;
8176 dst_section = NULL;
8177 }
8178 else if (dst_section)
8179 {
8180 dst_offset = dst_section->output_offset;
8181 dst_section = dst_section->output_section;
8182 }
8183 }
8184
8185 while (1)
8186 {
8187 int type;
8188 bfd_boolean res;
8189
8190 type = _bfd_vms_get_object_record (abfd);
8191 if (type < 0)
8192 {
8193 vms_debug2 ((2, "next_record failed\n"));
8194 return FALSE;
8195 }
8196 switch (type)
8197 {
8198 case EOBJ__C_ETIR:
8199 PRIV (image_section) = cur_section;
8200 PRIV (image_offset) = cur_offset;
8201 res = _bfd_vms_slurp_etir (abfd, info);
8202 cur_section = PRIV (image_section);
8203 cur_offset = PRIV (image_offset);
8204 break;
8205 case EOBJ__C_EDBG:
8206 case EOBJ__C_ETBT:
8207 if (dst_section == NULL)
8208 continue;
8209 PRIV (image_section) = dst_section;
8210 PRIV (image_offset) = dst_offset;
8211 res = _bfd_vms_slurp_etir (abfd, info);
8212 dst_offset = PRIV (image_offset);
8213 break;
8214 case EOBJ__C_EEOM:
8215 return TRUE;
8216 default:
8217 continue;
8218 }
8219 if (!res)
8220 {
8221 vms_debug2 ((2, "slurp eobj type %d failed\n", type));
8222 return FALSE;
8223 }
8224 }
8225 }
8226
8227 static int
8228 alpha_vms_sizeof_headers (bfd *abfd ATTRIBUTE_UNUSED,
8229 struct bfd_link_info *info ATTRIBUTE_UNUSED)
8230 {
8231 return 0;
8232 }
8233
8234 /* Add a linkage pair fixup at address SECT + OFFSET to SHLIB. */
8235
8236 static void
8237 alpha_vms_add_fixup_lp (struct bfd_link_info *info, bfd *src, bfd *shlib)
8238 {
8239 struct alpha_vms_shlib_el *sl;
8240 asection *sect = PRIV2 (src, image_section);
8241 file_ptr offset = PRIV2 (src, image_offset);
8242
8243 sl = &VEC_EL (alpha_vms_link_hash (info)->shrlibs,
8244 struct alpha_vms_shlib_el, PRIV2 (shlib, shr_index));
8245 sl->has_fixups = TRUE;
8246 VEC_APPEND_EL (sl->lp, bfd_vma,
8247 sect->output_section->vma + sect->output_offset + offset);
8248 sect->output_section->flags |= SEC_RELOC;
8249 }
8250
8251 /* Add a code address fixup at address SECT + OFFSET to SHLIB. */
8252
8253 static void
8254 alpha_vms_add_fixup_ca (struct bfd_link_info *info, bfd *src, bfd *shlib)
8255 {
8256 struct alpha_vms_shlib_el *sl;
8257 asection *sect = PRIV2 (src, image_section);
8258 file_ptr offset = PRIV2 (src, image_offset);
8259
8260 sl = &VEC_EL (alpha_vms_link_hash (info)->shrlibs,
8261 struct alpha_vms_shlib_el, PRIV2 (shlib, shr_index));
8262 sl->has_fixups = TRUE;
8263 VEC_APPEND_EL (sl->ca, bfd_vma,
8264 sect->output_section->vma + sect->output_offset + offset);
8265 sect->output_section->flags |= SEC_RELOC;
8266 }
8267
8268 /* Add a quad word relocation fixup at address SECT + OFFSET to SHLIB. */
8269
8270 static void
8271 alpha_vms_add_fixup_qr (struct bfd_link_info *info, bfd *src,
8272 bfd *shlib, bfd_vma vec)
8273 {
8274 struct alpha_vms_shlib_el *sl;
8275 struct alpha_vms_vma_ref *r;
8276 asection *sect = PRIV2 (src, image_section);
8277 file_ptr offset = PRIV2 (src, image_offset);
8278
8279 sl = &VEC_EL (alpha_vms_link_hash (info)->shrlibs,
8280 struct alpha_vms_shlib_el, PRIV2 (shlib, shr_index));
8281 sl->has_fixups = TRUE;
8282 r = VEC_APPEND (sl->qr, struct alpha_vms_vma_ref);
8283 r->vma = sect->output_section->vma + sect->output_offset + offset;
8284 r->ref = vec;
8285 sect->output_section->flags |= SEC_RELOC;
8286 }
8287
8288 static void
8289 alpha_vms_add_fixup_lr (struct bfd_link_info *info ATTRIBUTE_UNUSED,
8290 unsigned int shr ATTRIBUTE_UNUSED,
8291 bfd_vma vec ATTRIBUTE_UNUSED)
8292 {
8293 /* Not yet supported. */
8294 abort ();
8295 }
8296
8297 /* Add relocation. FIXME: Not yet emitted. */
8298
8299 static void
8300 alpha_vms_add_lw_reloc (struct bfd_link_info *info ATTRIBUTE_UNUSED)
8301 {
8302 }
8303
8304 static void
8305 alpha_vms_add_qw_reloc (struct bfd_link_info *info ATTRIBUTE_UNUSED)
8306 {
8307 }
8308
8309 static struct bfd_hash_entry *
8310 alpha_vms_link_hash_newfunc (struct bfd_hash_entry *entry,
8311 struct bfd_hash_table *table,
8312 const char *string)
8313 {
8314 struct alpha_vms_link_hash_entry *ret =
8315 (struct alpha_vms_link_hash_entry *) entry;
8316
8317 /* Allocate the structure if it has not already been allocated by a
8318 subclass. */
8319 if (ret == NULL)
8320 ret = ((struct alpha_vms_link_hash_entry *)
8321 bfd_hash_allocate (table,
8322 sizeof (struct alpha_vms_link_hash_entry)));
8323 if (ret == NULL)
8324 return NULL;
8325
8326 /* Call the allocation method of the superclass. */
8327 ret = ((struct alpha_vms_link_hash_entry *)
8328 _bfd_link_hash_newfunc ((struct bfd_hash_entry *) ret,
8329 table, string));
8330
8331 ret->sym = NULL;
8332
8333 return (struct bfd_hash_entry *) ret;
8334 }
8335
8336 /* Create an Alpha/VMS link hash table. */
8337
8338 static struct bfd_link_hash_table *
8339 alpha_vms_bfd_link_hash_table_create (bfd *abfd)
8340 {
8341 struct alpha_vms_link_hash_table *ret;
8342 bfd_size_type amt = sizeof (struct alpha_vms_link_hash_table);
8343
8344 ret = (struct alpha_vms_link_hash_table *) bfd_malloc (amt);
8345 if (ret == NULL)
8346 return NULL;
8347 if (!_bfd_link_hash_table_init (&ret->root, abfd,
8348 alpha_vms_link_hash_newfunc,
8349 sizeof (struct alpha_vms_link_hash_entry)))
8350 {
8351 free (ret);
8352 return NULL;
8353 }
8354
8355 VEC_INIT (ret->shrlibs);
8356 ret->fixup = NULL;
8357
8358 return &ret->root;
8359 }
8360
8361 static bfd_boolean
8362 alpha_vms_link_add_object_symbols (bfd *abfd, struct bfd_link_info *info)
8363 {
8364 unsigned int i;
8365
8366 for (i = 0; i < PRIV (gsd_sym_count); i++)
8367 {
8368 struct vms_symbol_entry *e = PRIV (syms)[i];
8369 struct alpha_vms_link_hash_entry *h;
8370 struct bfd_link_hash_entry *h_root;
8371 asymbol sym;
8372
8373 if (!alpha_vms_convert_symbol (abfd, e, &sym))
8374 return FALSE;
8375
8376 if ((e->flags & EGSY__V_DEF) && abfd->selective_search)
8377 {
8378 /* In selective_search mode, only add definition that are
8379 required. */
8380 h = (struct alpha_vms_link_hash_entry *)bfd_link_hash_lookup
8381 (info->hash, sym.name, FALSE, FALSE, FALSE);
8382 if (h == NULL || h->root.type != bfd_link_hash_undefined)
8383 continue;
8384 }
8385 else
8386 h = NULL;
8387
8388 h_root = (struct bfd_link_hash_entry *) h;
8389 if (!_bfd_generic_link_add_one_symbol (info, abfd, sym.name, sym.flags,
8390 sym.section, sym.value, NULL,
8391 FALSE, FALSE, &h_root))
8392 return FALSE;
8393 h = (struct alpha_vms_link_hash_entry *) h_root;
8394
8395 if ((e->flags & EGSY__V_DEF)
8396 && h->sym == NULL
8397 && abfd->xvec == info->output_bfd->xvec)
8398 h->sym = e;
8399 }
8400
8401 if (abfd->flags & DYNAMIC)
8402 {
8403 struct alpha_vms_shlib_el *shlib;
8404
8405 /* We do not want to include any of the sections in a dynamic
8406 object in the output file. See comment in elflink.c. */
8407 bfd_section_list_clear (abfd);
8408
8409 shlib = VEC_APPEND (alpha_vms_link_hash (info)->shrlibs,
8410 struct alpha_vms_shlib_el);
8411 shlib->abfd = abfd;
8412 VEC_INIT (shlib->ca);
8413 VEC_INIT (shlib->lp);
8414 VEC_INIT (shlib->qr);
8415 PRIV (shr_index) = VEC_COUNT (alpha_vms_link_hash (info)->shrlibs) - 1;
8416 }
8417
8418 return TRUE;
8419 }
8420
8421 static bfd_boolean
8422 alpha_vms_link_add_archive_symbols (bfd *abfd, struct bfd_link_info *info)
8423 {
8424 int pass;
8425 struct bfd_link_hash_entry **pundef;
8426 struct bfd_link_hash_entry **next_pundef;
8427
8428 /* We only accept VMS libraries. */
8429 if (info->output_bfd->xvec != abfd->xvec)
8430 {
8431 bfd_set_error (bfd_error_wrong_format);
8432 return FALSE;
8433 }
8434
8435 /* The archive_pass field in the archive itself is used to
8436 initialize PASS, since we may search the same archive multiple
8437 times. */
8438 pass = ++abfd->archive_pass;
8439
8440 /* Look through the list of undefined symbols. */
8441 for (pundef = &info->hash->undefs; *pundef != NULL; pundef = next_pundef)
8442 {
8443 struct bfd_link_hash_entry *h;
8444 symindex symidx;
8445 bfd *element;
8446 bfd *orig_element;
8447
8448 h = *pundef;
8449 next_pundef = &(*pundef)->u.undef.next;
8450
8451 /* When a symbol is defined, it is not necessarily removed from
8452 the list. */
8453 if (h->type != bfd_link_hash_undefined
8454 && h->type != bfd_link_hash_common)
8455 {
8456 /* Remove this entry from the list, for general cleanliness
8457 and because we are going to look through the list again
8458 if we search any more libraries. We can't remove the
8459 entry if it is the tail, because that would lose any
8460 entries we add to the list later on. */
8461 if (*pundef != info->hash->undefs_tail)
8462 {
8463 *pundef = *next_pundef;
8464 next_pundef = pundef;
8465 }
8466 continue;
8467 }
8468
8469 /* Look for this symbol in the archive hash table. */
8470 symidx = _bfd_vms_lib_find_symbol (abfd, h->root.string);
8471 if (symidx == BFD_NO_MORE_SYMBOLS)
8472 {
8473 /* Nothing in this slot. */
8474 continue;
8475 }
8476
8477 element = bfd_get_elt_at_index (abfd, symidx);
8478 if (element == NULL)
8479 return FALSE;
8480
8481 if (element->archive_pass == -1 || element->archive_pass == pass)
8482 {
8483 /* Next symbol if this archive is wrong or already handled. */
8484 continue;
8485 }
8486
8487 if (! bfd_check_format (element, bfd_object))
8488 {
8489 element->archive_pass = -1;
8490 return FALSE;
8491 }
8492
8493 orig_element = element;
8494 if (bfd_is_thin_archive (abfd))
8495 {
8496 element = _bfd_vms_lib_get_imagelib_file (element);
8497 if (element == NULL || !bfd_check_format (element, bfd_object))
8498 {
8499 orig_element->archive_pass = -1;
8500 return FALSE;
8501 }
8502 }
8503
8504 /* Unlike the generic linker, we know that this element provides
8505 a definition for an undefined symbol and we know that we want
8506 to include it. We don't need to check anything. */
8507 if (!(*info->callbacks
8508 ->add_archive_element) (info, element, h->root.string, &element))
8509 continue;
8510 if (!alpha_vms_link_add_object_symbols (element, info))
8511 return FALSE;
8512
8513 orig_element->archive_pass = pass;
8514 }
8515
8516 return TRUE;
8517 }
8518
8519 static bfd_boolean
8520 alpha_vms_bfd_link_add_symbols (bfd *abfd, struct bfd_link_info *info)
8521 {
8522 switch (bfd_get_format (abfd))
8523 {
8524 case bfd_object:
8525 vms_debug2 ((2, "vms_link_add_symbols for object %s\n",
8526 abfd->filename));
8527 return alpha_vms_link_add_object_symbols (abfd, info);
8528 break;
8529 case bfd_archive:
8530 vms_debug2 ((2, "vms_link_add_symbols for archive %s\n",
8531 abfd->filename));
8532 return alpha_vms_link_add_archive_symbols (abfd, info);
8533 break;
8534 default:
8535 bfd_set_error (bfd_error_wrong_format);
8536 return FALSE;
8537 }
8538 }
8539
8540 static bfd_boolean
8541 alpha_vms_build_fixups (struct bfd_link_info *info)
8542 {
8543 struct alpha_vms_link_hash_table *t = alpha_vms_link_hash (info);
8544 unsigned char *content;
8545 unsigned int i;
8546 unsigned int sz = 0;
8547 unsigned int lp_sz = 0;
8548 unsigned int ca_sz = 0;
8549 unsigned int qr_sz = 0;
8550 unsigned int shrimg_cnt = 0;
8551 unsigned int chgprt_num = 0;
8552 unsigned int chgprt_sz = 0;
8553 struct vms_eiaf *eiaf;
8554 unsigned int off;
8555 asection *sec;
8556
8557 /* Shared libraries. */
8558 for (i = 0; i < VEC_COUNT (t->shrlibs); i++)
8559 {
8560 struct alpha_vms_shlib_el *shlib;
8561
8562 shlib = &VEC_EL (t->shrlibs, struct alpha_vms_shlib_el, i);
8563
8564 if (!shlib->has_fixups)
8565 continue;
8566
8567 shrimg_cnt++;
8568
8569 if (VEC_COUNT (shlib->ca) > 0)
8570 {
8571 /* Header + entries. */
8572 ca_sz += 8;
8573 ca_sz += VEC_COUNT (shlib->ca) * 4;
8574 }
8575 if (VEC_COUNT (shlib->lp) > 0)
8576 {
8577 /* Header + entries. */
8578 lp_sz += 8;
8579 lp_sz += VEC_COUNT (shlib->lp) * 4;
8580 }
8581 if (VEC_COUNT (shlib->qr) > 0)
8582 {
8583 /* Header + entries. */
8584 qr_sz += 8;
8585 qr_sz += VEC_COUNT (shlib->qr) * 8;
8586 }
8587 }
8588 /* Add markers. */
8589 if (ca_sz > 0)
8590 ca_sz += 8;
8591 if (lp_sz > 0)
8592 lp_sz += 8;
8593 if (qr_sz > 0)
8594 qr_sz += 8;
8595
8596 /* Finish now if there is no content. */
8597 if (ca_sz + lp_sz + qr_sz == 0)
8598 return TRUE;
8599
8600 /* Add an eicp entry for the fixup itself. */
8601 chgprt_num = 1;
8602 for (sec = info->output_bfd->sections; sec != NULL; sec = sec->next)
8603 {
8604 /* This isect could be made RO or EXE after relocations are applied. */
8605 if ((sec->flags & SEC_RELOC) != 0
8606 && (sec->flags & (SEC_CODE | SEC_READONLY)) != 0)
8607 chgprt_num++;
8608 }
8609 chgprt_sz = 4 + chgprt_num * sizeof (struct vms_eicp);
8610
8611 /* Allocate section content (round-up size) */
8612 sz = sizeof (struct vms_eiaf) + shrimg_cnt * sizeof (struct vms_shl)
8613 + ca_sz + lp_sz + qr_sz + chgprt_sz;
8614 sz = (sz + VMS_BLOCK_SIZE - 1) & ~(VMS_BLOCK_SIZE - 1);
8615 content = bfd_zalloc (info->output_bfd, sz);
8616 if (content == NULL)
8617 return FALSE;
8618
8619 sec = alpha_vms_link_hash (info)->fixup;
8620 sec->contents = content;
8621 sec->size = sz;
8622
8623 eiaf = (struct vms_eiaf *)content;
8624 off = sizeof (struct vms_eiaf);
8625 bfd_putl32 (0, eiaf->majorid);
8626 bfd_putl32 (0, eiaf->minorid);
8627 bfd_putl32 (0, eiaf->iaflink);
8628 bfd_putl32 (0, eiaf->fixuplnk);
8629 bfd_putl32 (sizeof (struct vms_eiaf), eiaf->size);
8630 bfd_putl32 (0, eiaf->flags);
8631 bfd_putl32 (0, eiaf->qrelfixoff);
8632 bfd_putl32 (0, eiaf->lrelfixoff);
8633 bfd_putl32 (0, eiaf->qdotadroff);
8634 bfd_putl32 (0, eiaf->ldotadroff);
8635 bfd_putl32 (0, eiaf->codeadroff);
8636 bfd_putl32 (0, eiaf->lpfixoff);
8637 bfd_putl32 (0, eiaf->chgprtoff);
8638 bfd_putl32 (shrimg_cnt ? off : 0, eiaf->shlstoff);
8639 bfd_putl32 (shrimg_cnt, eiaf->shrimgcnt);
8640 bfd_putl32 (0, eiaf->shlextra);
8641 bfd_putl32 (0, eiaf->permctx);
8642 bfd_putl32 (0, eiaf->base_va);
8643 bfd_putl32 (0, eiaf->lppsbfixoff);
8644
8645 if (shrimg_cnt)
8646 {
8647 shrimg_cnt = 0;
8648
8649 /* Write shl. */
8650 for (i = 0; i < VEC_COUNT (t->shrlibs); i++)
8651 {
8652 struct alpha_vms_shlib_el *shlib;
8653 struct vms_shl *shl;
8654
8655 shlib = &VEC_EL (t->shrlibs, struct alpha_vms_shlib_el, i);
8656
8657 if (!shlib->has_fixups)
8658 continue;
8659
8660 /* Renumber shared images. */
8661 PRIV2 (shlib->abfd, shr_index) = shrimg_cnt++;
8662
8663 shl = (struct vms_shl *)(content + off);
8664 bfd_putl32 (0, shl->baseva);
8665 bfd_putl32 (0, shl->shlptr);
8666 bfd_putl32 (0, shl->ident);
8667 bfd_putl32 (0, shl->permctx);
8668 shl->size = sizeof (struct vms_shl);
8669 bfd_putl16 (0, shl->fill_1);
8670 shl->flags = 0;
8671 bfd_putl32 (0, shl->icb);
8672 shl->imgnam[0] = strlen (PRIV2 (shlib->abfd, hdr_data.hdr_t_name));
8673 memcpy (shl->imgnam + 1, PRIV2 (shlib->abfd, hdr_data.hdr_t_name),
8674 shl->imgnam[0]);
8675
8676 off += sizeof (struct vms_shl);
8677 }
8678
8679 /* CA fixups. */
8680 if (ca_sz != 0)
8681 {
8682 bfd_putl32 (off, eiaf->codeadroff);
8683
8684 for (i = 0; i < VEC_COUNT (t->shrlibs); i++)
8685 {
8686 struct alpha_vms_shlib_el *shlib;
8687 unsigned int j;
8688
8689 shlib = &VEC_EL (t->shrlibs, struct alpha_vms_shlib_el, i);
8690
8691 if (VEC_COUNT (shlib->ca) == 0)
8692 continue;
8693
8694 bfd_putl32 (VEC_COUNT (shlib->ca), content + off);
8695 bfd_putl32 (PRIV2 (shlib->abfd, shr_index), content + off + 4);
8696 off += 8;
8697
8698 for (j = 0; j < VEC_COUNT (shlib->ca); j++)
8699 {
8700 bfd_putl32 (VEC_EL (shlib->ca, bfd_vma, j) - t->base_addr,
8701 content + off);
8702 off += 4;
8703 }
8704 }
8705
8706 bfd_putl32 (0, content + off);
8707 bfd_putl32 (0, content + off + 4);
8708 off += 8;
8709 }
8710
8711 /* LP fixups. */
8712 if (lp_sz != 0)
8713 {
8714 bfd_putl32 (off, eiaf->lpfixoff);
8715
8716 for (i = 0; i < VEC_COUNT (t->shrlibs); i++)
8717 {
8718 struct alpha_vms_shlib_el *shlib;
8719 unsigned int j;
8720
8721 shlib = &VEC_EL (t->shrlibs, struct alpha_vms_shlib_el, i);
8722
8723 if (VEC_COUNT (shlib->lp) == 0)
8724 continue;
8725
8726 bfd_putl32 (VEC_COUNT (shlib->lp), content + off);
8727 bfd_putl32 (PRIV2 (shlib->abfd, shr_index), content + off + 4);
8728 off += 8;
8729
8730 for (j = 0; j < VEC_COUNT (shlib->lp); j++)
8731 {
8732 bfd_putl32 (VEC_EL (shlib->lp, bfd_vma, j) - t->base_addr,
8733 content + off);
8734 off += 4;
8735 }
8736 }
8737
8738 bfd_putl32 (0, content + off);
8739 bfd_putl32 (0, content + off + 4);
8740 off += 8;
8741 }
8742
8743 /* QR fixups. */
8744 if (qr_sz != 0)
8745 {
8746 bfd_putl32 (off, eiaf->qdotadroff);
8747
8748 for (i = 0; i < VEC_COUNT (t->shrlibs); i++)
8749 {
8750 struct alpha_vms_shlib_el *shlib;
8751 unsigned int j;
8752
8753 shlib = &VEC_EL (t->shrlibs, struct alpha_vms_shlib_el, i);
8754
8755 if (VEC_COUNT (shlib->qr) == 0)
8756 continue;
8757
8758 bfd_putl32 (VEC_COUNT (shlib->qr), content + off);
8759 bfd_putl32 (PRIV2 (shlib->abfd, shr_index), content + off + 4);
8760 off += 8;
8761
8762 for (j = 0; j < VEC_COUNT (shlib->qr); j++)
8763 {
8764 struct alpha_vms_vma_ref *r;
8765 r = &VEC_EL (shlib->qr, struct alpha_vms_vma_ref, j);
8766 bfd_putl32 (r->vma - t->base_addr, content + off);
8767 bfd_putl32 (r->ref, content + off + 4);
8768 off += 8;
8769 }
8770 }
8771
8772 bfd_putl32 (0, content + off);
8773 bfd_putl32 (0, content + off + 4);
8774 off += 8;
8775 }
8776 }
8777
8778 /* Write the change protection table. */
8779 bfd_putl32 (off, eiaf->chgprtoff);
8780 bfd_putl32 (chgprt_num, content + off);
8781 off += 4;
8782
8783 for (sec = info->output_bfd->sections; sec != NULL; sec = sec->next)
8784 {
8785 struct vms_eicp *eicp;
8786 unsigned int prot;
8787
8788 if ((sec->flags & SEC_LINKER_CREATED) != 0 &&
8789 strcmp (sec->name, "$FIXUP$") == 0)
8790 prot = PRT__C_UREW;
8791 else if ((sec->flags & SEC_RELOC) != 0
8792 && (sec->flags & (SEC_CODE | SEC_READONLY)) != 0)
8793 prot = PRT__C_UR;
8794 else
8795 continue;
8796
8797 eicp = (struct vms_eicp *)(content + off);
8798 bfd_putl64 (sec->vma - t->base_addr, eicp->baseva);
8799 bfd_putl32 ((sec->size + VMS_BLOCK_SIZE - 1) & ~(VMS_BLOCK_SIZE - 1),
8800 eicp->size);
8801 bfd_putl32 (prot, eicp->newprt);
8802 off += sizeof (struct vms_eicp);
8803 }
8804
8805 return TRUE;
8806 }
8807
8808 /* Called by bfd_hash_traverse to fill the symbol table.
8809 Return FALSE in case of failure. */
8810
8811 static bfd_boolean
8812 alpha_vms_link_output_symbol (struct bfd_hash_entry *bh, void *infov)
8813 {
8814 struct bfd_link_hash_entry *hc = (struct bfd_link_hash_entry *) bh;
8815 struct bfd_link_info *info = (struct bfd_link_info *)infov;
8816 struct alpha_vms_link_hash_entry *h;
8817 struct vms_symbol_entry *sym;
8818
8819 if (hc->type == bfd_link_hash_warning)
8820 {
8821 hc = hc->u.i.link;
8822 if (hc->type == bfd_link_hash_new)
8823 return TRUE;
8824 }
8825 h = (struct alpha_vms_link_hash_entry *) hc;
8826
8827 switch (h->root.type)
8828 {
8829 case bfd_link_hash_undefined:
8830 return TRUE;
8831 case bfd_link_hash_new:
8832 case bfd_link_hash_warning:
8833 abort ();
8834 case bfd_link_hash_undefweak:
8835 return TRUE;
8836 case bfd_link_hash_defined:
8837 case bfd_link_hash_defweak:
8838 {
8839 asection *sec = h->root.u.def.section;
8840
8841 /* FIXME: this is certainly a symbol from a dynamic library. */
8842 if (bfd_is_abs_section (sec))
8843 return TRUE;
8844
8845 if (sec->owner->flags & DYNAMIC)
8846 return TRUE;
8847 }
8848 break;
8849 case bfd_link_hash_common:
8850 break;
8851 case bfd_link_hash_indirect:
8852 return TRUE;
8853 }
8854
8855 /* Do not write not kept symbols. */
8856 if (info->strip == strip_some
8857 && bfd_hash_lookup (info->keep_hash, h->root.root.string,
8858 FALSE, FALSE) != NULL)
8859 return TRUE;
8860
8861 if (h->sym == NULL)
8862 {
8863 /* This symbol doesn't come from a VMS object. So we suppose it is
8864 a data. */
8865 int len = strlen (h->root.root.string);
8866
8867 sym = (struct vms_symbol_entry *)bfd_zalloc (info->output_bfd,
8868 sizeof (*sym) + len);
8869 if (sym == NULL)
8870 abort ();
8871 sym->namelen = len;
8872 memcpy (sym->name, h->root.root.string, len);
8873 sym->name[len] = 0;
8874 sym->owner = info->output_bfd;
8875
8876 sym->typ = EGSD__C_SYMG;
8877 sym->data_type = 0;
8878 sym->flags = EGSY__V_DEF | EGSY__V_REL;
8879 sym->symbol_vector = h->root.u.def.value;
8880 sym->section = h->root.u.def.section;
8881 sym->value = h->root.u.def.value;
8882 }
8883 else
8884 sym = h->sym;
8885
8886 if (!add_symbol_entry (info->output_bfd, sym))
8887 return FALSE;
8888
8889 return TRUE;
8890 }
8891
8892 static bfd_boolean
8893 alpha_vms_bfd_final_link (bfd *abfd, struct bfd_link_info *info)
8894 {
8895 asection *o;
8896 struct bfd_link_order *p;
8897 bfd *sub;
8898 asection *fixupsec;
8899 bfd_vma base_addr;
8900 bfd_vma last_addr;
8901 asection *dst;
8902 asection *dmt;
8903
8904 if (bfd_link_relocatable (info))
8905 {
8906 /* FIXME: we do not yet support relocatable link. It is not obvious
8907 how to do it for debug infos. */
8908 (*info->callbacks->einfo)(_("%P: relocatable link is not supported\n"));
8909 return FALSE;
8910 }
8911
8912 bfd_get_outsymbols (abfd) = NULL;
8913 bfd_get_symcount (abfd) = 0;
8914
8915 /* Mark all sections which will be included in the output file. */
8916 for (o = abfd->sections; o != NULL; o = o->next)
8917 for (p = o->map_head.link_order; p != NULL; p = p->next)
8918 if (p->type == bfd_indirect_link_order)
8919 p->u.indirect.section->linker_mark = TRUE;
8920
8921 #if 0
8922 /* Handle all the link order information for the sections. */
8923 for (o = abfd->sections; o != NULL; o = o->next)
8924 {
8925 printf ("For section %s (at 0x%08x, flags=0x%08x):\n",
8926 o->name, (unsigned)o->vma, (unsigned)o->flags);
8927
8928 for (p = o->map_head.link_order; p != NULL; p = p->next)
8929 {
8930 printf (" at 0x%08x - 0x%08x: ",
8931 (unsigned)p->offset, (unsigned)(p->offset + p->size - 1));
8932 switch (p->type)
8933 {
8934 case bfd_section_reloc_link_order:
8935 case bfd_symbol_reloc_link_order:
8936 printf (" section/symbol reloc\n");
8937 break;
8938 case bfd_indirect_link_order:
8939 printf (" section %s of %s\n",
8940 p->u.indirect.section->name,
8941 p->u.indirect.section->owner->filename);
8942 break;
8943 case bfd_data_link_order:
8944 printf (" explicit data\n");
8945 break;
8946 default:
8947 printf (" *unknown* type %u\n", p->type);
8948 break;
8949 }
8950 }
8951 }
8952 #endif
8953
8954 /* Generate the symbol table. */
8955 BFD_ASSERT (PRIV (syms) == NULL);
8956 if (info->strip != strip_all)
8957 bfd_hash_traverse (&info->hash->table, alpha_vms_link_output_symbol, info);
8958
8959 /* Find the entry point. */
8960 if (bfd_get_start_address (abfd) == 0)
8961 {
8962 bfd *startbfd = NULL;
8963
8964 for (sub = info->input_bfds; sub != NULL; sub = sub->link.next)
8965 {
8966 /* Consider only VMS object files. */
8967 if (sub->xvec != abfd->xvec)
8968 continue;
8969
8970 if (!PRIV2 (sub, eom_data).eom_has_transfer)
8971 continue;
8972 if ((PRIV2 (sub, eom_data).eom_b_tfrflg & EEOM__M_WKTFR) && startbfd)
8973 continue;
8974 if (startbfd != NULL
8975 && !(PRIV2 (sub, eom_data).eom_b_tfrflg & EEOM__M_WKTFR))
8976 {
8977 (*info->callbacks->einfo)
8978 /* xgettext:c-format */
8979 (_("%P: multiple entry points: in modules %pB and %pB\n"),
8980 startbfd, sub);
8981 continue;
8982 }
8983 startbfd = sub;
8984 }
8985
8986 if (startbfd)
8987 {
8988 unsigned int ps_idx = PRIV2 (startbfd, eom_data).eom_l_psindx;
8989 bfd_vma tfradr = PRIV2 (startbfd, eom_data).eom_l_tfradr;
8990 asection *sec;
8991
8992 sec = PRIV2 (startbfd, sections)[ps_idx];
8993
8994 bfd_set_start_address
8995 (abfd, sec->output_section->vma + sec->output_offset + tfradr);
8996 }
8997 }
8998
8999 /* Set transfer addresses. */
9000 {
9001 int i;
9002 struct bfd_link_hash_entry *h;
9003
9004 i = 0;
9005 PRIV (transfer_address[i++]) = 0xffffffff00000340ULL; /* SYS$IMGACT */
9006 h = bfd_link_hash_lookup (info->hash, "LIB$INITIALIZE", FALSE, FALSE, TRUE);
9007 if (h != NULL && h->type == bfd_link_hash_defined)
9008 PRIV (transfer_address[i++]) =
9009 alpha_vms_get_sym_value (h->u.def.section, h->u.def.value);
9010 PRIV (transfer_address[i++]) = bfd_get_start_address (abfd);
9011 while (i < 4)
9012 PRIV (transfer_address[i++]) = 0;
9013 }
9014
9015 /* Allocate contents.
9016 Also compute the virtual base address. */
9017 base_addr = (bfd_vma)-1;
9018 last_addr = 0;
9019 for (o = abfd->sections; o != NULL; o = o->next)
9020 {
9021 if (o->flags & SEC_HAS_CONTENTS)
9022 {
9023 o->contents = bfd_alloc (abfd, o->size);
9024 if (o->contents == NULL)
9025 return FALSE;
9026 }
9027 if (o->flags & SEC_LOAD)
9028 {
9029 if (o->vma < base_addr)
9030 base_addr = o->vma;
9031 if (o->vma + o->size > last_addr)
9032 last_addr = o->vma + o->size;
9033 }
9034 /* Clear the RELOC flags. Currently we don't support incremental
9035 linking. We use the RELOC flag for computing the eicp entries. */
9036 o->flags &= ~SEC_RELOC;
9037 }
9038
9039 /* Create the fixup section. */
9040 fixupsec = bfd_make_section_anyway_with_flags
9041 (info->output_bfd, "$FIXUP$",
9042 SEC_ALLOC | SEC_LOAD | SEC_HAS_CONTENTS | SEC_LINKER_CREATED);
9043 if (fixupsec == NULL)
9044 return FALSE;
9045 last_addr = (last_addr + 0xffff) & ~0xffff;
9046 fixupsec->vma = last_addr;
9047
9048 alpha_vms_link_hash (info)->fixup = fixupsec;
9049 alpha_vms_link_hash (info)->base_addr = base_addr;
9050
9051 /* Create the DMT section, if necessary. */
9052 BFD_ASSERT (PRIV (dst_section) == NULL);
9053 dst = bfd_get_section_by_name (abfd, "$DST$");
9054 if (dst != NULL && dst->size == 0)
9055 dst = NULL;
9056 if (dst != NULL)
9057 {
9058 PRIV (dst_section) = dst;
9059 dmt = bfd_make_section_anyway_with_flags
9060 (info->output_bfd, "$DMT$",
9061 SEC_DEBUGGING | SEC_HAS_CONTENTS | SEC_LINKER_CREATED);
9062 if (dmt == NULL)
9063 return FALSE;
9064 }
9065 else
9066 dmt = NULL;
9067
9068 /* Read all sections from the inputs. */
9069 for (sub = info->input_bfds; sub != NULL; sub = sub->link.next)
9070 {
9071 if (sub->flags & DYNAMIC)
9072 {
9073 alpha_vms_create_eisd_for_shared (abfd, sub);
9074 continue;
9075 }
9076
9077 if (!alpha_vms_read_sections_content (sub, info))
9078 return FALSE;
9079 }
9080
9081 /* Handle all the link order information for the sections.
9082 Note: past this point, it is not possible to create new sections. */
9083 for (o = abfd->sections; o != NULL; o = o->next)
9084 {
9085 for (p = o->map_head.link_order; p != NULL; p = p->next)
9086 {
9087 switch (p->type)
9088 {
9089 case bfd_section_reloc_link_order:
9090 case bfd_symbol_reloc_link_order:
9091 abort ();
9092 return FALSE;
9093 case bfd_indirect_link_order:
9094 /* Already done. */
9095 break;
9096 default:
9097 if (! _bfd_default_link_order (abfd, info, o, p))
9098 return FALSE;
9099 break;
9100 }
9101 }
9102 }
9103
9104 /* Compute fixups. */
9105 if (!alpha_vms_build_fixups (info))
9106 return FALSE;
9107
9108 /* Compute the DMT. */
9109 if (dmt != NULL)
9110 {
9111 int pass;
9112 unsigned char *contents = NULL;
9113
9114 /* In pass 1, compute the size. In pass 2, write the DMT contents. */
9115 for (pass = 0; pass < 2; pass++)
9116 {
9117 unsigned int off = 0;
9118
9119 /* For each object file (ie for each module). */
9120 for (sub = info->input_bfds; sub != NULL; sub = sub->link.next)
9121 {
9122 asection *sub_dst;
9123 struct vms_dmt_header *dmth = NULL;
9124 unsigned int psect_count;
9125
9126 /* Skip this module if it has no DST. */
9127 sub_dst = PRIV2 (sub, dst_section);
9128 if (sub_dst == NULL || sub_dst->size == 0)
9129 continue;
9130
9131 if (pass == 1)
9132 {
9133 /* Write the header. */
9134 dmth = (struct vms_dmt_header *)(contents + off);
9135 bfd_putl32 (sub_dst->output_offset, dmth->modbeg);
9136 bfd_putl32 (sub_dst->size, dmth->size);
9137 }
9138
9139 off += sizeof (struct vms_dmt_header);
9140 psect_count = 0;
9141
9142 /* For each section (ie for each psect). */
9143 for (o = sub->sections; o != NULL; o = o->next)
9144 {
9145 /* Only consider interesting sections. */
9146 if (!(o->flags & SEC_ALLOC))
9147 continue;
9148 if (o->flags & SEC_LINKER_CREATED)
9149 continue;
9150
9151 if (pass == 1)
9152 {
9153 /* Write an entry. */
9154 struct vms_dmt_psect *dmtp;
9155
9156 dmtp = (struct vms_dmt_psect *)(contents + off);
9157 bfd_putl32 (o->output_offset + o->output_section->vma,
9158 dmtp->start);
9159 bfd_putl32 (o->size, dmtp->length);
9160 psect_count++;
9161 }
9162 off += sizeof (struct vms_dmt_psect);
9163 }
9164 if (pass == 1)
9165 bfd_putl32 (psect_count, dmth->psect_count);
9166 }
9167
9168 if (pass == 0)
9169 {
9170 contents = bfd_zalloc (info->output_bfd, off);
9171 if (contents == NULL)
9172 return FALSE;
9173 dmt->contents = contents;
9174 dmt->size = off;
9175 }
9176 else
9177 {
9178 BFD_ASSERT (off == dmt->size);
9179 }
9180 }
9181 }
9182
9183 return TRUE;
9184 }
9185
9186 /* Read the contents of a section.
9187 buf points to a buffer of buf_size bytes to be filled with
9188 section data (starting at offset into section) */
9189
9190 static bfd_boolean
9191 alpha_vms_get_section_contents (bfd *abfd, asection *section,
9192 void *buf, file_ptr offset,
9193 bfd_size_type count)
9194 {
9195 asection *sec;
9196
9197 /* Image are easy. */
9198 if (bfd_get_file_flags (abfd) & (EXEC_P | DYNAMIC))
9199 return _bfd_generic_get_section_contents (abfd, section,
9200 buf, offset, count);
9201
9202 /* Safety check. */
9203 if (offset + count < count
9204 || offset + count > section->size)
9205 {
9206 bfd_set_error (bfd_error_invalid_operation);
9207 return FALSE;
9208 }
9209
9210 /* If the section is already in memory, just copy it. */
9211 if (section->flags & SEC_IN_MEMORY)
9212 {
9213 BFD_ASSERT (section->contents != NULL);
9214 memcpy (buf, section->contents + offset, count);
9215 return TRUE;
9216 }
9217 if (section->size == 0)
9218 return TRUE;
9219
9220 /* Alloc in memory and read ETIRs. */
9221 for (sec = abfd->sections; sec; sec = sec->next)
9222 {
9223 BFD_ASSERT (sec->contents == NULL);
9224
9225 if (sec->size != 0 && (sec->flags & SEC_HAS_CONTENTS))
9226 {
9227 sec->contents = bfd_alloc (abfd, sec->size);
9228 if (sec->contents == NULL)
9229 return FALSE;
9230 }
9231 }
9232 if (!alpha_vms_read_sections_content (abfd, NULL))
9233 return FALSE;
9234 for (sec = abfd->sections; sec; sec = sec->next)
9235 if (sec->contents)
9236 sec->flags |= SEC_IN_MEMORY;
9237 memcpy (buf, section->contents + offset, count);
9238 return TRUE;
9239 }
9240
9241
9242 /* Set the format of a file being written. */
9243
9244 static bfd_boolean
9245 alpha_vms_mkobject (bfd * abfd)
9246 {
9247 const bfd_arch_info_type *arch;
9248
9249 vms_debug2 ((1, "alpha_vms_mkobject (%p)\n", abfd));
9250
9251 if (!vms_initialize (abfd))
9252 return FALSE;
9253
9254 PRIV (recwr.buf) = bfd_alloc (abfd, MAX_OUTREC_SIZE);
9255 if (PRIV (recwr.buf) == NULL)
9256 return FALSE;
9257
9258 arch = bfd_scan_arch ("alpha");
9259
9260 if (arch == 0)
9261 {
9262 bfd_set_error (bfd_error_wrong_format);
9263 return FALSE;
9264 }
9265
9266 abfd->arch_info = arch;
9267 return TRUE;
9268 }
9269
9270
9271 /* 4.1, generic. */
9272
9273 /* Called when the BFD is being closed to do any necessary cleanup. */
9274
9275 static bfd_boolean
9276 vms_close_and_cleanup (bfd * abfd)
9277 {
9278 vms_debug2 ((1, "vms_close_and_cleanup (%p)\n", abfd));
9279
9280 if (abfd == NULL || abfd->tdata.any == NULL)
9281 return TRUE;
9282
9283 if (abfd->format == bfd_archive)
9284 {
9285 bfd_release (abfd, abfd->tdata.any);
9286 abfd->tdata.any = NULL;
9287 return TRUE;
9288 }
9289
9290 if (PRIV (recrd.buf) != NULL)
9291 free (PRIV (recrd.buf));
9292
9293 if (PRIV (sections) != NULL)
9294 free (PRIV (sections));
9295
9296 bfd_release (abfd, abfd->tdata.any);
9297 abfd->tdata.any = NULL;
9298
9299 #ifdef VMS
9300 if (abfd->direction == write_direction)
9301 {
9302 /* Last step on VMS is to convert the file to variable record length
9303 format. */
9304 if (!bfd_cache_close (abfd))
9305 return FALSE;
9306 if (!_bfd_vms_convert_to_var_unix_filename (abfd->filename))
9307 return FALSE;
9308 }
9309 #endif
9310
9311 return TRUE;
9312 }
9313
9314 /* Called when a new section is created. */
9315
9316 static bfd_boolean
9317 vms_new_section_hook (bfd * abfd, asection *section)
9318 {
9319 bfd_size_type amt;
9320
9321 vms_debug2 ((1, "vms_new_section_hook (%p, [%u]%s)\n",
9322 abfd, section->index, section->name));
9323
9324 if (! bfd_set_section_alignment (abfd, section, 0))
9325 return FALSE;
9326
9327 vms_debug2 ((7, "%u: %s\n", section->index, section->name));
9328
9329 amt = sizeof (struct vms_section_data_struct);
9330 section->used_by_bfd = bfd_zalloc (abfd, amt);
9331 if (section->used_by_bfd == NULL)
9332 return FALSE;
9333
9334 /* Create the section symbol. */
9335 return _bfd_generic_new_section_hook (abfd, section);
9336 }
9337
9338 /* Part 4.5, symbols. */
9339
9340 /* Print symbol to file according to how. how is one of
9341 bfd_print_symbol_name just print the name
9342 bfd_print_symbol_more print more (???)
9343 bfd_print_symbol_all print all we know, which is not much right now :-). */
9344
9345 static void
9346 vms_print_symbol (bfd * abfd,
9347 void * file,
9348 asymbol *symbol,
9349 bfd_print_symbol_type how)
9350 {
9351 vms_debug2 ((1, "vms_print_symbol (%p, %p, %p, %d)\n",
9352 abfd, file, symbol, how));
9353
9354 switch (how)
9355 {
9356 case bfd_print_symbol_name:
9357 case bfd_print_symbol_more:
9358 fprintf ((FILE *)file," %s", symbol->name);
9359 break;
9360
9361 case bfd_print_symbol_all:
9362 {
9363 const char *section_name = symbol->section->name;
9364
9365 bfd_print_symbol_vandf (abfd, file, symbol);
9366
9367 fprintf ((FILE *) file," %-8s %s", section_name, symbol->name);
9368 }
9369 break;
9370 }
9371 }
9372
9373 /* Return information about symbol in ret.
9374
9375 fill type, value and name
9376 type:
9377 A absolute
9378 B bss segment symbol
9379 C common symbol
9380 D data segment symbol
9381 f filename
9382 t a static function symbol
9383 T text segment symbol
9384 U undefined
9385 - debug. */
9386
9387 static void
9388 vms_get_symbol_info (bfd * abfd ATTRIBUTE_UNUSED,
9389 asymbol *symbol,
9390 symbol_info *ret)
9391 {
9392 asection *sec;
9393
9394 vms_debug2 ((1, "vms_get_symbol_info (%p, %p, %p)\n", abfd, symbol, ret));
9395
9396 sec = symbol->section;
9397
9398 if (ret == NULL)
9399 return;
9400
9401 if (sec == NULL)
9402 ret->type = 'U';
9403 else if (bfd_is_com_section (sec))
9404 ret->type = 'C';
9405 else if (bfd_is_abs_section (sec))
9406 ret->type = 'A';
9407 else if (bfd_is_und_section (sec))
9408 ret->type = 'U';
9409 else if (bfd_is_ind_section (sec))
9410 ret->type = 'I';
9411 else if ((symbol->flags & BSF_FUNCTION)
9412 || (bfd_get_section_flags (abfd, sec) & SEC_CODE))
9413 ret->type = 'T';
9414 else if (bfd_get_section_flags (abfd, sec) & SEC_DATA)
9415 ret->type = 'D';
9416 else if (bfd_get_section_flags (abfd, sec) & SEC_ALLOC)
9417 ret->type = 'B';
9418 else
9419 ret->type = '?';
9420
9421 if (ret->type != 'U')
9422 ret->value = symbol->value + symbol->section->vma;
9423 else
9424 ret->value = 0;
9425 ret->name = symbol->name;
9426 }
9427
9428 /* Return TRUE if the given symbol sym in the BFD abfd is
9429 a compiler generated local label, else return FALSE. */
9430
9431 static bfd_boolean
9432 vms_bfd_is_local_label_name (bfd * abfd ATTRIBUTE_UNUSED,
9433 const char *name)
9434 {
9435 return name[0] == '$';
9436 }
9437 \f
9438 /* Part 4.7, writing an object file. */
9439
9440 /* Sets the contents of the section section in BFD abfd to the data starting
9441 in memory at LOCATION. The data is written to the output section starting
9442 at offset offset for count bytes.
9443
9444 Normally TRUE is returned, else FALSE. Possible error returns are:
9445 o bfd_error_no_contents - The output section does not have the
9446 SEC_HAS_CONTENTS attribute, so nothing can be written to it.
9447 o and some more too */
9448
9449 static bfd_boolean
9450 _bfd_vms_set_section_contents (bfd * abfd,
9451 asection *section,
9452 const void * location,
9453 file_ptr offset,
9454 bfd_size_type count)
9455 {
9456 if (section->contents == NULL)
9457 {
9458 section->contents = bfd_alloc (abfd, section->size);
9459 if (section->contents == NULL)
9460 return FALSE;
9461
9462 memcpy (section->contents + offset, location, (size_t) count);
9463 }
9464
9465 return TRUE;
9466 }
9467
9468 /* Set the architecture and machine type in BFD abfd to arch and mach.
9469 Find the correct pointer to a structure and insert it into the arch_info
9470 pointer. */
9471
9472 static bfd_boolean
9473 alpha_vms_set_arch_mach (bfd *abfd,
9474 enum bfd_architecture arch, unsigned long mach)
9475 {
9476 if (arch != bfd_arch_alpha
9477 && arch != bfd_arch_unknown)
9478 return FALSE;
9479
9480 return bfd_default_set_arch_mach (abfd, arch, mach);
9481 }
9482
9483 /* Set section VMS flags. Clear NO_FLAGS and set FLAGS. */
9484
9485 void
9486 bfd_vms_set_section_flags (bfd *abfd ATTRIBUTE_UNUSED,
9487 asection *sec, flagword no_flags, flagword flags)
9488 {
9489 vms_section_data (sec)->no_flags = no_flags;
9490 vms_section_data (sec)->flags = flags;
9491 }
9492
9493 struct vms_private_data_struct *
9494 bfd_vms_get_data (bfd *abfd)
9495 {
9496 return (struct vms_private_data_struct *)abfd->tdata.any;
9497 }
9498
9499 #define vms_bfd_is_target_special_symbol _bfd_bool_bfd_asymbol_false
9500 #define vms_bfd_link_just_syms _bfd_generic_link_just_syms
9501 #define vms_bfd_copy_link_hash_symbol_type \
9502 _bfd_generic_copy_link_hash_symbol_type
9503 #define vms_bfd_is_group_section bfd_generic_is_group_section
9504 #define vms_bfd_discard_group bfd_generic_discard_group
9505 #define vms_section_already_linked _bfd_generic_section_already_linked
9506 #define vms_bfd_define_common_symbol bfd_generic_define_common_symbol
9507 #define vms_bfd_link_hide_symbol _bfd_generic_link_hide_symbol
9508 #define vms_bfd_define_start_stop bfd_generic_define_start_stop
9509 #define vms_bfd_copy_private_header_data _bfd_generic_bfd_copy_private_header_data
9510
9511 #define vms_bfd_copy_private_bfd_data _bfd_generic_bfd_copy_private_bfd_data
9512 #define vms_bfd_free_cached_info _bfd_generic_bfd_free_cached_info
9513 #define vms_bfd_copy_private_section_data _bfd_generic_bfd_copy_private_section_data
9514 #define vms_bfd_copy_private_symbol_data _bfd_generic_bfd_copy_private_symbol_data
9515 #define vms_bfd_set_private_flags _bfd_generic_bfd_set_private_flags
9516 #define vms_bfd_merge_private_bfd_data _bfd_generic_bfd_merge_private_bfd_data
9517
9518 /* Symbols table. */
9519 #define alpha_vms_make_empty_symbol _bfd_generic_make_empty_symbol
9520 #define alpha_vms_bfd_is_target_special_symbol _bfd_bool_bfd_asymbol_false
9521 #define alpha_vms_print_symbol vms_print_symbol
9522 #define alpha_vms_get_symbol_info vms_get_symbol_info
9523 #define alpha_vms_get_symbol_version_string \
9524 _bfd_nosymbols_get_symbol_version_string
9525
9526 #define alpha_vms_read_minisymbols _bfd_generic_read_minisymbols
9527 #define alpha_vms_minisymbol_to_symbol _bfd_generic_minisymbol_to_symbol
9528 #define alpha_vms_get_lineno _bfd_nosymbols_get_lineno
9529 #define alpha_vms_find_inliner_info _bfd_nosymbols_find_inliner_info
9530 #define alpha_vms_bfd_make_debug_symbol _bfd_nosymbols_bfd_make_debug_symbol
9531 #define alpha_vms_find_nearest_line _bfd_vms_find_nearest_line
9532 #define alpha_vms_find_line _bfd_nosymbols_find_line
9533 #define alpha_vms_bfd_is_local_label_name vms_bfd_is_local_label_name
9534
9535 /* Generic table. */
9536 #define alpha_vms_close_and_cleanup vms_close_and_cleanup
9537 #define alpha_vms_bfd_free_cached_info vms_bfd_free_cached_info
9538 #define alpha_vms_new_section_hook vms_new_section_hook
9539 #define alpha_vms_set_section_contents _bfd_vms_set_section_contents
9540 #define alpha_vms_get_section_contents_in_window _bfd_generic_get_section_contents_in_window
9541
9542 #define alpha_vms_bfd_get_relocated_section_contents \
9543 bfd_generic_get_relocated_section_contents
9544
9545 #define alpha_vms_bfd_relax_section bfd_generic_relax_section
9546 #define alpha_vms_bfd_gc_sections bfd_generic_gc_sections
9547 #define alpha_vms_bfd_lookup_section_flags bfd_generic_lookup_section_flags
9548 #define alpha_vms_bfd_merge_sections bfd_generic_merge_sections
9549 #define alpha_vms_bfd_is_group_section bfd_generic_is_group_section
9550 #define alpha_vms_bfd_discard_group bfd_generic_discard_group
9551 #define alpha_vms_section_already_linked \
9552 _bfd_generic_section_already_linked
9553
9554 #define alpha_vms_bfd_define_common_symbol bfd_generic_define_common_symbol
9555 #define alpha_vms_bfd_link_hide_symbol _bfd_generic_link_hide_symbol
9556 #define alpha_vms_bfd_define_start_stop bfd_generic_define_start_stop
9557 #define alpha_vms_bfd_link_just_syms _bfd_generic_link_just_syms
9558 #define alpha_vms_bfd_copy_link_hash_symbol_type \
9559 _bfd_generic_copy_link_hash_symbol_type
9560
9561 #define alpha_vms_bfd_link_split_section _bfd_generic_link_split_section
9562
9563 #define alpha_vms_get_dynamic_symtab_upper_bound \
9564 _bfd_nodynamic_get_dynamic_symtab_upper_bound
9565 #define alpha_vms_canonicalize_dynamic_symtab \
9566 _bfd_nodynamic_canonicalize_dynamic_symtab
9567 #define alpha_vms_get_dynamic_reloc_upper_bound \
9568 _bfd_nodynamic_get_dynamic_reloc_upper_bound
9569 #define alpha_vms_canonicalize_dynamic_reloc \
9570 _bfd_nodynamic_canonicalize_dynamic_reloc
9571 #define alpha_vms_bfd_link_check_relocs _bfd_generic_link_check_relocs
9572
9573 const bfd_target alpha_vms_vec =
9574 {
9575 "vms-alpha", /* Name. */
9576 bfd_target_evax_flavour,
9577 BFD_ENDIAN_LITTLE, /* Data byte order is little. */
9578 BFD_ENDIAN_LITTLE, /* Header byte order is little. */
9579
9580 (HAS_RELOC | EXEC_P | HAS_LINENO | HAS_DEBUG | HAS_SYMS | HAS_LOCALS
9581 | WP_TEXT | D_PAGED), /* Object flags. */
9582 (SEC_ALLOC | SEC_LOAD | SEC_RELOC
9583 | SEC_READONLY | SEC_CODE | SEC_DATA
9584 | SEC_HAS_CONTENTS | SEC_IN_MEMORY), /* Sect flags. */
9585 0, /* symbol_leading_char. */
9586 ' ', /* ar_pad_char. */
9587 15, /* ar_max_namelen. */
9588 0, /* match priority. */
9589 bfd_getl64, bfd_getl_signed_64, bfd_putl64,
9590 bfd_getl32, bfd_getl_signed_32, bfd_putl32,
9591 bfd_getl16, bfd_getl_signed_16, bfd_putl16,
9592 bfd_getl64, bfd_getl_signed_64, bfd_putl64,
9593 bfd_getl32, bfd_getl_signed_32, bfd_putl32,
9594 bfd_getl16, bfd_getl_signed_16, bfd_putl16,
9595
9596 { /* bfd_check_format. */
9597 _bfd_dummy_target,
9598 alpha_vms_object_p,
9599 _bfd_vms_lib_alpha_archive_p,
9600 _bfd_dummy_target
9601 },
9602 { /* bfd_set_format. */
9603 _bfd_bool_bfd_false_error,
9604 alpha_vms_mkobject,
9605 _bfd_vms_lib_alpha_mkarchive,
9606 _bfd_bool_bfd_false_error
9607 },
9608 { /* bfd_write_contents. */
9609 _bfd_bool_bfd_false_error,
9610 alpha_vms_write_object_contents,
9611 _bfd_vms_lib_write_archive_contents,
9612 _bfd_bool_bfd_false_error
9613 },
9614
9615 BFD_JUMP_TABLE_GENERIC (alpha_vms),
9616 BFD_JUMP_TABLE_COPY (vms),
9617 BFD_JUMP_TABLE_CORE (_bfd_nocore),
9618 BFD_JUMP_TABLE_ARCHIVE (_bfd_vms_lib),
9619 BFD_JUMP_TABLE_SYMBOLS (alpha_vms),
9620 BFD_JUMP_TABLE_RELOCS (alpha_vms),
9621 BFD_JUMP_TABLE_WRITE (alpha_vms),
9622 BFD_JUMP_TABLE_LINK (alpha_vms),
9623 BFD_JUMP_TABLE_DYNAMIC (alpha_vms),
9624
9625 NULL,
9626
9627 NULL
9628 };
The GNU Binutils are a collection of binary tools.