2009-11-24 Tristan Gingold <gingold@adacore.com>
* vms-hdr.c (_bfd_vms_write_hdr): Strip any suffix to create module name. * vms.h (vms_debug2): Add vms_debug2. * vms.c (vms_archive_p): Remove (vms_bfd_free_cached_info): Remove the function, use libbfd.h macro instead. (vms_get_section_contents_in_window): Ditto. (vms_bfd_copy_private_bfd_data): Ditto. (vms_bfd_copy_private_section_data): Ditto. (vms_bfd_copy_private_symbol_data): Ditto. (vms_bfd_print_private_bfd_data): Ditto. (vms_bfd_set_private_flags): Ditto. (vms_bfd_merge_private_bfd_data): Ditto. (vms_read_minisymbols): Ditto. (vms_minisymbol_to_symbol): Ditto. (vms_get_lineno): Ditto. (vms_find_nearest_line): Ditto. (vms_bfd_make_debug_symbol): Ditto. (vms_core_file_failing_command): Remove. (vms_core_file_failing_signal): Remove. (vms_core_file_matches_executable_p): Remove. (vms_slurp_armap): Remove. (vms_slurp_extended_name_table): Remove. (vms_construct_extended_name_table): Remove. (vms_truncate_arname): Remove. (vms_write_armap): Remove. (vms_read_ar_hdr): Remove. (vms_get_elt_at_index): Remove. (vms_openr_next_archived_file): Remove. (vms_update_armap_timestamp): Remove. (vms_generic_stat_arch_elt): Remove. (vms_get_symtab_upper_bound): Remove. (vms_sizeof_headers): Remove. (vms_bfd_get_relocated_section_contents): Remove. (vms_bfd_relax_section): Remove. (vms_bfd_gc_sections): Remove. (vms_bfd_merge_sections): Remove. (vms_bfd_link_hash_table_create): Remove. (vms_bfd_link_hash_table_free): Remove. (vms_bfd_link_add_symbols): Remove. (vms_bfd_final_link): Remove. (vms_bfd_link_split_section): Remove. (vms_get_dynamic_symtab_upper_bound): Remove. (vms_canonicalize_dynamic_symtab): Remove. (vms_get_dynamic_reloc_upper_bound): Remove. (vms_canonicalize_dynamic_reloc): Remove. (fill_section_ptr): Use vms_debug2 instead of vms_debug. (_bfd_vms_slurp_object_records): Ditto. (vms_object_p): Ditto. (vms_mkobject): Ditto. (vms_write_object_contents): Ditto. (vms_close_and_cleanup): Ditto. (vms_new_section_hook): Ditto. (vms_get_section_contents): Ditto. (vms_get_symtab_upper_bound): Ditto. (vms_canonicalize_symtab): Ditto. (vms_print_symbol): Ditto. (vms_get_symbol_info): Ditto. (vms_bfd_is_local_label_name): Ditto. (vms_find_nearest_line): Ditto. (vms_slurp_reloc_table): Ditto. (vms_bfd_reloc_type_lookup): Ditto. (vms_set_arch_mach): Ditto. (vms_alpha_vec, vms_vax_vec): Use _bfd_nocore, _bfd_noarchive, _bfd_nolink and _bfd_nodynamic methods instead of vms stubs.
This commit is contained in:
parent
58ed7dcdd0
commit
e4d2e6658e
@ -234,6 +234,7 @@ _bfd_vms_write_hdr (bfd *abfd, int objtype)
|
||||
_bfd_vms_output_long (abfd, MAX_OUTREC_SIZE);
|
||||
}
|
||||
|
||||
/* Create module name from filename. */
|
||||
if (bfd_get_filename (abfd) != 0)
|
||||
{
|
||||
/* Strip path and suffix information. */
|
||||
@ -256,9 +257,9 @@ _bfd_vms_write_hdr (bfd *abfd, int objtype)
|
||||
if (fptr != NULL)
|
||||
fout = fptr + 1;
|
||||
|
||||
/* Strip .obj suffix. */
|
||||
/* Strip suffix. */
|
||||
fptr = strrchr (fout, '.');
|
||||
if (fptr != 0 && strcasecmp (fptr, ".OBJ") == 0)
|
||||
if (fptr != 0)
|
||||
*fptr = 0;
|
||||
|
||||
/* Convert to upper case and truncate at 31 characters.
|
||||
|
@ -854,8 +854,11 @@ struct evax_private_udata_struct
|
||||
#if VMS_DEBUG
|
||||
extern void _bfd_vms_debug (int, char *, ...) ATTRIBUTE_PRINTF_2;
|
||||
extern void _bfd_hexdump (int, unsigned char *, int, int);
|
||||
|
||||
#define vms_debug _bfd_vms_debug
|
||||
|
||||
#define vms_debug _bfd_vms_debug
|
||||
#define vms_debug2(X) _bfd_vms_debug X
|
||||
#else
|
||||
#define vms_debug2(X)
|
||||
#endif
|
||||
|
||||
extern struct bfd_hash_entry * _bfd_vms_hash_newfunc (struct bfd_hash_entry *, struct bfd_hash_table *, const char *);
|
||||
|
Loading…
Reference in New Issue
Block a user