1 |
|
/* tasn_fre.c */ |
2 |
|
/* Written by Dr Stephen N Henson (shenson@bigfoot.com) for the OpenSSL |
3 |
|
* project 2000. |
4 |
|
*/ |
5 |
|
/* ==================================================================== |
6 |
|
* Copyright (c) 2000 The OpenSSL Project. All rights reserved. |
7 |
|
* |
8 |
|
* Redistribution and use in source and binary forms, with or without |
9 |
|
* modification, are permitted provided that the following conditions |
10 |
|
* are met: |
11 |
|
* |
12 |
|
* 1. Redistributions of source code must retain the above copyright |
13 |
|
* notice, this list of conditions and the following disclaimer. |
14 |
|
* |
15 |
|
* 2. Redistributions in binary form must reproduce the above copyright |
16 |
|
* notice, this list of conditions and the following disclaimer in |
17 |
|
* the documentation and/or other materials provided with the |
18 |
|
* distribution. |
19 |
|
* |
20 |
|
* 3. All advertising materials mentioning features or use of this |
21 |
|
* software must display the following acknowledgment: |
22 |
|
* "This product includes software developed by the OpenSSL Project |
23 |
|
* for use in the OpenSSL Toolkit. (http://www.OpenSSL.org/)" |
24 |
|
* |
25 |
|
* 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to |
26 |
|
* endorse or promote products derived from this software without |
27 |
|
* prior written permission. For written permission, please contact |
28 |
|
* licensing@OpenSSL.org. |
29 |
|
* |
30 |
|
* 5. Products derived from this software may not be called "OpenSSL" |
31 |
|
* nor may "OpenSSL" appear in their names without prior written |
32 |
|
* permission of the OpenSSL Project. |
33 |
|
* |
34 |
|
* 6. Redistributions of any form whatsoever must retain the following |
35 |
|
* acknowledgment: |
36 |
|
* "This product includes software developed by the OpenSSL Project |
37 |
|
* for use in the OpenSSL Toolkit (http://www.OpenSSL.org/)" |
38 |
|
* |
39 |
|
* THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY |
40 |
|
* EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE |
41 |
|
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR |
42 |
|
* PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE OpenSSL PROJECT OR |
43 |
|
* ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, |
44 |
|
* SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT |
45 |
|
* NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; |
46 |
|
* LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) |
47 |
|
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, |
48 |
|
* STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) |
49 |
|
* ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED |
50 |
|
* OF THE POSSIBILITY OF SUCH DAMAGE. |
51 |
|
* ==================================================================== |
52 |
|
* |
53 |
|
* This product includes cryptographic software written by Eric Young |
54 |
|
* (eay@cryptsoft.com). This product includes software written by Tim |
55 |
|
* Hudson (tjh@cryptsoft.com). |
56 |
|
* |
57 |
|
*/ |
58 |
|
|
59 |
|
|
60 |
|
#include <stddef.h> |
61 |
|
#include <openssl/asn1.h> |
62 |
|
#include <openssl/asn1t.h> |
63 |
|
#include <openssl/objects.h> |
64 |
|
|
65 |
|
static void asn1_item_combine_free(ASN1_VALUE **pval, const ASN1_ITEM *it, int combine); |
66 |
|
|
67 |
|
/* Free up an ASN1 structure */ |
68 |
|
|
69 |
|
void ASN1_item_free(ASN1_VALUE *val, const ASN1_ITEM *it) |
70 |
519512 |
{ |
71 |
519512 |
asn1_item_combine_free(&val, it, 0); |
72 |
|
} |
73 |
|
|
74 |
|
void ASN1_item_ex_free(ASN1_VALUE **pval, const ASN1_ITEM *it) |
75 |
0 |
{ |
76 |
0 |
asn1_item_combine_free(pval, it, 0); |
77 |
|
} |
78 |
|
|
79 |
|
static void asn1_item_combine_free(ASN1_VALUE **pval, const ASN1_ITEM *it, int combine) |
80 |
2104740 |
{ |
81 |
2104740 |
const ASN1_TEMPLATE *tt = NULL, *seqtt; |
82 |
|
const ASN1_EXTERN_FUNCS *ef; |
83 |
|
const ASN1_COMPAT_FUNCS *cf; |
84 |
2104740 |
const ASN1_AUX *aux = it->funcs; |
85 |
|
ASN1_aux_cb *asn1_cb; |
86 |
|
int i; |
87 |
2104740 |
if(!pval) return; |
88 |
2104740 |
if((it->itype != ASN1_ITYPE_PRIMITIVE) && !*pval) return; |
89 |
2048302 |
if(aux && aux->asn1_cb) asn1_cb = aux->asn1_cb; |
90 |
1974411 |
else asn1_cb = 0; |
91 |
|
|
92 |
2048302 |
switch(it->itype) { |
93 |
|
|
94 |
|
case ASN1_ITYPE_PRIMITIVE: |
95 |
967256 |
if(it->templates) ASN1_template_free(pval, it->templates); |
96 |
967256 |
else ASN1_primitive_free(pval, it); |
97 |
|
break; |
98 |
|
|
99 |
|
case ASN1_ITYPE_MSTRING: |
100 |
398201 |
ASN1_primitive_free(pval, it); |
101 |
398201 |
break; |
102 |
|
|
103 |
|
case ASN1_ITYPE_CHOICE: |
104 |
8 |
if(asn1_cb) { |
105 |
0 |
i = asn1_cb(ASN1_OP_FREE_PRE, pval, it); |
106 |
0 |
if(i == 2) return; |
107 |
|
} |
108 |
8 |
i = asn1_get_choice_selector(pval, it); |
109 |
8 |
if(asn1_cb) asn1_cb(ASN1_OP_FREE_PRE, pval, it); |
110 |
8 |
if((i >= 0) && (i < it->tcount)) { |
111 |
|
ASN1_VALUE **pchval; |
112 |
8 |
tt = it->templates + i; |
113 |
8 |
pchval = asn1_get_field_ptr(pval, tt); |
114 |
8 |
ASN1_template_free(pchval, tt); |
115 |
|
} |
116 |
8 |
if(asn1_cb) asn1_cb(ASN1_OP_FREE_POST, pval, it); |
117 |
8 |
if(!combine) { |
118 |
0 |
OPENSSL_free(*pval); |
119 |
0 |
*pval = NULL; |
120 |
|
} |
121 |
|
break; |
122 |
|
|
123 |
|
case ASN1_ITYPE_COMPAT: |
124 |
0 |
cf = it->funcs; |
125 |
0 |
if(cf && cf->asn1_free) cf->asn1_free(*pval); |
126 |
|
break; |
127 |
|
|
128 |
|
case ASN1_ITYPE_EXTERN: |
129 |
70098 |
ef = it->funcs; |
130 |
70098 |
if(ef && ef->asn1_ex_free) ef->asn1_ex_free(pval, it); |
131 |
|
break; |
132 |
|
|
133 |
|
case ASN1_ITYPE_SEQUENCE: |
134 |
612739 |
if(asn1_do_lock(pval, -1, it) > 0) return; |
135 |
597200 |
if(asn1_cb) { |
136 |
58352 |
i = asn1_cb(ASN1_OP_FREE_PRE, pval, it); |
137 |
58352 |
if(i == 2) return; |
138 |
|
} |
139 |
597200 |
asn1_enc_free(pval, it); |
140 |
|
/* If we free up as normal we will invalidate any |
141 |
|
* ANY DEFINED BY field and we wont be able to |
142 |
|
* determine the type of the field it defines. So |
143 |
|
* free up in reverse order. |
144 |
|
*/ |
145 |
597200 |
tt = it->templates + it->tcount - 1; |
146 |
2086452 |
for(i = 0; i < it->tcount; tt--, i++) { |
147 |
|
ASN1_VALUE **pseqval; |
148 |
1489252 |
seqtt = asn1_do_adb(pval, tt, 0); |
149 |
1489252 |
if(!seqtt) continue; |
150 |
1489252 |
pseqval = asn1_get_field_ptr(pval, seqtt); |
151 |
1489252 |
ASN1_template_free(pseqval, seqtt); |
152 |
|
} |
153 |
597200 |
if(asn1_cb) asn1_cb(ASN1_OP_FREE_POST, pval, it); |
154 |
597200 |
if(!combine) { |
155 |
597200 |
OPENSSL_free(*pval); |
156 |
597200 |
*pval = NULL; |
157 |
|
} |
158 |
|
break; |
159 |
|
} |
160 |
|
} |
161 |
|
|
162 |
|
void ASN1_template_free(ASN1_VALUE **pval, const ASN1_TEMPLATE *tt) |
163 |
1573519 |
{ |
164 |
|
int i; |
165 |
1573519 |
if(tt->flags & ASN1_TFLG_SK_MASK) { |
166 |
29170 |
STACK_OF(ASN1_VALUE) *sk = (STACK_OF(ASN1_VALUE) *)*pval; |
167 |
70049 |
for(i = 0; i < sk_ASN1_VALUE_num(sk); i++) { |
168 |
|
ASN1_VALUE *vtmp; |
169 |
40879 |
vtmp = sk_ASN1_VALUE_value(sk, i); |
170 |
40879 |
asn1_item_combine_free(&vtmp, ASN1_ITEM_ptr(tt->item), 0); |
171 |
|
} |
172 |
29170 |
sk_ASN1_VALUE_free(sk); |
173 |
29170 |
*pval = NULL; |
174 |
1544349 |
} else asn1_item_combine_free(pval, ASN1_ITEM_ptr(tt->item), |
175 |
|
tt->flags & ASN1_TFLG_COMBINE); |
176 |
|
} |
177 |
|
|
178 |
|
void ASN1_primitive_free(ASN1_VALUE **pval, const ASN1_ITEM *it) |
179 |
1465876 |
{ |
180 |
|
int utype; |
181 |
1465876 |
if(it) { |
182 |
|
const ASN1_PRIMITIVE_FUNCS *pf; |
183 |
1365457 |
pf = it->funcs; |
184 |
1365457 |
if(pf && pf->prim_free) { |
185 |
0 |
pf->prim_free(pval, it); |
186 |
0 |
return; |
187 |
|
} |
188 |
|
} |
189 |
|
/* Special case: if 'it' is NULL free contents of ASN1_TYPE */ |
190 |
1465876 |
if(!it) { |
191 |
100419 |
ASN1_TYPE *typ = (ASN1_TYPE *)*pval; |
192 |
100419 |
utype = typ->type; |
193 |
100419 |
pval = (ASN1_VALUE **)&typ->value.ptr; |
194 |
100419 |
if(!*pval) return; |
195 |
1365457 |
} else if(it->itype == ASN1_ITYPE_MSTRING) { |
196 |
398201 |
utype = -1; |
197 |
398201 |
if(!*pval) return; |
198 |
|
} else { |
199 |
967256 |
utype = it->utype; |
200 |
967256 |
if((utype != V_ASN1_BOOLEAN) && !*pval) return; |
201 |
|
} |
202 |
|
|
203 |
1222585 |
switch(utype) { |
204 |
|
case V_ASN1_OBJECT: |
205 |
473941 |
ASN1_OBJECT_free((ASN1_OBJECT *)*pval); |
206 |
473941 |
break; |
207 |
|
|
208 |
|
case V_ASN1_BOOLEAN: |
209 |
69205 |
if (it) |
210 |
69205 |
*(ASN1_BOOLEAN *)pval = it->size; |
211 |
|
else |
212 |
0 |
*(ASN1_BOOLEAN *)pval = -1; |
213 |
|
return; |
214 |
|
|
215 |
|
case V_ASN1_NULL: |
216 |
|
break; |
217 |
|
|
218 |
|
case V_ASN1_ANY: |
219 |
100419 |
ASN1_primitive_free(pval, NULL); |
220 |
100419 |
OPENSSL_free(*pval); |
221 |
100419 |
break; |
222 |
|
|
223 |
|
default: |
224 |
579020 |
ASN1_STRING_free((ASN1_STRING *)*pval); |
225 |
579020 |
*pval = NULL; |
226 |
|
break; |
227 |
|
} |
228 |
1153380 |
*pval = NULL; |