diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 1711cbda565a..4dd138f6e43e 100644
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,8 @@
+2009-10-06  Jerry Quinn  <jlquinn@optonline.net>
+
+	* gimple.c (gimple_type_hash): Use CONST_CAST_TREE to fix
+	compilation.
+
 2009-10-05  Ralf Wildenhues  <Ralf.Wildenhues@gmx.de>
 
 	* c.opt (Wjump-misses-init): Fix typo to enable for ObjC.
diff --git a/gcc/gimple.c b/gcc/gimple.c
index af54306e54a0..481daf0ed991 100644
--- a/gcc/gimple.c
+++ b/gcc/gimple.c
@@ -3767,6 +3767,7 @@ iterative_hash_gimple_type (tree type, hashval_t val,
 static hashval_t
 gimple_type_hash (const void *p)
 {
+  const_tree t = (const_tree) p;
   VEC(tree, heap) *sccstack = NULL;
   struct pointer_map_t *sccstate;
   struct obstack sccstate_obstack;
@@ -3783,7 +3784,7 @@ gimple_type_hash (const void *p)
   next_dfs_num = 1;
   sccstate = pointer_map_create ();
   gcc_obstack_init (&sccstate_obstack);
-  val = iterative_hash_gimple_type (CONST_CAST2 (tree, const void *, p), 0,
+  val = iterative_hash_gimple_type (CONST_CAST_TREE (t), 0,
 				    &sccstack, sccstate, &sccstate_obstack);
   VEC_free (tree, heap, sccstack);
   pointer_map_destroy (sccstate);