2010-05-16 Richard Guenther <rguenther@suse.de>

[pf3gnuchains/gcc-fork.git] / gcc / fortran / trans-decl.c

diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c
index 3216f68..56c88bc 100644 (file)
--- a/gcc/fortran/trans-decl.c
+++ b/gcc/fortran/trans-decl.c
@@ -3374,7 +3374,7 @@ module_htab_decls_hash (const void *x)
   const_tree n = DECL_NAME (t);
   if (n == NULL_TREE)
     n = TYPE_NAME (TREE_TYPE (t));
-  return IDENTIFIER_HASH_VALUE (n);
+  return htab_hash_string (IDENTIFIER_POINTER (n));
 }
 
 static int