Minor hashing refactoring.

[bpt/emacs.git] / src / profiler.c

diff --git a/src/profiler.c b/src/profiler.c
index f6503cf..85d9c1c 100644 (file)
--- a/src/profiler.c
+++ b/src/profiler.c
@@ -560,7 +560,7 @@ hashfn_profiler (struct hash_table_test *ht, Lisp_Object bt)
               ? XHASH (XCDR (XCDR (f))) : XHASH (f));
          hash = sxhash_combine (hash, hash1);
        }
-      return (hash & INTMASK);
+      return SXHASH_REDUCE (hash);
     }
   else
     return XHASH (bt);