From: Klaus Kaempf <kkaempf@progis.de>
Date: Wed, 24 Jun 1998 17:55:03 +0000 (+0000)
Subject: * alpha.md (call_vms, call_value_vms): Strip leading * from symbol.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=a59fb7979dfc98ecd0530be216fb237271af09ed;p=gcc.git

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

From-SVN: r20703
---

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index b96011120de..2e7b800f11d 100644
--- 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 65eacf7a6cd..dd8ce53cb8d 100644
--- 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);