From: Doug Evans <dje@google.com>
Date: Tue, 2 Jun 1998 16:26:43 +0000 (+0000)
Subject: 	* read.c (s_func): Prepend `leading char' by default.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=83e207013b0ff74a936079ac66fba09ce485d102;p=binutils-gdb.git

	* read.c (s_func): Prepend `leading char' by default.
---

diff --git a/gas/ChangeLog b/gas/ChangeLog
index edc31ef62c6..a3f8ee6b23a 100644
--- a/gas/ChangeLog
+++ b/gas/ChangeLog
@@ -1,3 +1,7 @@
+Tue Jun  2 09:25:34 1998  Doug Evans  <devans@canuck.cygnus.com>
+
+	* read.c (s_func): Prepend `leading char' by default.
+
 start-sanitize-r5900
 Mon Jun  1 17:04:56 1998  Jeffrey A Law  (law@cygnus.com)
 
diff --git a/gas/read.c b/gas/read.c
index f4746dc715f..61a37cb9153 100644
--- a/gas/read.c
+++ b/gas/read.c
@@ -4960,8 +4960,16 @@ s_func (end_p)
       SKIP_WHITESPACE ();
       if (*input_line_pointer != ',')
 	{
-	  /* Missing entry point, use function's name.  */
-	  label = name;
+	  char leading_char = 0;
+#ifdef BFD_ASSEMBLER
+	  leading_char = bfd_get_symbol_leading_char (stdoutput);
+#endif
+	  /* Missing entry point, use function's name with the leading
+	     char prepended.  */
+	  if (leading_char)
+	    asprintf (&label, "%c%s", leading_char, name);
+	  else
+	    label = name;
 	}
       else
 	{