From 39e7ecc0b3c5cbe529093f126189eadbf83d3a80 Mon Sep 17 00:00:00 2001
From: Hans Nilsson <hans@erlang.org>
Date: Mon, 8 Apr 2019 14:33:12 +0200
Subject: crypto: Obey compile flags for no DSA, BF, DES, DH

---
 lib/crypto/src/crypto.erl | 17 +++++++++++++++--
 1 file changed, 15 insertions(+), 2 deletions(-)

(limited to 'lib/crypto/src')

diff --git a/lib/crypto/src/crypto.erl b/lib/crypto/src/crypto.erl
index 04b2f62266..a99ab2faea 100644
--- a/lib/crypto/src/crypto.erl
+++ b/lib/crypto/src/crypto.erl
@@ -1058,8 +1058,21 @@ ng_crypto_one_time_nif(_Cipher, _Key, _IVec, _Data, _EncryptFlg) -> ?nif_stub.
 %%%----------------------------------------------------------------
 %%% Cipher aliases
 %%%
-prepend_cipher_aliases(L) ->
-    [des3_cbc, des_ede3, des_ede3_cbf, des3_cbf, des3_cfb, aes_cbc128, aes_cbc256 | L].
+prepend_cipher_aliases(L0) ->
+    L =
+        case lists:member(des_ede3_cbc, L0) of
+            true ->
+                [des3_cbc, des_ede3, des_ede3_cbf, des3_cbf, des3_cfb | L0];
+            false ->
+                L0
+        end,
+    case lists:member(aes_128_cbc, L0) of
+        true ->
+            [aes_cbc128, aes_cbc256 | L];
+        false ->
+            L
+    end.
+
 
 %%%---- des_ede3_cbc
 alias(des3_cbc)     -> des_ede3_cbc;
-- 
cgit v1.2.3