* config/tc-hppa.c (pa_ip): Add 'J' and 'K' code

        processing.

diff --git a/gas/ChangeLog b/gas/ChangeLog
index d9a2e84d4aee2b69ac552a93648b7220ea10e5a8..3b535ad5e07857fda75f3e9dc3640213e31f46fc 100644 (file)
--- a/gas/ChangeLog
+++ b/gas/ChangeLog
@@ -1,3 +1,8 @@
+Wed Jul 28 02:04:24 1999  "Jerry Quinn" <jquinn@nortelnetworks.com>
+
+       * config/tc-hppa.c (pa_ip):  Add 'J' and 'K' code
+       processing. 
+
 1999-07-27  Ian Lance Taylor  <ian@zembu.com>
 
        * config/tc-sparc.h (tc_fix_adjustable): Don't adjust GOT, PLT, or

diff --git a/gas/config/tc-hppa.c b/gas/config/tc-hppa.c
index 82e07d3535c09596b2c351a72c1002e011901471..073e9e63e87aff3514d59571344ad9cce96ba435 100644 (file)
--- a/gas/config/tc-hppa.c
+++ b/gas/config/tc-hppa.c
@@ -2468,6 +2468,18 @@ pa_ip (str)
                continue;
              }
 
+           /* Float operand 1 similar to 'b' but with l/r registers.  */
+           case 'J':
+             {
+               struct pa_11_fp_reg_struct result;
+
+               pa_parse_number (&s, &result);
+               CHECK_FIELD (result.number_part, 31, 0, 0);
+               opcode |= result.number_part << 21;
+               opcode |= (result.l_r_select & 1) << 7;
+               continue;
+             }
+
            /* Handle L/R register halves like 'b'.  */
            case '3':
              {
@@ -2513,6 +2525,18 @@ pa_ip (str)
                continue;
              }
 
+           /* Float operand 2, like 'x' but with l/r register halves.  */
+           case 'K':
+             {
+               struct pa_11_fp_reg_struct result;
+
+               pa_parse_number (&s, &result);
+               CHECK_FIELD (result.number_part, 31, 0, 0);
+               opcode |= (result.number_part & 0x1f) << 16;
+               opcode |= (result.l_r_select & 1) << 12;
+               continue;
+             }
+
            /* Handle a 5 bit register field at 10.  */
            case '4':
              {