ppc/svp64: introduce SVP64 name parser

[binutils-gdb.git] / gas / config / tc-iq2000.c

diff --git a/gas/config/tc-iq2000.c b/gas/config/tc-iq2000.c
index 0d689c09a21947cfd29de59124c0fd9df96ad723..8a9b88f9f4f466b19681733c87e63b75eafe5c98 100644 (file)
--- a/gas/config/tc-iq2000.c
+++ b/gas/config/tc-iq2000.c
@@ -1,11 +1,11 @@
 /* tc-iq2000.c -- Assembler for the Sitera IQ2000.
 /* tc-iq2000.c -- Assembler for the Sitera IQ2000.

-   Copyright (C) 2003, 2004, 2005 Free Software Foundation.
+   Copyright (C) 2003-2022 Free Software Foundation, Inc.

 
    This file is part of GAS, the GNU Assembler.
 
    GAS is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
 
    This file is part of GAS, the GNU Assembler.
 
    GAS is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by

-   the Free Software Foundation; either version 2, or (at your option)
+   the Free Software Foundation; either version 3, or (at your option)

    any later version.
 
    GAS is distributed in the hope that it will be useful,
    any later version.
 
    GAS is distributed in the hope that it will be useful,


@@ -18,7 +18,6 @@
    the Free Software Foundation, 51 Franklin Street - Fifth Floor,
    Boston, MA 02110-1301, USA.  */
 
    the Free Software Foundation, 51 Franklin Street - Fifth Floor,
    Boston, MA 02110-1301, USA.  */
 

-#include <stdio.h>

 #include "as.h"
 #include "safe-ctype.h"
 #include "subsegs.h"
 #include "as.h"
 #include "safe-ctype.h"
 #include "subsegs.h"


@@ -28,8 +27,7 @@
 #include "cgen.h"
 #include "elf/common.h"
 #include "elf/iq2000.h"
 #include "cgen.h"
 #include "elf/common.h"
 #include "elf/iq2000.h"

-#include "libbfd.h"
-#include "hash.h"
+#include "sb.h"

 #include "macro.h"
 
 /* Structure to hold all of the different components describing
 #include "macro.h"
 
 /* Structure to hold all of the different components describing


@@ -108,7 +106,7 @@ struct iq2000_hi_fixup
 static struct iq2000_hi_fixup * iq2000_hi_fixup_list;
 
 /* Macro hash table, which we will add to.  */
 static struct iq2000_hi_fixup * iq2000_hi_fixup_list;
 
 /* Macro hash table, which we will add to.  */

-extern struct hash_control *macro_hash;
+extern struct htab *macro_hash;

 \f
 const char *md_shortopts = "";
 struct option md_longopts[] =
 \f
 const char *md_shortopts = "";
 struct option md_longopts[] =


@@ -119,7 +117,7 @@ size_t md_longopts_size = sizeof (md_longopts);
 
 int
 md_parse_option (int c ATTRIBUTE_UNUSED,
 
 int
 md_parse_option (int c ATTRIBUTE_UNUSED,

-                char * arg ATTRIBUTE_UNUSED)
+                const char * arg ATTRIBUTE_UNUSED)

 {
   return 0;
 }
 {
   return 0;
 }


@@ -234,7 +232,7 @@ iq2000_add_macro (const char *  name,
   sb macro_name;
   const char *namestr;
 
   sb macro_name;
   const char *namestr;
 

-  macro = xmalloc (sizeof (macro_entry));
+  macro = XNEW (macro_entry);

   sb_new (& macro->sub);
   sb_new (& macro_name);
 
   sb_new (& macro->sub);
   sb_new (& macro_name);
 


@@ -248,13 +246,13 @@ iq2000_add_macro (const char *  name,
       formal_entry ** p = &macro->formals;
 
       macro->formal_count = 0;
       formal_entry ** p = &macro->formals;
 
       macro->formal_count = 0;

-      macro->formal_hash = hash_new ();
+      macro->formal_hash = str_htab_create ();

 
       while (*arguments != NULL)
        {
          formal_entry *formal;
 
 
       while (*arguments != NULL)
        {
          formal_entry *formal;
 

-         formal = xmalloc (sizeof (formal_entry));
+         formal = XNEW (formal_entry);

 
          sb_new (& formal->name);
          sb_new (& formal->def);
 
          sb_new (& formal->name);
          sb_new (& formal->def);


@@ -274,8 +272,8 @@ iq2000_add_macro (const char *  name,
            sb_add_string (& formal->name, *arguments);
 
          /* Add to macro's hash table.  */
            sb_add_string (& formal->name, *arguments);
 
          /* Add to macro's hash table.  */

-         hash_jam (macro->formal_hash, sb_terminate (& formal->name), formal);
-
+         str_hash_insert (macro->formal_hash,
+                          sb_terminate (&formal->name), formal, 1);

          formal->index = macro->formal_count;
          macro->formal_count++;
          *p = formal;
          formal->index = macro->formal_count;
          macro->formal_count++;
          *p = formal;


@@ -287,7 +285,7 @@ iq2000_add_macro (const char *  name,
 
   sb_add_string (&macro_name, name);
   namestr = sb_terminate (&macro_name);
 
   sb_add_string (&macro_name, name);
   namestr = sb_terminate (&macro_name);

-  hash_jam (macro_hash, namestr, macro);
+  str_hash_insert (macro_hash, namestr, macro, 1);

 
   macro_defined = 1;
 }
 
   macro_defined = 1;
 }


@@ -432,8 +430,8 @@ md_assemble (char * str)
 valueT
 md_section_align (segT segment, valueT size)
 {
 valueT
 md_section_align (segT segment, valueT size)
 {

-  int align = bfd_get_section_alignment (stdoutput, segment);
-  return ((size + (1 << align) - 1) & (-1 << align));
+  int align = bfd_section_alignment (segment);
+  return ((size + (1 << align) - 1) & -(1 << align));

 }
 
 symbolS *
 }
 
 symbolS *


@@ -534,9 +532,9 @@ iq2000_record_hi16 (int    reloc_type,
 {
   struct iq2000_hi_fixup * hi_fixup;
 
 {
   struct iq2000_hi_fixup * hi_fixup;
 

-  assert (reloc_type == BFD_RELOC_HI16);
+  gas_assert (reloc_type == BFD_RELOC_HI16);

 
 

-  hi_fixup = xmalloc (sizeof * hi_fixup);
+  hi_fixup = XNEW (struct iq2000_hi_fixup);

   hi_fixup->fixp = fixP;
   hi_fixup->seg  = now_seg;
   hi_fixup->next = iq2000_hi_fixup_list;
   hi_fixup->fixp = fixP;
   hi_fixup->seg  = now_seg;
   hi_fixup->next = iq2000_hi_fixup_list;


@@ -587,7 +585,7 @@ iq2000_frob_file (void)
       segment_info_type * seginfo;
       int                 pass;
 
       segment_info_type * seginfo;
       int                 pass;
 

-      assert (FX_OPINFO_R_TYPE (l->fixp) == BFD_RELOC_HI16
+      gas_assert (FX_OPINFO_R_TYPE (l->fixp) == BFD_RELOC_HI16

              || FX_OPINFO_R_TYPE (l->fixp) == BFD_RELOC_LO16);
 
       /* Check quickly whether the next fixup happens to be a matching low.  */
              || FX_OPINFO_R_TYPE (l->fixp) == BFD_RELOC_LO16);
 
       /* Check quickly whether the next fixup happens to be a matching low.  */


@@ -627,7 +625,7 @@ iq2000_frob_file (void)
                  for (pf = &seginfo->fix_root;
                       * pf != l->fixp;
                       pf = & (* pf)->fx_next)
                  for (pf = &seginfo->fix_root;
                       * pf != l->fixp;
                       pf = & (* pf)->fx_next)

-                   assert (* pf != NULL);
+                   gas_assert (* pf != NULL);

 
                  * pf = l->fixp->fx_next;
 
 
                  * pf = l->fixp->fx_next;
 


@@ -725,62 +723,13 @@ md_operand (expressionS * exp)
     gas_cgen_md_operand (exp);
 }
 
     gas_cgen_md_operand (exp);
 }
 

-/* Turn a string in input_line_pointer into a floating point constant
-   of type type, and store the appropriate bytes in *litP.  The number
-   of LITTLENUMS emitted is stored in *sizeP .  An error message is
-   returned, or NULL on OK.  */
-
-/* Equal to MAX_PRECISION in atof-ieee.c */
-#define MAX_LITTLENUMS 6
-
-char *
+const char *

 md_atof (int type, char * litP, int * sizeP)
 {
 md_atof (int type, char * litP, int * sizeP)
 {

-  int              i;
-  int              prec;
-  LITTLENUM_TYPE   words [MAX_LITTLENUMS];
-  char *           t;
-
-  switch (type)
-    {
-    case 'f':
-    case 'F':
-    case 's':
-    case 'S':
-      prec = 2;
-      break;
-
-    case 'd':
-    case 'D':
-    case 'r':
-    case 'R':
-      prec = 4;
-      break;
-
-   /* FIXME: Some targets allow other format chars for bigger sizes here.  */
-
-    default:
-      * sizeP = 0;
-      return _("Bad call to md_atof()");
-    }
-
-  t = atof_ieee (input_line_pointer, type, words);
-  if (t)
-    input_line_pointer = t;
-  * sizeP = prec * sizeof (LITTLENUM_TYPE);
-
-  for (i = 0; i < prec; i++)
-    {
-      md_number_to_chars (litP, (valueT) words[i],
-                         sizeof (LITTLENUM_TYPE));
-      litP += sizeof (LITTLENUM_TYPE);
-    }
-
-  return 0;
+  return ieee_md_atof (type, litP, sizeP, true);

 }
 
 }
 

-
-bfd_boolean
+bool

 iq2000_fix_adjustable (fixS * fixP)
 {
   bfd_reloc_code_real_type reloc_type;
 iq2000_fix_adjustable (fixS * fixP)
 {
   bfd_reloc_code_real_type reloc_type;


@@ -797,21 +746,21 @@ iq2000_fix_adjustable (fixS * fixP)
     reloc_type = fixP->fx_r_type;
 
   if (fixP->fx_addsy == NULL)
     reloc_type = fixP->fx_r_type;
 
   if (fixP->fx_addsy == NULL)

-    return TRUE;
+    return true;

 
   /* Prevent all adjustments to global symbols.  */
   if (S_IS_EXTERNAL (fixP->fx_addsy))
 
   /* Prevent all adjustments to global symbols.  */
   if (S_IS_EXTERNAL (fixP->fx_addsy))

-    return FALSE;
+    return false;

 
   if (S_IS_WEAK (fixP->fx_addsy))
 
   if (S_IS_WEAK (fixP->fx_addsy))

-    return FALSE;
+    return false;

 
   /* We need the symbol name for the VTABLE entries.  */
   if (   reloc_type == BFD_RELOC_VTABLE_INHERIT
       || reloc_type == BFD_RELOC_VTABLE_ENTRY)
 
   /* We need the symbol name for the VTABLE entries.  */
   if (   reloc_type == BFD_RELOC_VTABLE_INHERIT
       || reloc_type == BFD_RELOC_VTABLE_ENTRY)

-    return FALSE;
+    return false;

 
 

-  return TRUE;
+  return true;

 }
 
 static void
 }
 
 static void


@@ -846,10 +795,9 @@ get_symbol (void)
   char *name;
   symbolS *p;
 
   char *name;
   symbolS *p;
 

-  name = input_line_pointer;
-  c = get_symbol_end ();
+  c = get_symbol_name (&name);

   p = (symbolS *) symbol_find_or_make (name);
   p = (symbolS *) symbol_find_or_make (name);

-  *input_line_pointer = c;
+  (void) restore_line_pointer (c);

   return p;
 }
 
   return p;
 }
 


@@ -869,7 +817,7 @@ s_iq2000_end (int x ATTRIBUTE_UNUSED)
   else
     p = NULL;
 
   else
     p = NULL;
 

-  if ((bfd_get_section_flags (stdoutput, now_seg) & SEC_CODE) != 0)
+  if ((bfd_section_flags (now_seg) & SEC_CODE) != 0)

     maybe_text = 1;
   else
     maybe_text = 0;
     maybe_text = 1;
   else
     maybe_text = 0;


@@ -886,7 +834,7 @@ s_iq2000_end (int x ATTRIBUTE_UNUSED)
 
   if (p != NULL)
     {
 
   if (p != NULL)
     {

-      assert (S_GET_NAME (p));
+      gas_assert (S_GET_NAME (p));

       if (strcmp (S_GET_NAME (p), S_GET_NAME (cur_proc_ptr->isym)))
        as_warn (_(".end symbol does not match .ent symbol."));
     }
       if (strcmp (S_GET_NAME (p), S_GET_NAME (cur_proc_ptr->isym)))
        as_warn (_(".end symbol does not match .ent symbol."));
     }


@@ -958,7 +906,6 @@ get_number (void)
 static void
 s_iq2000_ent (int aent)
 {
 static void
 s_iq2000_ent (int aent)
 {

-  int number = 0;

   symbolS *symbolP;
   int maybe_text;
 
   symbolS *symbolP;
   int maybe_text;
 


@@ -967,9 +914,9 @@ s_iq2000_ent (int aent)
     input_line_pointer++;
   SKIP_WHITESPACE ();
   if (ISDIGIT (*input_line_pointer) || *input_line_pointer == '-')
     input_line_pointer++;
   SKIP_WHITESPACE ();
   if (ISDIGIT (*input_line_pointer) || *input_line_pointer == '-')

-    number = get_number ();
+    get_number ();

 
 

-  if ((bfd_get_section_flags (stdoutput, now_seg) & SEC_CODE) != 0)
+  if ((bfd_section_flags (now_seg) & SEC_CODE) != 0)

     maybe_text = 1;
   else
     maybe_text = 0;
     maybe_text = 1;
   else
     maybe_text = 0;