diff options
| author | Eli Zaretskii | 2017-07-14 22:00:55 +0300 |
|---|---|---|
| committer | Eli Zaretskii | 2017-07-14 22:00:55 +0300 |
| commit | 389fb2aebf01fb786e5b18ab87953c90c15279ff (patch) | |
| tree | 174b3b1878e0ad4f04188dd92d1cd73eae5c3a4f /test | |
| parent | 548941bbd8a0a02fe58ba34875468e208c08c891 (diff) | |
| download | emacs-389fb2aebf01fb786e5b18ab87953c90c15279ff.tar.gz emacs-389fb2aebf01fb786e5b18ab87953c90c15279ff.zip | |
Fix the MS-Windows build due to added GnuTLS functions
* src/gnutls.c [WINDOWSNT]: Add DEF_DLL_FN for new functions.
(init_gnutls_functions) [WINDOWSNT]: Add LOAD_DLL_FN for new
functions. Add #define redirections for new functions.
(gnutls_symmetric_aead): Fix format specs to be more portable when
printing ptrdiff_t arguments.
* src/fns.c (gnutls_rnd) [WINDOWSNT]: Redirect to w32_gnutls_rnd
wrapper.
* src/gnutls.h [WINDOWSNT]: Add prototype for w32_gnutls_rnd.
* test/lisp/net/gnutls-tests.el (gnutls-tests-tested-macs)
(gnutls-tests-tested-digests, gnutls-tests-tested-ciphers): Call
gnutls-available-p, otherwise GnuTLS functions might not be loaded
from the DLL on MS-Windows.
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/net/gnutls-tests.el | 23 |
1 files changed, 13 insertions, 10 deletions
diff --git a/test/lisp/net/gnutls-tests.el b/test/lisp/net/gnutls-tests.el index 6f1ca744e54..9dbb6c05b9e 100644 --- a/test/lisp/net/gnutls-tests.el +++ b/test/lisp/net/gnutls-tests.el | |||
| @@ -45,20 +45,23 @@ | |||
| 45 | (secure-hash-algorithms))) | 45 | (secure-hash-algorithms))) |
| 46 | 46 | ||
| 47 | (defvar gnutls-tests-tested-macs | 47 | (defvar gnutls-tests-tested-macs |
| 48 | (remove-duplicates | 48 | (when (gnutls-available-p) |
| 49 | (append (mapcar 'cdr gnutls-tests-internal-macs-upcased) | 49 | (remove-duplicates |
| 50 | (mapcar 'car (gnutls-macs))))) | 50 | (append (mapcar 'cdr gnutls-tests-internal-macs-upcased) |
| 51 | (mapcar 'car (gnutls-macs)))))) | ||
| 51 | 52 | ||
| 52 | (defvar gnutls-tests-tested-digests | 53 | (defvar gnutls-tests-tested-digests |
| 53 | (remove-duplicates | 54 | (when (gnutls-available-p) |
| 54 | (append (mapcar 'cdr gnutls-tests-internal-macs-upcased) | 55 | (remove-duplicates |
| 55 | (mapcar 'car (gnutls-digests))))) | 56 | (append (mapcar 'cdr gnutls-tests-internal-macs-upcased) |
| 57 | (mapcar 'car (gnutls-digests)))))) | ||
| 56 | 58 | ||
| 57 | (defvar gnutls-tests-tested-ciphers | 59 | (defvar gnutls-tests-tested-ciphers |
| 58 | (remove-duplicates | 60 | (when (gnutls-available-p) |
| 59 | ; these cause FPEs or SEGVs | 61 | (remove-duplicates |
| 60 | (remove-if (lambda (e) (memq e '(ARCFOUR-128))) | 62 | ; these cause FPEs or SEGVs |
| 61 | (mapcar 'car (gnutls-ciphers))))) | 63 | (remove-if (lambda (e) (memq e '(ARCFOUR-128))) |
| 64 | (mapcar 'car (gnutls-ciphers)))))) | ||
| 62 | 65 | ||
| 63 | (defvar gnutls-tests-mondo-strings | 66 | (defvar gnutls-tests-mondo-strings |
| 64 | (list | 67 | (list |