aboutsummaryrefslogtreecommitdiffstats
path: root/lib/asn1/src/asn1ct_constructed_per.erl
diff options
context:
space:
mode:
authorBjörn Gustavsson <[email protected]>2013-01-10 15:44:08 +0100
committerBjörn Gustavsson <[email protected]>2013-01-10 15:44:08 +0100
commitce1ac29c3dace7fa91845269400105e726fe0d93 (patch)
tree7c3692d36bd81442f9c2ee6361760ef509c24444 /lib/asn1/src/asn1ct_constructed_per.erl
parent1df90a0d2ae0260b878071c896127f0ce7dcb3d5 (diff)
parent9a0754b4d051eb75547da790fadef962b67a512e (diff)
downloadotp-ce1ac29c3dace7fa91845269400105e726fe0d93.tar.gz
otp-ce1ac29c3dace7fa91845269400105e726fe0d93.tar.bz2
otp-ce1ac29c3dace7fa91845269400105e726fe0d93.zip
Merge branch 'bjorn/asn1/extension-addition-groups/OTP-10664'
* bjorn/asn1/extension-addition-groups/OTP-10664: 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.erl5
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 2f711413bf..27070be966 100644
--- a/lib/asn1/src/asn1ct_constructed_per.erl
+++ b/lib/asn1/src/asn1ct_constructed_per.erl
@@ -108,7 +108,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,