From 9872a49c27a0cced505d4d94d543c7d0b647186e Mon Sep 17 00:00:00 2001 From: Steve Chamberlain Date: Tue, 23 Apr 1991 16:02:09 +0000 Subject: [PATCH] *** empty log message *** --- bfd/aout.c | 354 ++++++++++++----------------------------------------- bfd/archive.c | 1 + bfd/bfd.c | 12 +- bfd/cache.c | 69 ++++++----- bfd/coff-code.h | 264 ++++++++++++++------------------------- bfd/coff-i960.c | 123 ++++--------------- bfd/coff-m88k.c | 66 +++------- bfd/ieee.c | 56 +++------ bfd/libcoff.h | 8 +- bfd/oasys.c | 102 +++++---------- bfd/opncls.c | 60 ++++++++- bfd/srec.c | 63 +++++----- bfd/sunos.c | 354 ++++++++++++----------------------------------------- bfd/targets.c | 20 ++- binutils/ar.c | 4 +- binutils/objdump.c | 71 ++++++++++- 16 files changed, 564 insertions(+), 1063 deletions(-) diff --git a/bfd/aout.c b/bfd/aout.c index bfb92ba..921c448 100755 --- a/bfd/aout.c +++ b/bfd/aout.c @@ -226,7 +226,7 @@ sunos4_object_p (abfd) } /* Use an intermediate variable for clarity */ - rawptr = (PTR) zalloc (sizeof (struct sunexdata) + sizeof (struct exec)); + rawptr = (PTR) bfd_zalloc (abfd, sizeof (struct sunexdata) + sizeof (struct exec)); if (rawptr == NULL) { bfd_error = no_memory; @@ -340,7 +340,7 @@ sunos4_mkobject (abfd) bfd_error = system_call_error; /* Use an intermediate variable for clarity */ - rawptr = zalloc (sizeof (struct sunexdata) + sizeof (struct exec)); + rawptr = bfd_zalloc (abfd,sizeof (struct sunexdata) + sizeof (struct exec)); if (rawptr == NULL) { bfd_error = no_memory; @@ -380,30 +380,30 @@ aout_machine_type (arch, machine) switch (arch) { case bfd_arch_sparc: - if (machine == 0) arch_flags = M_SPARC; - break; + if (machine == 0) arch_flags = M_SPARC; + break; case bfd_arch_m68k: - switch (machine) { - case 0: arch_flags = M_UNKNOWN; break; - case 68000: arch_flags = M_UNKNOWN; break; - case 68010: arch_flags = M_68010; break; - case 68020: arch_flags = M_68020; break; - default: arch_flags = M_UNKNOWN; break; - } - break; + switch (machine) { + case 0: arch_flags = M_68010; break; + case 68000: arch_flags = M_UNKNOWN; break; + case 68010: arch_flags = M_68010; break; + case 68020: arch_flags = M_68020; break; + default: arch_flags = M_UNKNOWN; break; + } + break; case bfd_arch_i386: - if (machine == 0) arch_flags = M_386; - break; + if (machine == 0) arch_flags = M_386; + break; case bfd_arch_a29k: - if (machine == 0) arch_flags = M_29K; - break; + if (machine == 0) arch_flags = M_29K; + break; default: - arch_flags = M_UNKNOWN; - break; + arch_flags = M_UNKNOWN; + break; } return arch_flags; } @@ -631,7 +631,7 @@ sunos4_core_file_p (abfd) if (bfd_seek (abfd, 0L, false) < 0) return 0; - rawptr = zalloc (core_size + sizeof (struct suncordata)); + rawptr = bfd_zalloc (abfd, core_size + sizeof (struct suncordata)); if (rawptr == NULL) { bfd_error = no_memory; return 0; @@ -651,26 +651,26 @@ sunos4_core_file_p (abfd) /* create the sections. This is raunchy, but bfd_close wants to reclaim them */ - core_stacksec (abfd) = (asection *) zalloc (sizeof (asection)); + core_stacksec (abfd) = (asection *) bfd_zalloc (abfd, sizeof (asection)); if (core_stacksec (abfd) == NULL) { loser: bfd_error = no_memory; free ((PTR)rawptr); return 0; } - core_datasec (abfd) = (asection *) zalloc (sizeof (asection)); + core_datasec (abfd) = (asection *) bfd_zalloc (abfd, sizeof (asection)); if (core_datasec (abfd) == NULL) { loser1: free ((PTR)core_stacksec (abfd)); goto loser; } - core_regsec (abfd) = (asection *) zalloc (sizeof (asection)); + core_regsec (abfd) = (asection *) bfd_zalloc (abfd, sizeof (asection)); if (core_regsec (abfd) == NULL) { loser2: free ((PTR)core_datasec (abfd)); goto loser1; } - core_reg2sec (abfd) = (asection *) zalloc (sizeof (asection)); + core_reg2sec (abfd) = (asection *) bfd_zalloc (abfd, sizeof (asection)); if (core_reg2sec (abfd) == NULL) { free ((PTR)core_regsec (abfd)); goto loser2; @@ -923,7 +923,7 @@ translate_from_native_sym_flags (sym_pointer, cache_ptr, abfd) { asection *section = bfd_make_section(abfd, cache_ptr->symbol.name); - arelent_chain *reloc = (arelent_chain *)malloc(sizeof(arelent_chain)); + arelent_chain *reloc = (arelent_chain *)bfd_alloc(abfd, sizeof(arelent_chain)); switch ( (cache_ptr->type & N_TYPE) ) { case N_SETA: @@ -1105,7 +1105,7 @@ sunos4_make_empty_symbol (abfd) bfd *abfd; { aout_symbol_type *new = - (aout_symbol_type *)zalloc (sizeof (aout_symbol_type)); + (aout_symbol_type *)bfd_zalloc (abfd, sizeof (aout_symbol_type)); new->symbol.the_bfd = abfd; return &new->symbol; @@ -1137,30 +1137,13 @@ DEFUN(sunos4_slurp_symbol_table, (abfd), symbol_count = symbol_size / sizeof (struct nlist); - /* Malloc (should alloca) space for native symbols, and - malloc space for string table and symbol cache. */ - - syms = (struct nlist *) zalloc (symbol_size); - if (syms == NULL) { - bfd_error = no_memory; - return false; - } - - cached = (aout_symbol_type *) zalloc ((size_t)(string_size + 1 + - (symbol_count * sizeof (aout_symbol_type)))); - if (cached == NULL) { - bfd_error = no_memory; - free ((PTR)syms); - return false; - } - - strings = ((char *) cached) + (symbol_count * sizeof (aout_symbol_type)); + strings = bfd_alloc(abfd, string_size + 1); + cached = bfd_zalloc(abfd, symbol_count * sizeof(aout_symbol_type)); + syms = bfd_alloc(abfd, symbol_size); bfd_seek (abfd, obj_sym_filepos (abfd), SEEK_SET); if (bfd_read ((PTR)syms, 1, symbol_size, abfd) != symbol_size) { bailout: - free ((PTR)cached); - free ((PTR)syms); return false; } @@ -1170,10 +1153,10 @@ DEFUN(sunos4_slurp_symbol_table, (abfd), } /* OK, now walk the new symtable, cacheing symbol properties */ - { - register struct nlist *sym_pointer; - register struct nlist *sym_end = syms + symbol_count; - register aout_symbol_type *cache_ptr = cached; + { + register struct nlist *sym_pointer; + register struct nlist *sym_end = syms + symbol_count; + register aout_symbol_type *cache_ptr = cached; /* run through the table and byte swap if needed */ for (sym_pointer = syms; sym_pointer < sym_end; sym_pointer++) { @@ -1190,28 +1173,28 @@ DEFUN(sunos4_slurp_symbol_table, (abfd), } - /* Run through table and copy values */ - for (sym_pointer = syms, cache_ptr = cached; - sym_pointer < sym_end; sym_pointer++, cache_ptr++) - { - cache_ptr->symbol.the_bfd = abfd; - if (sym_pointer->n_un.n_strx) - cache_ptr->symbol.name = sym_pointer->n_un.n_strx + strings; - else - cache_ptr->symbol.name = (char *)NULL; - cache_ptr->symbol.value = sym_pointer->n_value; - cache_ptr->desc = sym_pointer->n_desc; - cache_ptr->other = sym_pointer->n_other; - cache_ptr->type = sym_pointer->n_type; - cache_ptr->symbol.udata = 0; - translate_from_native_sym_flags (sym_pointer, cache_ptr, abfd); + /* Run through table and copy values */ + for (sym_pointer = syms, cache_ptr = cached; + sym_pointer < sym_end; sym_pointer++, cache_ptr++) + { + cache_ptr->symbol.the_bfd = abfd; + if (sym_pointer->n_un.n_strx) + cache_ptr->symbol.name = sym_pointer->n_un.n_strx + strings; + else + cache_ptr->symbol.name = (char *)NULL; + cache_ptr->symbol.value = sym_pointer->n_value; + cache_ptr->desc = sym_pointer->n_desc; + cache_ptr->other = sym_pointer->n_other; + cache_ptr->type = sym_pointer->n_type; + cache_ptr->symbol.udata = 0; + translate_from_native_sym_flags (sym_pointer, cache_ptr, abfd); - } - } + } + } obj_aout_symbols (abfd) = cached; bfd_get_symcount (abfd) = symbol_count; - free ((PTR)syms); + bfd_release (abfd, (PTR)syms); return true; } @@ -1291,22 +1274,7 @@ void DEFUN(sunos4_reclaim_symbol_table,(abfd), bfd *abfd) { - asection *section; - - if (!bfd_get_symcount (abfd)) return; - for (section = abfd->sections; - section != (asection *) NULL; - section = section->next) - if (section->relocation) { - free ((PTR)section->relocation); - section->relocation = NULL; - section->reloc_count = 0; - } - - bfd_get_symcount (abfd) = 0; - free ((PTR)obj_aout_symbols (abfd)); - obj_aout_symbols (abfd) = (aout_symbol_type *)NULL; } unsigned int @@ -1335,88 +1303,6 @@ sunos4_get_symtab (abfd, location) } -/* Obsolete procedural interface; better to look at the cache directly */ - -/* User should have checked the file flags; perhaps we should return - BFD_NO_MORE_SYMBOLS if there are none? */ - -int -sunos4_get_symcount_upper_bound (abfd) - bfd *abfd; -{ - /* In case we're doing an output file or something...? */ - if (bfd_get_symcount (abfd)) return bfd_get_symcount (abfd); - - return (exec_hdr (abfd)->a_syms) / (sizeof (struct nlist)); -} - -symindex -sunos4_get_first_symbol (ignore_abfd) - bfd * ignore_abfd; -{ - return 0; -} - -symindex -sunos4_get_next_symbol (abfd, oidx) - bfd *abfd; - symindex oidx; -{ - if (oidx == BFD_NO_MORE_SYMBOLS) return BFD_NO_MORE_SYMBOLS; - return ++oidx >= bfd_get_symcount (abfd) ? BFD_NO_MORE_SYMBOLS : oidx; -} - -CONST char * -sunos4_symbol_name (abfd, idx) - bfd *abfd; - symindex idx; -{ - return (obj_aout_symbols (abfd) + idx)->symbol.name; -} - -long -sunos4_symbol_value (abfd, idx) - bfd *abfd; - symindex idx; -{ - return (obj_aout_symbols (abfd) + idx)->symbol.value; -} - -symclass -sunos4_classify_symbol (abfd, idx) - bfd *abfd; - symindex idx; -{ - aout_symbol_type *sym = obj_aout_symbols (abfd) + idx; - - if ((sym->symbol.flags & BSF_FORT_COMM) != 0) return bfd_symclass_fcommon; - if ((sym->symbol.flags & BSF_GLOBAL) != 0) return bfd_symclass_global; - if ((sym->symbol.flags & BSF_DEBUGGING) != 0) return bfd_symclass_debugger; - if ((sym->symbol.flags & BSF_UNDEFINED) != 0) return bfd_symclass_undefined; - - return bfd_symclass_unknown; -} - -boolean -sunos4_symbol_hasclass (abfd, idx, class) - bfd *abfd; - symindex idx; - symclass class; -{ - aout_symbol_type *sym = obj_aout_symbols (abfd) + idx; - switch (class) { - case bfd_symclass_fcommon: - return (sym->symbol.flags & BSF_FORT_COMM) ? true :false; - case bfd_symclass_global: - return (sym->symbol.flags & BSF_GLOBAL) ? true:false; - case bfd_symclass_debugger: - return (sym->symbol.flags & BSF_DEBUGGING) ? true:false;; - case bfd_symclass_undefined: - return (sym->symbol.flags & BSF_UNDEFINED) ? true:false;; - default: return false; - } -} - /* Standard reloc stuff */ /* Output standard relocation information to a file in target byte order. */ @@ -1747,22 +1633,13 @@ sunos4_slurp_reloc_table (abfd, asect, symbols) count = reloc_size / each_size; - relocs = (PTR) malloc (reloc_size); - if (!relocs) { - bfd_error = no_memory; - return false; - } - reloc_cache = (arelent *) zalloc ((size_t)(count * sizeof (arelent))); - if (reloc_cache == (arelent *)NULL) { - free (relocs); - bfd_error = no_memory; - return false; - } + + reloc_cache = (arelent *) bfd_zalloc (abfd, (size_t)(count * sizeof + (arelent))); + relocs = bfd_alloc (abfd, reloc_size); if (bfd_read ( relocs, 1, reloc_size, abfd) != reloc_size) { bfd_error = system_call_error; - free (reloc_cache); - free (relocs); return false; } @@ -1786,7 +1663,7 @@ sunos4_slurp_reloc_table (abfd, asect, symbols) } } - free (relocs); +bfd_release (abfd,relocs); asect->relocation = reloc_cache; asect->reloc_count = count; return true; @@ -1812,7 +1689,7 @@ sunos4_squirt_out_relocs (abfd, section) each_size = reloc_size_func(abfd); natsize = each_size * count; - native = (unsigned char *) zalloc (natsize); + native = (unsigned char *) bfd_zalloc (abfd, natsize); if (!native) { bfd_error = no_memory; return false; @@ -1833,10 +1710,10 @@ sunos4_squirt_out_relocs (abfd, section) } if ( bfd_write ((PTR) native, 1, natsize, abfd) != natsize) { - free(native); + bfd_release(abfd, native); return false; } - free (native); + bfd_release (abfd, native); return true; } @@ -1909,11 +1786,7 @@ sunos4_reclaim_reloc (ignore_abfd, section) bfd *ignore_abfd; sec_ptr section; { - if (section->relocation) { - free (section->relocation); - section->relocation = NULL; - section->reloc_count = 0; - } + } @@ -1974,13 +1847,6 @@ sunos4_close_and_cleanup (abfd) default: bfd_error = invalid_operation; return false; } -#define cleaner(ptr) if (abfd->ptr) free (abfd->ptr) - cleaner (tdata); - - if (abfd->my_archive) - cleaner (filename); - -#undef cleaner return true; } @@ -2066,6 +1932,12 @@ DEFUN(sunos4_find_nearest_line,(abfd, } +#define sunos4_openr_next_archived_file bfd_generic_openr_next_archived_file +#define sunos4_generic_stat_arch_elt bfd_generic_stat_arch_elt +#define sunos4_slurp_armap bfd_slurp_bsd_armap +#define sunos4_slurp_extended_name_table bfd_true +#define sunos4_write_armap bsd_write_armap +#define sunos4_truncate_arname bfd_bsd_truncate_arname bfd_target aout_big_vec = { "a.out-generic-big", /* name */ @@ -2076,105 +1948,41 @@ bfd_target aout_big_vec = HAS_LINENO | HAS_DEBUG | HAS_SYMS | HAS_LOCALS | DYNAMIC | WP_TEXT | D_PAGED), (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */ - 0, /* valid reloc types */ ' ', /* ar_pad_char */ 16, /* ar_max_namelen */ - sunos4_close_and_cleanup, /* _close_and_cleanup */ - sunos4_set_section_contents, /* bfd_set_section_contents */ - sunos4_get_section_contents, /* bfd_get_section_contents */ - sunos4_new_section_hook, /* new_section_hook */ - sunos4_core_file_failing_command, /* _core_file_failing_command */ - sunos4_core_file_failing_signal, /* _core_file_failing_signal */ - sunos4_core_file_matches_executable_p, /* _core_file_matches_ex...p */ - - bfd_slurp_bsd_armap, /* bfd_slurp_armap */ - bfd_true, /* bfd_slurp_extended_name_table */ - bfd_bsd_truncate_arname, /* bfd_truncate_arname */ - - sunos4_get_symtab_upper_bound, /* get_symtab_upper_bound */ - sunos4_get_symtab, /* canonicalize_symtab */ - sunos4_reclaim_symbol_table, /* bfd_reclaim_symbol_table */ - sunos4_get_reloc_upper_bound, /* get_reloc_upper_bound */ - sunos4_canonicalize_reloc, /* bfd_canonicalize_reloc */ - sunos4_reclaim_reloc, /* bfd_reclaim_reloc */ - sunos4_get_symcount_upper_bound, /* bfd_get_symcount_upper_bound */ - sunos4_get_first_symbol, /* bfd_get_first_symbol */ - sunos4_get_next_symbol, /* bfd_get_next_symbol */ - sunos4_classify_symbol, /* bfd_classify_symbol */ - sunos4_symbol_hasclass, /* bfd_symbol_hasclass */ - sunos4_symbol_name, /* bfd_symbol_name */ - sunos4_symbol_value, /* bfd_symbol_value */ - _do_getblong, _do_putblong, _do_getbshort, _do_putbshort, /* data */ _do_getblong, _do_putblong, _do_getbshort, _do_putbshort, /* hdrs */ - {_bfd_dummy_target, sunos4_object_p, /* bfd_check_format */ - bfd_generic_archive_p, sunos4_core_file_p}, - {bfd_false, sunos4_mkobject, /* bfd_zxset_format */ - _bfd_generic_mkarchive, bfd_false}, - sunos4_make_empty_symbol, - sunos4_print_symbol, - sunos4_get_lineno, - sunos4_set_arch_mach, - bsd_write_armap, - bfd_generic_openr_next_archived_file, - sunos4_find_nearest_line, /* bfd_find_nearest_line */ - bfd_generic_stat_arch_elt /* bfd_stat_arch_elt */ + {_bfd_dummy_target, sunos4_object_p, + bfd_generic_archive_p, sunos4_core_file_p}, + {bfd_false, sunos4_mkobject, + _bfd_generic_mkarchive, bfd_false}, + + JUMP_TABLE(sunos4) }; + bfd_target aout_little_vec = { "a.out-generic-little", /* name */ bfd_target_aout_flavour_enum, - true, /* target byte order */ - true, /* target headers byte order */ + false, /* target byte order */ + false, /* target headers byte order */ (HAS_RELOC | EXEC_P | /* object flags */ HAS_LINENO | HAS_DEBUG | HAS_SYMS | HAS_LOCALS | DYNAMIC | WP_TEXT | D_PAGED), (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */ - 0, /* valid reloc types */ ' ', /* ar_pad_char */ 16, /* ar_max_namelen */ - sunos4_close_and_cleanup, /* _close_and_cleanup */ - sunos4_set_section_contents, /* bfd_set_section_contents */ - sunos4_get_section_contents, /* bfd_get_section_contents */ - sunos4_new_section_hook, /* new_section_hook */ - sunos4_core_file_failing_command, /* _core_file_failing_command */ - sunos4_core_file_failing_signal, /* _core_file_failing_signal */ - sunos4_core_file_matches_executable_p, /* _core_file_matches_ex...p */ - - bfd_slurp_bsd_armap, /* bfd_slurp_armap */ - bfd_true, /* bfd_slurp_extended_name_table */ - bfd_bsd_truncate_arname, /* bfd_truncate_arname */ - - sunos4_get_symtab_upper_bound, /* get_symtab_upper_bound */ - sunos4_get_symtab, /* canonicalize_symtab */ - sunos4_reclaim_symbol_table, /* bfd_reclaim_symbol_table */ - sunos4_get_reloc_upper_bound, /* get_reloc_upper_bound */ - sunos4_canonicalize_reloc, /* bfd_canonicalize_reloc */ - sunos4_reclaim_reloc, /* bfd_reclaim_reloc */ - sunos4_get_symcount_upper_bound, /* bfd_get_symcount_upper_bound */ - sunos4_get_first_symbol, /* bfd_get_first_symbol */ - sunos4_get_next_symbol, /* bfd_get_next_symbol */ - sunos4_classify_symbol, /* bfd_classify_symbol */ - sunos4_symbol_hasclass, /* bfd_symbol_hasclass */ - sunos4_symbol_name, /* bfd_symbol_name */ - sunos4_symbol_value, /* bfd_symbol_value */ - _do_getllong, _do_putllong, _do_getlshort, _do_putlshort, /* data */ _do_getllong, _do_putllong, _do_getlshort, _do_putlshort, /* hdrs */ - {_bfd_dummy_target, sunos4_object_p, /* bfd_check_format */ - bfd_generic_archive_p, sunos4_core_file_p}, - {bfd_false, sunos4_mkobject, /* bfd_zxset_format */ - _bfd_generic_mkarchive, bfd_false}, - sunos4_make_empty_symbol, - sunos4_print_symbol, - sunos4_get_lineno, - sunos4_set_arch_mach, - bsd_write_armap, - bfd_generic_openr_next_archived_file, - sunos4_find_nearest_line, /* bfd_find_nearest_line */ - bfd_generic_stat_arch_elt /* bfd_stat_arch_elt */ + + {_bfd_dummy_target, sunos4_object_p, + bfd_generic_archive_p, sunos4_core_file_p}, + {bfd_false, sunos4_mkobject, + _bfd_generic_mkarchive, bfd_false}, + + JUMP_TABLE(sunos4) }; diff --git a/bfd/archive.c b/bfd/archive.c index 8875ad3..530b0aa 100644 --- a/bfd/archive.c +++ b/bfd/archive.c @@ -1,3 +1,4 @@ + /*** archive.c -- an attempt at combining the machine-independent parts of archives */ diff --git a/bfd/bfd.c b/bfd/bfd.c index 78bac79..291850b 100644 --- a/bfd/bfd.c +++ b/bfd/bfd.c @@ -310,7 +310,7 @@ bfd_set_format (abfd, format) bfd *abfd; bfd_format format; { - file_ptr filepos; + if (bfd_read_p (abfd) || ((int)abfd->format < (int)bfd_unknown) || @@ -324,11 +324,11 @@ bfd_set_format (abfd, format) /* presume the answer is yes */ abfd->format = format; - filepos = bfd_tell (abfd); +/* filepos = bfd_tell (abfd);*/ if (!BFD_SEND_FMT (abfd, _bfd_set_format, (abfd))) { abfd->format = bfd_unknown; - bfd_seek (abfd, filepos, SEEK_SET); +/* bfd_seek (abfd, filepos, SEEK_SET);*/ return false; } @@ -371,7 +371,7 @@ DEFUN(bfd_make_section,(abfd, name), sect = sect->next; } - newsect = (asection *) zalloc (sizeof (asection)); + newsect = (asection *) bfd_zalloc(abfd, sizeof (asection)); if (newsect == NULL) { bfd_error = no_memory; return NULL; @@ -381,13 +381,13 @@ DEFUN(bfd_make_section,(abfd, name), newsect->index = abfd->section_count++; newsect->flags = SEC_NO_FLAGS; -#if ignore /* the compiler doesn't know that zalloc clears the storage */ + newsect->userdata = 0; newsect->next = (asection *)NULL; newsect->relocation = (arelent *)NULL; newsect->reloc_count = 0; newsect->line_filepos =0; -#endif + if (BFD_SEND (abfd, _new_section_hook, (abfd, newsect)) != true) { free (newsect); return NULL; diff --git a/bfd/cache.c b/bfd/cache.c index 39ffc7a..d1172fb 100644 --- a/bfd/cache.c +++ b/bfd/cache.c @@ -45,7 +45,7 @@ bfd *bfd_last_cache; static void -close_one() +DEFUN_VOID(close_one) { bfd *kill = cache_sentinel; if (kill == 0) /* Nothing in the cache */ @@ -64,8 +64,8 @@ close_one() } /* Cuts the bfd abfd out of the chain in the cache */ static void -snip (abfd) - bfd *abfd; +DEFUN(snip,(abfd), + bfd *abfd) { abfd->lru_prev->lru_next = abfd->lru_next; abfd->lru_next->lru_prev = abfd->lru_prev; @@ -73,19 +73,20 @@ snip (abfd) } static void -bfd_cache_delete (abfd) - bfd *abfd; +DEFUN(bfd_cache_delete,(abfd), + bfd *abfd) { fclose ((FILE *)(abfd->iostream)); snip (abfd); abfd->iostream = NULL; open_files--; + bfd_last_cache = 0; } static bfd * -insert(x,y) -bfd *x; -bfd *y; +DEFUN(insert,(x,y), + bfd *x AND + bfd *y) { if (y) { x->lru_next = y; @@ -104,15 +105,15 @@ bfd *y; /* Initialize a BFD by putting it on the cache LRU. */ void -bfd_cache_init(abfd) -bfd *abfd; +DEFUN(bfd_cache_init,(abfd), + bfd *abfd) { cache_sentinel = insert(abfd, cache_sentinel); } void -bfd_cache_close(abfd) -bfd *abfd; +DEFUN(bfd_cache_close,(abfd), + bfd *abfd) { /* If this file is open then remove from the chain */ if (abfd->iostream) @@ -126,8 +127,8 @@ bfd *abfd; BFD so that future accesses know the file is open. */ FILE * -bfd_open_file (abfd) - bfd *abfd; +DEFUN(bfd_open_file, (abfd), + bfd *abfd) { abfd->cacheable = true; /* Allow it to be closed later. */ if(open_files >= BFD_CACHE_MAX_OPEN) { @@ -165,36 +166,36 @@ bfd_open_file (abfd) one first, to avoid running out of file descriptors. */ FILE * -bfd_cache_lookup_worker (abfd) - bfd *abfd; +DEFUN(bfd_cache_lookup_worker,(abfd), + bfd *abfd) { if (abfd->my_archive) - { - abfd = abfd->my_archive; - } + { + abfd = abfd->my_archive; + } /* Is this file already open .. if so then quick exit */ if (abfd->iostream) - { - if (abfd != cache_sentinel) { - /* Place onto head of lru chain */ - snip (abfd); - cache_sentinel = insert(abfd, cache_sentinel); + { + if (abfd != cache_sentinel) { + /* Place onto head of lru chain */ + snip (abfd); + cache_sentinel = insert(abfd, cache_sentinel); + } } - } /* This is a bfd without a stream - so it must have been closed or never opened. find an empty cache entry and use it. */ else - { + { - if (open_files >= BFD_CACHE_MAX_OPEN) - { - close_one(); - } + if (open_files >= BFD_CACHE_MAX_OPEN) + { + close_one(); + } - BFD_ASSERT(bfd_open_file (abfd) != (FILE *)NULL) ; - fseek((FILE *)(abfd->iostream), abfd->where, false); - } -bfd_last_cache = abfd; + BFD_ASSERT(bfd_open_file (abfd) != (FILE *)NULL) ; + fseek((FILE *)(abfd->iostream), abfd->where, false); + } + bfd_last_cache = abfd; return (FILE *)(abfd->iostream); } diff --git a/bfd/coff-code.h b/bfd/coff-code.h index cf340c2..0584700 100755 --- a/bfd/coff-code.h +++ b/bfd/coff-code.h @@ -25,6 +25,7 @@ Most of this hacked by Steve Chamberlain, steve@cygnus.com #include "archures.h" /* Machine architectures and types */ + /* SUPPRESS 558 */ /* SUPPRESS 590 */ /* SUPPRESS 529 */ @@ -244,7 +245,7 @@ DEFUN(make_a_section_from_file,(abfd, hdr), { asection *return_section; { - char *name = (PTR) malloc(9); + char *name = bfd_alloc(abfd, 9); if (name == NULL) { bfd_error = no_memory; return (BFD_FAILURE); @@ -299,6 +300,19 @@ DEFUN(make_a_section_from_file,(abfd, hdr), return true; } +static boolean +DEFUN(coff_mkobject,(abfd), + bfd *abfd) +{ + coff_data_type *coff; + coff_data(abfd) = + (coff_data_type*)bfd_alloc(abfd,sizeof(coff_data_type)); + coff = coff_data(abfd); + coff->relocbase = 0; + coff->hdr = (AOUTHDR*) bfd_alloc(abfd, sizeof(AOUTHDR)); + return true; + +} static bfd_target * @@ -307,28 +321,29 @@ DEFUN(coff_real_object_p,(abfd, nscns, opthdr), unsigned nscns AND unsigned opthdr) { - struct icofdata *tdata; + coff_data_type *coff; char *file_info; /* buffer for all the headers */ size_t readsize; /* length of file_info */ struct filehdr *filehdr; /* points into file_info */ struct scnhdr *sections; /* points into file_info */ + + /* Build a play area */ + (void) coff_mkobject(abfd); + coff = coff_data(abfd); /* - OK, now we know the format, read in the filehdr, soi-disant "optional - header", and all the sections. - */ + OK, now we know the format, read in the filehdr, soi-disant "optional + header", and all the sections. + */ readsize = sizeof(struct filehdr) + opthdr + (nscns * sizeof(struct scnhdr)); - file_info = (PTR) malloc(readsize); - if (file_info == NULL) { - bfd_error = no_memory; - return 0; - } + file_info = (PTR) bfd_alloc(abfd, readsize); if (bfd_seek(abfd, 0L, SEEK_SET) < 0) - return 0; + goto fail; + if (bfd_read((PTR) file_info, 1, readsize, abfd) != readsize) - return 0; + goto fail; filehdr = (struct filehdr *) file_info; sections = (struct scnhdr *) (file_info + sizeof(struct filehdr) + opthdr); @@ -336,19 +351,13 @@ DEFUN(coff_real_object_p,(abfd, nscns, opthdr), swap_filehdr(abfd, filehdr); /* Now copy data as required; construct all asections etc */ - tdata = (struct icofdata *) malloc(sizeof(struct icofdata) + - sizeof(AOUTHDR)); - if (tdata == NULL) { - bfd_error = no_memory; - return 0; - } - tdata->symbol_index_slew = 0; - tdata->relocbase =0; - tdata->raw_syment_count = 0; - tdata->raw_linenos = 0; - tdata->raw_syments = 0; - tdata->sym_filepos =0; - tdata->flags = filehdr->f_flags; + coff->symbol_index_slew = 0; + coff->relocbase =0; + coff->raw_syment_count = 0; + coff->raw_linenos = 0; + coff->raw_syments = 0; + coff->sym_filepos =0; + coff->flags = filehdr->f_flags; if (nscns != 0) { unsigned int i; for (i = 0; i < nscns; i++) { @@ -369,6 +378,7 @@ DEFUN(coff_real_object_p,(abfd, nscns, opthdr), #ifdef MC88MAGIC case MC88MAGIC: case MC88DMAGIC: + case MC88OMAGIC: abfd->obj_arch = bfd_arch_m88k; abfd->obj_machine = 88100; break; @@ -378,28 +388,28 @@ DEFUN(coff_real_object_p,(abfd, nscns, opthdr), case I960RWMAGIC: abfd->obj_arch = bfd_arch_i960; switch (F_I960TYPE & filehdr->f_flags) - { - default: - case F_I960CORE: - abfd->obj_machine = bfd_mach_i960_core; - break; - case F_I960KB: - abfd->obj_machine = bfd_mach_i960_kb_sb; - break; - case F_I960MC: - abfd->obj_machine = bfd_mach_i960_mc; - break; - case F_I960XA: - abfd->obj_machine = bfd_mach_i960_xa; - break; - case F_I960CA: - abfd->obj_machine = bfd_mach_i960_ca; - break; - case F_I960KA: - abfd->obj_machine = bfd_mach_i960_ka_sa; - break; + { + default: + case F_I960CORE: + abfd->obj_machine = bfd_mach_i960_core; + break; + case F_I960KB: + abfd->obj_machine = bfd_mach_i960_kb_sb; + break; + case F_I960MC: + abfd->obj_machine = bfd_mach_i960_mc; + break; + case F_I960XA: + abfd->obj_machine = bfd_mach_i960_xa; + break; + case F_I960CA: + abfd->obj_machine = bfd_mach_i960_ca; + break; + case F_I960KA: + abfd->obj_machine = bfd_mach_i960_ka_sa; + break; - } + } break; #endif @@ -417,20 +427,21 @@ DEFUN(coff_real_object_p,(abfd, nscns, opthdr), if (!(filehdr->f_flags & F_LSYMS)) abfd->flags |= HAS_LOCALS; - abfd->tdata = (PTR) tdata; + bfd_get_symcount(abfd) = filehdr->f_nsyms; if (filehdr->f_nsyms) abfd->flags |= HAS_SYMS; - tdata->sym_filepos = filehdr->f_symptr; - tdata->hdr = (struct aouthdr *) (file_info + sizeof(struct filehdr)); + coff->sym_filepos = filehdr->f_symptr; + swap_aouthdr(abfd, coff->hdr); - swap_aouthdr(abfd, tdata->hdr); - - tdata->symbols = (coff_symbol_type *) NULL; + coff->symbols = (coff_symbol_type *) NULL; bfd_get_start_address(abfd) = opthdr ? exec_hdr(abfd)->entry : 0; return abfd->xvec; + fail: + bfd_release(abfd, coff); + return (bfd_target *)NULL; } @@ -496,25 +507,6 @@ DEFUN(coff_object_p,(abfd), return coff_real_object_p(abfd, nscns, opthdr); } -static boolean -DEFUN(coff_mkobject,(abfd), - bfd *abfd) -{ - char *rawptr; - - bfd_error = system_call_error; - - /* Use an intermediate variable for clarity */ - rawptr = zalloc(sizeof(struct icofdata) + sizeof(AOUTHDR)); - if (rawptr == NULL) { - bfd_error = no_memory; - return false; - } - abfd->tdata = (PTR) ((struct icofdata *) rawptr); - exec_hdr(abfd) = (AOUTHDR *) (rawptr + sizeof(struct icofdata)); - obj_relocbase(abfd) =0; - return true; -} @@ -941,7 +933,7 @@ coff_write_symbols(abfd) bfd_coff_swap_sym(abfd, native); bfd_write((PTR) native, 1, SYMESZ, abfd); for (j = 0; j != native->n_numaux; j++) { - bfd_coff_swap_aux(abfd, native + j + 1, type, class); + bfd_coff_swap_aux(abfd, (AUXENT *)(native + j + 1), type, class); bfd_write((PTR) (native + j + 1), 1, AUXESZ, abfd); } @@ -997,7 +989,9 @@ coff_write_relocs(abfd) arelent *q = p[i]; memset((PTR)&n, 0, sizeof(n)); n.r_vaddr = q->address + s->vma; + if (q->sym_ptr_ptr) { n.r_symndx = get_index((*(q->sym_ptr_ptr))); + } n.r_type = q->howto->type; swap_reloc(abfd, &n); bfd_write((PTR) &n, 1, RELSZ, abfd); @@ -1045,7 +1039,7 @@ static asymbol * coff_make_empty_symbol(abfd) bfd *abfd; { - coff_symbol_type *new = (coff_symbol_type *) malloc(sizeof(coff_symbol_type)); + coff_symbol_type *new = (coff_symbol_type *) bfd_alloc(abfd, sizeof(coff_symbol_type)); if (new == NULL) { bfd_error = no_memory; return (NULL); @@ -1154,7 +1148,7 @@ coff_set_flags(abfd, magicp, flagsp) #endif #ifdef MC88MAGIC case bfd_arch_m88k: - *magicp = MC88MAGIC; + *magicp = MC88OMAGIC; return true; break; #endif @@ -1547,7 +1541,7 @@ buy_and_read(abfd, where, seek_direction, size) int seek_direction; size_t size; { - PTR area = (PTR) malloc(size); + PTR area = (PTR) bfd_alloc(abfd, size); if (!area) { bfd_error = no_memory; return (NULL); @@ -1555,7 +1549,6 @@ buy_and_read(abfd, where, seek_direction, size) bfd_seek(abfd, where, seek_direction); if (bfd_read(area, 1, size, abfd) != size) { bfd_error = system_call_error; - free(area); return (NULL); } /* on error */ return (area); @@ -1633,7 +1626,7 @@ swap_raw_symtab(abfd, raw_symtab) for (i = raw_symtab->n_numaux; i; --i, ++raw_symtab) { bfd_coff_swap_aux(abfd, - raw_symtab + 1, + (AUXENT *)(raw_symtab + 1), raw_symtab->n_type, raw_symtab->n_sclass); } /* swap all the aux entries */ @@ -1674,7 +1667,7 @@ get_normalized_symtab(abfd) table traversals simple. To do that, we need to know whether we will be prepending the C_FILE symbol before we read the rest of the table. */ - if ((s = (SYMENT *) malloc(sizeof(SYMENT) * 2)) == NULL) { + if ((s = (SYMENT *) bfd_alloc(abfd, sizeof(SYMENT) * 2)) == NULL) { bfd_error = no_memory; return (NULL); } /* on error */ @@ -1688,7 +1681,7 @@ get_normalized_symtab(abfd) if (s->n_sclass == C_FILE) { obj_symbol_slew(abfd) = 0; - if ((retval = (SYMENT *) malloc(size)) == NULL) { + if ((retval = (SYMENT *) bfd_alloc(abfd, size)) == NULL) { bfd_error = no_memory; return (NULL); } /* on malloc error */ @@ -1698,7 +1691,7 @@ get_normalized_symtab(abfd) CONST char *filename; obj_symbol_slew(abfd) = 2; - if ((retval = (SYMENT *) malloc(size + if ((retval = (SYMENT *) bfd_alloc(abfd, size + (obj_symbol_slew(abfd) * sizeof(SYMENT)))) == NULL) { bfd_error = no_memory; @@ -1708,7 +1701,7 @@ get_normalized_symtab(abfd) #define FILE_ENTRY_NAME ".file" - if ((retval->n_offset = (int) malloc(strlen(FILE_ENTRY_NAME) + if ((retval->n_offset = (int) bfd_alloc(abfd, strlen(FILE_ENTRY_NAME) + 1)) == NULL) { bfd_error = no_memory; return (NULL); @@ -1729,7 +1722,7 @@ get_normalized_symtab(abfd) } else { if ((((AUXENT *) (retval + 1))->x_file.x_n.x_offset - = (int) malloc(namelength+1)) == NULL) { + = (int) bfd_alloc(abfd, namelength+1)) == NULL) { bfd_error = no_memory; return (NULL); } /* on error */ @@ -1739,7 +1732,7 @@ get_normalized_symtab(abfd) } /* if "short" name */ } /* missing file entry. */ - free(s); + if (bfd_seek(abfd, obj_sym_filepos(abfd), SEEK_SET) == -1 || bfd_read(retval + obj_symbol_slew(abfd), size, 1, abfd) != size) { @@ -1775,7 +1768,7 @@ get_normalized_symtab(abfd) } /* if end of string */ } /* possible lengths of this string. */ - if ((newstring = (PTR) malloc(++i)) == NULL) { + if ((newstring = (PTR) bfd_alloc(abfd, ++i)) == NULL) { bfd_error = no_memory; return (NULL); } /* on error */ @@ -1802,7 +1795,7 @@ get_normalized_symtab(abfd) } /* on error */ sp(string_table_size); - if ((string_table = (PTR) malloc(string_table_size -= 4)) == NULL) { + if ((string_table = (PTR) bfd_alloc(abfd, string_table_size -= 4)) == NULL) { bfd_error = no_memory; return (NULL); } /* on mallocation error */ @@ -1868,86 +1861,6 @@ section_from_bfd_index(abfd, index) return 0; } -static int -coff_get_symcount_upper_bound(ignore_abfd) - bfd *ignore_abfd; -{ - BFD_ASSERT(0); - return 0; -} - -static symindex -coff_get_first_symbol(ignore_abfd) - bfd *ignore_abfd; -{ - return 0; -} - -static symindex -coff_get_next_symbol(abfd, oidx) - bfd *abfd; - symindex oidx; -{ - if (oidx == BFD_NO_MORE_SYMBOLS) - return BFD_NO_MORE_SYMBOLS; - return ++oidx >= bfd_get_symcount(abfd) ? BFD_NO_MORE_SYMBOLS : oidx; -} - -static CONST char * -coff_symbol_name(abfd, idx) - bfd *abfd; - symindex idx; -{ - return (obj_symbols(abfd) + idx)->symbol.name; -} - -static long -coff_symbol_value(abfd, idx) - bfd *abfd; - symindex idx; -{ - return (obj_symbols(abfd) + idx)->symbol.value; -} - -static symclass -coff_classify_symbol(abfd, idx) - bfd *abfd; - symindex idx; -{ - coff_symbol_type *sym = obj_symbols(abfd) + idx; - if ((sym->symbol.flags & BSF_FORT_COMM) != 0) - return bfd_symclass_fcommon; - if ((sym->symbol.flags & BSF_GLOBAL) != 0) - return bfd_symclass_global; - if ((sym->symbol.flags & BSF_DEBUGGING) != 0) - return bfd_symclass_debugger; - if ((sym->symbol.flags & BSF_UNDEFINED) != 0) - return bfd_symclass_undefined; - - return bfd_symclass_unknown; -} - -static boolean -coff_symbol_hasclass(abfd, idx, class) - bfd *abfd; - symindex idx; - symclass class; -{ - coff_symbol_type *sym = obj_symbols(abfd) + idx; - switch (class) { - case bfd_symclass_fcommon: - return (sym->symbol.flags & BSF_FORT_COMM) ? true : false; - case bfd_symclass_global: - return (sym->symbol.flags & BSF_GLOBAL) ? true : false; - case bfd_symclass_debugger: - return (sym->symbol.flags & BSF_DEBUGGING) ? true : false;; - case bfd_symclass_undefined: - return (sym->symbol.flags & BSF_UNDEFINED) ? true : false;; - default: - return false; - } -} - @@ -1968,7 +1881,7 @@ coff_slurp_line_table(abfd, asect) (size_t) (sizeof(struct lineno) * asect->lineno_count)); lineno_cache = - (alent *) malloc((size_t) ((asect->lineno_count + 1) * sizeof(alent))); + (alent *) bfd_alloc(abfd, (size_t) ((asect->lineno_count + 1) * sizeof(alent))); if (lineno_cache == NULL) { bfd_error = no_memory; return (BFD_FAILURE); @@ -2000,7 +1913,6 @@ coff_slurp_line_table(abfd, asect) cache_ptr->line_number = 0; } - free(native_lineno); asect->lineno = lineno_cache; return true; } /* coff_slurp_line_table() */ @@ -2074,7 +1986,7 @@ coff_slurp_symbol_table(abfd) /* Allocate enough room for all the symbols in cached form */ cached_area = (coff_symbol_type *) - malloc((size_t) (bfd_get_symcount(abfd) * sizeof(coff_symbol_type))); + bfd_alloc(abfd, (size_t) (bfd_get_symcount(abfd) * sizeof(coff_symbol_type))); if (cached_area == NULL) { bfd_error = no_memory; @@ -2082,7 +1994,7 @@ coff_slurp_symbol_table(abfd) } /* on error */ table_ptr = (unsigned int *) - malloc((size_t) (bfd_get_symcount(abfd) * sizeof(unsigned int))); + bfd_alloc(abfd, (size_t) (bfd_get_symcount(abfd) * sizeof(unsigned int))); if (table_ptr == NULL) { bfd_error = no_memory; @@ -2311,7 +2223,7 @@ coff_slurp_reloc_table(abfd, asect, symbols) (size_t) (sizeof(struct reloc) * asect->reloc_count)); reloc_cache = (arelent *) - malloc((size_t) (asect->reloc_count * sizeof(arelent))); + bfd_alloc(abfd, (size_t) (asect->reloc_count * sizeof(arelent))); if (reloc_cache == NULL) { bfd_error = no_memory; @@ -2373,7 +2285,7 @@ coff_slurp_reloc_table(abfd, asect, symbols) } - free(native_relocs); + asect->relocation = reloc_cache; return true; } @@ -2556,3 +2468,13 @@ return obj_sym_filepos(abfd); } #endif + + +#define coff_core_file_failing_command _bfd_dummy_core_file_failing_command +#define coff_core_file_failing_signal _bfd_dummy_core_file_failing_signal +#define coff_core_file_matches_executable_p _bfd_dummy_core_file_matches_executable_p +#define coff_slurp_armap bfd_slurp_coff_armap +#define coff_slurp_extended_name_table _bfd_slurp_extended_name_table +#define coff_truncate_arname bfd_dont_truncate_arname +#define coff_openr_next_archived_file bfd_generic_openr_next_archived_file +#define coff_generic_stat_arch_elt bfd_generic_stat_arch_elt diff --git a/bfd/coff-i960.c b/bfd/coff-i960.c index bd31adb..f5e6f71 100644 --- a/bfd/coff-i960.c +++ b/bfd/coff-i960.c @@ -23,6 +23,7 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "sysdep.h" #include "bfd.h" #include "libbfd.h" +#include "obstack.h" #include "libcoff.h" /* to allow easier abstraction-breaking */ @@ -118,7 +119,8 @@ static reloc_howto_type howto_table[] = {15}, {16}, - { (unsigned int) R_RELLONG, 0, 2, 32,false, 0, true, true, 0,"rellong", true, 0xffffffff}, + { (unsigned int) R_RELLONG, 0, 2, 32,false, 0, true, true, + 0,"rellong", true, 0xffffffff, 0xffffffff}, {18}, {19}, {20}, @@ -127,10 +129,12 @@ static reloc_howto_type howto_table[] = {23}, {24}, - { R_IPRMED, 0, 2, 24,true,0, true, true,0,"iprmed ", true, 0x00ffffff}, + { R_IPRMED, 0, 2, 24,true,0, true, true,0,"iprmed ", true, + 0x00ffffff, 0x00ffffff}, {26}, - { R_OPTCALL, 0,2,24,true,0, true, true, optcall_callback, "optcall", true, 0x00ffffff}, + { R_OPTCALL, 0,2,24,true,0, true, true, optcall_callback, + "optcall", true, 0x00ffffff, 0x00ffffff}, }; @@ -139,133 +143,54 @@ static reloc_howto_type howto_table[] = #define BADMAG(x) I960BADMAG(x) #include "coff-code.h" - - -bfd_target icoff_big_vec = +bfd_target icoff_little_vec = { - "coff-Intel-big", /* name */ + "coff-Intel-little", /* name */ bfd_target_coff_flavour_enum, false, /* data byte order is little */ - true, /* header byte order is big */ + false, /* header byte order is little */ (HAS_RELOC | EXEC_P | /* object flags */ HAS_LINENO | HAS_DEBUG | HAS_SYMS | HAS_LOCALS | DYNAMIC | WP_TEXT), (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */ - 0, /* valid reloc types */ '/', /* ar_pad_char */ 15, /* ar_max_namelen */ - coff_close_and_cleanup, /* _close_and_cleanup */ - coff_set_section_contents, /* bfd_set_section_contents */ - coff_get_section_contents, /* bfd_get_section_contents */ - coff_new_section_hook, /* new_section_hook */ - _bfd_dummy_core_file_failing_command, /* _core_file_failing_command */ - _bfd_dummy_core_file_failing_signal, /* _core_file_failing_signal */ - _bfd_dummy_core_file_matches_executable_p, /* _core_file_matches_ex...p */ - - bfd_slurp_coff_armap, /* bfd_slurp_armap */ - _bfd_slurp_extended_name_table, /* bfd_slurp_extended_name_table*/ -#if 0 /* */ - bfd_dont_truncate_arname, /* bfd_truncate_arname */ -#else - bfd_bsd_truncate_arname, -#endif - - coff_get_symtab_upper_bound, /* get_symtab_upper_bound */ - coff_get_symtab, /* canonicalize_symtab */ - (void (*)())bfd_false, /* bfd_reclaim_symbol_table */ - coff_get_reloc_upper_bound, /* get_reloc_upper_bound */ - coff_canonicalize_reloc, /* bfd_canonicalize_reloc */ - (void (*)())bfd_false, /* bfd_reclaim_reloc */ - - coff_get_symcount_upper_bound, /* bfd_get_symcount_upper_bound */ - coff_get_first_symbol, /* bfd_get_first_symbol */ - coff_get_next_symbol, /* bfd_get_next_symbol */ - coff_classify_symbol, /* bfd_classify_symbol */ - coff_symbol_hasclass, /* bfd_symbol_hasclass */ - coff_symbol_name, /* bfd_symbol_name */ - coff_symbol_value, /* bfd_symbol_value */ _do_getllong, _do_putllong, _do_getlshort, _do_putlshort, /* data */ - _do_getblong, _do_putblong, _do_getbshort, _do_putbshort, /* hdrs */ + _do_getllong, _do_putllong, _do_getlshort, _do_putlshort, /* hdrs */ {_bfd_dummy_target, coff_object_p, /* bfd_check_format */ bfd_generic_archive_p, _bfd_dummy_target}, - {bfd_false, coff_mkobject, _bfd_generic_mkarchive, /* bfd_set_format */ - bfd_false}, - coff_make_empty_symbol, - coff_print_symbol, - coff_get_lineno, - coff_set_arch_mach, - coff_write_armap, - bfd_generic_openr_next_archived_file, - coff_find_nearest_line, - bfd_generic_stat_arch_elt /* bfd_stat_arch_elt */ - }; + {bfd_false, coff_mkobject, /* bfd_set_format */ + _bfd_generic_mkarchive, bfd_false}, +JUMP_TABLE(coff) +}; -bfd_target icoff_little_vec = + +bfd_target icoff_big_vec = { - "coff-Intel-little", /* name */ + "coff-Intel-big", /* name */ bfd_target_coff_flavour_enum, false, /* data byte order is little */ - false, /* header byte order is little */ + true, /* header byte order is big */ (HAS_RELOC | EXEC_P | /* object flags */ HAS_LINENO | HAS_DEBUG | HAS_SYMS | HAS_LOCALS | DYNAMIC | WP_TEXT), (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */ - 0, /* valid reloc types */ '/', /* ar_pad_char */ 15, /* ar_max_namelen */ - coff_close_and_cleanup, /* _close_and_cleanup */ - coff_set_section_contents, /* bfd_set_section_contents */ - coff_get_section_contents, /* bfd_get_section_contents */ - coff_new_section_hook, /* new_section_hook */ - _bfd_dummy_core_file_failing_command, /* _core_file_failing_command */ - _bfd_dummy_core_file_failing_signal, /* _core_file_failing_signal */ - _bfd_dummy_core_file_matches_executable_p, /* _core_file_matches_ex...p */ - - bfd_slurp_coff_armap, /* bfd_slurp_armap */ - _bfd_slurp_extended_name_table, /* bfd_slurp_extended_name_table*/ -#if 1 /* */ - bfd_dont_truncate_arname, /* bfd_truncate_arname */ -#else - bfd_bsd_truncate_arname, -#endif - coff_get_symtab_upper_bound, /* get_symtab_upper_bound */ - coff_get_symtab, /* canonicalize_symtab */ - (void (*)())bfd_false, /* bfd_reclaim_symbol_table */ - coff_get_reloc_upper_bound, /* get_reloc_upper_bound */ - coff_canonicalize_reloc, /* bfd_canonicalize_reloc */ - (void (*)())bfd_false, /* bfd_reclaim_reloc */ - - coff_get_symcount_upper_bound, /* bfd_get_symcount_upper_bound */ - coff_get_first_symbol, /* bfd_get_first_symbol */ - coff_get_next_symbol, /* bfd_get_next_symbol */ - coff_classify_symbol, /* bfd_classify_symbol */ - coff_symbol_hasclass, /* bfd_symbol_hasclass */ - coff_symbol_name, /* bfd_symbol_name */ - coff_symbol_value, /* bfd_symbol_value */ _do_getllong, _do_putllong, _do_getlshort, _do_putlshort, /* data */ - _do_getllong, _do_putllong, _do_getlshort, _do_putlshort, /* hdrs */ - - {_bfd_dummy_target, coff_object_p, /* bfd_check_format */ - bfd_generic_archive_p, _bfd_dummy_target}, - {bfd_false, coff_mkobject, /* bfd_set_format */ - _bfd_generic_mkarchive, bfd_false}, - coff_make_empty_symbol, - coff_print_symbol, - coff_get_lineno, - coff_set_arch_mach, - coff_write_armap, - bfd_generic_openr_next_archived_file, - coff_find_nearest_line, - bfd_generic_stat_arch_elt /* bfd_stat_arch_elt */ -}; + _do_getblong, _do_putblong, _do_getbshort, _do_putbshort, /* hdrs */ + {_bfd_dummy_target, coff_object_p, bfd_generic_archive_p, _bfd_dummy_target}, + {bfd_false, coff_mkobject, _bfd_generic_mkarchive, bfd_false}, + JUMP_TABLE(coff) + }; diff --git a/bfd/coff-m88k.c b/bfd/coff-m88k.c index a261c8f..7dda5e5 100644 --- a/bfd/coff-m88k.c +++ b/bfd/coff-m88k.c @@ -24,19 +24,21 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ #include #include "bfd.h" #include "libbfd.h" -#include "libcoff.h" +#include "obstack.h" #include "m88k-bcs.h" +#include "libcoff.h" + static reloc_howto_type howto_table[] = { /* type rtshift size bitsize pc_rel bitpos abs ovff sf name partial inplace mask*/ - R_PCR16L, 2, 1, 16, true, 0, false, true, 0,"PCR16L", false, 0x0000ffff, - R_PCR26L, 2, 2, 26, true, 0, false, true, 0,"PCR26L", false, 0x03ffffff, - R_VRT16, 0, 1, 16, false, 0, false, true, 0,"VRT16", false, 0x0000ffff, - R_HVRT16,16, 1, 16, false, 0, false, true, 0,"HVRT16", false, 0x0000ffff, - R_LVRT16, 0, 1, 16, false, 0, false, true, 0,"LVRT16", false, 0x0000ffff, - R_VRT32, 0, 2, 32, false, 0, false, true, 0,"VRT32", false, 0xffffffff, + R_PCR16L, 2, 1, 16, true, 0, false, true, 0,"PCR16L", false, 0x0000ffff,0x0000ffff, + R_PCR26L, 2, 2, 26, true, 0, false, true, 0,"PCR26L", false, 0x03ffffff,0x03ffffff, + R_VRT16, 0, 1, 16, false, 0, false, true, 0,"VRT16", false, 0x0000ffff,0x0000ffff, + R_HVRT16,16, 1, 16, false, 0, false, true, 0,"HVRT16", false, 0x0000ffff,0x0000ffff, + R_LVRT16, 0, 1, 16, false, 0, false, true, 0,"LVRT16", false, 0x0000ffff,0x0000ffff, + R_VRT32, 0, 2, 32, false, 0, false, true, 0,"VRT32", false, 0xffffffff,0xffffffff, }; @@ -46,11 +48,15 @@ static reloc_howto_type howto_table[] = + +#define coff_write_armap bsd_write_armap + + bfd_target m88k_bcs_vec = { - "m88k-bcs", /* name */ + "m88kbcs", /* name */ bfd_target_coff_flavour_enum, - false, /* data byte order is little */ + true, /* data byte order is big */ true, /* header byte order is big */ (HAS_RELOC | EXEC_P | /* object flags */ @@ -58,39 +64,8 @@ bfd_target m88k_bcs_vec = HAS_SYMS | HAS_LOCALS | DYNAMIC | WP_TEXT), (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */ - 0, /* valid reloc types */ '/', /* ar_pad_char */ 15, /* ar_max_namelen */ - coff_close_and_cleanup, /* _close_and_cleanup */ - coff_set_section_contents, /* bfd_set_section_contents */ - coff_get_section_contents, /* bfd_get_section_contents */ - coff_new_section_hook, /* new_section_hook */ - _bfd_dummy_core_file_failing_command, /* _core_file_failing_command */ - _bfd_dummy_core_file_failing_signal, /* _core_file_failing_signal */ - _bfd_dummy_core_file_matches_executable_p, /* _core_file_matches_ex...p */ - - bfd_slurp_coff_armap, /* bfd_slurp_armap */ - _bfd_slurp_extended_name_table, /* bfd_slurp_extended_name_table*/ -#if 0 /* */ - bfd_dont_truncate_arname, /* bfd_truncate_arname */ -#else - bfd_bsd_truncate_arname, -#endif - - coff_get_symtab_upper_bound, /* get_symtab_upper_bound */ - coff_get_symtab, /* canonicalize_symtab */ - (void (*)())bfd_false, /* bfd_reclaim_symbol_table */ - coff_get_reloc_upper_bound, /* get_reloc_upper_bound */ - coff_canonicalize_reloc, /* bfd_canonicalize_reloc */ - (void (*)())bfd_false, /* bfd_reclaim_reloc */ - - coff_get_symcount_upper_bound, /* bfd_get_symcount_upper_bound */ - coff_get_first_symbol, /* bfd_get_first_symbol */ - coff_get_next_symbol, /* bfd_get_next_symbol */ - coff_classify_symbol, /* bfd_classify_symbol */ - coff_symbol_hasclass, /* bfd_symbol_hasclass */ - coff_symbol_name, /* bfd_symbol_name */ - coff_symbol_value, /* bfd_symbol_value */ _do_getllong, _do_putllong, _do_getlshort, _do_putlshort, /* data */ _do_getblong, _do_putblong, _do_getbshort, _do_putbshort, /* hdrs */ @@ -99,14 +74,9 @@ bfd_target m88k_bcs_vec = bfd_generic_archive_p, _bfd_dummy_target}, {bfd_false, coff_mkobject, _bfd_generic_mkarchive, /* bfd_set_format */ bfd_false}, - coff_make_empty_symbol, - coff_print_symbol, - coff_get_lineno, - coff_set_arch_mach, - coff_write_armap, - bfd_generic_openr_next_archived_file, - coff_find_nearest_line, - bfd_generic_stat_arch_elt /* bfd_stat_arch_elt */ + + JUMP_TABLE(coff) + }; diff --git a/bfd/ieee.c b/bfd/ieee.c index 9e36f07..6d98b10 100644 --- a/bfd/ieee.c +++ b/bfd/ieee.c @@ -1290,16 +1290,16 @@ DEFUN(ieee_set_arch_mach,(abfd, arch, machine), } - static int DEFUN(comp,(ap, bp), - arelent **ap AND - arelent **bp) + PTR ap AND + PTR bp) { - arelent *a = *ap; - arelent *b = *bp; + arelent *a = *((arelent **)ap); + arelent *b = *((arelent **)bp); return a->address - b->address; } + /* Write the section headers */ @@ -1879,7 +1879,7 @@ unsigned int *line_ptr; static int -ieee_stat_arch_elt(abfd, buf) +ieee_generic_stat_arch_elt(abfd, buf) bfd *abfd; struct stat *buf; { @@ -1894,6 +1894,15 @@ struct stat *buf; return 0; } } +#define ieee_core_file_failing_command bfd_false +#define ieee_core_file_failing_signal bfd_false +#define ieee_core_file_matches_executable_p bfd_false +#define ieee_slurp_armap bfd_true +#define ieee_slurp_extended_name_table bfd_true +#define ieee_truncate_arname bfd_false +#define ieee_write_armap bfd_false +#define ieee_get_lineno bfd_false + /*SUPPRESS 460 */ bfd_target ieee_vec = @@ -1907,34 +1916,8 @@ bfd_target ieee_vec = HAS_SYMS | HAS_LOCALS | DYNAMIC | WP_TEXT | D_PAGED), (SEC_CODE|SEC_DATA|SEC_ROM|SEC_HAS_CONTENTS |SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */ - 0, /* valid reloc types */ ' ', /* ar_pad_char */ 16, /* ar_max_namelen */ - ieee_close_and_cleanup, /* _close_and_cleanup */ - ieee_set_section_contents, /* bfd_set_section_contents */ - ieee_get_section_contents, - ieee_new_section_hook, /* new_section_hook */ - 0, /* _core_file_failing_command */ - 0, /* _core_file_failing_signal */ - 0, /* _core_file_matches_ex...p */ - - 0, /* bfd_slurp_bsd_armap, bfd_slurp_armap */ - bfd_true, /* bfd_slurp_extended_name_table */ - bfd_bsd_truncate_arname, /* bfd_truncate_arname */ - - ieee_get_symtab_upper_bound, /* get_symtab_upper_bound */ - ieee_get_symtab, /* canonicalize_symtab */ - 0, /* ieee_reclaim_symbol_table, bfd_reclaim_symbol_table */ - ieee_get_reloc_upper_bound, /* get_reloc_upper_bound */ - ieee_canonicalize_reloc, /* bfd_canonicalize_reloc */ - 0, /* ieee_reclaim_reloc, bfd_reclaim_reloc */ - 0, /* ieee_get_symcount_upper_bound, bfd_get_symcount_upper_bound */ - 0, /* ieee_get_first_symbol, bfd_get_first_symbol */ - 0, /* ieee_get_next_symbol, bfd_get_next_symbol */ - 0, /* ieee_classify_symbol, bfd_classify_symbol */ - 0, /* ieee_symbol_hasclass, bfd_symbol_hasclass */ - 0, /* ieee_symbol_name, bfd_symbol_name */ - 0, /* ieee_symbol_value, bfd_symbol_value */ _do_getblong, _do_putblong, _do_getbshort, _do_putbshort, /* data */ _do_getblong, _do_putblong, _do_getbshort, _do_putbshort, /* hdrs */ @@ -1950,12 +1933,5 @@ bfd_target ieee_vec = _bfd_generic_mkarchive, bfd_false }, - ieee_make_empty_symbol, - ieee_print_symbol, - bfd_false, /* ieee_get_lineno,*/ - ieee_set_arch_mach, /* bfd_set_arch_mach,*/ - bfd_false, - ieee_openr_next_archived_file, - ieee_find_nearest_line, /* bfd_find_nearest_line */ - ieee_stat_arch_elt +JUMP_TABLE(ieee) }; diff --git a/bfd/libcoff.h b/bfd/libcoff.h index 46f5a78..ca498f2 100644 --- a/bfd/libcoff.h +++ b/bfd/libcoff.h @@ -23,6 +23,7 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Object file tdata; access macros */ #define obj_icof(bfd) ((struct icofdata *) ((bfd)->tdata)) +#define coff_data(bfd) ((struct icofdata *) ((bfd)->tdata)) #define exec_hdr(bfd) (obj_icof(bfd)->hdr) #define obj_symbols(bfd) (obj_icof(bfd)->symbols) #define obj_sym_filepos(bfd) (obj_icof(bfd)->sym_filepos) @@ -39,7 +40,8 @@ typedef struct { struct lineno_cache_entry *lineno; } coff_symbol_type; -struct icofdata { +typedef struct icofdata +{ struct aouthdr *hdr; /* exec file header */ coff_symbol_type *symbols; /* symtab for input bfd */ unsigned int *conversion_table; @@ -52,10 +54,10 @@ struct icofdata { struct lineno *raw_linenos; unsigned int raw_syment_count; char *string_table; + unsigned short flags; /* These are only valid once writing has begun */ long int relocbase; - -}; +} coff_data_type; /* We cast the address of the first element of a asymbol to ensure that the * macro is only ever applied to an asymbol. */ diff --git a/bfd/oasys.c b/bfd/oasys.c index d5657a1..a7cb3d9 100644 --- a/bfd/oasys.c +++ b/bfd/oasys.c @@ -24,13 +24,7 @@ -#define obstack_chunk_alloc malloc -#define obstack_chunk_free free -#define oasys_malloc(abfd,size) \ - obstack_alloc( &( oasys_data(abfd)->oasys_obstack), (size)) - -typedef void generic_symbol_type; static void @@ -87,13 +81,13 @@ DEFUN(oasys_slurp_symbol_table,(abfd), } /* Buy enough memory for all the symbols and all the names */ data->symbols = - (asymbol *)oasys_malloc(abfd, sizeof(asymbol) * abfd->symcount); + (asymbol *)bfd_alloc(abfd, sizeof(asymbol) * abfd->symcount); #ifdef UNDERSCORE_HACK /* buy 1 more char for each symbol to keep the underscore in*/ - data->strings = oasys_malloc(abfd, data->symbol_string_length + + data->strings = bfd_alloc(abfd, data->symbol_string_length + abfd->symcount); #else - data->strings = oasys_malloc(abfd, data->symbol_string_length); + data->strings = bfd_alloc(abfd, data->symbol_string_length); #endif dest_undefined = data->symbols; @@ -250,12 +244,12 @@ DEFUN(oasys_archive_p,(abfd), */ { oasys_ar_data_type *ar = - (oasys_ar_data_type*) oasys_malloc(abfd, sizeof(oasys_ar_data_type)); + (oasys_ar_data_type*) bfd_alloc(abfd, sizeof(oasys_ar_data_type)); oasys_module_info_type *module = (oasys_module_info_type*) - oasys_malloc(abfd, sizeof(oasys_module_info_type) * header.mod_count); + bfd_alloc(abfd, sizeof(oasys_module_info_type) * header.mod_count); oasys_module_table_type record; @@ -270,7 +264,7 @@ DEFUN(oasys_archive_p,(abfd), swap(record.mod_size); swap(record.file_offset); swap(record.mod_name_length); - module[i].name = oasys_malloc(abfd,record.mod_name_length+1); + module[i].name = bfd_alloc(abfd,record.mod_name_length+1); bfd_read(module[i].name, 1, record.mod_name_length +1, abfd); /* SKip some stuff */ @@ -289,14 +283,11 @@ static boolean DEFUN(oasys_mkobject,(abfd), bfd *abfd) { - struct obstack tmp_obstack; oasys_data_type *oasys; - obstack_init(&tmp_obstack); - BFD_ASSERT(oasys_data(abfd) == 0); + oasys_data(abfd) = - (oasys_data_type*)obstack_alloc(&tmp_obstack,sizeof(oasys_data_type)); + (oasys_data_type*)bfd_alloc(abfd, sizeof(oasys_data_type)); oasys = oasys_data(abfd); - oasys->oasys_obstack = tmp_obstack; return true; } @@ -347,7 +338,7 @@ DEFUN(oasys_object_p,(abfd), { goto fail; } - buffer = oasys_malloc(abfd, 3); + buffer = bfd_alloc(abfd, 3); section_number= record.section.relb & RELOCATION_SECT_BITS; sprintf(buffer,"%u", section_number); s = bfd_make_section(abfd,buffer); @@ -393,7 +384,7 @@ DEFUN(oasys_object_p,(abfd), return abfd->xvec; fail: - (void) obstack_finish(&oasys->oasys_obstack); + (void) bfd_release(abfd, oasys); return (bfd_target *)NULL; } @@ -455,7 +446,7 @@ DEFUN(oasys_slurp_section_data,(abfd), for (s = abfd->sections; s != (asection *)NULL; s= s->next) { per = oasys_per_section(s); if (per->data != (bfd_byte*)NULL) return true; - per->data = (bfd_byte *) oasys_malloc(abfd, s->size); + per->data = (bfd_byte *) bfd_alloc(abfd, s->size); per->reloc_tail_ptr = (oasys_reloc_type **)&(s->relocation); per->had_vma = false; s->reloc_count = 0; @@ -531,7 +522,7 @@ DEFUN(oasys_slurp_section_data,(abfd), /* Relocate the item relative to the section */ oasys_reloc_type *r = (oasys_reloc_type *) - oasys_malloc(abfd, + bfd_alloc(abfd, sizeof(oasys_reloc_type)); *(per->reloc_tail_ptr) = r; per->reloc_tail_ptr = &r->next; @@ -556,7 +547,7 @@ DEFUN(oasys_slurp_section_data,(abfd), { oasys_reloc_type *r = (oasys_reloc_type *) - oasys_malloc(abfd, + bfd_alloc(abfd, sizeof(oasys_reloc_type)); *(per->reloc_tail_ptr) = r; per->reloc_tail_ptr = &r->next; @@ -608,7 +599,7 @@ DEFUN(oasys_new_section_hook,(abfd, newsect), asection *newsect) { newsect->used_by_bfd = (PTR) - oasys_malloc(abfd, sizeof(oasys_per_section_type)); + bfd_alloc(abfd, sizeof(oasys_per_section_type)); oasys_per_section( newsect)->data = (bfd_byte *)NULL; oasys_per_section(newsect)->section = newsect; oasys_per_section(newsect)->offset = 0; @@ -846,11 +837,11 @@ DEFUN(oasys_write_end,(abfd), static int DEFUN(comp,(ap, bp), - arelent **ap AND - arelent **bp) + CONST PTR ap AND + CONST PTR bp) { - arelent *a = *ap; - arelent *b = *bp; + arelent *a = *((arelent **)ap); + arelent *b = *((arelent **)bp); return a->address - b->address; } @@ -893,7 +884,7 @@ DEFUN(oasys_write_data, (abfd), bfd_h_putlong(abfd, s->vma + current_byte_index, processed_data.addr); - if (long_length + current_byte_index > s->size) { + if ((size_t)(long_length + current_byte_index) > (size_t)(s->size)) { long_length = s->size - current_byte_index; } while (long_length > 0 && (dst - (uint8e_type*)&processed_data < 128)) { @@ -1018,7 +1009,7 @@ DEFUN(oasys_set_section_contents,(abfd, section, location, offset, count), if (oasys_per_section(section)->data == (bfd_byte *)NULL ) { oasys_per_section(section)->data = - (bfd_byte *)(oasys_malloc(abfd,section->size)); + (bfd_byte *)(bfd_alloc(abfd,section->size)); } (void) memcpy(oasys_per_section(section)->data + offset, location, @@ -1041,7 +1032,7 @@ DEFUN(oasys_make_empty_symbol,(abfd), { oasys_symbol_type *new = - (oasys_symbol_type *)zalloc (sizeof (oasys_symbol_type)); + (oasys_symbol_type *)bfd_zalloc (abfd, sizeof (oasys_symbol_type)); new->symbol.the_bfd = abfd; return &new->symbol; @@ -1078,10 +1069,6 @@ bfd *abfd; } - if (oasys_data(abfd) != (oasys_data_type *)NULL) { - /* It's so easy to throw everything away */ -(void) obstack_finish(&(oasys_data(abfd)->oasys_obstack)); - } return true; } @@ -1140,7 +1127,7 @@ unsigned int *line_ptr; } static int -oasys_stat_arch_elt(abfd, buf) +oasys_generic_stat_arch_elt(abfd, buf) bfd *abfd; struct stat *buf; { @@ -1158,6 +1145,16 @@ struct stat *buf; } +#define oasys_core_file_failing_command bfd_false +#define oasys_core_file_failing_signal bfd_false +#define oasys_core_file_matches_executable_p bfd_false +#define oasys_slurp_armap bfd_false +#define oasys_slurp_extended_name_table bfd_false +#define oasys_truncate_arname bfd_false +#define oasys_write_armap bfd_false +#define oasys_get_lineno bfd_false + + /*SUPPRESS 460 */ bfd_target oasys_vec = @@ -1171,34 +1168,8 @@ bfd_target oasys_vec = HAS_SYMS | HAS_LOCALS | DYNAMIC | WP_TEXT | D_PAGED), (SEC_CODE|SEC_DATA|SEC_ROM|SEC_HAS_CONTENTS |SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */ - 0, /* valid reloc types */ ' ', /* ar_pad_char */ 16, /* ar_max_namelen */ - oasys_close_and_cleanup, /* _close_and_cleanup */ - oasys_set_section_contents, /* bfd_set_section_contents */ - oasys_get_section_contents, - oasys_new_section_hook, /* new_section_hook */ - 0, /* _core_file_failing_command */ - 0, /* _core_file_failing_signal */ - 0, /* _core_file_matches_ex...p */ - - 0, /* bfd_slurp_bsd_armap, bfd_slurp_armap */ - bfd_true, /* bfd_slurp_extended_name_table */ - bfd_bsd_truncate_arname, /* bfd_truncate_arname */ - - oasys_get_symtab_upper_bound, /* get_symtab_upper_bound */ - oasys_get_symtab, /* canonicalize_symtab */ - 0, /* oasys_reclaim_symbol_table, bfd_reclaim_symbol_table */ - oasys_get_reloc_upper_bound, /* get_reloc_upper_bound */ - oasys_canonicalize_reloc, /* bfd_canonicalize_reloc */ - 0, /* oasys_reclaim_reloc, bfd_reclaim_reloc */ - 0, /* oasys_get_symcount_upper_bound, bfd_get_symcount_upper_bound */ - 0, /* oasys_get_first_symbol, bfd_get_first_symbol */ - 0, /* oasys_get_next_symbol, bfd_get_next_symbol */ - 0, /* oasys_classify_symbol, bfd_classify_symbol */ - 0, /* oasys_symbol_hasclass, bfd_symbol_hasclass */ - 0, /* oasys_symbol_name, bfd_symbol_name */ - 0, /* oasys_symbol_value, bfd_symbol_value */ _do_getblong, _do_putblong, _do_getbshort, _do_putbshort, /* data */ _do_getblong, _do_putblong, _do_getbshort, _do_putbshort, /* hdrs */ @@ -1214,12 +1185,5 @@ bfd_target oasys_vec = _bfd_generic_mkarchive, bfd_false }, - oasys_make_empty_symbol, - oasys_print_symbol, - bfd_false, /* oasys_get_lineno,*/ - oasys_set_arch_mach, /* bfd_set_arch_mach,*/ - bfd_false, - oasys_openr_next_archived_file, - oasys_find_nearest_line, /* bfd_find_nearest_line */ - oasys_stat_arch_elt, /* bfd_stat_arch_elt */ +JUMP_TABLE(oasys) }; diff --git a/bfd/opncls.c b/bfd/opncls.c index 585acea..c1df552 100644 --- a/bfd/opncls.c +++ b/bfd/opncls.c @@ -25,6 +25,7 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ #include "libbfd.h" + extern void bfd_cache_init(); FILE *bfd_open_file(); @@ -53,9 +54,17 @@ FILE *bfd_open_file(); we should use the emacs lock scheme?... */ +#define obstack_chunk_alloc malloc +#define obstack_chunk_free free + bfd *new_bfd() { - bfd *nbfd = (bfd *)zalloc(sizeof(bfd)); + struct obstack tmp; + bfd *nbfd; + obstack_init(&tmp); + + nbfd = (bfd *)obstack_alloc(&tmp,sizeof(bfd)); + nbfd->memory = tmp; nbfd->direction = no_direction; nbfd->iostream = NULL; @@ -113,7 +122,7 @@ DEFUN(bfd_openr, (filename, target), if (bfd_open_file (nbfd) == NULL) { bfd_error = system_call_error; /* File didn't exist, or some such */ - free (nbfd); + bfd_release(nbfd,0); return NULL; } return nbfd; @@ -255,7 +264,7 @@ bfd_close (abfd) stat(abfd->filename, &buf); chmod(abfd->filename,buf.st_mode | S_IXUSR | S_IXGRP | S_IXOTH); } - free (abfd); + obstack_free(&abfd->memory, (PTR)0); return true; } /* @@ -272,10 +281,53 @@ DEFUN(bfd_create,(filename, template), return (bfd *)NULL; } nbfd->filename = filename; - nbfd->xvec = template->xvec; + if(template) { + nbfd->xvec = template->xvec; + } nbfd->direction = no_direction; + bfd_set_format(nbfd, bfd_object); return nbfd; } + +DEFUN(PTR bfd_alloc, (abfd, size), + bfd *abfd AND + size_t size) +{ + PTR *res = obstack_alloc(&(abfd->memory),size); + return res; +} + +DEFUN(PTR bfd_zalloc,(abfd, size), + bfd *abfd AND + size_t size) +{ + PTR res = bfd_alloc(abfd, size); + memset(res, 0, size); + return res; +} + +DEFUN(PTR bfd_realloc,(abfd, old, size), + bfd *abfd AND + PTR old AND + size_t size) +{ + PTR res = bfd_alloc(abfd, size); + memcpy(res, old, size); + return res; +} + + +DEFUN(size_t bfd_alloc_size,(abfd), + bfd *abfd) +{ + struct _obstack_chunk *chunk = abfd->memory.chunk; + size_t size = 0; + while (chunk) { + size += chunk->limit - &(chunk->contents[0]); + chunk = chunk->prev; + } + return size; +} diff --git a/bfd/srec.c b/bfd/srec.c index cf77496..7a4ff5d 100644 --- a/bfd/srec.c +++ b/bfd/srec.c @@ -42,7 +42,13 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ /* $Id$ * $Log$ - * Revision 1.2 1991/04/03 22:10:51 steve + * Revision 1.4 1991/04/23 16:01:02 steve + * *** empty log message *** + * + * Revision 1.3 1991/04/08 23:22:31 steve + * *** empty log message *** + * + * Revision 1.2 1991/04/03 22:10:51 steve * Fixed typo * * Revision 1.1.1.1 1991/03/21 21:11:22 gumby @@ -408,6 +414,25 @@ bfd *abfd; } /*SUPPRESS 460 */ +#define srec_core_file_failing_command bfd_false +#define srec_core_file_failing_signal bfd_false +#define srec_core_file_matches_executable_p bfd_false +#define srec_slurp_armap bfd_false +#define srec_slurp_extended_name_table bfd_false +#define srec_truncate_arname bfd_false +#define srec_write_armap bfd_false +#define srec_new_section_hook bfd_false +#define srec_get_symtab_upper_bound bfd_false +#define srec_get_symtab bfd_false +#define srec_get_reloc_upper_bound bfd_false +#define srec_canonicalize_reloc bfd_false +#define srec_make_empty_symbol bfd_false +#define srec_print_symbol bfd_false +#define srec_get_lineno bfd_false +#define srec_openr_next_archived_file bfd_false +#define srec_find_nearest_line bfd_false +#define srec_generic_stat_arch_elt bfd_false + bfd_target srec_vec = { "srec", /* name */ @@ -417,36 +442,10 @@ bfd_target srec_vec = (HAS_RELOC | EXEC_P | /* object flags */ HAS_LINENO | HAS_DEBUG | HAS_SYMS | HAS_LOCALS | DYNAMIC | WP_TEXT | D_PAGED), - (SEC_CODE|SEC_DATA|SEC_ROM + (SEC_CODE|SEC_DATA|SEC_ROM|SEC_HAS_CONTENTS |SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */ - 0, /* valid reloc types */ ' ', /* ar_pad_char */ 16, /* ar_max_namelen */ - srec_close_and_cleanup, /* _close_and_cleanup */ - srec_set_section_contents, /* bfd_set_section_contents */ - srec_get_section_contents, - bfd_true, /* new_section_hook */ - 0, /* _core_file_failing_command */ - 0, /* _core_file_failing_signal */ - 0, /* _core_file_matches_ex...p */ - - bfd_false, /* bfd_slurp_armap */ - bfd_false, /* bfd_slurp_extended_name_table */ - bfd_void, /* bfd_truncate_arname */ - bfd_0u, /* get_symtab_upper_bound */ - bfd_0u, /* canonicalize_symtab */ - bfd_void, /* bfd_reclaim_symbol_table */ - bfd_0u, /* get_reloc_upper_bound */ - bfd_0u, /* bfd_canonicalize_reloc */ - bfd_void, /* bfd_reclaim_reloc */ - bfd_0, /* bfd_get_symcount_upper_bound */ - (symindex (*)())bfd_0, /* bfd_get_first_symbol */ - (symindex (*)())bfd_0, /* bfd_get_next_symbol */ - bfd_false, /* bfd_classify_symbol */ - bfd_false, /* bfd_symbol_hasclass */ - (char* (*)())bfd_0, /* bfd_symbol_name */ - bfd_0, /* bfd_symbol_value */ - _do_getblong, _do_putblong, _do_getbshort, _do_putbshort, /* data */ _do_getblong, _do_putblong, _do_getbshort, _do_putbshort, /* hdrs */ @@ -461,11 +460,5 @@ bfd_target srec_vec = _bfd_generic_mkarchive, bfd_false, }, - (asymbol * (*)()) bfd_nullvoidptr, /* bfd_make_empty_symbol */ - bfd_void, /* bfd_prit_symbol */ - (alent *(*)())bfd_nullvoidptr, /* srec_get_lineno,*/ - srec_set_arch_mach, /* bfd_set_arch_mach,*/ - bfd_false, /* write_armap*/ - (bfd *(*)())bfd_nullvoidptr, /* openr_next_archived_file */ - bfd_false, /* bfd_find_nearest_line */ +JUMP_TABLE(srec) }; diff --git a/bfd/sunos.c b/bfd/sunos.c index bfb92ba..921c448 100644 --- a/bfd/sunos.c +++ b/bfd/sunos.c @@ -226,7 +226,7 @@ sunos4_object_p (abfd) } /* Use an intermediate variable for clarity */ - rawptr = (PTR) zalloc (sizeof (struct sunexdata) + sizeof (struct exec)); + rawptr = (PTR) bfd_zalloc (abfd, sizeof (struct sunexdata) + sizeof (struct exec)); if (rawptr == NULL) { bfd_error = no_memory; @@ -340,7 +340,7 @@ sunos4_mkobject (abfd) bfd_error = system_call_error; /* Use an intermediate variable for clarity */ - rawptr = zalloc (sizeof (struct sunexdata) + sizeof (struct exec)); + rawptr = bfd_zalloc (abfd,sizeof (struct sunexdata) + sizeof (struct exec)); if (rawptr == NULL) { bfd_error = no_memory; @@ -380,30 +380,30 @@ aout_machine_type (arch, machine) switch (arch) { case bfd_arch_sparc: - if (machine == 0) arch_flags = M_SPARC; - break; + if (machine == 0) arch_flags = M_SPARC; + break; case bfd_arch_m68k: - switch (machine) { - case 0: arch_flags = M_UNKNOWN; break; - case 68000: arch_flags = M_UNKNOWN; break; - case 68010: arch_flags = M_68010; break; - case 68020: arch_flags = M_68020; break; - default: arch_flags = M_UNKNOWN; break; - } - break; + switch (machine) { + case 0: arch_flags = M_68010; break; + case 68000: arch_flags = M_UNKNOWN; break; + case 68010: arch_flags = M_68010; break; + case 68020: arch_flags = M_68020; break; + default: arch_flags = M_UNKNOWN; break; + } + break; case bfd_arch_i386: - if (machine == 0) arch_flags = M_386; - break; + if (machine == 0) arch_flags = M_386; + break; case bfd_arch_a29k: - if (machine == 0) arch_flags = M_29K; - break; + if (machine == 0) arch_flags = M_29K; + break; default: - arch_flags = M_UNKNOWN; - break; + arch_flags = M_UNKNOWN; + break; } return arch_flags; } @@ -631,7 +631,7 @@ sunos4_core_file_p (abfd) if (bfd_seek (abfd, 0L, false) < 0) return 0; - rawptr = zalloc (core_size + sizeof (struct suncordata)); + rawptr = bfd_zalloc (abfd, core_size + sizeof (struct suncordata)); if (rawptr == NULL) { bfd_error = no_memory; return 0; @@ -651,26 +651,26 @@ sunos4_core_file_p (abfd) /* create the sections. This is raunchy, but bfd_close wants to reclaim them */ - core_stacksec (abfd) = (asection *) zalloc (sizeof (asection)); + core_stacksec (abfd) = (asection *) bfd_zalloc (abfd, sizeof (asection)); if (core_stacksec (abfd) == NULL) { loser: bfd_error = no_memory; free ((PTR)rawptr); return 0; } - core_datasec (abfd) = (asection *) zalloc (sizeof (asection)); + core_datasec (abfd) = (asection *) bfd_zalloc (abfd, sizeof (asection)); if (core_datasec (abfd) == NULL) { loser1: free ((PTR)core_stacksec (abfd)); goto loser; } - core_regsec (abfd) = (asection *) zalloc (sizeof (asection)); + core_regsec (abfd) = (asection *) bfd_zalloc (abfd, sizeof (asection)); if (core_regsec (abfd) == NULL) { loser2: free ((PTR)core_datasec (abfd)); goto loser1; } - core_reg2sec (abfd) = (asection *) zalloc (sizeof (asection)); + core_reg2sec (abfd) = (asection *) bfd_zalloc (abfd, sizeof (asection)); if (core_reg2sec (abfd) == NULL) { free ((PTR)core_regsec (abfd)); goto loser2; @@ -923,7 +923,7 @@ translate_from_native_sym_flags (sym_pointer, cache_ptr, abfd) { asection *section = bfd_make_section(abfd, cache_ptr->symbol.name); - arelent_chain *reloc = (arelent_chain *)malloc(sizeof(arelent_chain)); + arelent_chain *reloc = (arelent_chain *)bfd_alloc(abfd, sizeof(arelent_chain)); switch ( (cache_ptr->type & N_TYPE) ) { case N_SETA: @@ -1105,7 +1105,7 @@ sunos4_make_empty_symbol (abfd) bfd *abfd; { aout_symbol_type *new = - (aout_symbol_type *)zalloc (sizeof (aout_symbol_type)); + (aout_symbol_type *)bfd_zalloc (abfd, sizeof (aout_symbol_type)); new->symbol.the_bfd = abfd; return &new->symbol; @@ -1137,30 +1137,13 @@ DEFUN(sunos4_slurp_symbol_table, (abfd), symbol_count = symbol_size / sizeof (struct nlist); - /* Malloc (should alloca) space for native symbols, and - malloc space for string table and symbol cache. */ - - syms = (struct nlist *) zalloc (symbol_size); - if (syms == NULL) { - bfd_error = no_memory; - return false; - } - - cached = (aout_symbol_type *) zalloc ((size_t)(string_size + 1 + - (symbol_count * sizeof (aout_symbol_type)))); - if (cached == NULL) { - bfd_error = no_memory; - free ((PTR)syms); - return false; - } - - strings = ((char *) cached) + (symbol_count * sizeof (aout_symbol_type)); + strings = bfd_alloc(abfd, string_size + 1); + cached = bfd_zalloc(abfd, symbol_count * sizeof(aout_symbol_type)); + syms = bfd_alloc(abfd, symbol_size); bfd_seek (abfd, obj_sym_filepos (abfd), SEEK_SET); if (bfd_read ((PTR)syms, 1, symbol_size, abfd) != symbol_size) { bailout: - free ((PTR)cached); - free ((PTR)syms); return false; } @@ -1170,10 +1153,10 @@ DEFUN(sunos4_slurp_symbol_table, (abfd), } /* OK, now walk the new symtable, cacheing symbol properties */ - { - register struct nlist *sym_pointer; - register struct nlist *sym_end = syms + symbol_count; - register aout_symbol_type *cache_ptr = cached; + { + register struct nlist *sym_pointer; + register struct nlist *sym_end = syms + symbol_count; + register aout_symbol_type *cache_ptr = cached; /* run through the table and byte swap if needed */ for (sym_pointer = syms; sym_pointer < sym_end; sym_pointer++) { @@ -1190,28 +1173,28 @@ DEFUN(sunos4_slurp_symbol_table, (abfd), } - /* Run through table and copy values */ - for (sym_pointer = syms, cache_ptr = cached; - sym_pointer < sym_end; sym_pointer++, cache_ptr++) - { - cache_ptr->symbol.the_bfd = abfd; - if (sym_pointer->n_un.n_strx) - cache_ptr->symbol.name = sym_pointer->n_un.n_strx + strings; - else - cache_ptr->symbol.name = (char *)NULL; - cache_ptr->symbol.value = sym_pointer->n_value; - cache_ptr->desc = sym_pointer->n_desc; - cache_ptr->other = sym_pointer->n_other; - cache_ptr->type = sym_pointer->n_type; - cache_ptr->symbol.udata = 0; - translate_from_native_sym_flags (sym_pointer, cache_ptr, abfd); + /* Run through table and copy values */ + for (sym_pointer = syms, cache_ptr = cached; + sym_pointer < sym_end; sym_pointer++, cache_ptr++) + { + cache_ptr->symbol.the_bfd = abfd; + if (sym_pointer->n_un.n_strx) + cache_ptr->symbol.name = sym_pointer->n_un.n_strx + strings; + else + cache_ptr->symbol.name = (char *)NULL; + cache_ptr->symbol.value = sym_pointer->n_value; + cache_ptr->desc = sym_pointer->n_desc; + cache_ptr->other = sym_pointer->n_other; + cache_ptr->type = sym_pointer->n_type; + cache_ptr->symbol.udata = 0; + translate_from_native_sym_flags (sym_pointer, cache_ptr, abfd); - } - } + } + } obj_aout_symbols (abfd) = cached; bfd_get_symcount (abfd) = symbol_count; - free ((PTR)syms); + bfd_release (abfd, (PTR)syms); return true; } @@ -1291,22 +1274,7 @@ void DEFUN(sunos4_reclaim_symbol_table,(abfd), bfd *abfd) { - asection *section; - - if (!bfd_get_symcount (abfd)) return; - for (section = abfd->sections; - section != (asection *) NULL; - section = section->next) - if (section->relocation) { - free ((PTR)section->relocation); - section->relocation = NULL; - section->reloc_count = 0; - } - - bfd_get_symcount (abfd) = 0; - free ((PTR)obj_aout_symbols (abfd)); - obj_aout_symbols (abfd) = (aout_symbol_type *)NULL; } unsigned int @@ -1335,88 +1303,6 @@ sunos4_get_symtab (abfd, location) } -/* Obsolete procedural interface; better to look at the cache directly */ - -/* User should have checked the file flags; perhaps we should return - BFD_NO_MORE_SYMBOLS if there are none? */ - -int -sunos4_get_symcount_upper_bound (abfd) - bfd *abfd; -{ - /* In case we're doing an output file or something...? */ - if (bfd_get_symcount (abfd)) return bfd_get_symcount (abfd); - - return (exec_hdr (abfd)->a_syms) / (sizeof (struct nlist)); -} - -symindex -sunos4_get_first_symbol (ignore_abfd) - bfd * ignore_abfd; -{ - return 0; -} - -symindex -sunos4_get_next_symbol (abfd, oidx) - bfd *abfd; - symindex oidx; -{ - if (oidx == BFD_NO_MORE_SYMBOLS) return BFD_NO_MORE_SYMBOLS; - return ++oidx >= bfd_get_symcount (abfd) ? BFD_NO_MORE_SYMBOLS : oidx; -} - -CONST char * -sunos4_symbol_name (abfd, idx) - bfd *abfd; - symindex idx; -{ - return (obj_aout_symbols (abfd) + idx)->symbol.name; -} - -long -sunos4_symbol_value (abfd, idx) - bfd *abfd; - symindex idx; -{ - return (obj_aout_symbols (abfd) + idx)->symbol.value; -} - -symclass -sunos4_classify_symbol (abfd, idx) - bfd *abfd; - symindex idx; -{ - aout_symbol_type *sym = obj_aout_symbols (abfd) + idx; - - if ((sym->symbol.flags & BSF_FORT_COMM) != 0) return bfd_symclass_fcommon; - if ((sym->symbol.flags & BSF_GLOBAL) != 0) return bfd_symclass_global; - if ((sym->symbol.flags & BSF_DEBUGGING) != 0) return bfd_symclass_debugger; - if ((sym->symbol.flags & BSF_UNDEFINED) != 0) return bfd_symclass_undefined; - - return bfd_symclass_unknown; -} - -boolean -sunos4_symbol_hasclass (abfd, idx, class) - bfd *abfd; - symindex idx; - symclass class; -{ - aout_symbol_type *sym = obj_aout_symbols (abfd) + idx; - switch (class) { - case bfd_symclass_fcommon: - return (sym->symbol.flags & BSF_FORT_COMM) ? true :false; - case bfd_symclass_global: - return (sym->symbol.flags & BSF_GLOBAL) ? true:false; - case bfd_symclass_debugger: - return (sym->symbol.flags & BSF_DEBUGGING) ? true:false;; - case bfd_symclass_undefined: - return (sym->symbol.flags & BSF_UNDEFINED) ? true:false;; - default: return false; - } -} - /* Standard reloc stuff */ /* Output standard relocation information to a file in target byte order. */ @@ -1747,22 +1633,13 @@ sunos4_slurp_reloc_table (abfd, asect, symbols) count = reloc_size / each_size; - relocs = (PTR) malloc (reloc_size); - if (!relocs) { - bfd_error = no_memory; - return false; - } - reloc_cache = (arelent *) zalloc ((size_t)(count * sizeof (arelent))); - if (reloc_cache == (arelent *)NULL) { - free (relocs); - bfd_error = no_memory; - return false; - } + + reloc_cache = (arelent *) bfd_zalloc (abfd, (size_t)(count * sizeof + (arelent))); + relocs = bfd_alloc (abfd, reloc_size); if (bfd_read ( relocs, 1, reloc_size, abfd) != reloc_size) { bfd_error = system_call_error; - free (reloc_cache); - free (relocs); return false; } @@ -1786,7 +1663,7 @@ sunos4_slurp_reloc_table (abfd, asect, symbols) } } - free (relocs); +bfd_release (abfd,relocs); asect->relocation = reloc_cache; asect->reloc_count = count; return true; @@ -1812,7 +1689,7 @@ sunos4_squirt_out_relocs (abfd, section) each_size = reloc_size_func(abfd); natsize = each_size * count; - native = (unsigned char *) zalloc (natsize); + native = (unsigned char *) bfd_zalloc (abfd, natsize); if (!native) { bfd_error = no_memory; return false; @@ -1833,10 +1710,10 @@ sunos4_squirt_out_relocs (abfd, section) } if ( bfd_write ((PTR) native, 1, natsize, abfd) != natsize) { - free(native); + bfd_release(abfd, native); return false; } - free (native); + bfd_release (abfd, native); return true; } @@ -1909,11 +1786,7 @@ sunos4_reclaim_reloc (ignore_abfd, section) bfd *ignore_abfd; sec_ptr section; { - if (section->relocation) { - free (section->relocation); - section->relocation = NULL; - section->reloc_count = 0; - } + } @@ -1974,13 +1847,6 @@ sunos4_close_and_cleanup (abfd) default: bfd_error = invalid_operation; return false; } -#define cleaner(ptr) if (abfd->ptr) free (abfd->ptr) - cleaner (tdata); - - if (abfd->my_archive) - cleaner (filename); - -#undef cleaner return true; } @@ -2066,6 +1932,12 @@ DEFUN(sunos4_find_nearest_line,(abfd, } +#define sunos4_openr_next_archived_file bfd_generic_openr_next_archived_file +#define sunos4_generic_stat_arch_elt bfd_generic_stat_arch_elt +#define sunos4_slurp_armap bfd_slurp_bsd_armap +#define sunos4_slurp_extended_name_table bfd_true +#define sunos4_write_armap bsd_write_armap +#define sunos4_truncate_arname bfd_bsd_truncate_arname bfd_target aout_big_vec = { "a.out-generic-big", /* name */ @@ -2076,105 +1948,41 @@ bfd_target aout_big_vec = HAS_LINENO | HAS_DEBUG | HAS_SYMS | HAS_LOCALS | DYNAMIC | WP_TEXT | D_PAGED), (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */ - 0, /* valid reloc types */ ' ', /* ar_pad_char */ 16, /* ar_max_namelen */ - sunos4_close_and_cleanup, /* _close_and_cleanup */ - sunos4_set_section_contents, /* bfd_set_section_contents */ - sunos4_get_section_contents, /* bfd_get_section_contents */ - sunos4_new_section_hook, /* new_section_hook */ - sunos4_core_file_failing_command, /* _core_file_failing_command */ - sunos4_core_file_failing_signal, /* _core_file_failing_signal */ - sunos4_core_file_matches_executable_p, /* _core_file_matches_ex...p */ - - bfd_slurp_bsd_armap, /* bfd_slurp_armap */ - bfd_true, /* bfd_slurp_extended_name_table */ - bfd_bsd_truncate_arname, /* bfd_truncate_arname */ - - sunos4_get_symtab_upper_bound, /* get_symtab_upper_bound */ - sunos4_get_symtab, /* canonicalize_symtab */ - sunos4_reclaim_symbol_table, /* bfd_reclaim_symbol_table */ - sunos4_get_reloc_upper_bound, /* get_reloc_upper_bound */ - sunos4_canonicalize_reloc, /* bfd_canonicalize_reloc */ - sunos4_reclaim_reloc, /* bfd_reclaim_reloc */ - sunos4_get_symcount_upper_bound, /* bfd_get_symcount_upper_bound */ - sunos4_get_first_symbol, /* bfd_get_first_symbol */ - sunos4_get_next_symbol, /* bfd_get_next_symbol */ - sunos4_classify_symbol, /* bfd_classify_symbol */ - sunos4_symbol_hasclass, /* bfd_symbol_hasclass */ - sunos4_symbol_name, /* bfd_symbol_name */ - sunos4_symbol_value, /* bfd_symbol_value */ - _do_getblong, _do_putblong, _do_getbshort, _do_putbshort, /* data */ _do_getblong, _do_putblong, _do_getbshort, _do_putbshort, /* hdrs */ - {_bfd_dummy_target, sunos4_object_p, /* bfd_check_format */ - bfd_generic_archive_p, sunos4_core_file_p}, - {bfd_false, sunos4_mkobject, /* bfd_zxset_format */ - _bfd_generic_mkarchive, bfd_false}, - sunos4_make_empty_symbol, - sunos4_print_symbol, - sunos4_get_lineno, - sunos4_set_arch_mach, - bsd_write_armap, - bfd_generic_openr_next_archived_file, - sunos4_find_nearest_line, /* bfd_find_nearest_line */ - bfd_generic_stat_arch_elt /* bfd_stat_arch_elt */ + {_bfd_dummy_target, sunos4_object_p, + bfd_generic_archive_p, sunos4_core_file_p}, + {bfd_false, sunos4_mkobject, + _bfd_generic_mkarchive, bfd_false}, + + JUMP_TABLE(sunos4) }; + bfd_target aout_little_vec = { "a.out-generic-little", /* name */ bfd_target_aout_flavour_enum, - true, /* target byte order */ - true, /* target headers byte order */ + false, /* target byte order */ + false, /* target headers byte order */ (HAS_RELOC | EXEC_P | /* object flags */ HAS_LINENO | HAS_DEBUG | HAS_SYMS | HAS_LOCALS | DYNAMIC | WP_TEXT | D_PAGED), (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD | SEC_RELOC), /* section flags */ - 0, /* valid reloc types */ ' ', /* ar_pad_char */ 16, /* ar_max_namelen */ - sunos4_close_and_cleanup, /* _close_and_cleanup */ - sunos4_set_section_contents, /* bfd_set_section_contents */ - sunos4_get_section_contents, /* bfd_get_section_contents */ - sunos4_new_section_hook, /* new_section_hook */ - sunos4_core_file_failing_command, /* _core_file_failing_command */ - sunos4_core_file_failing_signal, /* _core_file_failing_signal */ - sunos4_core_file_matches_executable_p, /* _core_file_matches_ex...p */ - - bfd_slurp_bsd_armap, /* bfd_slurp_armap */ - bfd_true, /* bfd_slurp_extended_name_table */ - bfd_bsd_truncate_arname, /* bfd_truncate_arname */ - - sunos4_get_symtab_upper_bound, /* get_symtab_upper_bound */ - sunos4_get_symtab, /* canonicalize_symtab */ - sunos4_reclaim_symbol_table, /* bfd_reclaim_symbol_table */ - sunos4_get_reloc_upper_bound, /* get_reloc_upper_bound */ - sunos4_canonicalize_reloc, /* bfd_canonicalize_reloc */ - sunos4_reclaim_reloc, /* bfd_reclaim_reloc */ - sunos4_get_symcount_upper_bound, /* bfd_get_symcount_upper_bound */ - sunos4_get_first_symbol, /* bfd_get_first_symbol */ - sunos4_get_next_symbol, /* bfd_get_next_symbol */ - sunos4_classify_symbol, /* bfd_classify_symbol */ - sunos4_symbol_hasclass, /* bfd_symbol_hasclass */ - sunos4_symbol_name, /* bfd_symbol_name */ - sunos4_symbol_value, /* bfd_symbol_value */ - _do_getllong, _do_putllong, _do_getlshort, _do_putlshort, /* data */ _do_getllong, _do_putllong, _do_getlshort, _do_putlshort, /* hdrs */ - {_bfd_dummy_target, sunos4_object_p, /* bfd_check_format */ - bfd_generic_archive_p, sunos4_core_file_p}, - {bfd_false, sunos4_mkobject, /* bfd_zxset_format */ - _bfd_generic_mkarchive, bfd_false}, - sunos4_make_empty_symbol, - sunos4_print_symbol, - sunos4_get_lineno, - sunos4_set_arch_mach, - bsd_write_armap, - bfd_generic_openr_next_archived_file, - sunos4_find_nearest_line, /* bfd_find_nearest_line */ - bfd_generic_stat_arch_elt /* bfd_stat_arch_elt */ + + {_bfd_dummy_target, sunos4_object_p, + bfd_generic_archive_p, sunos4_core_file_p}, + {bfd_false, sunos4_mkobject, + _bfd_generic_mkarchive, bfd_false}, + + JUMP_TABLE(sunos4) }; diff --git a/bfd/targets.c b/bfd/targets.c index b422638..e4166be 100644 --- a/bfd/targets.c +++ b/bfd/targets.c @@ -45,6 +45,18 @@ extern bfd_target m88k_bcs_vec; #define B_OUT_VEC_BIG_HOST b_out_vec_big_host #endif /* GNU960 */ +#ifndef RESTRICTED +#define ICOFF_LITTLE_VEC icoff_little_vec +#define ICOFF_BIG_VEC icoff_big_vec +#define B_OUT_VEC_LITTLE_HOST b_out_vec_little_host +#define B_OUT_VEC_BIG_HOST b_out_vec_big_host +#define AOUT_VEC_LITTLE_HOST aout_little_vec +#define AOUT_VEC_BIG_HOST aout_big_vec +#define OASYS_VEC oasys_vec +#define IEEE_VEC ieee_vec +#define M88K_BCS_VEC m88k_bcs_vec +#define SREC_VEC srec_vec +#endif bfd_target *target_vector[] = { #ifdef DEFAULT_VECTOR @@ -59,12 +71,12 @@ bfd_target *target_vector[] = { &OASYS_VEC, #endif /* OASYS_VEC */ -#ifdef AOUT_LITTLE_VEC - &AOUT_LITTLE_VEC, +#ifdef AOUT_VEC_LITTLE_HOST + &AOUT_VEC_LITTLE_HOST, #endif /* AOUT_LITTLE_VEC */ -#ifdef AOUT_BIG_VEC - &AOUT_BIG_VEC, +#ifdef AOUT_VEC_BIG_HOST + &AOUT_VEC_BIG_HOST, #endif /* AOUT_BIG_VEC */ #ifdef M88K_BCS_VEC diff --git a/binutils/ar.c b/binutils/ar.c index ab01510..0011dd3 100644 --- a/binutils/ar.c +++ b/binutils/ar.c @@ -540,7 +540,7 @@ extract_file(abfd) /* This is ugly! XXX */ -PROTO(struct ar_hdr *, bfd_special_undocumented_glue, (char *filename)); +PROTO(struct ar_hdr *, bfd_special_undocumented_glue, (bfd *abfd, char *filename)); void do_quick_append(archive_filename, files_to_append) @@ -598,7 +598,7 @@ do_quick_append(archive_filename, files_to_append) fseek(ofile, 0, 2); for (; files_to_append && *files_to_append; ++files_to_append) { - struct ar_hdr *hdr = bfd_special_undocumented_glue(*files_to_append); + struct ar_hdr *hdr = bfd_special_undocumented_glue(temp, *files_to_append); if (hdr == NULL) { bfd_perror(*files_to_append); exit(1); diff --git a/binutils/objdump.c b/binutils/objdump.c index 4f764bd..eae1860 100644 --- a/binutils/objdump.c +++ b/binutils/objdump.c @@ -48,6 +48,7 @@ int dump_reloc_info; /* -r */ int dump_ar_hdrs; /* -a */ int with_line_numbers; /* -l */ boolean disassemble; /* -d */ +boolean info; /* -i */ char *only; PROTO (void, display_file, (char *filename, char *target)); @@ -75,7 +76,7 @@ void usage () { fprintf (stderr, - "usage: %s [-ahfdrtxsl] [-m machine] [-j section_name] obj ...\n", + "usage: %s [-ahifdrtxsl] [-m machine] [-j section_name] obj ...\n", program_name); exit (1); } @@ -597,7 +598,65 @@ bfd *abfd; } } +static void +DEFUN_VOID(display_info) +{ + unsigned int i; + extern bfd_target *target_vector[]; + + enum bfd_architecture j; + i = 0; + printf("BFD header file version %s\n", BFD_VERSION); + while (target_vector[i] != (bfd_target *)NULL) + { + bfd_target *p = target_vector[i]; + bfd *abfd = bfd_openw("##dummy",p->name); + printf("%s\n (header %s, data %s)\n", p->name, + p->header_byteorder_big_p ? "big endian" : "little endian", + p->byteorder_big_p ? "big endian" : "little endian" ); + { + enum bfd_architecture j; + for (j = bfd_arch_obscure +1; j < bfd_arch_last; j++) + { + if (bfd_set_arch_mach(abfd, j, 0)) + { + printf(" %s\n", bfd_printable_arch_mach(j,0)); + } + } + } + i++; + } + /* Again as a table */ + printf("%12s"," "); + for (i = 0; target_vector[i]; i++) { + printf("%s ",target_vector[i]->name); + } + printf("\n"); + for (j = bfd_arch_obscure +1; j < bfd_arch_last; j++) { + printf("%11s ", bfd_printable_arch_mach(j,0)); + for (i = 0; target_vector[i]; i++) { + { + bfd_target *p = target_vector[i]; + bfd *abfd = bfd_openw("##dummy",p->name); + int l = strlen(p->name); + int ok = bfd_set_arch_mach(abfd, j, 0); + if (ok) { + printf("%s ", p->name); + } + else { + while (l--) { + printf("%c",ok?'*':'-'); + } + printf(" "); + } + + } + } + + printf("\n"); + } +} /** main and like trivia */ int main (argc, argv) @@ -613,7 +672,7 @@ main (argc, argv) program_name = *argv; - while ((c = getopt_long (argc, argv, "b:m:dlfahrtxsj:", long_options, &ind)) + while ((c = getopt_long (argc, argv, "ib:m:dlfahrtxsj:", long_options, &ind)) != EOF) { seenflag = true; switch (c) { @@ -632,6 +691,9 @@ main (argc, argv) case 'f': dump_file_header = true; break; + case 'i': + info = true; + break; case 'x': dump_symtab = 1; dump_reloc_info = 1; @@ -654,10 +716,15 @@ main (argc, argv) if (seenflag == false) usage (); + if (info) { + display_info(); + } + else { if (optind == argc) display_file ("a.out", target); else for (; optind < argc;) display_file (argv[optind++], target); +} return 0; } -- 2.7.4