Bug gas/213

	* config/tc-hppa.c (hppa_fix_adjustable): Allow reduction of fake
	labels.  Fix warning.

diff --git a/gas/ChangeLog b/gas/ChangeLog
index 3f4b71f8664c6422b211ae31b1e410f1ad0f572e..82915a5550064f16c13a4cde92f2316ff4384f25 100644 (file)
--- a/gas/ChangeLog
+++ b/gas/ChangeLog
@@ -1,3 +1,9 @@
+2004-06-10  John David Anglin  <[email protected]>
+
+       Bug gas/213
+       * config/tc-hppa.c (hppa_fix_adjustable): Allow reduction of fake
+       labels.  Fix warning.
+
 2004-05-28  DJ Delorie  <[email protected]>
 
        * config/tc-mn10300.h (tc_fix_adjustable): Define.

diff --git a/gas/config/tc-hppa.c b/gas/config/tc-hppa.c
index 72abe1dedb54a4571e56cc26bbab72d17c1d3452..8eff3664a3ea89ba1c3c2fc3e7b1092a3dec6115 100644 (file)
--- a/gas/config/tc-hppa.c
+++ b/gas/config/tc-hppa.c
@@ -8402,14 +8402,21 @@ int
 hppa_fix_adjustable (fixp)
      fixS *fixp;
 {
+#ifdef OBJ_ELF
   reloc_type code;
+#endif
   struct hppa_fix_struct *hppa_fix;
 
   hppa_fix = (struct hppa_fix_struct *) fixp->tc_fix_data;
 
 #ifdef OBJ_SOM
-  /* Reject reductions of symbols in 32bit relocs.  */
-  if (fixp->fx_r_type == R_HPPA && hppa_fix->fx_r_format == 32)
+  /* Reject reductions of symbols in 32bit relocs unless they
+     are fake labels.  */
+  if (fixp->fx_r_type == R_HPPA
+      && hppa_fix->fx_r_format == 32
+      && strncmp (S_GET_NAME (fixp->fx_addsy),
+                 FAKE_LABEL_NAME,
+                 strlen (FAKE_LABEL_NAME)))
     return 0;
 #endif