diff options
| author | Björn Gustavsson <[email protected]> | 2013-10-21 12:18:18 +0200 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2013-10-21 12:18:18 +0200 |
| commit | a878a3aa43381f0281611fd3a87ce33dcadb785c (patch) | |
| tree | 78a20e38d2511e8bf3ea43bfe899288c8d2fb128 /lib/asn1/src/asn1ct_value.erl | |
| parent | 5a69967bf89327368cd45e000df054953fa74f10 (diff) | |
| parent | 9676a78c5cdeeea311048a7d9630f333811747d1 (diff) | |
| download | otp-a878a3aa43381f0281611fd3a87ce33dcadb785c.tar.gz otp-a878a3aa43381f0281611fd3a87ce33dcadb785c.tar.bz2 otp-a878a3aa43381f0281611fd3a87ce33dcadb785c.zip | |
Merge branch 'maint'
* maint:
PER/UPER: Correct encoding for single-value extensible constraints
asn1ct_value: Handle named INTEGERs with constraints
Diffstat (limited to 'lib/asn1/src/asn1ct_value.erl')
| -rw-r--r-- | lib/asn1/src/asn1ct_value.erl | 17 |
1 files changed, 8 insertions, 9 deletions
diff --git a/lib/asn1/src/asn1ct_value.erl b/lib/asn1/src/asn1ct_value.erl index 992210232f..862b3c4ea5 100644 --- a/lib/asn1/src/asn1ct_value.erl +++ b/lib/asn1/src/asn1ct_value.erl @@ -167,17 +167,16 @@ from_type_prim(M, D) -> case D#type.def of 'INTEGER' -> i_random(C); - {'INTEGER',NamedNumberList} -> - NN = [X||{X,_} <- NamedNumberList], - case NN of + {'INTEGER',[_|_]=NNL} -> + case C of [] -> - i_random(C); + {N,_} = lists:nth(random(length(NNL)), NNL), + N; _ -> - case C of - [] -> - lists:nth(random(length(NN)),NN); - _ -> - lists:nth((fun(0)->1;(X)->X end(i_random(C))),NN) + V = i_random(C), + case lists:keyfind(V, 2, NNL) of + false -> V; + {N,V} -> N end end; Enum when is_tuple(Enum),element(1,Enum)=='ENUMERATED' -> |