1 /* evax-egsd.c -- BFD back-end for ALPHA EVAX (openVMS/Alpha) files.
2 Copyright 1996, 1997, 1998 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. */
34 /*-----------------------------------------------------------------------------*/
36 /* sections every evax object file has */
38 #define EVAX_ABS_NAME "$ABS$"
39 #define EVAX_CODE_NAME "$CODE$"
40 #define EVAX_LINK_NAME "$LINK$"
41 #define EVAX_DATA_NAME "$DATA$"
42 #define EVAX_BSS_NAME "$BSS$"
43 #define EVAX_READONLYADDR_NAME "$READONLY_ADDR$"
44 #define EVAX_READONLY_NAME "$READONLY$"
45 #define EVAX_LITERAL_NAME "$LITERAL$"
46 #define EVAX_COMMON_NAME "$COMMON$"
47 #define EVAX_LOCAL_NAME "$LOCAL$"
49 struct sec_flags_struct
{
50 char *name
; /* name of section */
52 flagword flags_always
; /* flags we set always */
54 flagword flags_hassize
; /* flags we set if the section has a size > 0 */
57 /* These flags are deccrtl/vaxcrtl (openVMS 6.2) compatible */
59 static struct sec_flags_struct evax_section_flags
[] = {
64 (SEC_IN_MEMORY
|SEC_DATA
|SEC_HAS_CONTENTS
|SEC_ALLOC
|SEC_LOAD
) },
66 (EGPS_S_V_PIC
|EGPS_S_V_REL
|EGPS_S_V_SHR
|EGPS_S_V_EXE
),
68 (EGPS_S_V_PIC
|EGPS_S_V_REL
|EGPS_S_V_SHR
|EGPS_S_V_EXE
),
69 (SEC_IN_MEMORY
|SEC_CODE
|SEC_HAS_CONTENTS
|SEC_ALLOC
|SEC_LOAD
) },
71 (EGPS_S_V_PIC
|EGPS_S_V_REL
|EGPS_S_V_SHR
|EGPS_S_V_RD
|EGPS_S_V_NOMOD
),
72 (SEC_DATA
|SEC_READONLY
),
73 (EGPS_S_V_PIC
|EGPS_S_V_REL
|EGPS_S_V_SHR
|EGPS_S_V_RD
),
74 (SEC_IN_MEMORY
|SEC_DATA
|SEC_HAS_CONTENTS
|SEC_ALLOC
|SEC_READONLY
|SEC_LOAD
) },
76 (EGPS_S_V_REL
|EGPS_S_V_RD
),
77 (SEC_DATA
|SEC_READONLY
),
78 (EGPS_S_V_REL
|EGPS_S_V_RD
),
79 (SEC_IN_MEMORY
|SEC_DATA
|SEC_HAS_CONTENTS
|SEC_ALLOC
|SEC_READONLY
|SEC_LOAD
) },
81 (EGPS_S_V_REL
|EGPS_S_V_RD
|EGPS_S_V_WRT
|EGPS_S_V_NOMOD
),
83 (EGPS_S_V_REL
|EGPS_S_V_RD
|EGPS_S_V_WRT
),
84 (SEC_IN_MEMORY
|SEC_DATA
|SEC_HAS_CONTENTS
|SEC_ALLOC
|SEC_LOAD
) },
86 (EGPS_S_V_REL
|EGPS_S_V_RD
|EGPS_S_V_WRT
|EGPS_S_V_NOMOD
),
88 (EGPS_S_V_REL
|EGPS_S_V_RD
|EGPS_S_V_WRT
|EGPS_S_V_NOMOD
),
89 (SEC_IN_MEMORY
|SEC_HAS_CONTENTS
|SEC_ALLOC
|SEC_LOAD
) },
90 { EVAX_READONLYADDR_NAME
,
91 (EGPS_S_V_PIC
|EGPS_S_V_REL
|EGPS_S_V_RD
),
92 (SEC_DATA
|SEC_READONLY
),
93 (EGPS_S_V_PIC
|EGPS_S_V_REL
|EGPS_S_V_RD
),
94 (SEC_IN_MEMORY
|SEC_DATA
|SEC_HAS_CONTENTS
|SEC_ALLOC
|SEC_READONLY
|SEC_LOAD
) },
96 (EGPS_S_V_PIC
|EGPS_S_V_REL
|EGPS_S_V_SHR
|EGPS_S_V_RD
|EGPS_S_V_NOMOD
),
97 (SEC_DATA
|SEC_READONLY
),
98 (EGPS_S_V_PIC
|EGPS_S_V_REL
|EGPS_S_V_SHR
|EGPS_S_V_RD
),
99 (SEC_IN_MEMORY
|SEC_DATA
|SEC_HAS_CONTENTS
|SEC_ALLOC
|SEC_READONLY
|SEC_LOAD
) },
101 (EGPS_S_V_REL
|EGPS_S_V_RD
|EGPS_S_V_WRT
),
103 (EGPS_S_V_REL
|EGPS_S_V_RD
|EGPS_S_V_WRT
),
104 (SEC_IN_MEMORY
|SEC_DATA
|SEC_HAS_CONTENTS
|SEC_ALLOC
|SEC_LOAD
) },
106 (EGPS_S_V_REL
|EGPS_S_V_RD
|EGPS_S_V_WRT
),
108 (EGPS_S_V_REL
|EGPS_S_V_RD
|EGPS_S_V_WRT
),
109 (SEC_IN_MEMORY
|SEC_DATA
|SEC_HAS_CONTENTS
|SEC_ALLOC
|SEC_LOAD
) }
112 /* Retrieve bfd section flags by name and size */
115 evax_secflag_by_name(name
, size
)
121 while (evax_section_flags
[i
].name
!= NULL
)
123 if (strcmp (name
, evax_section_flags
[i
].name
) == 0)
126 return evax_section_flags
[i
].flags_hassize
;
128 return evax_section_flags
[i
].flags_always
;
133 return evax_section_flags
[i
].flags_hassize
;
134 return evax_section_flags
[i
].flags_always
;
138 /* Retrieve evax section flags by name and size */
141 evax_esecflag_by_name(name
, size
)
147 while (evax_section_flags
[i
].name
!= NULL
)
149 if (strcmp (name
, evax_section_flags
[i
].name
) == 0)
152 return evax_section_flags
[i
].eflags_hassize
;
154 return evax_section_flags
[i
].eflags_always
;
159 return evax_section_flags
[i
].eflags_hassize
;
160 return evax_section_flags
[i
].eflags_always
;
163 /*-----------------------------------------------------------------------------*/
167 struct flagdescstruct
{ char *name
; flagword value
; };
169 /* Convert flag to printable string */
172 flag2str(flagdesc
, flags
)
173 struct flagdescstruct
*flagdesc
;
181 while (flagdesc
->name
!= NULL
)
183 if ((flags
& flagdesc
->value
) != 0)
189 strcat (res
, flagdesc
->name
);
197 /*-----------------------------------------------------------------------------*/
200 /* Process EGSD record
201 return 0 on success, -1 on error */
204 _bfd_evax_slurp_egsd (abfd
)
208 static struct flagdescstruct gpsflagdesc
[] =
225 static struct flagdescstruct gsyflagdesc
[] =
238 int gsd_type
, gsd_size
;
240 unsigned char *evax_rec
;
241 flagword new_flags
, old_flags
;
244 evax_symbol_entry
*entry
;
245 unsigned long base_addr
;
246 unsigned long align_addr
;
249 evax_debug (2, "EGSD\n");
252 PRIV(evax_rec
) += 8; /* skip type, size, l_temp */
255 /* calculate base address for each section */
260 while (PRIV(rec_size
) > 0)
262 evax_rec
= PRIV(evax_rec
);
263 _bfd_evax_get_header_values (abfd
, evax_rec
, &gsd_type
, &gsd_size
);
268 /* program section definition */
270 name
= _bfd_evax_save_counted_string ((char *)evax_rec
+12);
271 section
= bfd_make_section (abfd
, name
);
274 old_flags
= bfd_getl16 (evax_rec
+ 6);
275 section
->_raw_size
= bfd_getl32 (evax_rec
+ 8); /* allocation */
276 new_flags
= evax_secflag_by_name (name
, (int) section
->_raw_size
);
277 if (old_flags
& EGPS_S_V_REL
)
278 new_flags
|= SEC_RELOC
;
279 if (!bfd_set_section_flags (abfd
, section
, new_flags
))
281 section
->alignment_power
= evax_rec
[4];
282 align_addr
= (1 << section
->alignment_power
);
283 if ((base_addr
% align_addr
) != 0)
284 base_addr
+= (align_addr
- (base_addr
% align_addr
));
285 section
->vma
= (bfd_vma
)base_addr
;
286 base_addr
+= section
->_raw_size
;
287 section
->contents
= ((unsigned char *)
288 bfd_malloc (section
->_raw_size
));
289 if (section
->contents
== NULL
)
291 memset (section
->contents
, 0, (size_t) section
->_raw_size
);
292 section
->_cooked_size
= section
->_raw_size
;
294 evax_debug(3, "egsd psc %d (%s, flags %04x=%s) ",
295 section
->index
, name
, old_flags
, flag2str(gpsflagdesc
, old_flags
));
296 evax_debug(3, "%d bytes at 0x%08lx (mem %p)\n",
297 section
->_raw_size
, section
->vma
, section
->contents
);
304 /* symbol specification (definition or reference) */
306 symbol
= _bfd_evax_make_empty_symbol (abfd
);
310 old_flags
= bfd_getl16 (evax_rec
+ 6);
311 new_flags
= BSF_NO_FLAGS
;
313 if (old_flags
& EGSY_S_V_WEAK
)
314 new_flags
|= BSF_WEAK
;
316 if (evax_rec
[6] & EGSY_S_V_DEF
) /* symbol definition */
319 _bfd_evax_save_counted_string ((char *)evax_rec
+32);
320 if (old_flags
& EGSY_S_V_NORM
)
322 new_flags
|= BSF_FUNCTION
;
324 symbol
->value
= bfd_getl64 (evax_rec
+8);
325 symbol
->section
= (asection
*)((unsigned long) bfd_getl32 (evax_rec
+28));
327 evax_debug(3, "egsd sym def #%d (%s, %d, %04x=%s)\n", abfd
->symcount
,
328 symbol
->name
, (int)symbol
->section
, old_flags
, flag2str(gsyflagdesc
, old_flags
));
331 else /* symbol reference */
334 _bfd_evax_save_counted_string ((char *)evax_rec
+8);
336 evax_debug(3, "egsd sym ref #%d (%s, %04x=%s)\n", abfd
->symcount
,
337 symbol
->name
, old_flags
, flag2str(gsyflagdesc
, old_flags
));
339 symbol
->section
= bfd_make_section (abfd
, BFD_UND_SECTION_NAME
);
342 symbol
->flags
= new_flags
;
344 /* save symbol in evax_symbol_table */
346 entry
= (evax_symbol_entry
*) bfd_hash_lookup (PRIV(evax_symbol_table
), symbol
->name
, true, false);
347 if (entry
== (evax_symbol_entry
*)NULL
)
349 bfd_set_error (bfd_error_no_memory
);
352 if (entry
->symbol
!= (asymbol
*)NULL
)
353 { /* FIXME ?, DEC C generates this */
355 evax_debug(3, "EGSD_S_C_SYM: duplicate \"%s\"\n", symbol
->name
);
360 entry
->symbol
= symbol
;
361 PRIV(egsd_sym_count
)++;
371 (*_bfd_error_handler
) (_("unknown egsd subtype %d"), gsd_type
);
372 bfd_set_error (bfd_error_bad_value
);
377 PRIV(rec_size
) -= gsd_size
;
378 PRIV(evax_rec
) += gsd_size
;
380 } /* while (recsize > 0) */
382 if (abfd
->symcount
> 0)
383 abfd
->flags
|= HAS_SYMS
;
388 /*-----------------------------------------------------------------------------*/
389 /* output routines */
391 /* Write section and symbol directory of bfd abfd */
394 _bfd_evax_write_egsd (abfd
)
403 flagword new_flags
, old_flags
;
407 evax_debug (2, "evax_write_egsd(%p)\n", abfd
);
410 /* output sections */
412 section
= abfd
->sections
;
414 evax_debug (3, "%d sections found\n", abfd
->section_count
);
417 /* egsd is quadword aligned */
419 _bfd_evax_output_alignment (abfd
, 8);
421 _bfd_evax_output_begin (abfd
, EOBJ_S_C_EGSD
, -1);
422 _bfd_evax_output_long (abfd
, 0);
423 _bfd_evax_output_push (abfd
); /* prepare output for subrecords */
428 evax_debug (3, "Section #%d %s, %d bytes\n", section
->index
, section
->name
, (int)section
->_raw_size
);
431 /* 13 bytes egsd, max 31 chars name -> should be 44 bytes */
432 if (_bfd_evax_output_check (abfd
, 64) < 0)
434 _bfd_evax_output_pop (abfd
);
435 _bfd_evax_output_end (abfd
);
436 _bfd_evax_output_begin (abfd
, EOBJ_S_C_EGSD
, -1);
437 _bfd_evax_output_long (abfd
, 0);
438 _bfd_evax_output_push (abfd
); /* prepare output for subrecords */
441 /* Create dummy sections to keep consecutive indices */
443 while (section
->index
- last_index
> 1)
446 evax_debug (3, "index %d, last %d\n", section
->index
, last_index
);
448 _bfd_evax_output_begin (abfd
, EGSD_S_C_PSC
, -1);
449 _bfd_evax_output_short (abfd
, 0);
450 _bfd_evax_output_short (abfd
, 0);
451 _bfd_evax_output_long (abfd
, 0);
452 sprintf (dummy_name
, ".DUMMY%02d", last_index
);
453 _bfd_evax_output_counted (abfd
, dummy_name
);
454 _bfd_evax_output_flush (abfd
);
458 /* Don't know if this is neccesary for the linker but for now it keeps
459 evax_slurp_egsd happy */
461 sname
= (char *)section
->name
;
465 if ((*sname
== 't') && (strcmp (sname
, "text") == 0))
466 sname
= EVAX_CODE_NAME
;
467 else if ((*sname
== 'd') && (strcmp (sname
, "data") == 0))
468 sname
= EVAX_DATA_NAME
;
469 else if ((*sname
== 'b') && (strcmp (sname
, "bss") == 0))
470 sname
= EVAX_BSS_NAME
;
471 else if ((*sname
== 'l') && (strcmp (sname
, "link") == 0))
472 sname
= EVAX_LINK_NAME
;
473 else if ((*sname
== 'r') && (strcmp (sname
, "rdata") == 0))
474 sname
= EVAX_READONLY_NAME
;
475 else if ((*sname
== 'l') && (strcmp (sname
, "literal") == 0))
476 sname
= EVAX_LITERAL_NAME
;
477 else if ((*sname
== 'c') && (strcmp (sname
, "comm") == 0))
478 sname
= EVAX_COMMON_NAME
;
479 else if ((*sname
== 'l') && (strcmp (sname
, "lcomm") == 0))
480 sname
= EVAX_LOCAL_NAME
;
483 sname
= _bfd_evax_length_hash_symbol (abfd
, sname
, EOBJ_S_C_SECSIZ
);
485 _bfd_evax_output_begin (abfd
, EGSD_S_C_PSC
, -1);
486 _bfd_evax_output_short (abfd
, section
->alignment_power
& 0xff);
487 if (bfd_is_com_section (section
))
489 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
);
493 new_flags
= evax_esecflag_by_name (sname
, section
->_raw_size
);
495 _bfd_evax_output_short (abfd
, new_flags
);
496 _bfd_evax_output_long (abfd
, section
->_raw_size
);
497 _bfd_evax_output_counted (abfd
, sname
);
498 _bfd_evax_output_flush (abfd
);
500 last_index
= section
->index
;
501 section
= section
->next
;
507 evax_debug (3, "%d symbols found\n", abfd
->symcount
);
510 bfd_set_start_address (abfd
, (bfd_vma
)-1);
512 for (symnum
= 0; symnum
< abfd
->symcount
; symnum
++)
515 symbol
= abfd
->outsymbols
[symnum
];
516 if (*(symbol
->name
) == '_')
518 if (strcmp (symbol
->name
, "__main") == 0)
519 bfd_set_start_address (abfd
, (bfd_vma
)symbol
->value
);
521 old_flags
= symbol
->flags
;
523 if (old_flags
& BSF_FILE
)
526 if (((old_flags
& (BSF_GLOBAL
|BSF_WEAK
)) == 0) /* not xdef */
527 && (!bfd_is_und_section (symbol
->section
))) /* and not xref */
528 continue; /* dont output */
530 /* 13 bytes egsd, max 64 chars name -> should be 77 bytes */
532 if (_bfd_evax_output_check (abfd
, 80) < 0)
534 _bfd_evax_output_pop (abfd
);
535 _bfd_evax_output_end (abfd
);
536 _bfd_evax_output_begin (abfd
, EOBJ_S_C_EGSD
, -1);
537 _bfd_evax_output_long (abfd
, 0);
538 _bfd_evax_output_push (abfd
); /* prepare output for subrecords */
541 _bfd_evax_output_begin (abfd
, EGSD_S_C_SYM
, -1);
543 _bfd_evax_output_short (abfd
, 0); /* data type, alignment */
547 if (old_flags
& BSF_WEAK
)
548 new_flags
|= EGSY_S_V_WEAK
;
549 if (bfd_is_com_section (symbol
->section
)) /* .comm */
550 new_flags
|= (EGSY_S_V_WEAK
|EGSY_S_V_COMM
);
552 if (old_flags
& BSF_FUNCTION
)
554 new_flags
|= EGSY_S_V_NORM
;
555 new_flags
|= EGSY_S_V_REL
;
557 if (old_flags
& (BSF_GLOBAL
|BSF_WEAK
))
559 new_flags
|= EGSY_S_V_DEF
;
560 if (!bfd_is_abs_section (symbol
->section
))
561 new_flags
|= EGSY_S_V_REL
;
563 _bfd_evax_output_short (abfd
, new_flags
);
565 if (old_flags
& (BSF_GLOBAL
|BSF_WEAK
)) /* symbol definition */
567 if (old_flags
& BSF_FUNCTION
)
569 _bfd_evax_output_quad (abfd
, symbol
->value
);
570 _bfd_evax_output_quad (abfd
,
571 ((asymbol
*)(symbol
->udata
.p
))->value
);
572 _bfd_evax_output_long (abfd
,
573 (((asymbol
*)(symbol
->udata
.p
))
575 _bfd_evax_output_long (abfd
, symbol
->section
->index
);
579 _bfd_evax_output_quad (abfd
, symbol
->value
); /* L_VALUE */
580 _bfd_evax_output_quad (abfd
, 0); /* L_CODE_ADDRESS */
581 _bfd_evax_output_long (abfd
, 0); /* L_CA_PSINDX */
582 _bfd_evax_output_long (abfd
, symbol
->section
->index
);/* L_PSINDX */
585 _bfd_evax_output_counted (abfd
, _bfd_evax_length_hash_symbol (abfd
, symbol
->name
, EOBJ_S_C_SYMSIZ
));
587 _bfd_evax_output_flush (abfd
);
591 _bfd_evax_output_alignment (abfd
, 8);
592 _bfd_evax_output_pop (abfd
);
593 _bfd_evax_output_end (abfd
);