diff options
| author | Björn Gustavsson <[email protected]> | 2013-04-10 07:53:37 +0200 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2013-05-31 14:52:23 +0200 |
| commit | e3d18eb865c7bcba21836837b1c4c415e7c857e8 (patch) | |
| tree | b66e812d6851808ac37831ee17c5500e42c2df72 /lib/asn1/src/asn1ct_gen_ber_bin_v2.erl | |
| parent | 4001ac2a291e26d9fa912dbeefbe92278aceb345 (diff) | |
| download | otp-e3d18eb865c7bcba21836837b1c4c415e7c857e8.tar.gz otp-e3d18eb865c7bcba21836837b1c4c415e7c857e8.tar.bz2 otp-e3d18eb865c7bcba21836837b1c4c415e7c857e8.zip | |
BER: Fix handling of a constructed default value for a class
Diffstat (limited to 'lib/asn1/src/asn1ct_gen_ber_bin_v2.erl')
| -rw-r--r-- | lib/asn1/src/asn1ct_gen_ber_bin_v2.erl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/asn1/src/asn1ct_gen_ber_bin_v2.erl b/lib/asn1/src/asn1ct_gen_ber_bin_v2.erl index 52d8210321..96100b1b2f 100644 --- a/lib/asn1/src/asn1ct_gen_ber_bin_v2.erl +++ b/lib/asn1/src/asn1ct_gen_ber_bin_v2.erl @@ -799,8 +799,8 @@ gen_encode_default_call(ClassName,FieldName,Type) -> Tag = [encode_tag_val(decode_class(X#tag.class),X#tag.form,X#tag.number)|| X <- OTag], case asn1ct_gen:type(InnerType) of {constructed,bif} -> -%% asn1ct_gen:gen_encode_constructed(Erules,Typename,InnerType,Type); - emit([" 'enc_",ClassName,'_',FieldName,"'(Bytes)"]), + emit([" 'enc_",ClassName,'_',FieldName,"'", + "(Val, ",{asis,Tag},")"]), [#typedef{name=list_to_atom(lists:concat([ClassName,'_',FieldName])), typespec=Type}]; {primitive,bif} -> |