diff options
| author | Kostis Sagonas <[email protected]> | 2010-11-18 17:30:26 +0200 |
|---|---|---|
| committer | Kostis Sagonas <[email protected]> | 2010-11-18 17:30:26 +0200 |
| commit | 508a6d2a69e5d3395816fa353d813adb61aa835f (patch) | |
| tree | 0219df1d02407905a16dd63128f55ff31fd6cb92 /lib/asn1/src/asn1ct_constructed_per.erl | |
| parent | f26528bbea0a24674e797a58b97117c1f8cf163f (diff) | |
| download | otp-508a6d2a69e5d3395816fa353d813adb61aa835f.tar.gz otp-508a6d2a69e5d3395816fa353d813adb61aa835f.tar.bz2 otp-508a6d2a69e5d3395816fa353d813adb61aa835f.zip | |
Shut off some dialyzer warnings
Diffstat (limited to 'lib/asn1/src/asn1ct_constructed_per.erl')
| -rw-r--r-- | lib/asn1/src/asn1ct_constructed_per.erl | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/lib/asn1/src/asn1ct_constructed_per.erl b/lib/asn1/src/asn1ct_constructed_per.erl index cce6eb9831..d6f23aca06 100644 --- a/lib/asn1/src/asn1ct_constructed_per.erl +++ b/lib/asn1/src/asn1ct_constructed_per.erl @@ -326,16 +326,14 @@ gen_decode_constructed(Erules,Typename,D) when is_record(D,type) -> textual_order([#'ComponentType'{textual_order=undefined}|_],TermList) -> TermList; textual_order(CompList,TermList) when is_list(CompList) -> - OrderList = [Ix||#'ComponentType'{textual_order=Ix} <- CompList], + OrderList = [Ix||#'ComponentType'{textual_order=Ix} <- CompList], [Term||{_,Term}<- lists:sort(lists:zip(OrderList, lists:sublist(TermList,length(OrderList))))]; %% sublist is just because Termlist can sometimes be longer than %% OrderList, which it really shouldn't textual_order({Root,Ext},TermList) -> - textual_order(Root ++ Ext,TermList); -textual_order({Root1,Ext,Root2},TermList) -> - textual_order(Root1 ++ Ext ++ Root2, TermList). + textual_order(Root ++ Ext,TermList). to_textual_order({Root,Ext}) -> {to_textual_order(Root),Ext}; |