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

diff --git a/gas/ChangeLog b/gas/ChangeLog
index edc31ef62c691a9b05634d7dc20bba283d8e32cd..a3f8ee6b23aa039d0d4813dc1dd02da7a698a0be 100644 (file)
--- 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 f4746dc715f0c71051324f7ea42c32714a3cef9c..61a37cb915320c5590ed3ca3df968a74f552663c 100644 (file)
--- 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
        {