* config/tc-hppa.c (pa_export_args): Always set BSF_FUNCTION

        as appropriate for the given type.

diff --git a/gas/ChangeLog b/gas/ChangeLog
index 7a56dea805b00bf2d50193bc3c0b1e11ad948ea4..f6db3672e6200d994382a0c38ea15cc6a796e427 100644 (file)
--- a/gas/ChangeLog
+++ b/gas/ChangeLog
@@ -1,5 +1,8 @@
 Sat Oct 30 14:26:20 1993  Jeffrey A. Law  (law@snake.cs.utah.edu)
 
+       * config/tc-hppa.c (pa_export_args): Always set BSF_FUNCTION
+       as appropriate for the given type.
+
        * config/tc-hppa.c (tc_gen_reloc): Preliminary stab at handling
        SOM relocations.
 

diff --git a/gas/config/tc-hppa.c b/gas/config/tc-hppa.c
index 7eb8a9d1e9f2b488045f0fb1c70b61c132d7df6d..a2ed54ab07e386a1c1d298aeedea82f943ece5d9 100644 (file)
--- a/gas/config/tc-hppa.c
+++ b/gas/config/tc-hppa.c
@@ -4779,12 +4779,19 @@ pa_export_args (symbolP)
   if (strncasecmp (input_line_pointer, "absolute", 8) == 0)
     {
       input_line_pointer += 8;
+      symbolP->bsym->flags &= ~BSF_FUNCTION;
       S_SET_SEGMENT (symbolP, &bfd_abs_section);
     }
   else if (strncasecmp (input_line_pointer, "code", 4) == 0)
-    input_line_pointer += 4;
+    {
+      input_line_pointer += 4;
+      symbolP->bsym->flags &= ~BSF_FUNCTION;
+    }
   else if (strncasecmp (input_line_pointer, "data", 4) == 0)
-    input_line_pointer += 4;
+    {
+      input_line_pointer += 4;
+      symbolP->bsym->flags &= ~BSF_FUNCTION;
+    }
   else if ((strncasecmp (input_line_pointer, "entry", 5) == 0))
     {
       input_line_pointer += 5;
@@ -4793,18 +4800,22 @@ pa_export_args (symbolP)
   else if (strncasecmp (input_line_pointer, "millicode", 9) == 0)
     {
       input_line_pointer += 9;
+      symbolP->bsym->flags |= BSF_FUNCTION;
     }
   else if (strncasecmp (input_line_pointer, "plabel", 6) == 0)
     {
       input_line_pointer += 6;
+      symbolP->bsym->flags &= ~BSF_FUNCTION;
     }
   else if (strncasecmp (input_line_pointer, "pri_prog", 8) == 0)
     {
       input_line_pointer += 8;
+      symbolP->bsym->flags |= BSF_FUNCTION;
     }
   else if (strncasecmp (input_line_pointer, "sec_prog", 8) == 0)
     {
       input_line_pointer += 8;
+      symbolP->bsym->flags |= BSF_FUNCTION;
     }
 
   /* Now that the type of the exported symbol has been handled,