|
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 EXPORT_C void ASN1_item_free(ASN1_VALUE *val, const ASN1_ITEM *it) |
|
70 { |
|
71 asn1_item_combine_free(&val, it, 0); |
|
72 } |
|
73 |
|
74 EXPORT_C void ASN1_item_ex_free(ASN1_VALUE **pval, const ASN1_ITEM *it) |
|
75 { |
|
76 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 { |
|
81 const ASN1_TEMPLATE *tt = NULL, *seqtt; |
|
82 const ASN1_EXTERN_FUNCS *ef; |
|
83 const ASN1_COMPAT_FUNCS *cf; |
|
84 const ASN1_AUX *aux = it->funcs; |
|
85 ASN1_aux_cb *asn1_cb; |
|
86 int i; |
|
87 if (!pval) |
|
88 return; |
|
89 if ((it->itype != ASN1_ITYPE_PRIMITIVE) && !*pval) |
|
90 return; |
|
91 if (aux && aux->asn1_cb) |
|
92 asn1_cb = aux->asn1_cb; |
|
93 else |
|
94 asn1_cb = 0; |
|
95 |
|
96 switch(it->itype) |
|
97 { |
|
98 |
|
99 case ASN1_ITYPE_PRIMITIVE: |
|
100 if (it->templates) |
|
101 ASN1_template_free(pval, it->templates); |
|
102 else |
|
103 ASN1_primitive_free(pval, it); |
|
104 break; |
|
105 |
|
106 case ASN1_ITYPE_MSTRING: |
|
107 ASN1_primitive_free(pval, it); |
|
108 break; |
|
109 |
|
110 case ASN1_ITYPE_CHOICE: |
|
111 if (asn1_cb) |
|
112 { |
|
113 i = asn1_cb(ASN1_OP_FREE_PRE, pval, it); |
|
114 if (i == 2) |
|
115 return; |
|
116 } |
|
117 i = asn1_get_choice_selector(pval, it); |
|
118 if (asn1_cb) |
|
119 asn1_cb(ASN1_OP_FREE_PRE, pval, it); |
|
120 if ((i >= 0) && (i < it->tcount)) |
|
121 { |
|
122 ASN1_VALUE **pchval; |
|
123 tt = it->templates + i; |
|
124 pchval = asn1_get_field_ptr(pval, tt); |
|
125 ASN1_template_free(pchval, tt); |
|
126 } |
|
127 if (asn1_cb) |
|
128 asn1_cb(ASN1_OP_FREE_POST, pval, it); |
|
129 if (!combine) |
|
130 { |
|
131 OPENSSL_free(*pval); |
|
132 *pval = NULL; |
|
133 } |
|
134 break; |
|
135 |
|
136 case ASN1_ITYPE_COMPAT: |
|
137 cf = it->funcs; |
|
138 if (cf && cf->asn1_free) |
|
139 cf->asn1_free(*pval); |
|
140 break; |
|
141 |
|
142 case ASN1_ITYPE_EXTERN: |
|
143 ef = it->funcs; |
|
144 if (ef && ef->asn1_ex_free) |
|
145 ef->asn1_ex_free(pval, it); |
|
146 break; |
|
147 |
|
148 case ASN1_ITYPE_NDEF_SEQUENCE: |
|
149 case ASN1_ITYPE_SEQUENCE: |
|
150 if (asn1_do_lock(pval, -1, it) > 0) |
|
151 return; |
|
152 if (asn1_cb) |
|
153 { |
|
154 i = asn1_cb(ASN1_OP_FREE_PRE, pval, it); |
|
155 if (i == 2) |
|
156 return; |
|
157 } |
|
158 asn1_enc_free(pval, it); |
|
159 /* If we free up as normal we will invalidate any |
|
160 * ANY DEFINED BY field and we wont be able to |
|
161 * determine the type of the field it defines. So |
|
162 * free up in reverse order. |
|
163 */ |
|
164 tt = it->templates + it->tcount - 1; |
|
165 for (i = 0; i < it->tcount; tt--, i++) |
|
166 { |
|
167 ASN1_VALUE **pseqval; |
|
168 seqtt = asn1_do_adb(pval, tt, 0); |
|
169 if (!seqtt) |
|
170 continue; |
|
171 pseqval = asn1_get_field_ptr(pval, seqtt); |
|
172 ASN1_template_free(pseqval, seqtt); |
|
173 } |
|
174 if (asn1_cb) |
|
175 asn1_cb(ASN1_OP_FREE_POST, pval, it); |
|
176 if (!combine) |
|
177 { |
|
178 OPENSSL_free(*pval); |
|
179 *pval = NULL; |
|
180 } |
|
181 break; |
|
182 } |
|
183 } |
|
184 |
|
185 EXPORT_C void ASN1_template_free(ASN1_VALUE **pval, const ASN1_TEMPLATE *tt) |
|
186 { |
|
187 int i; |
|
188 if (tt->flags & ASN1_TFLG_SK_MASK) |
|
189 { |
|
190 STACK_OF(ASN1_VALUE) *sk = (STACK_OF(ASN1_VALUE) *)*pval; |
|
191 for (i = 0; i < sk_ASN1_VALUE_num(sk); i++) |
|
192 { |
|
193 ASN1_VALUE *vtmp; |
|
194 vtmp = sk_ASN1_VALUE_value(sk, i); |
|
195 asn1_item_combine_free(&vtmp, ASN1_ITEM_ptr(tt->item), |
|
196 0); |
|
197 } |
|
198 sk_ASN1_VALUE_free(sk); |
|
199 *pval = NULL; |
|
200 } |
|
201 else |
|
202 asn1_item_combine_free(pval, ASN1_ITEM_ptr(tt->item), |
|
203 tt->flags & ASN1_TFLG_COMBINE); |
|
204 } |
|
205 |
|
206 EXPORT_C void ASN1_primitive_free(ASN1_VALUE **pval, const ASN1_ITEM *it) |
|
207 { |
|
208 int utype; |
|
209 if (it) |
|
210 { |
|
211 const ASN1_PRIMITIVE_FUNCS *pf; |
|
212 pf = it->funcs; |
|
213 if (pf && pf->prim_free) |
|
214 { |
|
215 pf->prim_free(pval, it); |
|
216 return; |
|
217 } |
|
218 } |
|
219 /* Special case: if 'it' is NULL free contents of ASN1_TYPE */ |
|
220 if (!it) |
|
221 { |
|
222 ASN1_TYPE *typ = (ASN1_TYPE *)*pval; |
|
223 utype = typ->type; |
|
224 pval = (ASN1_VALUE **)&typ->value.ptr; |
|
225 if (!*pval) |
|
226 return; |
|
227 } |
|
228 else if (it->itype == ASN1_ITYPE_MSTRING) |
|
229 { |
|
230 utype = -1; |
|
231 if (!*pval) |
|
232 return; |
|
233 } |
|
234 else |
|
235 { |
|
236 utype = it->utype; |
|
237 if ((utype != V_ASN1_BOOLEAN) && !*pval) |
|
238 return; |
|
239 } |
|
240 |
|
241 switch(utype) |
|
242 { |
|
243 case V_ASN1_OBJECT: |
|
244 ASN1_OBJECT_free((ASN1_OBJECT *)*pval); |
|
245 break; |
|
246 |
|
247 case V_ASN1_BOOLEAN: |
|
248 if (it) |
|
249 *(ASN1_BOOLEAN *)pval = it->size; |
|
250 else |
|
251 *(ASN1_BOOLEAN *)pval = -1; |
|
252 return; |
|
253 |
|
254 case V_ASN1_NULL: |
|
255 break; |
|
256 |
|
257 case V_ASN1_ANY: |
|
258 ASN1_primitive_free(pval, NULL); |
|
259 OPENSSL_free(*pval); |
|
260 break; |
|
261 |
|
262 default: |
|
263 ASN1_STRING_free((ASN1_STRING *)*pval); |
|
264 *pval = NULL; |
|
265 break; |
|
266 } |
|
267 *pval = NULL; |
|
268 } |