From: Jeff Law <law@redhat.com>
Date: Mon, 11 Apr 1994 16:02:12 +0000 (+0000)
Subject:         * config/tc-hppa.c (pa_procend): Give an error if we encounter a
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=052109905719084be58c1fbd6c52836bc6a5e42d;p=binutils-gdb.git

    * 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 8d093338514..59374d33396 100644
--- 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 e668ee7e070..e6b17e2d2b4 100644
--- 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");