From: Timothy Moore <moore@gnu.org>
Date: Mon, 26 Oct 1992 21:23:29 +0000 (+0000)
Subject: (hppa_encode_label): Change function name encoding to preserve leading '*' if there... 
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=e5d4ff05918779997c719b573d68b6abfbaebf47;p=gcc.git

(hppa_encode_label): Change function name encoding to preserve leading '*' if there is one.

(hppa_encode_label): Change function name encoding to
        preserve leading '*' if there is one.
        (function_label_operand): Use FUNCTION_NAME_P macro.

From-SVN: r2618
---

diff --git a/gcc/config/pa/pa.c b/gcc/config/pa/pa.c
index 9cb4830d752..8421c83612b 100644
--- a/gcc/config/pa/pa.c
+++ b/gcc/config/pa/pa.c
@@ -2470,8 +2470,10 @@ hppa_encode_label (sym)
   int len = strlen (str);
   char *newstr = obstack_alloc (saveable_obstack, len + 2) ;
 
+  if (str[0] == '*')
+    *newstr++ = *str++;
   strcpy (newstr + 1, str);
-  newstr[0] = '@';
+  *newstr = '@';
   XSTR (sym,0) = newstr;
 }
   
@@ -2480,5 +2482,5 @@ function_label_operand  (op, mode)
      rtx op;
      enum machine_mode mode;
 {
-  return GET_CODE (op) == SYMBOL_REF && (XSTR (op, 0))[0] == '@';
+  return GET_CODE (op) == SYMBOL_REF && FUNCTION_NAME_P (XSTR (op, 0));
 }