From 31225eed84e107f9b23bb8089a304523e9a95648 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn=20Gustavsson?= <bjorn@erlang.org>
Date: Fri, 7 Jun 2013 06:18:15 +0200
Subject: UPER: Correct encoding of ENUMERATED with more than 63 extended
 values

---
 lib/asn1/src/asn1ct_gen_per.erl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'lib/asn1/src')

diff --git a/lib/asn1/src/asn1ct_gen_per.erl b/lib/asn1/src/asn1ct_gen_per.erl
index 30c9ab9365..69d9d51bf1 100644
--- a/lib/asn1/src/asn1ct_gen_per.erl
+++ b/lib/asn1/src/asn1ct_gen_per.erl
@@ -250,7 +250,8 @@ emit_enc_enumerated_case(Erules, C, EnumName, Count) ->
 enc_ext_and_val(per, E, F, Args) ->
     [E|apply(asn1ct_eval_per, F, Args)];
 enc_ext_and_val(uper, E, F, Args) ->
-    <<E:1,(apply(asn1ct_eval_uper, F, Args))/bitstring>>.
+    Bs = list_to_bitstring([apply(asn1ct_eval_uper, F, Args)]),
+    <<E:1,Bs/bitstring>>.
 
 
 %% Object code generating for encoding and decoding
-- 
cgit v1.2.3