* config/tc-hppa.c (pa_procend): Do not call process_exit.

        (exit_processing_complete): Delete unwanted variable and all
        references.

diff --git a/gas/ChangeLog b/gas/ChangeLog
index 466ee196757ea38b1a76b36a25206d8f766f5442..e39a2df881728a7328e91781e5b1d6337f033116 100644 (file)
--- a/gas/ChangeLog
+++ b/gas/ChangeLog
@@ -1,3 +1,9 @@
+Wed Nov 24 01:22:54 1993  Jeffrey A. Law  (law@snake.cs.utah.edu)
+
+       * config/tc-hppa.c (pa_procend): Do not call process_exit.
+       (exit_processing_complete): Delete unwanted variable and all
+       references.
+
 Wed Nov 24 02:31:38 1993  Ian Lance Taylor  (ian@tweedledumb.cygnus.com)
 
        * ecoff.c (ecoff_setup_ext): Renamed from ecoff_build_ext.

diff --git a/gas/config/tc-hppa.c b/gas/config/tc-hppa.c
index 7c38e06cd0735a02b1e92a611ddde776cce84eab..97353bb86a95cbd6259ed594da5d656b5306fc98 100644 (file)
--- a/gas/config/tc-hppa.c
+++ b/gas/config/tc-hppa.c
@@ -801,10 +801,6 @@ static int callinfo_found;
 /* Nonzero if the assembler is currently within a .entry/.exit pair.  */
 static int within_entry_exit;
 
-/* Nonzero if the assembler has completed exit processing for the
-   current procedure.  */
-static int exit_processing_complete;
-
 /* Nonzero if the assembler is currently within a procedure definition.  */
 static int within_procedure;
 
@@ -1150,7 +1146,9 @@ static struct default_subspace_dict pa_def_subspaces[] =
   {"$DATA$", 1, 1, 0, 0, 0, 0, 24, 0x1f, 1, 8, 1, 1, ".data", SUBSEG_DATA},
   {"$LIT$", 1, 1, 0, 0, 0, 0, 16, 0x2c, 0, 8, 0, 0, ".text", SUBSEG_LIT},
   {"$BSS$", 1, 1, 0, 0, 0, 1, 80, 0x1f, 1, 8, 1, 1, ".bss", SUBSEG_BSS},
+#ifdef OBJ_ELF
   {"$UNWIND$", 1, 1, 0, 0, 0, 0, 64, 0x2c, 0, 4, 0, 0, ".hppa_unwind", SUBSEG_UNWIND},
+#endif
   {NULL, 0, 1, 0, 0, 0, 0, 255, 0x1f, 0, 4, 0, 0, 0}
 };
 
@@ -4687,7 +4685,6 @@ process_exit ()
                NULL, 0, R_HPPA_EXIT, e_fsel, 0, 0, NULL);
 #endif
 
-  exit_processing_complete = TRUE;
 }
 
 /* Process a .EXIT pseudo-op.  */
@@ -5042,7 +5039,6 @@ pa_proc (unused)
   /* Reset global variables for new procedure.  */
   callinfo_found = FALSE;
   within_procedure = TRUE;
-  exit_processing_complete = FALSE;
 
   /* Create another call_info structure.  */
   call_info = (struct call_info *) xmalloc (sizeof (struct call_info));
@@ -5113,9 +5109,6 @@ pa_procend (unused)
   if (within_entry_exit)
     as_bad ("Missing .EXIT for a .ENTRY");
 
-  if (!exit_processing_complete)
-    process_exit ();
-
   within_procedure = FALSE;
   demand_empty_rest_of_line ();
   return;