text: /*
   * CDDL HEADER START
   *
   * The contents of this file are subject to the terms of the
   * Common Development and Distribution License, Version 1.0 only
   * (the "License").  You may not use this file except in compliance
   * with the License.
   *
   * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
   * or http://www.opensolaris.org/os/licensing.
   * See the License for the specific language governing permissions
   * and limitations under the License.
   *
   * When distributing Covered Code, include this CDDL HEADER in each
   * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
   * If applicable, add the following below this CDDL HEADER, with the
   * fields enclosed by brackets "[]" replaced with your own identifying
   * information: Portions Copyright [yyyy] [name of copyright owner]
   *
   * CDDL HEADER END
   */
  /*
   * Copyright (c) 2000 by Sun Microsystems, Inc.
   * All rights reserved.
   */
  #pragma ident	"%Z%%M%	%I%	%E% SMI"
  
  #include	<stdio.h>
  #include	<stdlib.h>
  #include	<string.h>
  #include	<libelf.h>
  #include	"_crle.h"
  
  Hash_tbl *
  make_hash(int size, Hash_type type, ulong_t ident)
  {
  	Hash_tbl *	tbl;
  
  	if ((tbl = malloc(sizeof (Hash_tbl))) == 0)
  		return (0);
  
  	if ((tbl->t_entry = calloc((unsigned)(sizeof (Hash_ent *)), size)) == 0)
  		return (0);
  
  	tbl->t_ident = ident;
  	tbl->t_type = type;
  	tbl->t_size = size;
  
  	return (tbl);
  }
  
  
  Hash_ent *
  get_hash(Hash_tbl * tbl, Addr key, Half id, int mode)
  {
  	int		bucket;
  	Hash_ent *	ent;
  	Word		hashval;
  
  	if (tbl->t_type == HASH_STR)
  		hashval = elf_hash((const char *)key);
  	else
  		hashval = key;
  
  	bucket = hashval % tbl->t_size;
  
  	if (mode & HASH_FND_ENT) {
  		for (ent = tbl->t_entry[bucket]; ent != NULL;
  		    ent = ent->e_next) {
  			if (tbl->t_type == HASH_STR) {
  				if ((strcmp((const char *)ent->e_key,
  				    (const char *)key) == 0) && ((id == 0) ||
  				    (id == ent->e_id)))
  					return (ent);
  			} else {
  				if (ent->e_key == key)
  					return (ent);
  			}
  		}
  	}
  	if (!(mode & HASH_ADD_ENT))
  		return (0);
  
  	/*
  	 * Key not found in this hash table ... insert new entry into bucket.
  	 */
  	if ((ent = calloc(sizeof (Hash_ent), 1)) == 0)
  		return (0);
  
  	ent->e_key = key;
  	ent->e_hash = hashval;
  
  	/*
  	 * Hook into bucket chain
  	 */
  	ent->e_next = tbl->t_entry[bucket];
  	tbl->t_entry[bucket] = ent;
  
  	return (ent);
  }
  