2 * Copyright (C) 1995-2007 University of Karlsruhe. All right reserved.
4 * This file is part of libFirm.
6 * This file may be distributed and/or modified under the terms of the
7 * GNU General Public License version 2 as published by the Free Software
8 * Foundation and appearing in the file LICENSE.GPL included in the
9 * packaging of this file.
11 * Licensees holding valid libFirm Professional Edition licenses may use
12 * this file in accordance with the libFirm Commercial License.
13 * Agreement provided with the Software.
15 * This file is provided AS IS with NO WARRANTY OF ANY KIND, INCLUDING THE
16 * WARRANTY OF DESIGN, MERCHANTABILITY AND FITNESS FOR A PARTICULAR
21 * @file type_identify.c
22 * @brief Representation of types.
23 * @author Goetz Lindenmaier
30 #include "type_identify.h"
46 /* The hash set for types. */
47 static pset *type_table = NULL;
49 /* hash and compare types */
50 static hash_types_func_t *hash_types_func;
51 static compare_types_func_t *compare_types_func;
53 int compare_names (const void *tp1, const void *tp2) {
54 ir_type *t1 = (ir_type *) tp1;
55 ir_type *t2 = (ir_type *) tp2;
58 (t1->type_op != t2->type_op ||
59 t1->name != t2->name ) );
62 /* stuff for comparing two types. */
63 int compare_strict(const void *tp1, const void *tp2) {
64 const ir_type *t1 = tp1;
65 const ir_type *t2 = tp2;
69 /* stuff to compute a hash value for a type. */
70 int firm_hash_name(ir_type *tp) {
71 unsigned h = (unsigned)PTR_TO_INT(tp->type_op);
72 h = 9*h + (unsigned)PTR_TO_INT(tp->name);
76 /* The function that hashes a type. */
77 ir_type *mature_type(ir_type *tp) {
82 o = pset_insert (type_table, tp, hash_types_func(tp) );
83 if (!o || o == tp) return tp;
84 exchange_types(tp, o);
90 /* The function that hashes a type. */
91 ir_type *mature_type_free(ir_type *tp) {
96 o = pset_insert (type_table, tp, hash_types_func(tp) );
97 if (!o || o == tp) return tp;
99 free_type_entities(tp);
105 /* The function that hashes a type. */
106 ir_type *mature_type_free_entities(ir_type *tp) {
111 o = pset_insert (type_table, tp, hash_types_func(tp) );
112 if (!o || o == tp) return tp;
114 free_type_entities(tp);
115 exchange_types(tp, o);
120 /* initialize this module */
121 void init_type_identify(type_identify_if_t *ti_if) {
122 compare_types_func = ti_if && ti_if->cmp ? ti_if->cmp : compare_strict;
123 hash_types_func = ti_if && ti_if->hash ? ti_if->hash : firm_hash_name;
125 type_table = new_pset (compare_types_func, 8);