File otp_src_18.3.4-lib-asn1-asn1ct_parser2.patch of Package erlang

Overview Repositories Revisions Requests Users Attributes Meta

File otp_src_18.3.4-lib-asn1-asn1ct_parser2.patch of Package erlang (Revision 834576b566c5d6a655bbc8998ea53173)

Currently displaying revision 834576b566c5d6a655bbc8998ea53173 , Show latest

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]) ->

Places

File otp_src_18.3.4-lib-asn1-asn1ct_parser2.patch of Package erlang (Revision 834576b566c5d6a655bbc8998ea53173)

Places