diff options
author | Lukas Larsson <lukas@erlang-solutions.com> | 2011-07-20 16:10:35 +0200 |
---|---|---|
committer | Lukas Larsson <lukas@erlang-solutions.com> | 2011-08-01 17:29:45 +0200 |
commit | 16e2d02b6a46a3a701cc7581bab114fa5674e9d9 (patch) | |
tree | 3ba53d17f9874a4a65dfc68d4e34f310a6ce0854 /lib/asn1/c_src/asn1_erl_nif.c | |
parent | 56a50d49453026491482497a7318f6ee23269bac (diff) | |
download | otp-16e2d02b6a46a3a701cc7581bab114fa5674e9d9.tar.gz otp-16e2d02b6a46a3a701cc7581bab114fa5674e9d9.tar.bz2 otp-16e2d02b6a46a3a701cc7581bab114fa5674e9d9.zip |
Fix bug where composite types with more then one element would be encoded in reverse
Diffstat (limited to 'lib/asn1/c_src/asn1_erl_nif.c')
-rw-r--r-- | lib/asn1/c_src/asn1_erl_nif.c | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lib/asn1/c_src/asn1_erl_nif.c b/lib/asn1/c_src/asn1_erl_nif.c index 721b3dead5..432148295e 100644 --- a/lib/asn1/c_src/asn1_erl_nif.c +++ b/lib/asn1/c_src/asn1_erl_nif.c @@ -1049,7 +1049,10 @@ int ber_encode(ErlNifEnv *env, ERL_NIF_TERM term, mem_chunk_t **curr, unsigned i ERL_NIF_TERM head, tail; unsigned int tmp_cnt; - if (!enif_get_list_cell(env, tv[1], &head, &tail)) { + if(!enif_make_reverse_list(env, tv[1], &head)) + return ASN1_ERROR; + + if (!enif_get_list_cell(env, head, &head, &tail)) { if (enif_is_empty_list(env, tv[1])) { *((*curr)->curr) = 0; (*curr)->curr -= 1; |