diff options
| author | Niclas Axelsson <[email protected]> | 2011-02-17 12:26:14 +0100 |
|---|---|---|
| committer | Niclas Axelsson <[email protected]> | 2011-02-17 12:26:20 +0100 |
| commit | b83388e78e72e66f4e0dae42083a6bcd9709922e (patch) | |
| tree | 33c69a900e5c519de879a4804f921f6985df1be3 /lib/asn1/src/asn1rt_ber_bin.erl | |
| parent | 42012b2d7fb890b2a8d8c2707b364feb038f285f (diff) | |
| parent | 508a6d2a69e5d3395816fa353d813adb61aa835f (diff) | |
| download | otp-b83388e78e72e66f4e0dae42083a6bcd9709922e.tar.gz otp-b83388e78e72e66f4e0dae42083a6bcd9709922e.tar.bz2 otp-b83388e78e72e66f4e0dae42083a6bcd9709922e.zip | |
Merge branch 'ks/asn1-dialyzer-fixes' into dev
* ks/asn1-dialyzer-fixes:
Shut off some dialyzer warnings
OTP-9063
Diffstat (limited to 'lib/asn1/src/asn1rt_ber_bin.erl')
| -rw-r--r-- | lib/asn1/src/asn1rt_ber_bin.erl | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lib/asn1/src/asn1rt_ber_bin.erl b/lib/asn1/src/asn1rt_ber_bin.erl index ab04d981b0..22f9f2ecfd 100644 --- a/lib/asn1/src/asn1rt_ber_bin.erl +++ b/lib/asn1/src/asn1rt_ber_bin.erl @@ -2192,12 +2192,12 @@ decode_tag_and_length(Buffer) -> %% Check if valid tag %% %% check_if_valid_tag(Tag, List_of_valid_tags, OptOrMand) -> name of the tag -%%=============================================================================== +%%============================================================================ check_if_valid_tag(<<0,0,_/binary>>,_,_) -> asn1_EOC; check_if_valid_tag(<<>>, _, OptOrMand) -> - check_if_valid_tag2(false,[],[],OptOrMand); + check_if_valid_tag2_error([], OptOrMand); check_if_valid_tag(Bytes, ListOfTags, OptOrMand) when is_binary(Bytes) -> {Tag, _, _} = decode_tag(Bytes), check_if_valid_tag(Tag, ListOfTags, OptOrMand); @@ -2217,7 +2217,6 @@ check_if_valid_tag(Tag, ListOfTags, OptOrMand) -> check_if_valid_tag2(_Class_TagNo, [], Tag, MandOrOpt) -> check_if_valid_tag2_error(Tag,MandOrOpt); - check_if_valid_tag2(Class_TagNo, [{TagName,TagList}|T], Tag, OptOrMand) -> case check_if_valid_tag_loop(Class_TagNo, TagList) of true -> @@ -2226,7 +2225,7 @@ check_if_valid_tag2(Class_TagNo, [{TagName,TagList}|T], Tag, OptOrMand) -> check_if_valid_tag2(Class_TagNo, T, Tag, OptOrMand) end. --spec(check_if_valid_tag2_error/2 :: (term(),atom()) -> no_return()). +-spec check_if_valid_tag2_error(term(), atom()) -> no_return(). check_if_valid_tag2_error(Tag,mandatory) -> exit({error,{asn1,{invalid_tag,Tag}}}); |