* config/tc-dvp.c (parse_float): New function.

	(assemble_vu): Handle loi insns.
	(assemble_one_insn): Simplify suffix parsing.
	Handle DVP_OPERAND_FLOAT.

diff --git a/gas/ChangeLog b/gas/ChangeLog
index 57af82d5f4996ee052d8c39aa97e9930971afc3b..157a2af551d377636b0d33b2797f66bc7c2c28f9 100644 (file)
--- a/gas/ChangeLog
+++ b/gas/ChangeLog
@@ -1,3 +1,12 @@
+start-sanitize-sky
+Wed Feb 18 15:49:56 1998  Doug Evans  <devans@canuck.cygnus.com>
+
+       * config/tc-dvp.c (parse_float): New function.
+       (assemble_vu): Handle loi insns.
+       (assemble_one_insn): Simplify suffix parsing.
+       Handle DVP_OPERAND_FLOAT.
+
+end-sanitize-sky
 start-sanitize-m32rx
 Wed Feb 18 14:30:26 1998  Nick Clifton  <nickc@cygnus.com>
 
@@ -14,10 +23,11 @@ Wed Feb 18 14:30:26 1998  Nick Clifton  <nickc@cygnus.com>
 Wed Feb 18 11:00:18 1998  Nick Clifton  <nickc@cygnus.com>
 
        * app.c: Parse || as a seperator between assembler statements.
+
 end-sanitize-m32rx
 Tue Feb 17 18:58:51 1998  Doug Evans  <devans@seba.cygnus.com>
 
-       * cen.c (cgen_md_apply_fix3): Delete call to validate_operand.
+       * cgen.c (cgen_md_apply_fix3): Delete call to validate_operand.
        Test result of insert_operand for error.
 
 start-sanitize-m32rx

diff --git a/gas/config/tc-dvp.c b/gas/config/tc-dvp.c
index 53c847655c1bcceb57eb954ba3d29540b4e396ad..19f8f60c6b6b7d57ec2c79a488bd44f1605fc9b1 100644 (file)
--- a/gas/config/tc-dvp.c
+++ b/gas/config/tc-dvp.c
@@ -28,6 +28,8 @@
 #include "opcode/dvp.h"
 #include "elf/mips.h"
 
+static long parse_float PARAMS ((char **, const char **));
+
 static long parse_dma_ild_autocount ();
 static long parse_dma_ptr_autocount ();
 
@@ -55,7 +57,7 @@ const char FLT_CHARS[] = "dD";
    be provided.  (e.g. mpg is followed by vu insns until a .EndMpg is
    seen).  */
 typedef enum {
-  ASM_INIT, ASM_MPG, ASM_DIRECT, ASM_UNPACK, ASM_GIF, ASM_VU
+  ASM_INIT, ASM_MPG, ASM_DIRECT, ASM_UNPACK, ASM_VU
 } asm_state;
 static asm_state cur_asm_state = ASM_INIT;
 
@@ -144,9 +146,8 @@ const pseudo_typeS md_pseudo_table[] =
     { "endgif", s_endgif, 0 },
     { "endmpg", s_endmpg, 0 },
     { "endunpack", s_endunpack, 0 },
-    /* .vu,.gif added to simplify debugging */
+    /* .vu added to simplify debugging and creation of input files */
     { "vu", s_state, ASM_VU },
-    { "gif", s_state, ASM_GIF },
     { NULL, NULL, 0 }
 };
 \f
@@ -224,11 +225,11 @@ md_assemble (str)
     {
       if (strncasecmp (str, "dma", 3) == 0)
        assemble_dma (str);
+      if (strncasecmp (str, "gif", 3) == 0)
+       assemble_gif (str);
       else
        assemble_vif (str);
     }
-  else if (cur_asm_state == ASM_GIF)
-    assemble_gif (str);
   else if (cur_asm_state == ASM_VU
           || cur_asm_state == ASM_MPG)
     assemble_vu (str);
@@ -453,22 +454,22 @@ assemble_vu (str)
                             vu_upper_opcode_lookup_asm (str), vu_operands,
                             &str, f + 4);
   *p = '|';
-  if (opcode == NULL)
-    return;
   str = p + 1;
-  assemble_vu_insn (DVP_VULO,
-                   vu_lower_opcode_lookup_asm (str), vu_operands,
-                   &str, f);
 #else
   opcode = assemble_vu_insn (DVP_VUUP,
                             vu_upper_opcode_lookup_asm (str), vu_operands,
                             &str, f + 4);
-  /* Don't assemble next one if we couldn't assemble the first.  */
-  if (opcode)
-    assemble_vu_insn (DVP_VULO,
-                     vu_lower_opcode_lookup_asm (str), vu_operands,
-                     &str, f);
 #endif
+
+  /* Don't assemble next one if we couldn't assemble the first.  */
+  if (opcode == NULL)
+    return;
+  opcode = assemble_vu_insn (DVP_VULO,
+                            vu_lower_opcode_lookup_asm (str), vu_operands,
+                            &str, f);
+  /* If this was the "loi" pseudo-insn, we need to set the `i' bit.  */
+  if (strcmp (opcode->mnemonic, "loi") == 0)
+    f[7] |= 0x80;
 }
 
 static const dvp_opcode *
@@ -617,9 +618,6 @@ assemble_one_insn (cpu, opcode, operand_table, pstr, insn_buf)
          /* Are we finished with suffixes?  */
          else if (!past_opcode_p)
            {
-             int found;
-             char c;
-             char *s,*t;
              long suf_value;
 
              if (!(operand->flags & DVP_OPERAND_SUFFIX))
@@ -634,21 +632,10 @@ assemble_one_insn (cpu, opcode, operand_table, pstr, insn_buf)
                  continue;
                }
 
-             s = str;
-
-             /* Pick the suffix out and parse it.  */
-             /* ??? Hmmm ... there may not be any need to nul-terminate the
-                string, and it may in fact complicate things.  */
-             for (t = (*s == '.' || *s == '/' || *s == '[') ? s + 1 : s;
-                  *t && (isalnum (*t) || *t == ']');
-                  ++t)
-               continue;
-             c = *t;
-             *t = '\0';
+             /* Parse the suffix.  */
              errmsg = NULL;
-             suf_value = (*operand->parse) (opcode, operand, mods, &s,
+             suf_value = (*operand->parse) (opcode, operand, mods, &str,
                                             &errmsg);
-             *t = c;
              if (errmsg)
                {
                  /* This can happen, for example, in ARC's in "blle foo" and
@@ -662,10 +649,6 @@ assemble_one_insn (cpu, opcode, operand_table, pstr, insn_buf)
              insert_operand (cpu, opcode, operand, mods, insn_buf,
                              (offsetT) suf_value, &errmsg);
 
-             /* FIXME: For suffixes that have a null "" value,
-                this next line is wrong as we will skip over something
-                we're not supposed to.  */
-             str = t;
              ++syn;
            }
          else
@@ -690,12 +673,12 @@ assemble_one_insn (cpu, opcode, operand_table, pstr, insn_buf)
                }
 #endif
 
-             if( operand->flags & DVP_OPERAND_DMA_ILD)
-             {
-                 s_dmadata_implied( 0);
+             if (operand->flags & DVP_OPERAND_DMA_ILD)
+               {
+                 s_dmadata_implied (0);
                  ++syn;
                  break;
-             }
+               }
 
              /* Is there anything left to parse?
                 We don't check for this at the top because we want to parse
@@ -705,18 +688,29 @@ assemble_one_insn (cpu, opcode, operand_table, pstr, insn_buf)
                break;
 
              /* Parse the operand.  */
-             if( operand->flags & DVP_OPERAND_DMA_ILD_AUTOCOUNT)
-             {
+             if (operand->flags & DVP_OPERAND_FLOAT)
+               {
                  errmsg = 0;
-                 value = parse_dma_ild_autocount( opcode, operand, mods, insn_buf, &str, &errmsg);
-                 if( errmsg) break;
-             }
-             else if( operand->flags & DVP_OPERAND_DMA_PTR_AUTOCOUNT)
-             {
+                 value = parse_float (&str, &errmsg);
+                 if (errmsg)
+                   break;
+               }
+             else if (operand->flags & DVP_OPERAND_DMA_ILD_AUTOCOUNT)
+               {
                  errmsg = 0;
-                 value = parse_dma_ptr_autocount( opcode, operand, mods, insn_buf, &str, &errmsg);
-                 if( errmsg) break;
-             }
+                 value = parse_dma_ild_autocount (opcode, operand, mods,
+                                                  insn_buf, &str, &errmsg);
+                 if (errmsg)
+                   break;
+               }
+             else if (operand->flags & DVP_OPERAND_DMA_PTR_AUTOCOUNT)
+               {
+                 errmsg = 0;
+                 value = parse_dma_ptr_autocount (opcode, operand, mods,
+                                                  insn_buf, &str, &errmsg);
+                 if (errmsg)
+                   break;
+               }
              else if (operand->parse)
                {
                  errmsg = NULL;
@@ -1129,9 +1123,24 @@ md_atof (type, litP, sizeP)
   return 0;
 }
 \f
-/*
-Compute the auto-count value for a DMA tag with inline data.
-*/
+/* Parse a 32 bit floating point number.
+   The result is those 32 bits as an integer.  */
+
+static long
+parse_float (pstr, errmsg)
+     char **pstr;
+     const char **errmsg;
+{
+  LITTLENUM_TYPE words[MAX_LITTLENUMS];
+  char *p;
+
+  p = atof_ieee (*pstr, 'f', words);
+  *pstr = p;
+  return (words[0] << 16) | words[1];
+}
+\f
+/* Compute the auto-count value for a DMA tag with inline data.  */
+
 static long
 parse_dma_ild_autocount( opcode, operand, mods, insn_buf, pstr, errmsg)
     const dvp_opcode *opcode;
@@ -1167,9 +1176,8 @@ scan_symbol( sym)
     return sym;
 }
 
-/*
-Compute the auto-count value for a DMA tag with out-of-line data.
-*/
+/* Compute the auto-count value for a DMA tag with out-of-line data.  */
+
 static long
 parse_dma_ptr_autocount( opcode, operand, mods, insn_buf, pstr, errmsg)
     const dvp_opcode *opcode;