/src/openssl111/crypto/asn1/tasn_new.c

Source (jump to first uncovered line)
/*
 * Copyright 2000-2018 The OpenSSL Project Authors. All Rights Reserved.
 *
 * Licensed under the OpenSSL license (the "License").  You may not use
 * this file except in compliance with the License.  You can obtain a copy
 * in the file LICENSE in the source distribution or at
 * https://www.openssl.org/source/license.html
 */

#include <stddef.h>
#include <openssl/asn1.h>
#include <openssl/objects.h>
#include <openssl/err.h>
#include <openssl/asn1t.h>
#include <string.h>
#include "asn1_local.h"

static int asn1_item_embed_new(ASN1_VALUE **pval, const ASN1_ITEM *it,
                               int embed);
static int asn1_primitive_new(ASN1_VALUE **pval, const ASN1_ITEM *it,
                              int embed);
static void asn1_item_clear(ASN1_VALUE **pval, const ASN1_ITEM *it);
static int asn1_template_new(ASN1_VALUE **pval, const ASN1_TEMPLATE *tt);
static void asn1_template_clear(ASN1_VALUE **pval, const ASN1_TEMPLATE *tt);
static void asn1_primitive_clear(ASN1_VALUE **pval, const ASN1_ITEM *it);

ASN1_VALUE *ASN1_item_new(const ASN1_ITEM *it)
{
    ASN1_VALUE *ret = NULL;
    if (ASN1_item_ex_new(&ret, it) > 0)
        return ret;
    return NULL;
}

/* Allocate an ASN1 structure */

int ASN1_item_ex_new(ASN1_VALUE **pval, const ASN1_ITEM *it)
{
    return asn1_item_embed_new(pval, it, 0);
}

int asn1_item_embed_new(ASN1_VALUE **pval, const ASN1_ITEM *it, int embed)
{
    const ASN1_TEMPLATE *tt = NULL;
    const ASN1_EXTERN_FUNCS *ef;
    const ASN1_AUX *aux = it->funcs;
    ASN1_aux_cb *asn1_cb;
    ASN1_VALUE **pseqval;
    int i;
    if (aux && aux->asn1_cb)
        asn1_cb = aux->asn1_cb;
    else
        asn1_cb = 0;

#ifndef OPENSSL_NO_CRYPTO_MDEBUG
    OPENSSL_mem_debug_push(it->sname ? it->sname : "asn1_item_embed_new");
#endif

    switch (it->itype) {

    case ASN1_ITYPE_EXTERN:
        ef = it->funcs;
        if (ef && ef->asn1_ex_new) {
            if (!ef->asn1_ex_new(pval, it))
                goto memerr;
        }
        break;

    case ASN1_ITYPE_PRIMITIVE:
        if (it->templates) {
            if (!asn1_template_new(pval, it->templates))
                goto memerr;
        } else if (!asn1_primitive_new(pval, it, embed))
            goto memerr;
        break;

    case ASN1_ITYPE_MSTRING:
        if (!asn1_primitive_new(pval, it, embed))
            goto memerr;
        break;

    case ASN1_ITYPE_CHOICE:
        if (asn1_cb) {
            i = asn1_cb(ASN1_OP_NEW_PRE, pval, it, NULL);
            if (!i)
                goto auxerr;
            if (i == 2) {
#ifndef OPENSSL_NO_CRYPTO_MDEBUG
                OPENSSL_mem_debug_pop();
#endif
                return 1;
            }
        }
        if (embed) {
            memset(*pval, 0, it->size);
        } else {
            *pval = OPENSSL_zalloc(it->size);
            if (*pval == NULL)
                goto memerr;
        }
        asn1_set_choice_selector(pval, -1, it);
        if (asn1_cb && !asn1_cb(ASN1_OP_NEW_POST, pval, it, NULL))
            goto auxerr2;
        break;

    case ASN1_ITYPE_NDEF_SEQUENCE:
    case ASN1_ITYPE_SEQUENCE:
        if (asn1_cb) {
            i = asn1_cb(ASN1_OP_NEW_PRE, pval, it, NULL);
            if (!i)
                goto auxerr;
            if (i == 2) {
#ifndef OPENSSL_NO_CRYPTO_MDEBUG
                OPENSSL_mem_debug_pop();
#endif
                return 1;
            }
        }
        if (embed) {
            memset(*pval, 0, it->size);
        } else {
            *pval = OPENSSL_zalloc(it->size);
            if (*pval == NULL)
                goto memerr;
        }
        /* 0 : init. lock */
        if (asn1_do_lock(pval, 0, it) < 0) {
            if (!embed) {
                OPENSSL_free(*pval);
                *pval = NULL;
            }
            goto memerr;
        }
        asn1_enc_init(pval, it);
        for (i = 0, tt = it->templates; i < it->tcount; tt++, i++) {
            pseqval = asn1_get_field_ptr(pval, tt);
            if (!asn1_template_new(pseqval, tt))
                goto memerr2;
        }
        if (asn1_cb && !asn1_cb(ASN1_OP_NEW_POST, pval, it, NULL))
            goto auxerr2;
        break;
    }
#ifndef OPENSSL_NO_CRYPTO_MDEBUG
    OPENSSL_mem_debug_pop();
#endif
    return 1;

 memerr2:
    asn1_item_embed_free(pval, it, embed);
 memerr:
    ASN1err(ASN1_F_ASN1_ITEM_EMBED_NEW, ERR_R_MALLOC_FAILURE);
#ifndef OPENSSL_NO_CRYPTO_MDEBUG
    OPENSSL_mem_debug_pop();
#endif
    return 0;

 auxerr2:
    asn1_item_embed_free(pval, it, embed);
 auxerr:
    ASN1err(ASN1_F_ASN1_ITEM_EMBED_NEW, ASN1_R_AUX_ERROR);
#ifndef OPENSSL_NO_CRYPTO_MDEBUG
    OPENSSL_mem_debug_pop();
#endif
    return 0;

}

static void asn1_item_clear(ASN1_VALUE **pval, const ASN1_ITEM *it)
{
    const ASN1_EXTERN_FUNCS *ef;

    switch (it->itype) {

    case ASN1_ITYPE_EXTERN:
        ef = it->funcs;
        if (ef && ef->asn1_ex_clear)
            ef->asn1_ex_clear(pval, it);
        else
            *pval = NULL;
        break;

    case ASN1_ITYPE_PRIMITIVE:
        if (it->templates)
            asn1_template_clear(pval, it->templates);
        else
            asn1_primitive_clear(pval, it);
        break;

    case ASN1_ITYPE_MSTRING:
        asn1_primitive_clear(pval, it);
        break;

    case ASN1_ITYPE_CHOICE:
    case ASN1_ITYPE_SEQUENCE:
    case ASN1_ITYPE_NDEF_SEQUENCE:
        *pval = NULL;
        break;
    }
}

static int asn1_template_new(ASN1_VALUE **pval, const ASN1_TEMPLATE *tt)
{
    const ASN1_ITEM *it = ASN1_ITEM_ptr(tt->item);
    int embed = tt->flags & ASN1_TFLG_EMBED;
    ASN1_VALUE *tval;
    int ret;
    if (embed) {
        tval = (ASN1_VALUE *)pval;
        pval = &tval;
    }
    if (tt->flags & ASN1_TFLG_OPTIONAL) {
        asn1_template_clear(pval, tt);
        return 1;
    }
    /* If ANY DEFINED BY nothing to do */

    if (tt->flags & ASN1_TFLG_ADB_MASK) {
        *pval = NULL;
        return 1;
    }
#ifndef OPENSSL_NO_CRYPTO_MDEBUG
    OPENSSL_mem_debug_push(tt->field_name
            ? tt->field_name : "asn1_template_new");
#endif
    /* If SET OF or SEQUENCE OF, its a STACK */
    if (tt->flags & ASN1_TFLG_SK_MASK) {
        STACK_OF(ASN1_VALUE) *skval;
        skval = sk_ASN1_VALUE_new_null();
        if (!skval) {
            ASN1err(ASN1_F_ASN1_TEMPLATE_NEW, ERR_R_MALLOC_FAILURE);
            ret = 0;
            goto done;
        }
        *pval = (ASN1_VALUE *)skval;
        ret = 1;
        goto done;
    }
    /* Otherwise pass it back to the item routine */
    ret = asn1_item_embed_new(pval, it, embed);
 done:
#ifndef OPENSSL_NO_CRYPTO_MDEBUG
    OPENSSL_mem_debug_pop();
#endif
    return ret;
}

static void asn1_template_clear(ASN1_VALUE **pval, const ASN1_TEMPLATE *tt)
{
    /* If ADB or STACK just NULL the field */
    if (tt->flags & (ASN1_TFLG_ADB_MASK | ASN1_TFLG_SK_MASK))
        *pval = NULL;
    else
        asn1_item_clear(pval, ASN1_ITEM_ptr(tt->item));
}

/*
 * NB: could probably combine most of the real XXX_new() behaviour and junk
 * all the old functions.
 */

static int asn1_primitive_new(ASN1_VALUE **pval, const ASN1_ITEM *it,
                              int embed)
{
    ASN1_TYPE *typ;
    ASN1_STRING *str;
    int utype;

    if (!it)
        return 0;

    if (it->funcs) {
        const ASN1_PRIMITIVE_FUNCS *pf = it->funcs;
        if (embed) {
            if (pf->prim_clear) {
                pf->prim_clear(pval, it);
                return 1;
            }
        } else if (pf->prim_new) {
            return pf->prim_new(pval, it);
        }
    }

    if (it->itype == ASN1_ITYPE_MSTRING)
        utype = -1;
    else
        utype = it->utype;
    switch (utype) {
    case V_ASN1_OBJECT:
        *pval = (ASN1_VALUE *)OBJ_nid2obj(NID_undef);
        return 1;

    case V_ASN1_BOOLEAN:
        *(ASN1_BOOLEAN *)pval = it->size;
        return 1;

    case V_ASN1_NULL:
        *pval = (ASN1_VALUE *)1;
        return 1;

    case V_ASN1_ANY:
        if ((typ = OPENSSL_malloc(sizeof(*typ))) == NULL) {
            ASN1err(ASN1_F_ASN1_PRIMITIVE_NEW, ERR_R_MALLOC_FAILURE);
            return 0;
        }
        typ->value.ptr = NULL;
        typ->type = -1;
        *pval = (ASN1_VALUE *)typ;
        break;

    default:
        if (embed) {
            str = *(ASN1_STRING **)pval;
            memset(str, 0, sizeof(*str));
            str->type = utype;
            str->flags = ASN1_STRING_FLAG_EMBED;
        } else {
            str = ASN1_STRING_type_new(utype);
            *pval = (ASN1_VALUE *)str;
        }
        if (it->itype == ASN1_ITYPE_MSTRING && str)
            str->flags |= ASN1_STRING_FLAG_MSTRING;
        break;
    }
    if (*pval)
        return 1;
    return 0;
}

static void asn1_primitive_clear(ASN1_VALUE **pval, const ASN1_ITEM *it)
{
    int utype;
    if (it && it->funcs) {
        const ASN1_PRIMITIVE_FUNCS *pf = it->funcs;
        if (pf->prim_clear)
            pf->prim_clear(pval, it);
        else
            *pval = NULL;
        return;
    }
    if (!it || (it->itype == ASN1_ITYPE_MSTRING))
        utype = -1;
    else
        utype = it->utype;
    if (utype == V_ASN1_BOOLEAN)
        *(ASN1_BOOLEAN *)pval = it->size;
    else
        *pval = NULL;
}

Coverage Report

Created: 2023-06-08 06:41

Line	Count	Source (jump to first uncovered line)
1		/*
2		* Copyright 2000-2018 The OpenSSL Project Authors. All Rights Reserved.
3		*
4		* Licensed under the OpenSSL license (the "License"). You may not use
5		* this file except in compliance with the License. You can obtain a copy
6		* in the file LICENSE in the source distribution or at
7		* https://www.openssl.org/source/license.html
8		*/
9
10		#include <stddef.h>
11		#include <openssl/asn1.h>
12		#include <openssl/objects.h>
13		#include <openssl/err.h>
14		#include <openssl/asn1t.h>
15		#include <string.h>
16		#include "asn1_local.h"
17
18		static int asn1_item_embed_new(ASN1_VALUE *pval, const ASN1_ITEM it,
19		int embed);
20		static int asn1_primitive_new(ASN1_VALUE *pval, const ASN1_ITEM it,
21		int embed);
22		static void asn1_item_clear(ASN1_VALUE *pval, const ASN1_ITEM it);
23		static int asn1_template_new(ASN1_VALUE *pval, const ASN1_TEMPLATE tt);
24		static void asn1_template_clear(ASN1_VALUE *pval, const ASN1_TEMPLATE tt);
25		static void asn1_primitive_clear(ASN1_VALUE *pval, const ASN1_ITEM it);
26
27		ASN1_VALUE ASN1_item_new(const ASN1_ITEM it)
28	2.33M	{
29	2.33M	ASN1_VALUE *ret = NULL;
30	2.33M	if (ASN1_item_ex_new(&ret, it) > 0)
31	2.33M	return ret;
32	0	return NULL;
33	2.33M	}
34
35		/* Allocate an ASN1 structure */
36
37		int ASN1_item_ex_new(ASN1_VALUE *pval, const ASN1_ITEM it)
38	5.70M	{
39	5.70M	return asn1_item_embed_new(pval, it, 0);
40	5.70M	}
41
42		int asn1_item_embed_new(ASN1_VALUE *pval, const ASN1_ITEM it, int embed)
43	12.0M	{
44	12.0M	const ASN1_TEMPLATE *tt = NULL;
45	12.0M	const ASN1_EXTERN_FUNCS *ef;
46	12.0M	const ASN1_AUX *aux = it->funcs;
47	12.0M	ASN1_aux_cb *asn1_cb;
48	12.0M	ASN1_VALUE **pseqval;
49	12.0M	int i;
50	12.0M	if (aux && aux->asn1_cb)
51	742k	asn1_cb = aux->asn1_cb;
52	11.3M	else
53	11.3M	asn1_cb = 0;
54
55		#ifndef OPENSSL_NO_CRYPTO_MDEBUG
56		OPENSSL_mem_debug_push(it->sname ? it->sname : "asn1_item_embed_new");
57		#endif
58
59	12.0M	switch (it->itype) {
60
61	214k	case ASN1_ITYPE_EXTERN:
62	214k	ef = it->funcs;
63	214k	if (ef && ef->asn1_ex_new) {
64	214k	if (!ef->asn1_ex_new(pval, it))
65	0	goto memerr;
66	214k	}
67	214k	break;
68
69	5.27M	case ASN1_ITYPE_PRIMITIVE:
70	5.27M	if (it->templates) {
71	0	if (!asn1_template_new(pval, it->templates))
72	0	goto memerr;
73	5.27M	} else if (!asn1_primitive_new(pval, it, embed))
74	0	goto memerr;
75	5.27M	break;
76
77	5.27M	case ASN1_ITYPE_MSTRING:
78	1.40M	if (!asn1_primitive_new(pval, it, embed))
79	0	goto memerr;
80	1.40M	break;
81
82	1.64M	case ASN1_ITYPE_CHOICE:
83	1.64M	if (asn1_cb) {
84	29.8k	i = asn1_cb(ASN1_OP_NEW_PRE, pval, it, NULL);
85	29.8k	if (!i)
86	0	goto auxerr;
87	29.8k	if (i == 2) {
88		#ifndef OPENSSL_NO_CRYPTO_MDEBUG
89		OPENSSL_mem_debug_pop();
90		#endif
91	0	return 1;
92	0	}
93	29.8k	}
94	1.64M	if (embed) {
95	19.6k	memset(*pval, 0, it->size);
96	1.62M	} else {
97	1.62M	*pval = OPENSSL_zalloc(it->size);
98	1.62M	if (*pval == NULL)
99	0	goto memerr;
100	1.62M	}
101	1.64M	asn1_set_choice_selector(pval, -1, it);
102	1.64M	if (asn1_cb && !asn1_cb(ASN1_OP_NEW_POST, pval, it, NULL))
103	0	goto auxerr2;
104	1.64M	break;
105
106	1.64M	case ASN1_ITYPE_NDEF_SEQUENCE:
107	3.53M	case ASN1_ITYPE_SEQUENCE:
108	3.53M	if (asn1_cb) {
109	486k	i = asn1_cb(ASN1_OP_NEW_PRE, pval, it, NULL);
110	486k	if (!i)
111	0	goto auxerr;
112	486k	if (i == 2) {
113		#ifndef OPENSSL_NO_CRYPTO_MDEBUG
114		OPENSSL_mem_debug_pop();
115		#endif
116	97.6k	return 1;
117	97.6k	}
118	486k	}
119	3.43M	if (embed) {
120	399k	memset(*pval, 0, it->size);
121	3.03M	} else {
122	3.03M	*pval = OPENSSL_zalloc(it->size);
123	3.03M	if (*pval == NULL)
124	0	goto memerr;
125	3.03M	}
126		/* 0 : init. lock */
127	3.43M	if (asn1_do_lock(pval, 0, it) < 0) {
128	0	if (!embed) {
129	0	OPENSSL_free(*pval);
130	0	*pval = NULL;
131	0	}
132	0	goto memerr;
133	0	}
134	3.43M	asn1_enc_init(pval, it);
135	12.6M	for (i = 0, tt = it->templates; i < it->tcount; tt++, i++) {
136	9.20M	pseqval = asn1_get_field_ptr(pval, tt);
137	9.20M	if (!asn1_template_new(pseqval, tt))
138	0	goto memerr2;
139	9.20M	}
140	3.43M	if (asn1_cb && !asn1_cb(ASN1_OP_NEW_POST, pval, it, NULL))
141	0	goto auxerr2;
142	3.43M	break;
143	12.0M	}
144		#ifndef OPENSSL_NO_CRYPTO_MDEBUG
145		OPENSSL_mem_debug_pop();
146		#endif
147	11.9M	return 1;
148
149	0	memerr2:
150	0	asn1_item_embed_free(pval, it, embed);
151	0	memerr:
152	0	ASN1err(ASN1_F_ASN1_ITEM_EMBED_NEW, ERR_R_MALLOC_FAILURE);
153		#ifndef OPENSSL_NO_CRYPTO_MDEBUG
154		OPENSSL_mem_debug_pop();
155		#endif
156	0	return 0;
157
158	0	auxerr2:
159	0	asn1_item_embed_free(pval, it, embed);
160	0	auxerr:
161	0	ASN1err(ASN1_F_ASN1_ITEM_EMBED_NEW, ASN1_R_AUX_ERROR);
162		#ifndef OPENSSL_NO_CRYPTO_MDEBUG
163		OPENSSL_mem_debug_pop();
164		#endif
165	0	return 0;
166
167	0	}
168
169		static void asn1_item_clear(ASN1_VALUE *pval, const ASN1_ITEM it)
170	2.00M	{
171	2.00M	const ASN1_EXTERN_FUNCS *ef;
172
173	2.00M	switch (it->itype) {
174
175	0	case ASN1_ITYPE_EXTERN:
176	0	ef = it->funcs;
177	0	if (ef && ef->asn1_ex_clear)
178	0	ef->asn1_ex_clear(pval, it);
179	0	else
180	0	*pval = NULL;
181	0	break;
182
183	1.68M	case ASN1_ITYPE_PRIMITIVE:
184	1.68M	if (it->templates)
185	0	asn1_template_clear(pval, it->templates);
186	1.68M	else
187	1.68M	asn1_primitive_clear(pval, it);
188	1.68M	break;
189
190	58.8k	case ASN1_ITYPE_MSTRING:
191	58.8k	asn1_primitive_clear(pval, it);
192	58.8k	break;
193
194	102k	case ASN1_ITYPE_CHOICE:
195	250k	case ASN1_ITYPE_SEQUENCE:
196	260k	case ASN1_ITYPE_NDEF_SEQUENCE:
197	260k	*pval = NULL;
198	260k	break;
199	2.00M	}
200	2.00M	}
201
202		static int asn1_template_new(ASN1_VALUE *pval, const ASN1_TEMPLATE tt)
203	9.20M	{
204	9.20M	const ASN1_ITEM *it = ASN1_ITEM_ptr(tt->item);
205	9.20M	int embed = tt->flags & ASN1_TFLG_EMBED;
206	9.20M	ASN1_VALUE *tval;
207	9.20M	int ret;
208	9.20M	if (embed) {
209	880k	tval = (ASN1_VALUE *)pval;
210	880k	pval = &tval;
211	880k	}
212	9.20M	if (tt->flags & ASN1_TFLG_OPTIONAL) {
213	2.53M	asn1_template_clear(pval, tt);
214	2.53M	return 1;
215	2.53M	}
216		/* If ANY DEFINED BY nothing to do */
217
218	6.67M	if (tt->flags & ASN1_TFLG_ADB_MASK) {
219	133k	*pval = NULL;
220	133k	return 1;
221	133k	}
222		#ifndef OPENSSL_NO_CRYPTO_MDEBUG
223		OPENSSL_mem_debug_push(tt->field_name
224		? tt->field_name : "asn1_template_new");
225		#endif
226		/* If SET OF or SEQUENCE OF, its a STACK */
227	6.54M	if (tt->flags & ASN1_TFLG_SK_MASK) {
228	166k	STACK_OF(ASN1_VALUE) *skval;
229	166k	skval = sk_ASN1_VALUE_new_null();
230	166k	if (!skval) {
231	0	ASN1err(ASN1_F_ASN1_TEMPLATE_NEW, ERR_R_MALLOC_FAILURE);
232	0	ret = 0;
233	0	goto done;
234	0	}
235	166k	pval = (ASN1_VALUE )skval;
236	166k	ret = 1;
237	166k	goto done;
238	166k	}
239		/* Otherwise pass it back to the item routine */
240	6.37M	ret = asn1_item_embed_new(pval, it, embed);
241	6.54M	done:
242		#ifndef OPENSSL_NO_CRYPTO_MDEBUG
243		OPENSSL_mem_debug_pop();
244		#endif
245	6.54M	return ret;
246	6.37M	}
247
248		static void asn1_template_clear(ASN1_VALUE *pval, const ASN1_TEMPLATE tt)
249	2.53M	{
250		/* If ADB or STACK just NULL the field */
251	2.53M	if (tt->flags & (ASN1_TFLG_ADB_MASK \| ASN1_TFLG_SK_MASK))
252	527k	*pval = NULL;
253	2.00M	else
254	2.00M	asn1_item_clear(pval, ASN1_ITEM_ptr(tt->item));
255	2.53M	}
256
257		/*
258		* NB: could probably combine most of the real XXX_new() behaviour and junk
259		* all the old functions.
260		*/
261
262		static int asn1_primitive_new(ASN1_VALUE *pval, const ASN1_ITEM it,
263		int embed)
264	6.68M	{
265	6.68M	ASN1_TYPE *typ;
266	6.68M	ASN1_STRING *str;
267	6.68M	int utype;
268
269	6.68M	if (!it)
270	0	return 0;
271
272	6.68M	if (it->funcs) {
273	226k	const ASN1_PRIMITIVE_FUNCS *pf = it->funcs;
274	226k	if (embed) {
275	82.7k	if (pf->prim_clear) {
276	82.7k	pf->prim_clear(pval, it);
277	82.7k	return 1;
278	82.7k	}
279	143k	} else if (pf->prim_new) {
280	143k	return pf->prim_new(pval, it);
281	143k	}
282	226k	}
283
284	6.45M	if (it->itype == ASN1_ITYPE_MSTRING)
285	1.40M	utype = -1;
286	5.05M	else
287	5.05M	utype = it->utype;
288	6.45M	switch (utype) {
289	2.11M	case V_ASN1_OBJECT:
290	2.11M	pval = (ASN1_VALUE )OBJ_nid2obj(NID_undef);
291	2.11M	return 1;
292
293	0	case V_ASN1_BOOLEAN:
294	0	(ASN1_BOOLEAN )pval = it->size;
295	0	return 1;
296
297	0	case V_ASN1_NULL:
298	0	pval = (ASN1_VALUE )1;
299	0	return 1;
300
301	1.66M	case V_ASN1_ANY:
302	1.66M	if ((typ = OPENSSL_malloc(sizeof(*typ))) == NULL) {
303	0	ASN1err(ASN1_F_ASN1_PRIMITIVE_NEW, ERR_R_MALLOC_FAILURE);
304	0	return 0;
305	0	}
306	1.66M	typ->value.ptr = NULL;
307	1.66M	typ->type = -1;
308	1.66M	pval = (ASN1_VALUE )typ;
309	1.66M	break;
310
311	2.68M	default:
312	2.68M	if (embed) {
313	299k	str = (ASN1_STRING *)pval;
314	299k	memset(str, 0, sizeof(*str));
315	299k	str->type = utype;
316	299k	str->flags = ASN1_STRING_FLAG_EMBED;
317	2.38M	} else {
318	2.38M	str = ASN1_STRING_type_new(utype);
319	2.38M	pval = (ASN1_VALUE )str;
320	2.38M	}
321	2.68M	if (it->itype == ASN1_ITYPE_MSTRING && str)
322	1.40M	str->flags \|= ASN1_STRING_FLAG_MSTRING;
323	2.68M	break;
324	6.45M	}
325	4.34M	if (*pval)
326	4.34M	return 1;
327	0	return 0;
328	4.34M	}
329
330		static void asn1_primitive_clear(ASN1_VALUE *pval, const ASN1_ITEM it)
331	1.74M	{
332	1.74M	int utype;
333	1.74M	if (it && it->funcs) {
334	91.5k	const ASN1_PRIMITIVE_FUNCS *pf = it->funcs;
335	91.5k	if (pf->prim_clear)
336	78.7k	pf->prim_clear(pval, it);
337	12.8k	else
338	12.8k	*pval = NULL;
339	91.5k	return;
340	91.5k	}
341	1.65M	if (!it \|\| (it->itype == ASN1_ITYPE_MSTRING))
342	58.8k	utype = -1;
343	1.59M	else
344	1.59M	utype = it->utype;
345	1.65M	if (utype == V_ASN1_BOOLEAN)
346	189k	(ASN1_BOOLEAN )pval = it->size;
347	1.46M	else
348	1.46M	*pval = NULL;
349	1.65M	}