diff options
| author | Gustav Simonsson <[email protected]> | 2012-02-14 15:01:05 +0100 |
|---|---|---|
| committer | Gustav Simonsson <[email protected]> | 2012-02-14 15:01:05 +0100 |
| commit | c8699e75489d99dad8ec9430a621a39030da3659 (patch) | |
| tree | ac452386cb7a49aea3a38c21a12ddf24ef5cd166 /lib/asn1/src/asn1ct_gen_per.erl | |
| parent | 42550aa765f0336aaa103f059491d2f6a7df3a51 (diff) | |
| parent | 6c2e966d4fccf7ec60795a3293492862f76aba5c (diff) | |
| download | otp-c8699e75489d99dad8ec9430a621a39030da3659.tar.gz otp-c8699e75489d99dad8ec9430a621a39030da3659.tar.bz2 otp-c8699e75489d99dad8ec9430a621a39030da3659.zip | |
Merge branch 'gustav/asn1-integer/sequence-fix/OTP-9688' into maint_with_asn1
Diffstat (limited to 'lib/asn1/src/asn1ct_gen_per.erl')
| -rw-r--r-- | lib/asn1/src/asn1ct_gen_per.erl | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lib/asn1/src/asn1ct_gen_per.erl b/lib/asn1/src/asn1ct_gen_per.erl index b90a0adf81..8fd7a69a19 100644 --- a/lib/asn1/src/asn1ct_gen_per.erl +++ b/lib/asn1/src/asn1ct_gen_per.erl @@ -358,6 +358,10 @@ greatest_common_range2({_,Int},VR={_Lb,_Ub}) when is_integer(Int) -> greatest_common_range2({_,L},{Lb,Ub}) when is_list(L) -> Min = least_Lb([Lb|L]), Max = greatest_Ub([Ub|L]), + [{'ValueRange',{Min,Max}}]; +greatest_common_range2({Lb1,Ub1},{Lb2,Ub2}) -> + Min = least_Lb([Lb1,Lb2]), + Max = greatest_Ub([Ub1,Ub2]), [{'ValueRange',{Min,Max}}]. mk_vr([{Type,I}]) when is_atom(Type), is_integer(I) -> |