Minor hashing refactoring.

[gnu-emacs] / src / profiler.c

diff --git a/src/profiler.c b/src/profiler.c
index f6503cf182e9012b14c686a5b661ceae84c1416a..85d9c1ca88aeceb0c33e1db894cfe7114cd15405 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);