diff options
author | Erlang/OTP <[email protected]> | 2013-02-06 14:47:12 +0100 |
---|---|---|
committer | Erlang/OTP <[email protected]> | 2013-02-06 14:47:12 +0100 |
commit | b4b0029f031818a9dce605b73551bca2ed3a01f4 (patch) | |
tree | c393957b3016f2db90e8b5ba257368c2dc3e79d6 /lib/asn1/src/asn1ct_constructed_per.erl | |
parent | c666e18f0fcc20cf8eaeba423824883aa01e2f78 (diff) | |
parent | 9a0754b4d051eb75547da790fadef962b67a512e (diff) | |
download | otp-b4b0029f031818a9dce605b73551bca2ed3a01f4.tar.gz otp-b4b0029f031818a9dce605b73551bca2ed3a01f4.tar.bz2 otp-b4b0029f031818a9dce605b73551bca2ed3a01f4.zip |
Merge branch 'bjorn/asn1/extension-addition-groups/OTP-10811' into maint-r15
* bjorn/asn1/extension-addition-groups/OTP-10811:
Fix a bug for multiple extension addition groups
Diffstat (limited to 'lib/asn1/src/asn1ct_constructed_per.erl')
-rw-r--r-- | lib/asn1/src/asn1ct_constructed_per.erl | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lib/asn1/src/asn1ct_constructed_per.erl b/lib/asn1/src/asn1ct_constructed_per.erl index 8de41a4dd4..5de29a9c77 100644 --- a/lib/asn1/src/asn1ct_constructed_per.erl +++ b/lib/asn1/src/asn1ct_constructed_per.erl @@ -112,7 +112,10 @@ gen_encode_constructed(Erule,Typename,D) when is_record(D,type) -> emit([ {next,val}," = case [X || X <- [",Elements, "],X =/= asn1_NOVALUE] of",nl, - "[] -> ",{curr,val},";",nl, + "[] -> setelement(", + {asis,ExtActualGroupPos+1},",", + {curr,val},",", + "asn1_NOVALUE);",nl, "_ -> setelement(",{asis,ExtActualGroupPos+1},",", {curr,val},",", "{extaddgroup,", Elements,"})",nl, |