BER: Suppress dialyzer warnings for encode_bit_string/4

We don't want to touch the code used for encoding BIT STRINGs when
'legacy_erl_types' is active, since it will be removed within two
or three major releases. But we do want to suppress the dialyzer
warnings in the meantime. The easiest way is to call
encode_bit_string/4 with unknown types from an exported function
that is never actually called like this:

-export(['dialyzer-suppressions'/0]).

'dialyzer-suppressions'(Arg) ->
    {A,B,C,D} = Arg,
    encode_bit_string(A, B, C, D),
    ok.

1 files changed, 12 insertions, 0 deletions

diff --git a/lib/asn1/src/asn1ct_gen_ber_bin_v2.erl b/lib/asn1/src/asn1ct_gen_ber_bin_v2.erl
index 6db31c5ea2..4c08f24619 100644
--- a/lib/asn1/src/asn1ct_gen_ber_bin_v2.erl
+++ b/lib/asn1/src/asn1ct_gen_ber_bin_v2.erl
@@ -32,6 +32,7 @@
 -export([encode_tag_val/3]).
 -export([gen_inc_decode/2,gen_decode_selected/3]).
 -export([extaddgroup2sequence/1]).
+-export([dialyzer_suppressions/1]).
 
 -import(asn1ct_gen, [emit/1,demit/1]).
 
@@ -65,6 +66,17 @@
 %%===============================================================================
 %%===============================================================================
 
+dialyzer_suppressions(_) ->
+    case asn1ct:use_legacy_types() andalso
+	asn1ct_func:is_used({ber,encode_bit_string,4}) of
+	false ->
+	    ok;
+	true ->
+	    emit(["    {A,B,C,D} = Arg,",nl,
+		  "    encode_bit_string(A, B, C, D),",nl])
+    end,
+    emit(["    ok.",nl]).
+
 %%===============================================================================
 %% encode #{typedef, {pos, name, typespec}}
 %%===============================================================================