1 /* 2 * CDDL HEADER START 3 * 4 * The contents of this file are subject to the terms of the 5 * Common Development and Distribution License, Version 1.0 only 6 * (the "License"). You may not use this file except in compliance 7 * with the License. 8 * 9 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE 10 * or http://www.opensolaris.org/os/licensing. 11 * See the License for the specific language governing permissions 12 * and limitations under the License. 13 * 14 * When distributing Covered Code, include this CDDL HEADER in each 15 * file and include the License file at usr/src/OPENSOLARIS.LICENSE. 16 * If applicable, add the following below this CDDL HEADER, with the 17 * fields enclosed by brackets "[]" replaced with your own identifying 18 * information: Portions Copyright [yyyy] [name of copyright owner] 19 * 20 * CDDL HEADER END 21 */ 22 /* 23 * Copyright (c) 2000 by Sun Microsystems, Inc. 24 * All rights reserved. 25 */ 26 27 #include <stdio.h> 28 #include <stdlib.h> 29 #include <string.h> 30 #include <libelf.h> 31 #include "_crle.h" 32 33 Hash_tbl * 34 make_hash(int size, Hash_type type, ulong_t ident) 35 { 36 Hash_tbl * tbl; 37 38 if ((tbl = malloc(sizeof (Hash_tbl))) == 0) 39 return (0); 40 41 tbl->t_entry = calloc(size, (unsigned)(sizeof (Hash_ent *))); 42 if (tbl->t_entry == NULL) { 43 free(tbl); 44 return (0); 45 } 46 47 tbl->t_ident = ident; 48 tbl->t_type = type; 49 tbl->t_size = size; 50 51 return (tbl); 52 } 53 54 55 Hash_ent * 56 get_hash(Hash_tbl * tbl, Addr key, Half id, int mode) 57 { 58 int bucket; 59 Hash_ent * ent; 60 Word hashval; 61 62 if (tbl->t_type == HASH_STR) 63 hashval = elf_hash((const char *)key); 64 else 65 hashval = key; 66 67 bucket = hashval % tbl->t_size; 68 69 if (mode & HASH_FND_ENT) { 70 for (ent = tbl->t_entry[bucket]; ent != NULL; 71 ent = ent->e_next) { 72 if (tbl->t_type == HASH_STR) { 73 if ((strcmp((const char *)ent->e_key, 74 (const char *)key) == 0) && ((id == 0) || 75 (id == ent->e_id))) 76 return (ent); 77 } else { 78 if (ent->e_key == key) 79 return (ent); 80 } 81 } 82 } 83 if (!(mode & HASH_ADD_ENT)) 84 return (0); 85 86 /* 87 * Key not found in this hash table ... insert new entry into bucket. 88 */ 89 if ((ent = calloc(1, sizeof (Hash_ent))) == NULL) 90 return (0); 91 92 ent->e_key = key; 93 ent->e_hash = hashval; 94 95 /* 96 * Hook into bucket chain 97 */ 98 ent->e_next = tbl->t_entry[bucket]; 99 tbl->t_entry[bucket] = ent; 100 101 return (ent); 102 } 103