(alpha_need_linkage): Call get_identifier.

[pf3gnuchains/gcc-fork.git] / gcc / config / alpha / alpha.c

diff --git a/gcc/config/alpha/alpha.c b/gcc/config/alpha/alpha.c
index 718ad9b..46f621a 100644 (file)
--- a/gcc/config/alpha/alpha.c
+++ b/gcc/config/alpha/alpha.c
@@ -1,5 +1,5 @@
 /* Subroutines used for code generation on the DEC Alpha.
-   Copyright (C) 1992, 1993, 1994, 1995, 1996 Free Software Foundation, Inc.
+   Copyright (C) 1992, 93, 94, 95, 96, 1997 Free Software Foundation, Inc.
    Contributed by Richard Kenner (kenner@vlsi1.ultra.nyu.edu)
 
 This file is part of GNU CC.
@@ -1924,11 +1924,14 @@ vmskrunch (name)
                for (i = j; foo[i]==' ' && foo[i]; i++)
                  ;
 
+             /* Find the first blank */
              j = i;
              if (foo[j])
                for (i = j + 1; foo[i] != ' ' && foo[i]; i++)
                  ;
 
+             /* If this substring is the longest so far, remember the
+                position of the character to chop off. */
              slen = i - j;
              if (slen > xlen)
                {
@@ -1939,6 +1942,16 @@ vmskrunch (name)
              j = i;
            }
 
+         /* Try to avoid chopping uppercase suffix letters */
+         if (isupper (foo [chopchar]))
+           {
+             for (i = chopchar;
+                  isupper (foo[i]) && foo[i] != ' ' && i >= 0;
+                  i--)
+               ;
+             if (islower (foo[i]))
+               chopchar = i;
+           }
          foo [chopchar] = ' ';
          nlen--;
        }
@@ -3089,13 +3102,13 @@ alpha_need_linkage (name, is_local)
       {
        if (is_local)
          {
-           /* defined here but external assumed.  */
+           /* Defined here but external assumed.  */
            if (lptr->kind == KIND_EXTERN)
              lptr->kind = KIND_LOCAL;
          }
        else
          {
-           /* used here but unused assumed.  */
+           /* Used here but unused assumed.  */
            if (lptr->kind == KIND_UNUSED)
              lptr->kind = KIND_LOCAL;
          }
@@ -3109,6 +3122,9 @@ alpha_need_linkage (name, is_local)
   /* Assume external if no definition.  */
   nptr->kind = (is_local ? KIND_UNUSED : KIND_EXTERN);
 
+  /* Ensure we have an IDENTIFIER so assemble_name can mark is used.  */
+  get_identifier (name);
+
   alpha_links_base = nptr;
 
   return;