/* hash.c -- gas hash table code

   Copyright (C) 1987-2025 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

   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,

   but WITHOUT ANY WARRANTY; without even the implied warranty of

   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

   GNU General Public License for more details.

   You should have received a copy of the GNU General Public License

   along with GAS; see the file COPYING.  If not, write to the Free

   Software Foundation, 51 Franklin Street - Fifth Floor, Boston, MA

   02110-1301, USA.  */

#include "as.h"

/* Hash function for a string_tuple.  */

hashval_t

hash_string_tuple (const void *e)

{

  const string_tuple_t *tuple = e;

  return htab_hash_string (tuple->key);

}

/* Equality function for a string_tuple.  */

int

eq_string_tuple (const void *a, const void *b)

{

  const string_tuple_t *ea = a;

  const string_tuple_t *eb = b;

  return strcmp (ea->key, eb->key) == 0;

}

/* Insert ELEMENT into HTAB.  If REPLACE is non-zero existing elements

   are overwritten.  If ELEMENT already exists, a pointer to the slot

   is returned.  Otherwise NULL is returned.  */

void **

htab_insert (htab_t htab, void *element, int replace)

{

  void **slot = htab_find_slot (htab, element, INSERT);

  if (*slot != NULL)

    {

      if (replace)

  {

    if (htab->del_f)

      (*htab->del_f) (*slot);

    *slot = element;

  }

      return slot;

    }

  *slot = element;

  return NULL;

}

/* Print statistics about a hash table.  */

void

htab_print_statistics (FILE *f, const char *name, htab_t table)

{

  fprintf (f, "%s hash statistics:\n", name);

  fprintf (f, "\t%u searches\n", table->searches);

  fprintf (f, "\t%u collisions\n", table->collisions);

  fprintf (f, "\t%lu elements\n", (unsigned long) htab_elements (table));

  fprintf (f, "\t%lu table size\n", (unsigned long) htab_size (table));

}