ast2firm: Implement casting from complex to real types.

[cparser] / type_hash.c

diff --git a/type_hash.c b/type_hash.c
index a931f7d..8354011 100644 (file)
--- a/type_hash.c
+++ b/type_hash.c
@@ -1,21 +1,6 @@
 /*
  * This file is part of cparser.
- * Copyright (C) 2007-2009 Matthias Braun <matze@braunis.de>
- *
- * This program 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 2
- * of the License, or (at your option) any later version.
- *
- * This program 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 this program; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
- * 02111-1307, USA.
+ * Copyright (C) 2012 Matthias Braun <matze@braunis.de>
  */
 #include <config.h>
 
@@ -29,11 +14,9 @@
 #include <assert.h>
 
 #define HashSet         type_hash_t
-#define HashSetIterator type_hash_iterator_t
 #define ValueType       type_t*
 #include "adt/hashset.h"
 #undef ValueType
-#undef HashSetIterator
 #undef HashSet
 
 typedef struct type_hash_iterator_t  type_hash_iterator_t;
@@ -56,22 +39,6 @@ static unsigned hash_atomic_type(const atomic_type_t *type)
        return result;
 }
 
-static unsigned hash_complex_type(const complex_type_t *type)
-{
-       unsigned some_prime = 27644437;
-       unsigned result     = type->akind * some_prime;
-
-       return result;
-}
-
-static unsigned hash_imaginary_type(const imaginary_type_t *type)
-{
-       unsigned some_prime = 27644437;
-       unsigned result     = type->akind * some_prime;
-
-       return result;
-}
-
 static unsigned hash_pointer_type(const pointer_type_t *type)
 {
        return hash_ptr(type->points_to) ^ hash_ptr(type->base_variable);
@@ -126,19 +93,13 @@ static unsigned hash_type(const type_t *type)
        unsigned hash = 0;
 
        switch (type->kind) {
-       case TYPE_INVALID:
-               panic("internalizing void or invalid types not possible");
        case TYPE_ERROR:
                return 0;
+       case TYPE_IMAGINARY:
+       case TYPE_COMPLEX:
        case TYPE_ATOMIC:
                hash = hash_atomic_type(&type->atomic);
                break;
-       case TYPE_COMPLEX:
-               hash = hash_complex_type(&type->complex);
-               break;
-       case TYPE_IMAGINARY:
-               hash = hash_imaginary_type(&type->imaginary);
-               break;
        case TYPE_ENUM:
                hash = hash_enum_type(&type->enumt);
                break;
@@ -178,18 +139,6 @@ static bool atomic_types_equal(const atomic_type_t *type1,
        return type1->akind == type2->akind;
 }
 
-static bool complex_types_equal(const complex_type_t *type1,
-                                                           const complex_type_t *type2)
-{
-       return type1->akind == type2->akind;
-}
-
-static bool imaginary_types_equal(const imaginary_type_t *type1,
-                                                             const imaginary_type_t *type2)
-{
-       return type1->akind == type2->akind;
-}
-
 static bool function_types_equal(const function_type_t *type1,
                                  const function_type_t *type2)
 {
@@ -299,14 +248,10 @@ static bool types_equal(const type_t *type1, const type_t *type2)
        case TYPE_ERROR:
                /* Hmm, the error type is never equal */
                return false;
-       case TYPE_INVALID:
-               return false;
        case TYPE_ATOMIC:
-               return atomic_types_equal(&type1->atomic, &type2->atomic);
-       case TYPE_COMPLEX:
-               return complex_types_equal(&type1->complex, &type2->complex);
        case TYPE_IMAGINARY:
-               return imaginary_types_equal(&type1->imaginary, &type2->imaginary);
+       case TYPE_COMPLEX:
+               return atomic_types_equal(&type1->atomic, &type2->atomic);
        case TYPE_ENUM:
                return enum_types_equal(&type1->enumt, &type2->enumt);
        case TYPE_COMPOUND_STRUCT:
@@ -330,7 +275,6 @@ static bool types_equal(const type_t *type1, const type_t *type2)
 }
 
 #define HashSet                    type_hash_t
-#define HashSetIterator            type_hash_iterator_t
 #define ValueType                  type_t*
 #define NullValue                  NULL
 #define DeletedValue               ((type_t*)-1)
@@ -338,19 +282,15 @@ static bool types_equal(const type_t *type1, const type_t *type2)
 #define KeysEqual(this,key1,key2)  types_equal(key1, key2)
 #define SetRangeEmpty(ptr,size)    memset(ptr, 0, (size) * sizeof(*(ptr)))
 
+void _typehash_init(type_hash_t *hash);
 #define hashset_init             _typehash_init
-#define hashset_init_size        _typehash_init_size
+void _typehash_destroy(type_hash_t *hash);
 #define hashset_destroy          _typehash_destroy
+type_t *_typehash_insert(type_hash_t *hash, type_t *type);
 #define hashset_insert           _typehash_insert
-#define hashset_remove           typehash_remove
-#define hashset_find             typehash_find
-#define hashset_size             typehash_size
-#define hashset_iterator_init    typehash_iterator_init
-#define hashset_iterator_next    typehash_iterator_next
-#define hashset_remove_iterator  typehash_remove_iterator
 #define SCALAR_RETURN
 
-#include "adt/hashset.c"
+#include "adt/hashset.c.inl"
 
 static type_hash_t typehash;