Use igc_hash in json.c

1 files changed, 7 insertions, 1 deletions

diff --git a/src/json.c b/src/json.c
index e8c40c5ca9f..57709f752fb 100644
--- a/src/json.c
+++ b/src/json.c
@@ -197,7 +197,13 @@ cleanup_symset_tables (struct symset_tbl *st)
 static inline uint32_t
 symset_hash (Lisp_Object sym, int bits)
 {
-  return knuth_hash (reduce_emacs_uint_to_hash_hash (XHASH (sym)), bits);
+  EMACS_UINT hash;
+#ifdef HAVE_MPS
+  hash = igc_hash (sym);
+#else
+  hash = XHASH (sym);
+#endif
+  return knuth_hash (reduce_emacs_uint_to_hash_hash (hash), bits);
 }
 
 /* Enlarge the table used by a symset.  */