* config/tc-hppa.c (pa-ip, case 'z'): Make field selectors work

        for 'z' operands (target of ble branch).

diff --git a/gas/ChangeLog b/gas/ChangeLog
index 9deb19c2fd34c151daefd39b76333fa802c9965f..fcc86470ed06102a122e29421f4d9781546da87e 100644 (file)
--- a/gas/ChangeLog
+++ b/gas/ChangeLog
@@ -1,3 +1,8 @@
+Sun Nov  7 01:02:08 1993  Jeffrey A. Law  (law@snake.cs.utah.edu)
+
+       * config/tc-hppa.c (pa-ip, case 'z'): Make field selectors work
+       for 'z' operands (target of ble branch).
+
 Sat Nov  6 22:41:57 1993  Jeffrey A. Law  (law@snake.cs.utah.edu)
 
        * config/tc-hppa.c: (update_subspace): Fix type and name of last

diff --git a/gas/config/tc-hppa.c b/gas/config/tc-hppa.c
index 184f4f006f7f2578d7a0317f3ca5338ec11f38a3..d730b459034d947d4ce9c06fa6954b6b14174023 100644 (file)
--- a/gas/config/tc-hppa.c
+++ b/gas/config/tc-hppa.c
@@ -2320,7 +2320,9 @@ pa_ip (str)
                {
                  unsigned int w2, w1, w, result;
 
-                 sign_unext (the_insn.exp.X_add_number >> 2, 17, &result);
+                 result = evaluate_absolute (the_insn.exp,
+                                             the_insn.field_selector);
+                 sign_unext (result >> 2, 17, &result);
                  dis_assemble_17 (result, &w1, &w2, &w);
                  opcode |= ((w2 << 2) | (w1 << 16) | w);
                }