2000-12-11 Fernando Nasser <fnasser@redhat.com>

[deliverable/binutils-gdb.git] / bfd / vms-gsd.c

diff --git a/bfd/vms-gsd.c b/bfd/vms-gsd.c
index 6a52462a06d22405c83e68f4a6af4e19208f69a6..ac3fe6986cc1e1894eb298089b8f492904edf136 100644 (file)
--- a/bfd/vms-gsd.c
+++ b/bfd/vms-gsd.c
@@ -1,6 +1,6 @@
 /* vms-gsd.c -- BFD back-end for VAX (openVMS/VAX) and
    EVAX (openVMS/Alpha) files.
-   Copyright 1996, 1997, 1998 Free Software Foundation Inc.
+   Copyright 1996, 1997, 1998, 1999 Free Software Foundation Inc.
 
    go and read the openVMS linker manual (esp. appendix B)
    if you don't know what's going on here :-)
@@ -282,7 +282,7 @@ _bfd_vms_slurp_gsd (abfd, objtype)
   vms_symbol_entry *entry;
   unsigned long base_addr;
   unsigned long align_addr;
-  static int psect_idx = 0;
+  static unsigned int psect_idx = 0;
 
 #if VMS_DEBUG
   vms_debug (2, "GSD/EGSD (%d/%x)\n", objtype, objtype);
@@ -354,7 +354,8 @@ _bfd_vms_slurp_gsd (abfd, objtype)
              section = bfd_make_section (abfd, name);
              if (!section)
                {
-                 fprintf (stderr, "bfd_make_section (%s) failed\n", name);
+                 (*_bfd_error_handler) (_("bfd_make_section (%s) failed"),
+                                        name);
                  return -1;
                }
              old_flags = bfd_getl16 (vms_rec + 2);
@@ -366,7 +367,9 @@ _bfd_vms_slurp_gsd (abfd, objtype)
                new_flags |= SEC_IS_COMMON;
              if (!bfd_set_section_flags (abfd, section, new_flags))
                {
-                 fprintf (stderr, "bfd_set_section_flags (%s, %x) failed\n", name, new_flags);
+                 (*_bfd_error_handler)
+                   (_("bfd_set_section_flags (%s, %x) failed"),
+                    name, new_flags);
                  return -1;
                }
              section->alignment_power = vms_rec[1];
@@ -400,7 +403,12 @@ _bfd_vms_slurp_gsd (abfd, objtype)
                  section->contents = old_section->contents;
                  if (section->_raw_size < old_section->_raw_size)
                    {
-                     fprintf (stderr, "Size mismatch section %s=%d, %s=%d\n", old_section->name, old_section->_raw_size, section->name, section->_raw_size);
+                     (*_bfd_error_handler)
+                       (_("Size mismatch section %s=%lx, %s=%lx"),
+                        old_section->name,
+                        (unsigned long) old_section->_raw_size,
+                        section->name,
+                        (unsigned long) section->_raw_size);
                      return -1;
                    }
                  else if (section->_raw_size > old_section->_raw_size)
@@ -716,16 +724,15 @@ _bfd_vms_slurp_gsd (abfd, objtype)
 int
 _bfd_vms_write_gsd (abfd, objtype)
      bfd *abfd;
-     int objtype;
+     int objtype ATTRIBUTE_UNUSED;
 {
   asection *section;
   asymbol *symbol;
-  int symnum;
+  unsigned int symnum;
   int last_index = -1;
   char dummy_name[10];
   char *sname;
   flagword new_flags, old_flags;
-  char *nptr, *uptr;
 
 #if VMS_DEBUG
   vms_debug (2, "vms_write_gsd (%p, %d)\n", abfd, objtype);