1 /* vms-gsd.c -- BFD back-end for VAX (openVMS/VAX) and
2 EVAX (openVMS/Alpha) files.
3 Copyright 1996, 1997, 1998, 1999, 2000, 2001 Free Software Foundation, Inc.
5 go and read the openVMS linker manual (esp. appendix B)
6 if you don't know what's going on here :-)
8 Written by Klaus K"ampf (kkaempf@rmi.de)
10 This program is free software; you can redistribute it and/or modify
11 it under the terms of the GNU General Public License as published by
12 the Free Software Foundation; either version 2 of the License, or
13 (at your option) any later version.
15 This program is distributed in the hope that it will be useful,
16 but WITHOUT ANY WARRANTY; without even the implied warranty of
17 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 GNU General Public License for more details.
20 You should have received a copy of the GNU General Public License
21 along with this program; if not, write to the Free Software
22 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
31 /*-----------------------------------------------------------------------------*/
33 /* typical sections for vax object files */
35 #define VAX_CODE_NAME "$CODE"
36 #define VAX_DATA_NAME "$DATA"
37 #define VAX_ADDRESS_DATA_NAME "$ADDRESS_DATA"
39 /* typical sections for evax object files */
41 #define EVAX_ABS_NAME "$ABS$"
42 #define EVAX_CODE_NAME "$CODE$"
43 #define EVAX_LINK_NAME "$LINK$"
44 #define EVAX_DATA_NAME "$DATA$"
45 #define EVAX_BSS_NAME "$BSS$"
46 #define EVAX_READONLYADDR_NAME "$READONLY_ADDR$"
47 #define EVAX_READONLY_NAME "$READONLY$"
48 #define EVAX_LITERAL_NAME "$LITERAL$"
49 #define EVAX_COMMON_NAME "$COMMON$"
50 #define EVAX_LOCAL_NAME "$LOCAL$"
52 struct sec_flags_struct {
53 char *name; /* name of section */
55 flagword flags_always; /* flags we set always */
57 flagword flags_hassize; /* flags we set if the section has a size > 0 */
60 /* These flags are deccrtl/vaxcrtl (openVMS 6.2 VAX) compatible */
62 static struct sec_flags_struct vax_section_flags[] = {
64 (GPS_S_M_PIC|GPS_S_M_REL|GPS_S_M_SHR|GPS_S_M_EXE|GPS_S_M_RD),
66 (GPS_S_M_PIC|GPS_S_M_REL|GPS_S_M_SHR|GPS_S_M_EXE|GPS_S_M_RD),
67 (SEC_IN_MEMORY|SEC_CODE|SEC_HAS_CONTENTS|SEC_ALLOC|SEC_LOAD) },
69 (GPS_S_M_PIC|GPS_S_M_REL|GPS_S_M_RD|GPS_S_M_WRT),
71 (GPS_S_M_PIC|GPS_S_M_REL|GPS_S_M_RD|GPS_S_M_WRT),
72 (SEC_IN_MEMORY|SEC_DATA|SEC_HAS_CONTENTS|SEC_ALLOC|SEC_LOAD) },
73 { VAX_ADDRESS_DATA_NAME,
74 (GPS_S_M_PIC|GPS_S_M_REL|GPS_S_M_RD),
75 (SEC_DATA|SEC_READONLY),
76 (GPS_S_M_PIC|GPS_S_M_REL|GPS_S_M_RD),
77 (SEC_IN_MEMORY|SEC_DATA|SEC_HAS_CONTENTS|SEC_ALLOC|SEC_READONLY|SEC_LOAD) },
79 (GPS_S_M_PIC|GPS_S_M_OVR|GPS_S_M_REL|GPS_S_M_GBL|GPS_S_M_RD|GPS_S_M_WRT),
81 (GPS_S_M_PIC|GPS_S_M_OVR|GPS_S_M_REL|GPS_S_M_GBL|GPS_S_M_RD|GPS_S_M_WRT),
82 (SEC_IN_MEMORY|SEC_DATA|SEC_HAS_CONTENTS|SEC_ALLOC|SEC_LOAD) }
85 /* These flags are deccrtl/vaxcrtl (openVMS 6.2 Alpha) compatible */
87 static struct sec_flags_struct evax_section_flags[] = {
92 (SEC_IN_MEMORY|SEC_DATA|SEC_HAS_CONTENTS|SEC_ALLOC|SEC_LOAD) },
94 (EGPS_S_V_PIC|EGPS_S_V_REL|EGPS_S_V_SHR|EGPS_S_V_EXE),
96 (EGPS_S_V_PIC|EGPS_S_V_REL|EGPS_S_V_SHR|EGPS_S_V_EXE),
97 (SEC_IN_MEMORY|SEC_CODE|SEC_HAS_CONTENTS|SEC_ALLOC|SEC_LOAD) },
99 (EGPS_S_V_PIC|EGPS_S_V_REL|EGPS_S_V_SHR|EGPS_S_V_RD|EGPS_S_V_NOMOD),
100 (SEC_DATA|SEC_READONLY),
101 (EGPS_S_V_PIC|EGPS_S_V_REL|EGPS_S_V_SHR|EGPS_S_V_RD),
102 (SEC_IN_MEMORY|SEC_DATA|SEC_HAS_CONTENTS|SEC_ALLOC|SEC_READONLY|SEC_LOAD) },
104 (EGPS_S_V_REL|EGPS_S_V_RD),
105 (SEC_DATA|SEC_READONLY),
106 (EGPS_S_V_REL|EGPS_S_V_RD),
107 (SEC_IN_MEMORY|SEC_DATA|SEC_HAS_CONTENTS|SEC_ALLOC|SEC_READONLY|SEC_LOAD) },
109 (EGPS_S_V_REL|EGPS_S_V_RD|EGPS_S_V_WRT|EGPS_S_V_NOMOD),
111 (EGPS_S_V_REL|EGPS_S_V_RD|EGPS_S_V_WRT),
112 (SEC_IN_MEMORY|SEC_DATA|SEC_HAS_CONTENTS|SEC_ALLOC|SEC_LOAD) },
114 (EGPS_S_V_REL|EGPS_S_V_RD|EGPS_S_V_WRT|EGPS_S_V_NOMOD),
116 (EGPS_S_V_REL|EGPS_S_V_RD|EGPS_S_V_WRT|EGPS_S_V_NOMOD),
117 (SEC_IN_MEMORY|SEC_HAS_CONTENTS|SEC_ALLOC|SEC_LOAD) },
118 { EVAX_READONLYADDR_NAME,
119 (EGPS_S_V_PIC|EGPS_S_V_REL|EGPS_S_V_RD),
120 (SEC_DATA|SEC_READONLY),
121 (EGPS_S_V_PIC|EGPS_S_V_REL|EGPS_S_V_RD),
122 (SEC_IN_MEMORY|SEC_DATA|SEC_HAS_CONTENTS|SEC_ALLOC|SEC_READONLY|SEC_LOAD) },
123 { EVAX_READONLY_NAME,
124 (EGPS_S_V_PIC|EGPS_S_V_REL|EGPS_S_V_SHR|EGPS_S_V_RD|EGPS_S_V_NOMOD),
125 (SEC_DATA|SEC_READONLY),
126 (EGPS_S_V_PIC|EGPS_S_V_REL|EGPS_S_V_SHR|EGPS_S_V_RD),
127 (SEC_IN_MEMORY|SEC_DATA|SEC_HAS_CONTENTS|SEC_ALLOC|SEC_READONLY|SEC_LOAD) },
129 (EGPS_S_V_REL|EGPS_S_V_RD|EGPS_S_V_WRT),
131 (EGPS_S_V_REL|EGPS_S_V_RD|EGPS_S_V_WRT),
132 (SEC_IN_MEMORY|SEC_DATA|SEC_HAS_CONTENTS|SEC_ALLOC|SEC_LOAD) },
134 (EGPS_S_V_REL|EGPS_S_V_RD|EGPS_S_V_WRT),
136 (EGPS_S_V_REL|EGPS_S_V_RD|EGPS_S_V_WRT),
137 (SEC_IN_MEMORY|SEC_DATA|SEC_HAS_CONTENTS|SEC_ALLOC|SEC_LOAD) }
140 static flagword vms_secflag_by_name PARAMS ((bfd *, struct sec_flags_struct *, char *, int));
141 static flagword vms_esecflag_by_name PARAMS ((struct sec_flags_struct *, char *, int));
143 /* Retrieve bfd section flags by name and size */
146 vms_secflag_by_name (abfd, section_flags, name, hassize)
148 struct sec_flags_struct *section_flags;
154 while (section_flags[i].name != NULL)
157 strcasecmp (name, section_flags[i].name):
158 strcmp (name, section_flags[i].name)) == 0)
161 return section_flags[i].flags_hassize;
163 return section_flags[i].flags_always;
168 return section_flags[i].flags_hassize;
169 return section_flags[i].flags_always;
172 /* Retrieve vms section flags by name and size */
175 vms_esecflag_by_name (section_flags, name, hassize)
176 struct sec_flags_struct *section_flags;
182 while (section_flags[i].name != NULL)
184 if (strcmp (name, section_flags[i].name) == 0)
187 return section_flags[i].vflags_hassize;
189 return section_flags[i].vflags_always;
194 return section_flags[i].vflags_hassize;
195 return section_flags[i].vflags_always;
198 /*-----------------------------------------------------------------------------*/
202 struct flagdescstruct { char *name; flagword value; };
204 /* Convert flag to printable string */
207 flag2str(flagdesc, flags)
208 struct flagdescstruct *flagdesc;
216 while (flagdesc->name != NULL)
218 if ((flags & flagdesc->value) != 0)
224 strcat (res, flagdesc->name);
232 /*-----------------------------------------------------------------------------*/
235 /* Process GSD/EGSD record
236 return 0 on success, -1 on error */
239 _bfd_vms_slurp_gsd (abfd, objtype)
244 static struct flagdescstruct gpsflagdesc[] =
261 static struct flagdescstruct gsyflagdesc[] =
274 int gsd_type, gsd_size;
276 unsigned char *vms_rec;
277 flagword new_flags, old_flags;
280 vms_symbol_entry *entry;
281 unsigned long base_addr;
282 unsigned long align_addr;
283 static unsigned int psect_idx = 0;
286 vms_debug (2, "GSD/EGSD (%d/%x)\n", objtype, objtype);
292 PRIV(vms_rec) += 8; /* skip type, size, l_temp */
303 /* calculate base address for each section */
308 while (PRIV(rec_size) > 0)
310 vms_rec = PRIV(vms_rec);
312 if (objtype == OBJ_S_C_GSD)
318 _bfd_vms_get_header_values (abfd, vms_rec, &gsd_type, &gsd_size);
319 gsd_type += EVAX_OFFSET;
323 vms_debug (3, "gsd_type %d\n", gsd_type);
331 * program section definition
334 asection *old_section = 0;
337 vms_debug (4, "GSD_S_C_PSC\n");
339 /* If this section isn't a bfd section. */
341 if (PRIV(is_vax) && (psect_idx < (abfd->section_count-1)))
343 /* check for temporary section from TIR record. */
345 if (psect_idx < PRIV(section_count))
346 old_section = PRIV(sections)[psect_idx];
351 name = _bfd_vms_save_counted_string (vms_rec + 8);
352 section = bfd_make_section (abfd, name);
355 (*_bfd_error_handler) (_("bfd_make_section (%s) failed"),
359 old_flags = bfd_getl16 (vms_rec + 2);
360 section->_raw_size = bfd_getl32 (vms_rec + 4); /* allocation */
361 new_flags = vms_secflag_by_name (abfd, vax_section_flags, name,
362 section->_raw_size > 0);
363 if (old_flags & EGPS_S_V_REL)
364 new_flags |= SEC_RELOC;
365 if (old_flags & GPS_S_M_OVR)
366 new_flags |= SEC_IS_COMMON;
367 if (!bfd_set_section_flags (abfd, section, new_flags))
369 (*_bfd_error_handler)
370 (_("bfd_set_section_flags (%s, %x) failed"),
374 section->alignment_power = vms_rec[1];
375 align_addr = (1 << section->alignment_power);
376 if ((base_addr % align_addr) != 0)
377 base_addr += (align_addr - (base_addr % align_addr));
378 section->vma = (bfd_vma)base_addr;
379 base_addr += section->_raw_size;
381 /* global section is common symbol */
383 if (old_flags & GPS_S_M_GBL)
385 entry = _bfd_vms_enter_symbol (abfd, name);
386 if (entry == (vms_symbol_entry *)NULL)
388 bfd_set_error (bfd_error_no_memory);
391 symbol = entry->symbol;
394 symbol->section = section;
395 symbol->flags = (BSF_GLOBAL|BSF_SECTION_SYM|BSF_OLD_COMMON);
398 /* copy saved contents if old_section set */
400 if (old_section != 0)
402 section->contents = old_section->contents;
403 if (section->_raw_size < old_section->_raw_size)
405 (*_bfd_error_handler)
406 (_("Size mismatch section %s=%lx, %s=%lx"),
408 (unsigned long) old_section->_raw_size,
410 (unsigned long) section->_raw_size);
413 else if (section->_raw_size > old_section->_raw_size)
415 section->contents = ((unsigned char *)
416 bfd_realloc (old_section->contents,
417 section->_raw_size));
418 if (section->contents == NULL)
420 bfd_set_error (bfd_error_no_memory);
427 section->contents = ((unsigned char *)
428 bfd_malloc (section->_raw_size));
429 if (section->contents == NULL)
431 bfd_set_error (bfd_error_no_memory);
434 memset (section->contents, 0, (size_t) section->_raw_size);
436 section->_cooked_size = section->_raw_size;
438 vms_debug (4, "gsd psc %d (%s, flags %04x=%s) ",
439 section->index, name, old_flags, flag2str (gpsflagdesc, old_flags));
440 vms_debug (4, "%d bytes at 0x%08lx (mem %p)\n",
441 section->_raw_size, section->vma, section->contents);
444 gsd_size = vms_rec[8] + 9;
453 vms_debug(4, "gsd epm\n");
459 int name_offset = 0, value_offset = 0;
462 * symbol specification (definition or reference)
466 vms_debug (4, "GSD_S_C_SYM(W)\n");
468 old_flags = bfd_getl16 (vms_rec + 2);
469 new_flags = BSF_NO_FLAGS;
471 if (old_flags & GSY_S_M_WEAK)
472 new_flags |= BSF_WEAK;
479 new_flags |= BSF_FUNCTION;
484 new_flags |= BSF_FUNCTION;
487 if (old_flags & GSY_S_M_DEF) /* symbol definition */
494 if (old_flags & GSY_S_M_DEF) /* symbol definition */
502 /* save symbol in vms_symbol_table */
504 entry = _bfd_vms_enter_symbol (abfd,
505 _bfd_vms_save_counted_string (vms_rec + name_offset));
506 if (entry == (vms_symbol_entry *)NULL)
508 bfd_set_error (bfd_error_no_memory);
511 symbol = entry->symbol;
513 if (old_flags & GSY_S_M_DEF) /* symbol definition */
517 symbol->value = bfd_getl32 (vms_rec+value_offset);
518 if ((gsd_type == GSD_S_C_SYMW)
519 || (gsd_type == GSD_S_C_EPMW))
520 psect = bfd_getl16 (vms_rec + value_offset - 2);
522 psect = vms_rec[value_offset-1];
524 symbol->section = (asection *)psect;
526 vms_debug(4, "gsd sym def #%d (%s, %d [%p], %04x=%s)\n", abfd->symcount,
527 symbol->name, (int)symbol->section, symbol->section, old_flags, flag2str(gsyflagdesc, old_flags));
530 else /* symbol reference */
532 symbol->section = bfd_make_section (abfd, BFD_UND_SECTION_NAME);
534 vms_debug (4, "gsd sym ref #%d (%s, %s [%p], %04x=%s)\n", abfd->symcount,
535 symbol->name, symbol->section->name, symbol->section, old_flags, flag2str (gsyflagdesc, old_flags));
539 gsd_size = vms_rec[name_offset] + name_offset + 1;
540 symbol->flags = new_flags;
548 vms_debug(4, "gsd pro\n");
553 vms_debug(4, "gsd idc\n");
558 vms_debug(4, "gsd env\n");
563 vms_debug(4, "gsd lsy\n");
568 vms_debug(4, "gsd lepm\n");
573 vms_debug(4, "gsd lpro\n");
578 vms_debug(4, "gsd spsc\n");
583 vms_debug(4, "gsd symv\n");
588 vms_debug(4, "gsd epmv\n");
593 vms_debug(4, "gsd prov\n");
597 case EGSD_S_C_PSC + EVAX_OFFSET:
599 /* program section definition */
601 name = _bfd_vms_save_counted_string (vms_rec+12);
602 section = bfd_make_section (abfd, name);
605 old_flags = bfd_getl16 (vms_rec + 6);
606 section->_raw_size = bfd_getl32 (vms_rec + 8); /* allocation */
607 new_flags = vms_secflag_by_name (abfd, evax_section_flags, name,
608 section->_raw_size > 0);
609 if (old_flags & EGPS_S_V_REL)
610 new_flags |= SEC_RELOC;
611 if (!bfd_set_section_flags (abfd, section, new_flags))
613 section->alignment_power = vms_rec[4];
614 align_addr = (1 << section->alignment_power);
615 if ((base_addr % align_addr) != 0)
616 base_addr += (align_addr - (base_addr % align_addr));
617 section->vma = (bfd_vma)base_addr;
618 base_addr += section->_raw_size;
619 section->contents = ((unsigned char *)
620 bfd_malloc (section->_raw_size));
621 if (section->contents == NULL)
623 memset (section->contents, 0, (size_t) section->_raw_size);
624 section->_cooked_size = section->_raw_size;
626 vms_debug(4, "egsd psc %d (%s, flags %04x=%s) ",
627 section->index, name, old_flags, flag2str(gpsflagdesc, old_flags));
628 vms_debug(4, "%d bytes at 0x%08lx (mem %p)\n",
629 section->_raw_size, section->vma, section->contents);
634 case EGSD_S_C_SYM + EVAX_OFFSET:
636 /* symbol specification (definition or reference) */
638 symbol = _bfd_vms_make_empty_symbol (abfd);
642 old_flags = bfd_getl16 (vms_rec + 6);
643 new_flags = BSF_NO_FLAGS;
645 if (old_flags & EGSY_S_V_WEAK)
646 new_flags |= BSF_WEAK;
648 if (vms_rec[6] & EGSY_S_V_DEF) /* symbol definition */
651 _bfd_vms_save_counted_string (vms_rec+32);
652 if (old_flags & EGSY_S_V_NORM)
654 new_flags |= BSF_FUNCTION;
656 symbol->value = bfd_getl64 (vms_rec+8);
657 symbol->section = (asection *) ((unsigned long) bfd_getl32 (vms_rec+28));
659 vms_debug(4, "egsd sym def #%d (%s, %d, %04x=%s)\n", abfd->symcount,
660 symbol->name, (int)symbol->section, old_flags, flag2str(gsyflagdesc, old_flags));
663 else /* symbol reference */
666 _bfd_vms_save_counted_string (vms_rec+8);
668 vms_debug(4, "egsd sym ref #%d (%s, %04x=%s)\n", abfd->symcount,
669 symbol->name, old_flags, flag2str(gsyflagdesc, old_flags));
671 symbol->section = bfd_make_section (abfd, BFD_UND_SECTION_NAME);
674 symbol->flags = new_flags;
676 /* save symbol in vms_symbol_table */
678 entry = (vms_symbol_entry *) bfd_hash_lookup (PRIV(vms_symbol_table), symbol->name, true, false);
679 if (entry == (vms_symbol_entry *)NULL)
681 bfd_set_error (bfd_error_no_memory);
684 if (entry->symbol != (asymbol *)NULL)
685 { /* FIXME ?, DEC C generates this */
687 vms_debug(4, "EGSD_S_C_SYM: duplicate \"%s\"\n", symbol->name);
692 entry->symbol = symbol;
693 PRIV(gsd_sym_count)++;
699 case EGSD_S_C_IDC + EVAX_OFFSET:
703 (*_bfd_error_handler) (_("unknown gsd/egsd subtype %d"), gsd_type);
704 bfd_set_error (bfd_error_bad_value);
709 PRIV(rec_size) -= gsd_size;
710 PRIV(vms_rec) += gsd_size;
712 } /* while (recsize > 0) */
714 if (abfd->symcount > 0)
715 abfd->flags |= HAS_SYMS;
720 /*-----------------------------------------------------------------------------*/
721 /* output routines */
723 /* Write section and symbol directory of bfd abfd */
726 _bfd_vms_write_gsd (abfd, objtype)
728 int objtype ATTRIBUTE_UNUSED;
736 flagword new_flags, old_flags;
739 vms_debug (2, "vms_write_gsd (%p, %d)\n", abfd, objtype);
742 /* output sections */
744 section = abfd->sections;
746 vms_debug (3, "%d sections found\n", abfd->section_count);
749 /* egsd is quadword aligned */
751 _bfd_vms_output_alignment (abfd, 8);
753 _bfd_vms_output_begin (abfd, EOBJ_S_C_EGSD, -1);
754 _bfd_vms_output_long (abfd, 0);
755 _bfd_vms_output_push (abfd); /* prepare output for subrecords */
760 vms_debug (3, "Section #%d %s, %d bytes\n", section->index, section->name, (int)section->_raw_size);
763 /* 13 bytes egsd, max 31 chars name -> should be 44 bytes */
764 if (_bfd_vms_output_check (abfd, 64) < 0)
766 _bfd_vms_output_pop (abfd);
767 _bfd_vms_output_end (abfd);
768 _bfd_vms_output_begin (abfd, EOBJ_S_C_EGSD, -1);
769 _bfd_vms_output_long (abfd, 0);
770 _bfd_vms_output_push (abfd); /* prepare output for subrecords */
773 /* Create dummy sections to keep consecutive indices */
775 while (section->index - last_index > 1)
778 vms_debug (3, "index %d, last %d\n", section->index, last_index);
780 _bfd_vms_output_begin (abfd, EGSD_S_C_PSC, -1);
781 _bfd_vms_output_short (abfd, 0);
782 _bfd_vms_output_short (abfd, 0);
783 _bfd_vms_output_long (abfd, 0);
784 sprintf (dummy_name, ".DUMMY%02d", last_index);
785 _bfd_vms_output_counted (abfd, dummy_name);
786 _bfd_vms_output_flush (abfd);
790 /* Don't know if this is neccesary for the linker but for now it keeps
791 vms_slurp_gsd happy */
793 sname = (char *)section->name;
797 if ((*sname == 't') && (strcmp (sname, "text") == 0))
798 sname = PRIV(is_vax)?VAX_CODE_NAME:EVAX_CODE_NAME;
799 else if ((*sname == 'd') && (strcmp (sname, "data") == 0))
800 sname = PRIV(is_vax)?VAX_DATA_NAME:EVAX_DATA_NAME;
801 else if ((*sname == 'b') && (strcmp (sname, "bss") == 0))
802 sname = EVAX_BSS_NAME;
803 else if ((*sname == 'l') && (strcmp (sname, "link") == 0))
804 sname = EVAX_LINK_NAME;
805 else if ((*sname == 'r') && (strcmp (sname, "rdata") == 0))
806 sname = EVAX_READONLY_NAME;
807 else if ((*sname == 'l') && (strcmp (sname, "literal") == 0))
808 sname = EVAX_LITERAL_NAME;
809 else if ((*sname == 'c') && (strcmp (sname, "comm") == 0))
810 sname = EVAX_COMMON_NAME;
811 else if ((*sname == 'l') && (strcmp (sname, "lcomm") == 0))
812 sname = EVAX_LOCAL_NAME;
815 sname = _bfd_vms_length_hash_symbol (abfd, sname, EOBJ_S_C_SECSIZ);
817 _bfd_vms_output_begin (abfd, EGSD_S_C_PSC, -1);
818 _bfd_vms_output_short (abfd, section->alignment_power & 0xff);
819 if (bfd_is_com_section (section))
821 new_flags = (EGPS_S_V_OVR|EGPS_S_V_REL|EGPS_S_V_GBL|EGPS_S_V_RD|EGPS_S_V_WRT|EGPS_S_V_NOMOD|EGPS_S_V_COM);
825 new_flags = vms_esecflag_by_name (evax_section_flags, sname,
826 section->_raw_size > 0);
828 _bfd_vms_output_short (abfd, new_flags);
829 _bfd_vms_output_long (abfd, (unsigned long) section->_raw_size);
830 _bfd_vms_output_counted (abfd, sname);
831 _bfd_vms_output_flush (abfd);
833 last_index = section->index;
834 section = section->next;
840 vms_debug (3, "%d symbols found\n", abfd->symcount);
843 bfd_set_start_address (abfd, (bfd_vma)-1);
845 for (symnum = 0; symnum < abfd->symcount; symnum++)
849 symbol = abfd->outsymbols[symnum];
850 if (*(symbol->name) == '_')
852 if (strcmp (symbol->name, "__main") == 0)
853 bfd_set_start_address (abfd, (bfd_vma)symbol->value);
855 old_flags = symbol->flags;
857 if (old_flags & BSF_FILE)
860 if (((old_flags & (BSF_GLOBAL|BSF_WEAK)) == 0) /* not xdef */
861 && (!bfd_is_und_section (symbol->section))) /* and not xref */
862 continue; /* dont output */
864 /* 13 bytes egsd, max 64 chars name -> should be 77 bytes */
866 if (_bfd_vms_output_check (abfd, 80) < 0)
868 _bfd_vms_output_pop (abfd);
869 _bfd_vms_output_end (abfd);
870 _bfd_vms_output_begin (abfd, EOBJ_S_C_EGSD, -1);
871 _bfd_vms_output_long (abfd, 0);
872 _bfd_vms_output_push (abfd); /* prepare output for subrecords */
875 _bfd_vms_output_begin (abfd, EGSD_S_C_SYM, -1);
877 _bfd_vms_output_short (abfd, 0); /* data type, alignment */
881 if (old_flags & BSF_WEAK)
882 new_flags |= EGSY_S_V_WEAK;
883 if (bfd_is_com_section (symbol->section)) /* .comm */
884 new_flags |= (EGSY_S_V_WEAK|EGSY_S_V_COMM);
886 if (old_flags & BSF_FUNCTION)
888 new_flags |= EGSY_S_V_NORM;
889 new_flags |= EGSY_S_V_REL;
891 if (old_flags & (BSF_GLOBAL|BSF_WEAK))
893 new_flags |= EGSY_S_V_DEF;
894 if (!bfd_is_abs_section (symbol->section))
895 new_flags |= EGSY_S_V_REL;
897 _bfd_vms_output_short (abfd, new_flags);
899 if (old_flags & (BSF_GLOBAL | BSF_WEAK)) /* symbol definition */
901 uquad code_address = 0;
902 unsigned long ca_psindx = 0;
903 unsigned long psindx;
905 if (old_flags & BSF_FUNCTION)
907 code_address = ((asymbol *) (symbol->udata.p))->value;
908 ca_psindx = ((asymbol *) (symbol->udata.p))->section->index;
910 psindx = symbol->section->index;
912 _bfd_vms_output_quad (abfd, symbol->value);
913 _bfd_vms_output_quad (abfd, code_address);
914 _bfd_vms_output_long (abfd, ca_psindx);
915 _bfd_vms_output_long (abfd, psindx);
917 hash = _bfd_vms_length_hash_symbol (abfd, symbol->name, EOBJ_S_C_SYMSIZ);
918 _bfd_vms_output_counted (abfd, hash);
920 _bfd_vms_output_flush (abfd);
924 _bfd_vms_output_alignment (abfd, 8);
925 _bfd_vms_output_pop (abfd);
926 _bfd_vms_output_end (abfd);