1 /* BFD back-end for VERSAdos-E objects.
3 Versados is a Motorola trademark.
5 Copyright 1995 Free Software Foundation, Inc.
6 Written by Steve Chamberlain of Cygnus Support <sac@cygnus.com>.
8 This file is part of BFD, the Binary File Descriptor library.
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. */
26 VERSAdos-E relocateable object file format
30 This module supports reading of VERSAdos relocateable
33 A VERSAdos file looks like contains
35 o Indentification Record
36 o External Symbol Definition Record
46 #include "libiberty.h"
49 static boolean versados_mkobject
PARAMS ((bfd
*));
50 static boolean versados_scan
PARAMS ((bfd
*));
51 static const bfd_target
*versados_object_p
PARAMS ((bfd
*));
60 #define ES_BASE 17 /* first symbol has esdid 17 */
62 /* Per file target dependent information */
64 /* one for each section */
67 asection
*section
; /* ptr to bfd version */
68 unsigned char *contents
; /* used to build image */
70 int relocs
; /* reloc count, valid end of pass 1 */
71 int donerel
; /* have relocs been translated */
74 typedef struct versados_data_struct
76 int es_done
; /* count of symbol index, starts at ES_BASE */
77 asymbol
*symbols
; /* pointer to local symbols */
78 char *strings
; /* strings of all the above */
79 int stringlen
; /* len of string table (valid end of pass1) */
80 int nsecsyms
; /* number of sections */
82 int ndefs
; /* number of exported symbols (they dont get esdids) */
83 int nrefs
; /* number of imported symbols (valid end of pass1) */
85 int ref_idx
; /* current processed value of the above */
90 struct esdid e
[16]; /* per section info */
91 int alert
; /* to see if we're trampling */
92 asymbol
*rest
[256 - 16]; /* per symbol info */
97 #define VDATA(abfd) (abfd->tdata.versados_data)
98 #define EDATA(abfd, n) (abfd->tdata.versados_data->e[n])
99 #define RDATA(abfd, n) (abfd->tdata.versados_data->rest[n])
105 unsigned char map
[4];
107 unsigned char data
[200];
113 char type
; /* record type */
114 char name
[10]; /* module name */
115 char rev
; /* module rev number */
131 unsigned char esd_entries
[1];
135 #define ESD_STD_REL_SEC 2
136 #define ESD_SHRT_REL_SEC 3
137 #define ESD_XDEF_IN_SEC 4
138 #define ESD_XREF_SYM 7
139 #define ESD_XREF_SEC 6
140 #define ESD_XDEF_IN_ABS 5
144 struct ext_vheader header
;
149 /* Initialize by filling in the hex conversion array. */
155 /* Set up the tdata information. */
158 versados_mkobject (abfd
)
161 if (abfd
->tdata
.versados_data
== NULL
)
163 tdata_type
*tdata
= (tdata_type
*) bfd_alloc (abfd
, sizeof (tdata_type
));
166 abfd
->tdata
.versados_data
= tdata
;
167 tdata
->symbols
= NULL
;
168 VDATA (abfd
)->alert
= 0x12345678;
171 bfd_default_set_arch_mach (abfd
, bfd_arch_m68k
, 0);
176 /* Report a problem in an S record file. FIXME: This probably should
177 not call fprintf, but we really do need some mechanism for printing
183 versados_new_symbol (abfd
, snum
, name
, val
, sec
)
190 asymbol
*n
= VDATA (abfd
)->symbols
+ snum
;
201 get_record (abfd
, ptr
)
205 bfd_read (&ptr
->size
, 1, 1, abfd
);
206 if (bfd_read ((char *) ptr
+ 1, 1, ptr
->size
, abfd
) != ptr
->size
)
215 unsigned char *p
= *pp
;
217 return (p
[0] << 24) | (p
[1] << 16) | (p
[2] << 8) | (p
[3] << 0);
225 char *p
= (char *) *pp
;
238 new_symbol_string (abfd
, name
)
242 char *n
= VDATA (abfd
)->strings
;
243 strcpy (VDATA (abfd
)->strings
, name
);
244 VDATA (abfd
)->strings
+= strlen (VDATA (abfd
)->strings
) + 1;
250 process_esd (abfd
, esd
, pass
)
255 /* Read through the ext def for the est entries */
256 int togo
= esd
->size
- 2;
261 unsigned char *ptr
= esd
->esd_entries
;
262 unsigned char *end
= ptr
+ togo
;
265 int scn
= *ptr
& 0xf;
266 int typ
= (*ptr
>> 4) & 0xf;
268 /* Declare this section */
269 sprintf (name
, "%d", scn
);
270 sec
= bfd_make_section_old_way (abfd
, strdup (name
));
271 sec
->target_index
= scn
;
272 EDATA (abfd
, scn
).section
= sec
;
281 int snum
= VDATA (abfd
)->ref_idx
++;
285 VDATA (abfd
)->stringlen
+= strlen (name
) + 1;
291 char *n
= new_symbol_string (abfd
, name
);
292 s
= versados_new_symbol (abfd
, snum
, n
, 0,
293 &bfd_und_section
, scn
);
294 esidx
= VDATA (abfd
)->es_done
++;
295 RDATA (abfd
, esidx
- ES_BASE
) = s
;
303 start
= get_4 (&ptr
);
305 case ESD_STD_REL_SEC
:
306 case ESD_SHRT_REL_SEC
:
308 sec
->_raw_size
= get_4 (&ptr
);
309 sec
->flags
|= SEC_ALLOC
;
312 case ESD_XDEF_IN_ABS
:
313 sec
= (asection
*) & bfd_abs_section
;
314 case ESD_XDEF_IN_SEC
:
316 int snum
= VDATA (abfd
)->def_idx
++;
322 /* Just remember the symbol */
323 VDATA (abfd
)->stringlen
+= strlen (name
) + 1;
328 char *n
= new_symbol_string (abfd
, name
);
329 s
= versados_new_symbol (abfd
, snum
+ VDATA (abfd
)->nrefs
, n
, val
, sec
, scn
);
330 s
->flags
|= BSF_GLOBAL
;
340 #define R_RELWORD_NEG 3
341 #define R_RELLONG_NEG 4
343 reloc_howto_type versados_howto_table
[] =
345 HOWTO (R_RELWORD
, 0, 1, 16, false,
346 0, complain_overflow_dont
, 0,
347 "+v16", true, 0x0000ffff, 0x0000ffff, false),
348 HOWTO (R_RELLONG
, 0, 2, 32, false,
349 0, complain_overflow_dont
, 0,
350 "+v32", true, 0xffffffff, 0xffffffff, false),
352 HOWTO (R_RELWORD_NEG
, 0, -1, 16, false,
353 0, complain_overflow_dont
, 0,
354 "-v16", true, 0x0000ffff, 0x0000ffff, false),
355 HOWTO (R_RELLONG_NEG
, 0, -2, 32, false,
356 0, complain_overflow_dont
, 0,
357 "-v32", true, 0xffffffff, 0xffffffff, false),
362 get_offset (len
, ptr
)
373 for (i
= 1; i
< len
; i
++)
374 val
= (val
<< 8) | *ptr
++;
381 process_otr (abfd
, otr
, pass
)
387 unsigned char *srcp
= otr
->data
;
388 unsigned char *endp
= (unsigned char *) otr
+ otr
->size
;
389 unsigned int bits
= (otr
->map
[0] << 24)
390 | (otr
->map
[1] << 16)
392 | (otr
->map
[3] << 0);
394 struct esdid
*esdid
= &EDATA (abfd
, otr
->esdid
- 1);
395 unsigned char *contents
= esdid
->contents
;
396 int need_contents
= 0;
397 unsigned int dst_idx
= esdid
->pc
;
399 for (shift
= (1 << 31); shift
&& srcp
< endp
; shift
>>= 1)
404 int esdids
= (flag
>> 5) & 0x7;
405 int sizeinwords
= ((flag
>> 3) & 1) ? 2 : 1;
406 int offsetlen
= flag
& 0x7;
412 /* A zero esdid means the new pc is the offset given */
413 dst_idx
+= get_offset (offsetlen
, srcp
);
418 int val
= get_offset (offsetlen
, srcp
+ esdids
);
422 for (j
= 0; j
< sizeinwords
* 2; j
++)
424 contents
[dst_idx
+ (sizeinwords
* 2) - j
- 1] = val
;
428 for (j
= 0; j
< esdids
; j
++)
434 int rn
= EDATA (abfd
, otr
->esdid
- 1).relocs
++;
437 /* this is the first pass over the data,
438 just remember that we need a reloc */
443 EDATA (abfd
, otr
->esdid
- 1).section
->relocation
+ rn
;
444 n
->address
= dst_idx
;
446 n
->sym_ptr_ptr
= (asymbol
**) esdid
;
448 n
->howto
= versados_howto_table
+ ((j
& 1) * 2) + (sizeinwords
- 1);
453 dst_idx
+= sizeinwords
* 2;
459 if (dst_idx
< esdid
->section
->_raw_size
)
462 /* absolute code, comes in 16 bit lumps */
463 contents
[dst_idx
] = srcp
[0];
464 contents
[dst_idx
+ 1] = srcp
[1];
470 EDATA (abfd
, otr
->esdid
- 1).pc
= dst_idx
;
472 if (!contents
&& need_contents
)
473 esdid
->contents
= (unsigned char *) bfd_alloc (abfd
, esdid
->section
->_raw_size
);
487 VDATA (abfd
)->nrefs
= 0;
488 VDATA (abfd
)->ndefs
= 0;
489 VDATA (abfd
)->ref_idx
= 0;
490 VDATA (abfd
)->def_idx
= 0;
495 if (!get_record (abfd
, &any
))
497 switch (any
.header
.type
)
505 process_esd (abfd
, &any
.esd
, 1);
508 process_otr (abfd
, &any
.otr
, 1);
513 /* Now allocate space for the relocs and sections */
515 VDATA (abfd
)->nrefs
= VDATA (abfd
)->ref_idx
;
516 VDATA (abfd
)->ndefs
= VDATA (abfd
)->def_idx
;
517 VDATA (abfd
)->ref_idx
= 0;
518 VDATA (abfd
)->def_idx
= 0;
520 abfd
->symcount
= VDATA (abfd
)->nrefs
+ VDATA (abfd
)->ndefs
;
522 for (i
= 0; i
< 16; i
++)
524 struct esdid
*esdid
= &EDATA (abfd
, i
);
527 esdid
->section
->relocation
528 = (arelent
*) bfd_alloc (abfd
, sizeof (arelent
) * esdid
->relocs
);
533 esdid
->section
->flags
|= SEC_HAS_CONTENTS
| SEC_LOAD
;
535 esdid
->section
->reloc_count
= esdid
->relocs
;
537 esdid
->section
->flags
|= SEC_RELOC
;
541 /* Add an entry into the symbol table for it */
543 VDATA (abfd
)->stringlen
+= strlen (esdid
->section
->name
) + 1;
547 abfd
->symcount
+= nsecs
;
549 VDATA (abfd
)->symbols
= (asymbol
*) bfd_alloc (abfd
,
550 sizeof (asymbol
) * (abfd
->symcount
));
552 VDATA (abfd
)->strings
= bfd_alloc (abfd
, VDATA (abfd
)->stringlen
);
555 /* Actually fill in the section symbols,
556 we stick them at the end of the table */
558 for (j
= VDATA (abfd
)->nrefs
+ VDATA (abfd
)->ndefs
, i
= 0; i
< 16; i
++)
560 struct esdid
*esdid
= &EDATA (abfd
, i
);
561 asection
*sec
= esdid
->section
;
564 asymbol
*s
= VDATA (abfd
)->symbols
+ j
;
565 s
->name
= new_symbol_string (abfd
, sec
->name
);
567 s
->flags
= BSF_LOCAL
;
574 abfd
->flags
|= HAS_SYMS
;
576 /* Set this to nsecs - since we've already planted the section
578 VDATA (abfd
)->nsecsyms
= nsecs
;
580 VDATA (abfd
)->ref_idx
= 0;
587 /* Check whether an existing file is a versados file. */
589 static const bfd_target
*
590 versados_object_p (abfd
)
593 struct ext_vheader ext
;
596 if (bfd_seek (abfd
, (file_ptr
) 0, SEEK_SET
))
600 bfd_read (&len
, 1, 1, abfd
);
601 if (bfd_read (&ext
.type
, 1, len
, abfd
) != len
604 bfd_set_error (bfd_error_wrong_format
);
608 /* ok, looks like a record, build the tdata and read
611 if (!versados_mkobject (abfd
)
612 || !versados_scan (abfd
))
620 versados_pass_2 (abfd
)
625 if (VDATA (abfd
)->pass_2_done
)
628 if (bfd_seek (abfd
, 0, SEEK_SET
) != 0)
631 VDATA (abfd
)->es_done
= ES_BASE
;
634 /* read records till we get to where we want to be */
638 get_record (abfd
, &any
);
639 switch (any
.header
.type
)
642 VDATA (abfd
)->pass_2_done
= 1;
645 process_esd (abfd
, &any
.esd
, 2);
648 process_otr (abfd
, &any
.otr
, 2);
655 versados_get_section_contents (abfd
, section
, location
, offset
, count
)
662 if (!versados_pass_2 (abfd
))
666 EDATA (abfd
, section
->target_index
).contents
+ offset
,
672 #define versados_get_section_contents_in_window \
673 _bfd_generic_get_section_contents_in_window
676 versados_set_section_contents (abfd
, section
, location
, offset
, bytes_to_do
)
681 bfd_size_type bytes_to_do
;
689 versados_sizeof_headers (abfd
, exec
)
697 versados_make_empty_symbol (abfd
)
700 asymbol
*new = (asymbol
*) bfd_zalloc (abfd
, sizeof (asymbol
));
706 /* Return the amount of memory needed to read the symbol table. */
709 versados_get_symtab_upper_bound (abfd
)
712 return (bfd_get_symcount (abfd
) + 1) * sizeof (asymbol
*);
715 /* Return the symbol table. */
718 versados_get_symtab (abfd
, alocation
)
722 unsigned int symcount
= bfd_get_symcount (abfd
);
726 versados_pass_2 (abfd
);
728 for (i
= 0, s
= VDATA (abfd
)->symbols
;
742 versados_get_symbol_info (ignore_abfd
, symbol
, ret
)
747 bfd_symbol_info (symbol
, ret
);
752 versados_print_symbol (ignore_abfd
, afile
, symbol
, how
)
756 bfd_print_symbol_type how
;
758 FILE *file
= (FILE *) afile
;
761 case bfd_print_symbol_name
:
762 fprintf (file
, "%s", symbol
->name
);
765 bfd_print_symbol_vandf ((PTR
) file
, symbol
);
766 fprintf (file
, " %-5s %s",
767 symbol
->section
->name
,
774 versados_get_reloc_upper_bound (abfd
, asect
)
778 return (asect
->reloc_count
+ 1) * sizeof (arelent
*);
783 versados_canonicalize_reloc (abfd
, section
, relptr
, symbols
)
792 versados_pass_2 (abfd
);
793 src
= section
->relocation
;
794 if (!EDATA (abfd
, section
->target_index
).donerel
)
796 EDATA (abfd
, section
->target_index
).donerel
= 1;
797 /* translate from indexes to symptr ptrs */
798 for (count
= 0; count
< section
->reloc_count
; count
++)
800 int esdid
= (int) src
[count
].sym_ptr_ptr
;
804 src
[count
].sym_ptr_ptr
= bfd_abs_section
.symbol_ptr_ptr
;
806 else if (esdid
< ES_BASE
) /* Section relative thing */
808 struct esdid
*e
= &EDATA (abfd
, esdid
- 1);
811 /** relocation relative to section which was
814 src
[count
].sym_ptr_ptr
= e
->section
->symbol_ptr_ptr
;
818 src
[count
].sym_ptr_ptr
= symbols
+ esdid
- ES_BASE
;
824 for (count
= 0; count
< section
->reloc_count
; count
++)
829 return section
->reloc_count
;
832 #define versados_close_and_cleanup _bfd_generic_close_and_cleanup
833 #define versados_bfd_free_cached_info _bfd_generic_bfd_free_cached_info
834 #define versados_new_section_hook _bfd_generic_new_section_hook
836 #define versados_bfd_is_local_label bfd_generic_is_local_label
837 #define versados_get_lineno _bfd_nosymbols_get_lineno
838 #define versados_find_nearest_line _bfd_nosymbols_find_nearest_line
839 #define versados_bfd_make_debug_symbol _bfd_nosymbols_bfd_make_debug_symbol
840 #define versados_read_minisymbols _bfd_generic_read_minisymbols
841 #define versados_minisymbol_to_symbol _bfd_generic_minisymbol_to_symbol
843 #define versados_bfd_reloc_type_lookup _bfd_norelocs_bfd_reloc_type_lookup
845 #define versados_set_arch_mach bfd_default_set_arch_mach
847 #define versados_bfd_get_relocated_section_contents \
848 bfd_generic_get_relocated_section_contents
849 #define versados_bfd_relax_section bfd_generic_relax_section
850 #define versados_bfd_link_hash_table_create _bfd_generic_link_hash_table_create
851 #define versados_bfd_link_add_symbols _bfd_generic_link_add_symbols
852 #define versados_bfd_final_link _bfd_generic_final_link
853 #define versados_bfd_link_split_section _bfd_generic_link_split_section
855 const bfd_target versados_vec
=
857 "versados", /* name */
858 bfd_target_versados_flavour
,
859 true, /* target byte order */
860 true, /* target headers byte order */
861 (HAS_RELOC
| EXEC_P
| /* object flags */
862 HAS_LINENO
| HAS_DEBUG
|
863 HAS_SYMS
| HAS_LOCALS
| WP_TEXT
| D_PAGED
),
864 (SEC_CODE
| SEC_DATA
| SEC_ROM
| SEC_HAS_CONTENTS
865 | SEC_ALLOC
| SEC_LOAD
| SEC_RELOC
), /* section flags */
866 0, /* leading underscore */
867 ' ', /* ar_pad_char */
868 16, /* ar_max_namelen */
869 bfd_getb64
, bfd_getb_signed_64
, bfd_putb64
,
870 bfd_getb32
, bfd_getb_signed_32
, bfd_putb32
,
871 bfd_getb16
, bfd_getb_signed_16
, bfd_putb16
, /* data */
872 bfd_getb64
, bfd_getb_signed_64
, bfd_putb64
,
873 bfd_getb32
, bfd_getb_signed_32
, bfd_putb32
,
874 bfd_getb16
, bfd_getb_signed_16
, bfd_putb16
, /* hdrs */
878 versados_object_p
, /* bfd_check_format */
885 _bfd_generic_mkarchive
,
888 { /* bfd_write_contents */
891 _bfd_write_archive_contents
,
895 BFD_JUMP_TABLE_GENERIC (versados
),
896 BFD_JUMP_TABLE_COPY (_bfd_generic
),
897 BFD_JUMP_TABLE_CORE (_bfd_nocore
),
898 BFD_JUMP_TABLE_ARCHIVE (_bfd_noarchive
),
899 BFD_JUMP_TABLE_SYMBOLS (versados
),
900 BFD_JUMP_TABLE_RELOCS (versados
),
901 BFD_JUMP_TABLE_WRITE (versados
),
902 BFD_JUMP_TABLE_LINK (versados
),
903 BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic
),