1  /* hash.c -- gas hash table code
       2     Copyright (C) 1987-2023 Free Software Foundation, Inc.
       3  
       4     This file is part of GAS, the GNU Assembler.
       5  
       6     GAS is free software; you can redistribute it and/or modify
       7     it under the terms of the GNU General Public License as published by
       8     the Free Software Foundation; either version 3, or (at your option)
       9     any later version.
      10  
      11     GAS is distributed in the hope that it will be useful,
      12     but WITHOUT ANY WARRANTY; without even the implied warranty of
      13     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
      14     GNU General Public License for more details.
      15  
      16     You should have received a copy of the GNU General Public License
      17     along with GAS; see the file COPYING.  If not, write to the Free
      18     Software Foundation, 51 Franklin Street - Fifth Floor, Boston, MA
      19     02110-1301, USA.  */
      20  
      21  #include "as.h"
      22  
      23  /* Hash function for a string_tuple.  */
      24  
      25  hashval_t
      26  hash_string_tuple (const void *e)
      27  {
      28    string_tuple_t *tuple = (string_tuple_t *) e;
      29    return htab_hash_string (tuple->key);
      30  }
      31  
      32  /* Equality function for a string_tuple.  */
      33  
      34  int
      35  eq_string_tuple (const void *a, const void *b)
      36  {
      37    const string_tuple_t *ea = (const string_tuple_t *) a;
      38    const string_tuple_t *eb = (const string_tuple_t *) b;
      39  
      40    return strcmp (ea->key, eb->key) == 0;
      41  }
      42  
      43  /* Insert ELEMENT into HTAB.  If REPLACE is non-zero existing elements
      44     are overwritten.  If ELEMENT already exists, a pointer to the slot
      45     is returned.  Otherwise NULL is returned.  */
      46  
      47  void **
      48  htab_insert (htab_t htab, void *element, int replace)
      49  {
      50    void **slot = htab_find_slot (htab, element, INSERT);
      51    if (*slot != NULL)
      52      {
      53        if (replace)
      54  	{
      55  	  if (htab->del_f)
      56  	    (*htab->del_f) (*slot);
      57  	  *slot = element;
      58  	}
      59        return slot;
      60      }
      61    *slot = element;
      62    return NULL;
      63  }
      64  
      65  /* Print statistics about a hash table.  */
      66  
      67  void
      68  htab_print_statistics (FILE *f, const char *name, htab_t table)
      69  {
      70    fprintf (f, "%s hash statistics:\n", name);
      71    fprintf (f, "\t%u searches\n", table->searches);
      72    fprintf (f, "\t%u collisions\n", table->collisions);
      73    fprintf (f, "\t%lu elements\n", (unsigned long) htab_elements (table));
      74    fprintf (f, "\t%lu table size\n", (unsigned long) htab_size (table));
      75  }