* gdb.texinfo: Add some credits, mention bug monitor.

[deliverable/binutils-gdb.git] / bfd / evax-emh.c

diff --git a/bfd/evax-emh.c b/bfd/evax-emh.c
index b59023b5a48a5843d8df6aa7117cadf53bcf5890..9311bf0959df9860487fb3e196da663c2728a364 100644 (file)
--- a/bfd/evax-emh.c
+++ b/bfd/evax-emh.c
@@ -1,11 +1,11 @@
-/* evax-emh.c -- BFD back-end for ALPHA EVAX (openVMS/AXP) files.
-   Copyright 1996 Free Software Foundation, Inc.
+/* evax-emh.c -- BFD back-end for ALPHA EVAX (openVMS/Alpha) files.
+   Copyright 1996, 1997 Free Software Foundation, Inc.
 
    EMH record handling functions
    and
    EEOM record handling functions
 
-   Written by Klaus Kämpf (kkaempf@progis.de)
+   Written by Klaus K"ampf (kkaempf@progis.de)
    of proGIS Softwareentwicklung, Aachen, Germany
 
 This program is free software; you can redistribute it and/or modify
@@ -23,6 +23,7 @@ along with this program; if not, write to the Free Software
 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
 
 #include <stdio.h>
+#include <ctype.h>
 
 #include "bfd.h"
 #include "sysdep.h"
@@ -158,7 +159,7 @@ get_vms_time_string ()
   } Descriptor;
   Descriptor.Size = 17;
   Descriptor.Ptr = tbuf;
-  sys$asctim (0, &Descriptor, 0, 0);
+  SYS$ASCTIM (0, &Descriptor, 0, 0);
 #endif /* not VMS */
 
 #if EVAX_DEBUG
@@ -196,7 +197,41 @@ _bfd_evax_write_emh (abfd)
   _bfd_evax_output_long (abfd, MAX_OUTREC_SIZE);
 
   if (bfd_get_filename (abfd) != 0)
-    _bfd_evax_output_counted (abfd, bfd_get_filename (abfd));
+    {
+      /* strip path and suffix information */
+
+      char *fname, *fout, *fptr;
+
+      fptr = bfd_get_filename (abfd);
+      fname = (char *) alloca (strlen (fptr) + 1);
+      strcpy (fname, fptr);
+      fout = strrchr (fname, ']');
+      if (fout == 0)
+       fout = strchr (fname, ':');
+      if (fout != 0)
+       fout++;
+      else
+       fout = fname;
+
+      /* strip .obj suffix  */
+
+      fptr = strrchr (fname, '.');
+      if ((fptr != 0)
+         && (strcasecmp (fptr, ".OBJ") == 0))
+       *fptr = 0;
+
+      fptr = fout;
+      while (*fptr != 0)
+       {
+         if (islower (*fptr))
+           *fptr = toupper (*fptr);
+         fptr++;
+         if ((*fptr == ';')
+            || ((fptr - fout) > 31))
+           *fptr = 0;
+       }
+      _bfd_evax_output_counted (abfd, fout);
+    }
   else
     _bfd_evax_output_counted (abfd, "NONAME");
 
@@ -227,8 +262,6 @@ _bfd_evax_write_emh (abfd)
            {
              PRIV(flag_hash_long_names) = symbol->name[6] - '0';
              PRIV(flag_show_after_trunc) = symbol->name[7] - '0';
-             PRIV(flag_no_hash_mixed_case) = symbol->name[8] - '0';
-             PRIV(vms_name_mapping) = symbol->name[9] - '0';
 
              if (had_file)
                break;
@@ -236,7 +269,7 @@ _bfd_evax_write_emh (abfd)
              continue;
            }
 
-         _bfd_evax_output_dump (abfd, (char *)symbol->name, strlen (symbol->name));
+         _bfd_evax_output_dump (abfd, (unsigned char *)symbol->name, strlen (symbol->name));
          if (had_case)
            break;
          had_file = 1;
@@ -244,7 +277,7 @@ _bfd_evax_write_emh (abfd)
     }
 
   if (symnum == abfd->symcount)
-    _bfd_evax_output_dump (abfd, "noname", 6);
+    _bfd_evax_output_dump (abfd, (unsigned char *)"noname", 6);
 
   _bfd_evax_output_flush (abfd);