* config/tc-hppa.c (pa_procend): Give an error if we encounter a

        procend for a procedure without a name.

diff --git a/gas/ChangeLog b/gas/ChangeLog
index 8d09333851400038d28d12c41bacd81ded10e140..59374d33396f029b3d8941c1083e5f59fd6fa9cf 100644 (file)
--- a/gas/ChangeLog
+++ b/gas/ChangeLog
@@ -1,3 +1,8 @@
+Mon Apr 11 09:00:57 1994  Jeffrey A. Law  (law@snake.cs.utah.edu)
+
+       * config/tc-hppa.c (pa_procend): Give an error if we encounter a
+       procend for a procedure without a name.
+
 Thu Apr  7 14:28:30 1994  Ian Lance Taylor  (ian@tweedledumb.cygnus.com)
 
        * config/tc-mips.c (macro): Pass NULL for expression argument to

diff --git a/gas/config/tc-hppa.c b/gas/config/tc-hppa.c
index e668ee7e070775ea29d973a7f5370ae8abbea970..e6b17e2d2b411f4c47ae4d9bb079eddfcd231f4f 100644 (file)
--- a/gas/config/tc-hppa.c
+++ b/gas/config/tc-hppa.c
@@ -5008,6 +5008,9 @@ pa_procend (unused)
      int unused;
 {
 
+  if (last_call_info->start_symbol == NULL)
+    as_bad ("Missing function name for .PROC");
+
   if (!within_procedure)
     as_bad ("misplaced .procend");