1 /* evax-egsd.c -- BFD back-end for ALPHA EVAX (openVMS/Alpha) files.
2 Copyright 1996, 1997 Free Software Foundation Inc.
4 go and read the openVMS linker manual (esp. appendix B)
5 if you don't know what's going on here :-)
7 Written by Klaus K"ampf (kkaempf@progis.de)
8 of proGIS Softwareentwicklung, Aachen, Germany
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. */
35 /*-----------------------------------------------------------------------------*/
37 /* sections every evax object file has */
39 #define EVAX_ABS_NAME "$ABS$"
40 #define EVAX_CODE_NAME "$CODE$"
41 #define EVAX_LINK_NAME "$LINK$"
42 #define EVAX_DATA_NAME "$DATA$"
43 #define EVAX_BSS_NAME "$BSS$"
44 #define EVAX_READONLYADDR_NAME "$READONLY_ADDR$"
45 #define EVAX_READONLY_NAME "$READONLY$"
46 #define EVAX_LITERAL_NAME "$LITERAL$"
47 #define EVAX_COMMON_NAME "$COMMON$"
48 #define EVAX_LOCAL_NAME "$LOCAL$"
50 struct sec_flags_struct {
51 char *name; /* name of section */
53 flagword flags_always; /* flags we set always */
55 flagword flags_hassize; /* flags we set if the section has a size > 0 */
58 /* These flags are deccrtl/vaxcrtl (openVMS 6.2) compatible */ */
60 static struct sec_flags_struct evax_section_flags[] = {
65 (SEC_IN_MEMORY|SEC_DATA|SEC_HAS_CONTENTS|SEC_ALLOC|SEC_LOAD) },
67 (EGPS_S_V_PIC|EGPS_S_V_REL|EGPS_S_V_SHR|EGPS_S_V_EXE),
69 (EGPS_S_V_PIC|EGPS_S_V_REL|EGPS_S_V_SHR|EGPS_S_V_EXE),
70 (SEC_IN_MEMORY|SEC_CODE|SEC_HAS_CONTENTS|SEC_ALLOC|SEC_LOAD) },
72 (EGPS_S_V_PIC|EGPS_S_V_REL|EGPS_S_V_SHR|EGPS_S_V_RD|EGPS_S_V_NOMOD),
73 (SEC_DATA|SEC_READONLY),
74 (EGPS_S_V_PIC|EGPS_S_V_REL|EGPS_S_V_SHR|EGPS_S_V_RD),
75 (SEC_IN_MEMORY|SEC_DATA|SEC_HAS_CONTENTS|SEC_ALLOC|SEC_READONLY|SEC_LOAD) },
77 (EGPS_S_V_REL|EGPS_S_V_RD),
78 (SEC_DATA|SEC_READONLY),
79 (EGPS_S_V_REL|EGPS_S_V_RD),
80 (SEC_IN_MEMORY|SEC_DATA|SEC_HAS_CONTENTS|SEC_ALLOC|SEC_READONLY|SEC_LOAD) },
82 (EGPS_S_V_REL|EGPS_S_V_RD|EGPS_S_V_WRT|EGPS_S_V_NOMOD),
84 (EGPS_S_V_REL|EGPS_S_V_RD|EGPS_S_V_WRT),
85 (SEC_IN_MEMORY|SEC_DATA|SEC_HAS_CONTENTS|SEC_ALLOC|SEC_LOAD) },
87 (EGPS_S_V_REL|EGPS_S_V_RD|EGPS_S_V_WRT|EGPS_S_V_NOMOD),
89 (EGPS_S_V_REL|EGPS_S_V_RD|EGPS_S_V_WRT|EGPS_S_V_NOMOD),
90 (SEC_IN_MEMORY|SEC_HAS_CONTENTS|SEC_ALLOC|SEC_LOAD) },
91 { EVAX_READONLYADDR_NAME,
92 (EGPS_S_V_PIC|EGPS_S_V_REL|EGPS_S_V_RD),
93 (SEC_DATA|SEC_READONLY),
94 (EGPS_S_V_PIC|EGPS_S_V_REL|EGPS_S_V_RD),
95 (SEC_IN_MEMORY|SEC_DATA|SEC_HAS_CONTENTS|SEC_ALLOC|SEC_READONLY|SEC_LOAD) },
97 (EGPS_S_V_PIC|EGPS_S_V_REL|EGPS_S_V_SHR|EGPS_S_V_RD|EGPS_S_V_NOMOD),
98 (SEC_DATA|SEC_READONLY),
99 (EGPS_S_V_PIC|EGPS_S_V_REL|EGPS_S_V_SHR|EGPS_S_V_RD),
100 (SEC_IN_MEMORY|SEC_DATA|SEC_HAS_CONTENTS|SEC_ALLOC|SEC_READONLY|SEC_LOAD) },
102 (EGPS_S_V_REL|EGPS_S_V_RD|EGPS_S_V_WRT),
104 (EGPS_S_V_REL|EGPS_S_V_RD|EGPS_S_V_WRT),
105 (SEC_IN_MEMORY|SEC_DATA|SEC_HAS_CONTENTS|SEC_ALLOC|SEC_LOAD) },
107 (EGPS_S_V_REL|EGPS_S_V_RD|EGPS_S_V_WRT),
109 (EGPS_S_V_REL|EGPS_S_V_RD|EGPS_S_V_WRT),
110 (SEC_IN_MEMORY|SEC_DATA|SEC_HAS_CONTENTS|SEC_ALLOC|SEC_LOAD) }
113 /* Retrieve bfd section flags by name and size */
116 evax_secflag_by_name(name, size)
122 while (evax_section_flags[i].name != NULL)
124 if (strcmp (name, evax_section_flags[i].name) == 0)
127 return evax_section_flags[i].flags_hassize;
129 return evax_section_flags[i].flags_always;
134 return evax_section_flags[i].flags_hassize;
135 return evax_section_flags[i].flags_always;
139 /* Retrieve evax section flags by name and size */
142 evax_esecflag_by_name(name, size)
148 while (evax_section_flags[i].name != NULL)
150 if (strcmp (name, evax_section_flags[i].name) == 0)
153 return evax_section_flags[i].eflags_hassize;
155 return evax_section_flags[i].eflags_always;
160 return evax_section_flags[i].eflags_hassize;
161 return evax_section_flags[i].eflags_always;
164 /*-----------------------------------------------------------------------------*/
168 struct flagdescstruct { char *name; flagword value; };
170 /* Convert flag to printable string */
173 flag2str(flagdesc, flags)
174 struct flagdescstruct *flagdesc;
182 while (flagdesc->name != NULL)
184 if ((flags & flagdesc->value) != 0)
190 strcat (res, flagdesc->name);
198 /*-----------------------------------------------------------------------------*/
201 /* Process EGSD record
202 return 0 on success, -1 on error */
205 _bfd_evax_slurp_egsd (abfd)
209 static struct flagdescstruct gpsflagdesc[] =
226 static struct flagdescstruct gsyflagdesc[] =
239 int gsd_type, gsd_size;
241 unsigned char *evax_rec;
242 flagword new_flags, old_flags;
245 evax_symbol_entry *entry;
246 unsigned long base_addr;
247 unsigned long align_addr;
250 evax_debug (2, "EGSD\n");
253 PRIV(evax_rec) += 8; /* skip type, size, l_temp */
256 /* calculate base address for each section */
261 while (PRIV(rec_size) > 0)
263 evax_rec = PRIV(evax_rec);
264 _bfd_evax_get_header_values (abfd, evax_rec, &gsd_type, &gsd_size);
269 /* program section definition */
271 name = _bfd_evax_save_counted_string ((char *)evax_rec+12);
272 section = bfd_make_section (abfd, name);
275 old_flags = bfd_getl16 (evax_rec + 6);
276 section->_raw_size = bfd_getl32 (evax_rec + 8); /* allocation */
277 new_flags = evax_secflag_by_name (name, (int) section->_raw_size);
278 if (old_flags & EGPS_S_V_REL)
279 new_flags |= SEC_RELOC;
280 if (!bfd_set_section_flags (abfd, section, new_flags))
282 section->alignment_power = evax_rec[4];
283 align_addr = (1 << section->alignment_power);
284 if ((base_addr % align_addr) != 0)
285 base_addr += (align_addr - (base_addr % align_addr));
286 section->vma = (bfd_vma)base_addr;
287 base_addr += section->_raw_size;
288 section->contents = ((unsigned char *)
289 bfd_malloc (section->_raw_size));
290 if (section->contents == NULL)
292 memset (section->contents, 0, (size_t) section->_raw_size);
293 section->_cooked_size = section->_raw_size;
295 evax_debug(3, "egsd psc %d (%s, flags %04x=%s) ",
296 section->index, name, old_flags, flag2str(gpsflagdesc, old_flags));
297 evax_debug(3, "%d bytes at 0x%08lx (mem %p)\n",
298 section->_raw_size, section->vma, section->contents);
305 /* symbol specification (definition or reference) */
307 symbol = _bfd_evax_make_empty_symbol (abfd);
311 old_flags = bfd_getl16 (evax_rec + 6);
312 new_flags = BSF_NO_FLAGS;
314 if (old_flags & EGSY_S_V_WEAK)
315 new_flags |= BSF_WEAK;
317 if (evax_rec[6] & EGSY_S_V_DEF) /* symbol definition */
320 _bfd_evax_save_counted_string ((char *)evax_rec+32);
321 if (old_flags & EGSY_S_V_NORM)
323 new_flags |= BSF_FUNCTION;
325 symbol->value = bfd_getl64 (evax_rec+8);
326 symbol->section = (asection *)((unsigned long) bfd_getl32 (evax_rec+28));
328 evax_debug(3, "egsd sym def #%d (%s, %d, %04x=%s)\n", abfd->symcount,
329 symbol->name, (int)symbol->section, old_flags, flag2str(gsyflagdesc, old_flags));
332 else /* symbol reference */
335 _bfd_evax_save_counted_string ((char *)evax_rec+8);
337 evax_debug(3, "egsd sym ref #%d (%s, %04x=%s)\n", abfd->symcount,
338 symbol->name, old_flags, flag2str(gsyflagdesc, old_flags));
340 symbol->section = bfd_make_section (abfd, BFD_UND_SECTION_NAME);
343 symbol->flags = new_flags;
345 /* save symbol in evax_symbol_table */
347 entry = (evax_symbol_entry *) bfd_hash_lookup (PRIV(evax_symbol_table), symbol->name, true, false);
348 if (entry == (evax_symbol_entry *)NULL)
350 bfd_set_error (bfd_error_no_memory);
353 if (entry->symbol != (asymbol *)NULL)
354 { /* FIXME ?, DEC C generates this */
356 evax_debug(3, "EGSD_S_C_SYM: duplicate \"%s\"\n", symbol->name);
361 entry->symbol = symbol;
362 PRIV(egsd_sym_count)++;
372 (*_bfd_error_handler) ("unknown egsd subtype %d", gsd_type);
373 bfd_set_error (bfd_error_bad_value);
378 PRIV(rec_size) -= gsd_size;
379 PRIV(evax_rec) += gsd_size;
381 } /* while (recsize > 0) */
383 if (abfd->symcount > 0)
384 abfd->flags |= HAS_SYMS;
389 /*-----------------------------------------------------------------------------*/
390 /* output routines */
392 /* Write section and symbol directory of bfd abfd */
395 _bfd_evax_write_egsd (abfd)
404 flagword new_flags, old_flags;
408 evax_debug (2, "evax_write_egsd(%p)\n", abfd);
411 /* output sections */
413 section = abfd->sections;
415 evax_debug (3, "%d sections found\n", abfd->section_count);
418 /* egsd is quadword aligned */
420 _bfd_evax_output_alignment (abfd, 8);
422 _bfd_evax_output_begin (abfd, EOBJ_S_C_EGSD, -1);
423 _bfd_evax_output_long (abfd, 0);
424 _bfd_evax_output_push (abfd); /* prepare output for subrecords */
429 evax_debug (3, "Section #%d %s, %d bytes\n", section->index, section->name, (int)section->_raw_size);
432 /* 13 bytes egsd, max 31 chars name -> should be 44 bytes */
433 if (_bfd_evax_output_check (abfd, 64) < 0)
435 _bfd_evax_output_pop (abfd);
436 _bfd_evax_output_end (abfd);
437 _bfd_evax_output_begin (abfd, EOBJ_S_C_EGSD, -1);
438 _bfd_evax_output_long (abfd, 0);
439 _bfd_evax_output_push (abfd); /* prepare output for subrecords */
442 /* Create dummy sections to keep consecutive indices */
444 while (section->index - last_index > 1)
447 evax_debug (3, "index %d, last %d\n", section->index, last_index);
449 _bfd_evax_output_begin (abfd, EGSD_S_C_PSC, -1);
450 _bfd_evax_output_short (abfd, 0);
451 _bfd_evax_output_short (abfd, 0);
452 _bfd_evax_output_long (abfd, 0);
453 sprintf (dummy_name, ".DUMMY%02d", last_index);
454 _bfd_evax_output_counted (abfd, dummy_name);
455 _bfd_evax_output_flush (abfd);
459 /* Don't know if this is neccesary for the linker but for now it keeps
460 evax_slurp_egsd happy */
462 sname = (char *)section->name;
466 if ((*sname == 't') && (strcmp (sname, "text") == 0))
467 sname = EVAX_CODE_NAME;
468 else if ((*sname == 'd') && (strcmp (sname, "data") == 0))
469 sname = EVAX_DATA_NAME;
470 else if ((*sname == 'b') && (strcmp (sname, "bss") == 0))
471 sname = EVAX_BSS_NAME;
472 else if ((*sname == 'l') && (strcmp (sname, "link") == 0))
473 sname = EVAX_LINK_NAME;
474 else if ((*sname == 'r') && (strcmp (sname, "rdata") == 0))
475 sname = EVAX_READONLY_NAME;
476 else if ((*sname == 'l') && (strcmp (sname, "literal") == 0))
477 sname = EVAX_LITERAL_NAME;
478 else if ((*sname == 'c') && (strcmp (sname, "comm") == 0))
479 sname = EVAX_COMMON_NAME;
480 else if ((*sname == 'l') && (strcmp (sname, "lcomm") == 0))
481 sname = EVAX_LOCAL_NAME;
484 sname = _bfd_evax_length_hash_symbol (abfd, sname, EOBJ_S_C_SECSIZ);
486 _bfd_evax_output_begin (abfd, EGSD_S_C_PSC, -1);
487 _bfd_evax_output_short (abfd, section->alignment_power & 0xff);
488 if (bfd_is_com_section (section))
490 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);
494 new_flags = evax_esecflag_by_name (sname, section->_raw_size);
496 _bfd_evax_output_short (abfd, new_flags);
497 _bfd_evax_output_long (abfd, section->_raw_size);
498 _bfd_evax_output_counted (abfd, sname);
499 _bfd_evax_output_flush (abfd);
501 last_index = section->index;
502 section = section->next;
508 evax_debug (3, "%d symbols found\n", abfd->symcount);
511 bfd_set_start_address (abfd, (bfd_vma)-1);
513 for (symnum = 0; symnum < abfd->symcount; symnum++)
516 symbol = abfd->outsymbols[symnum];
517 if (*(symbol->name) == '_')
519 if (strcmp (symbol->name, "__main") == 0)
520 bfd_set_start_address (abfd, (bfd_vma)symbol->value);
522 old_flags = symbol->flags;
524 if (old_flags & BSF_FILE)
527 if (((old_flags & (BSF_GLOBAL|BSF_WEAK)) == 0) /* not xdef */
528 && (!bfd_is_und_section (symbol->section))) /* and not xref */
529 continue; /* dont output */
531 /* 13 bytes egsd, max 64 chars name -> should be 77 bytes */
533 if (_bfd_evax_output_check (abfd, 80) < 0)
535 _bfd_evax_output_pop (abfd);
536 _bfd_evax_output_end (abfd);
537 _bfd_evax_output_begin (abfd, EOBJ_S_C_EGSD, -1);
538 _bfd_evax_output_long (abfd, 0);
539 _bfd_evax_output_push (abfd); /* prepare output for subrecords */
542 _bfd_evax_output_begin (abfd, EGSD_S_C_SYM, -1);
544 _bfd_evax_output_short (abfd, 0); /* data type, alignment */
548 if (old_flags & BSF_WEAK)
549 new_flags |= EGSY_S_V_WEAK;
550 if (bfd_is_com_section (symbol->section)) /* .comm */
551 new_flags |= (EGSY_S_V_WEAK|EGSY_S_V_COMM);
553 if (old_flags & BSF_FUNCTION)
555 new_flags |= EGSY_S_V_NORM;
556 new_flags |= EGSY_S_V_REL;
558 if (old_flags & (BSF_GLOBAL|BSF_WEAK))
560 new_flags |= EGSY_S_V_DEF;
561 if (!bfd_is_abs_section (symbol->section))
562 new_flags |= EGSY_S_V_REL;
564 _bfd_evax_output_short (abfd, new_flags);
566 if (old_flags & (BSF_GLOBAL|BSF_WEAK)) /* symbol definition */
568 if (old_flags & BSF_FUNCTION)
570 _bfd_evax_output_quad (abfd, symbol->value);
571 _bfd_evax_output_quad (abfd,
572 ((asymbol *)(symbol->udata.p))->value);
573 _bfd_evax_output_long (abfd,
574 (((asymbol *)(symbol->udata.p))
576 _bfd_evax_output_long (abfd, symbol->section->index);
580 _bfd_evax_output_quad (abfd, symbol->value); /* L_VALUE */
581 _bfd_evax_output_quad (abfd, 0); /* L_CODE_ADDRESS */
582 _bfd_evax_output_long (abfd, 0); /* L_CA_PSINDX */
583 _bfd_evax_output_long (abfd, symbol->section->index);/* L_PSINDX */
586 _bfd_evax_output_counted (abfd, _bfd_evax_length_hash_symbol (abfd, symbol->name, EOBJ_S_C_SYMSIZ));
588 _bfd_evax_output_flush (abfd);
592 _bfd_evax_output_alignment (abfd, 8);
593 _bfd_evax_output_pop (abfd);
594 _bfd_evax_output_end (abfd);