* Short eln filename hashes

	* src/comp.c (HASH_LENGTH): New macro.
	(comp_hash_string, comp_hash_source_file): Trim the hash before
	returning.

diff --git a/src/comp.c b/src/comp.c
index b5adc3ed86429567bacd2e9f8627da71549aa2d4..1b346f847dde3aa9700031dda62d6a3801a4620f 100644 (file)
--- a/src/comp.c
+++ b/src/comp.c
@@ -413,6 +413,9 @@ load_gccjit_if_necessary (bool mandatory)
 /* Increase this number to force a new Vcomp_abi_hash to be generated.  */
 #define ABI_VERSION "1"
 
+/* Length of the hashes used for eln file naming.  */
+#define HASH_LENGTH 8
+
 /* C symbols emitted for the load relocation mechanism.  */
 #define CURRENT_THREAD_RELOC_SYM "current_thread_reloc"
 #define PURE_RELOC_SYM "pure_reloc"
@@ -662,7 +665,7 @@ comp_hash_string (Lisp_Object string)
   md5_buffer (SSDATA (string), SCHARS (string), SSDATA (digest));
   hexbuf_digest (SSDATA (digest), SDATA (digest), MD5_DIGEST_SIZE);
 
-  return digest;
+  return Fsubstring (digest, Qnil, make_fixnum (HASH_LENGTH));
 }
 
 static Lisp_Object
@@ -688,7 +691,7 @@ comp_hash_source_file (Lisp_Object filename)
 
   hexbuf_digest (SSDATA (digest), SSDATA (digest), MD5_DIGEST_SIZE);
 
-  return digest;
+  return Fsubstring (digest, Qnil, make_fixnum (HASH_LENGTH));
 }
 
 /* Produce a key hashing Vcomp_subr_list.  */