diff options
| author | Tristan Gingold <gingold@adacore.com> | 2010-01-27 16:43:27 +0000 |
|---|---|---|
| committer | Tristan Gingold <gingold@adacore.com> | 2010-01-27 16:43:27 +0000 |
| commit | 771deb084eb2128196b9057996847719583be713 (patch) | |
| tree | f0d402367c16247a9ff912e537acc57e2119abf5 /bfd/vms.c | |
| parent | b10d2873648b3629938afa9563fefb081b164c40 (diff) | |
| download | gdb-771deb084eb2128196b9057996847719583be713.zip gdb-771deb084eb2128196b9057996847719583be713.tar.gz gdb-771deb084eb2128196b9057996847719583be713.tar.bz2 | |
2010-01-27 Tristan Gingold <gingold@adacore.com>
* vms.h: Remove trailing spaces.
(struct hdr_struct): Remove unused hdr_c_cpr field.
(enum file_format_enum): Add comments.
* vms.c (vms_bfd_print_private_bfd_data): New function that
replaces the macro.
Remove trailing spaces.
* vms-misc.c: Improve comments.
(_bfd_vms_get_object_record): Also handle files without pads.
* vms-hdr.c (_bfd_vms_write_dbg): Fix format string.
* vms-gsd.c (struct flagdescstruct): Make name field const.
(gsyflagdesc): Fix typo.
Diffstat (limited to 'bfd/vms.c')
| -rw-r--r-- | bfd/vms.c | 27 |
1 files changed, 21 insertions, 6 deletions
@@ -90,7 +90,6 @@ static bfd_boolean vms_set_section_contents #define vms_get_synthetic_symtab _bfd_nodynamic_get_synthetic_symtab #define vms_bfd_copy_private_bfd_data _bfd_generic_bfd_copy_private_bfd_data -#define vms_bfd_print_private_bfd_data _bfd_generic_bfd_print_private_bfd_data #define vms_bfd_free_cached_info _bfd_generic_bfd_free_cached_info #define vms_bfd_copy_private_section_data _bfd_generic_bfd_copy_private_section_data #define vms_bfd_copy_private_symbol_data _bfd_generic_bfd_copy_private_symbol_data @@ -195,7 +194,7 @@ fill_section_ptr (struct bfd_hash_entry *entry, void *sections) } else if (sec == (unsigned long)-1) sym->section = &bfd_und_section; - + return TRUE; } @@ -516,11 +515,11 @@ vms_convert_to_var (char *vms_filename) fab.fab$b_fac = FAB$M_PUT; fab.fab$l_fop = FAB$M_ESC; fab.fab$l_ctx = RME$C_SETRFM; - + sys$open (&fab); - + fab.fab$b_rfm = FAB$C_VAR; - + sys$modify (&fab); sys$close (&fab); } @@ -972,7 +971,7 @@ vms_slurp_reloc_table (bfd *abfd, asection *section, asymbol **symbols) static long vms_get_reloc_upper_bound (bfd *abfd ATTRIBUTE_UNUSED, asection *section) { - return (section->reloc_count + 1) * sizeof (arelent *); + return (section->reloc_count + 1) * sizeof (arelent *); } /* Convert relocations from VMS (external) form into BFD internal @@ -1411,6 +1410,22 @@ vms_set_section_contents (bfd * abfd, memcpy (section->contents + offset, location, (size_t) count); return TRUE; } + +static bfd_boolean +vms_bfd_print_private_bfd_data (bfd *abfd, void *ptr) +{ + FILE *file = (FILE *)ptr; + + fprintf (file, _("structure level: %d\n"), PRIV(hdr_data.hdr_b_strlvl)); + fprintf (file, _("module name : %s\n"), PRIV(hdr_data.hdr_t_name)); + fprintf (file, _("module version : %s\n"), PRIV(hdr_data.hdr_t_version)); + fprintf (file, _("module date : %s\n"), PRIV(hdr_data.hdr_t_date)); + fprintf (file, _("language name : %s\n"), PRIV(hdr_data.hdr_c_lnm)); + fprintf (file, _("source files : %s\n"), PRIV(hdr_data.hdr_c_src)); + fprintf (file, _("title : %s\n"), PRIV(hdr_data.hdr_c_ttl)); + + return TRUE; +} const bfd_target vms_alpha_vec = { |