File otp_src_18.3.4-lib-asn1-asn1ct_parser2.patch of Package erlang
diff -Ndurp otp_src_18.3.4/lib/asn1/src/asn1ct_parser2.erl otp_src_18.3.4-lib-asn1-asn1ct_parser2/lib/asn1/src/asn1ct_parser2.erl
--- otp_src_18.3.4/lib/asn1/src/asn1ct_parser2.erl 2016-06-13 14:21:38.000000000 +0300
+++ otp_src_18.3.4-lib-asn1-asn1ct_parser2/lib/asn1/src/asn1ct_parser2.erl 2016-06-17 03:58:42.000000000 +0300
@@ -2197,19 +2197,13 @@ parse_ContainedSubtype([{'INCLUDES',_}|R
parse_ContainedSubtype(Tokens) ->
parse_error(Tokens).
-parse_UpperEndpoint([{'<',_}|Rest]) ->
- parse_UpperEndpoint(lt,Rest);
parse_UpperEndpoint(Tokens) ->
- parse_UpperEndpoint(false,Tokens).
-
-parse_UpperEndpoint(Lt,Tokens) ->
- Flist = [fun parse_MAX/1,
- fun parse_Value/1],
- case parse_or(Tokens, Flist) of
- {Value,Rest2} when Lt =:= lt ->
- {{lt,Value},Rest2};
- {Value,Rest2} ->
- {Value,Rest2}
+ case Tokens of
+ [{'<',_}|Rest] ->
+ {Value, Rest2} = parse_or(Rest, [fun parse_MAX/1, fun parse_Value/1]),
+ {{lt, Value}, Rest2};
+ _ ->
+ parse_or(Tokens, [fun parse_MAX/1, fun parse_Value/1])
end.
parse_MIN([{'MIN',_}|T]) ->