trans-decl.c (module_htab_decls_hash): Revert last change.

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

	* trans-decl.c (module_htab_decls_hash): Revert last change.

From-SVN: r159462

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 386c90f38828dbb945189ee4428c9a70023b2e12..af8ce0a4949c0d611b5c20c4b73f7a17c7213087 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,7 @@
+2010-05-16  Richard Guenther  <rguenther@suse.de>
+
+       * trans-decl.c (module_htab_decls_hash): Revert last change.
+
 2010-05-16  Richard Guenther  <rguenther@suse.de>
 
        * trans-decl.c (module_htab_decls_hash): Use IDENTIFIER_HASH_VALUE.

diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c
index 3216f68b59d8985c22ae5cd75101800e0257d6a2..56c88bc69f88aaa9b312fe41a203b20b21c7f94f 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