+2010-05-24 Tristan Gingold <gingold@adacore.com>
+
+ * vms-alpha.c (_bfd_vms_slurp_egsd): Fix indentation.
+ (alpha_vms_write_exec): Add a comment.
+ (_bfd_vms_write_egsd): Ditto.
+ (alpha_vms_convert_symbol): Remove a blank line.
+
2010-05-21 Tristan Gingold <gingold@adacore.com>
* vms-alpha.c (_bfd_vms_slurp_eihs): Do not create a bfd section
/* Read and process EGSD. Return FALSE on failure. */
static bfd_boolean
-_bfd_vms_slurp_egsd (bfd * abfd)
+_bfd_vms_slurp_egsd (bfd *abfd)
{
int gsd_type, gsd_size;
asection *section;
{
/* Program section definition. */
struct vms_egps *egps = (struct vms_egps *)vms_rec;
+
name = _bfd_vms_save_counted_string (&egps->namlng);
section = bfd_make_section (abfd, name);
if (!section)
return FALSE;
+
old_flags = bfd_getl16 (egps->flags);
vms_section_data (section)->flags = old_flags;
vms_section_data (section)->no_flags = 0;
PRIV (file_pos) += sec->size;
}
+ /* Update EIHS. */
if (eihs != NULL && dst != NULL)
{
bfd_putl32 ((dst->filepos / VMS_BLOCK_SIZE) + 1, eihs->dstvbn);
}
/* Don't know if this is necessary for the linker but for now it keeps
- vms_slurp_gsd happy */
+ vms_slurp_gsd happy. */
sname = (char *)section->name;
if (*sname == '.')
{
+ /* Remove leading dot. */
sname++;
if ((*sname == 't') && (strcmp (sname, "text") == 0))
sname = EVAX_CODE_NAME;
_bfd_vms_output_counted (recwr, hash);
_bfd_vms_output_end_subrec (recwr);
-
}
_bfd_vms_output_alignment (recwr, 8);
value -= sbase;
}
#endif
-
break;
default: