bug#32187: 26.1; gnutls-hash-digest

[Robert Pluim]

Devon Sean McCullough <Emacs-Hacker2018@jovi.net> writes:

> $ /Applications/Emacs-26.1-2.app/Contents/MacOS/Emacs-x86_64-10_10 -Q --batch 
> \
> --eval '(print (md5 ""))' \
> --eval '(print (mapconcat (lambda (b) (format "%02x" b)) (gnutls-hash-digest 
> (quote MD5) "") ""))' \
> --eval '(print (mapconcat (lambda (b) (format "%02x" b)) (gnutls-hash-digest 
> (quote md5) "") ""))'
>
> "d41d8cd98f00b204e9800998ecf8427e"
>
> "d41d8cd98f00b204e9800998ecf8427e"
> Fatal error 11: Segmentation faultAbort trap: 6 (core dumped)

Hmm. How about this:

diff --git i/src/gnutls.c w/src/gnutls.c
index 117278df35..63e3be61b9 100644
--- i/src/gnutls.c
+++ w/src/gnutls.c
@@ -2608,7 +2608,7 @@ the number itself. */)
     digest_method = intern (SSDATA (digest_method));
 
   if (SYMBOLP (digest_method))
-    info = XCDR (Fassq (digest_method, Fgnutls_digests ()));
+    info = CDR_SAFE (Fassq (digest_method, Fgnutls_digests ()));
   else if (TYPE_RANGED_INTEGERP (gnutls_digest_algorithm_t, digest_method))
     gda = XINT (digest_method);
   else