* alpha.md (call_vms, call_value_vms): Strip leading * from symbol.

From-SVN: r20703

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index b96011120ded6798c9313eaa78c7b7b5c3901e40..2e7b800f11d05fcde4a72b05c4bf1efa170b954a 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,7 @@
+Wed Jun 24 17:55:15 1998  Klaus Kaempf  <kkaempf@progis.de>
+
+       * alpha.md (call_vms, call_value_vms): Strip leading * from symbol.
+
 Wed Jun 24 16:27:23 1998  John Carr  <jfc@mit.edu>
 
        * expr.c (get_memory_rtx): New function.

diff --git a/gcc/config/alpha/alpha.md b/gcc/config/alpha/alpha.md
index 65eacf7a6cd0d6a2eb86678b8073397c6ddea930..dd8ce53cb8db1f2e4f414da05526b84236d01f57 100644 (file)
--- a/gcc/config/alpha/alpha.md
+++ b/gcc/config/alpha/alpha.md
@@ -3553,10 +3553,13 @@
   if (GET_CODE (operands[0]) == SYMBOL_REF)
     {
       extern char *savealloc ();
-      char *symbol = XSTR (operands[0], 0);
-      char *linksym = savealloc (strlen (symbol) + 6);
+      char *linksym, *symbol = XSTR (operands[0], 0);
       rtx linkage;
 
+      if (*symbol == '*')
+       symbol++;
+      linksym = savealloc (strlen (symbol) + 6);
+
       alpha_need_linkage (symbol, 0);
 
       linksym[0] = '$';
@@ -3658,10 +3661,13 @@
   if (GET_CODE (operands[1]) == SYMBOL_REF)
     {
       extern char *savealloc ();
-      char *symbol = XSTR (operands[1], 0);
-      char *linksym = savealloc (strlen (symbol) + 6);
+      char *linksym, *symbol = XSTR (operands[1], 0);
       rtx linkage;
 
+      if (*symbol == '*')
+       symbol++;
+      linksym = savealloc (strlen (symbol) + 6);
+
       alpha_need_linkage (symbol, 0);
       linksym[0] = '$';
       strcpy (linksym+1, symbol);