X-Git-Url: https://git.hcoop.net/bpt/emacs.git/blobdiff_plain/04a2d0d38a2835db6c2e5a74cd7701555a7eb826..0877d0dc24ee792b9b14592869ea1aa0934aee58:/src/profiler.c

diff --git a/src/profiler.c b/src/profiler.c
index 365d834b9e..f6503cf182 100644
--- a/src/profiler.c
+++ b/src/profiler.c
@@ -1,6 +1,6 @@
 /* Profiler implementation.
 
-Copyright (C) 2012 Free Software Foundation, Inc.
+Copyright (C) 2012-2013 Free Software Foundation, Inc.
 
 This file is part of GNU Emacs.
 
@@ -555,15 +555,15 @@ hashfn_profiler (struct hash_table_test *ht, Lisp_Object bt)
 	{
 	  Lisp_Object f = AREF (bt, i);
 	  EMACS_UINT hash1
-	    = (COMPILEDP (f) ? XUINT (AREF (f, COMPILED_BYTECODE))
+	    = (COMPILEDP (f) ? XHASH (AREF (f, COMPILED_BYTECODE))
 	       : (CONSP (f) && CONSP (XCDR (f)) && EQ (Qclosure, XCAR (f)))
-	       ? XUINT (XCDR (XCDR (f))) : XUINT (f));
+	       ? XHASH (XCDR (XCDR (f))) : XHASH (f));
 	  hash = sxhash_combine (hash, hash1);
 	}
       return (hash & INTMASK);
     }
   else
-    return XUINT (bt);
+    return XHASH (bt);
 }
 
 void