openssl/ssl/kssl.c

2142 	krb5_principal		new_p = NULL;
2146 	    (new_p = (krb5_principal) calloc(1, sizeof(krb5_principal_data)))
2148 	new_p->length = 2;
2149 	new_p->data = p_data;
2153 	krb5_princ_set_realm_length(context, new_p, rlen);
2154 	krb5_princ_set_realm_data(context, new_p, new_r);
2156 	if ((new_p->data[0].data = calloc(1, slen + 1)) == NULL)  goto err;
2157 	memcpy(new_p->data[0].data, svc, slen);
2158 	new_p->data[0].length = slen;
2160 	if ((new_p->data[1].data = calloc(1, hlen + 1)) == NULL)  goto err;
2161 	memcpy(new_p->data[1].data, host, hlen);
2162 	new_p->data[1].length = hlen;
2164 	krb5_princ_type(context, new_p) = KRB5_NT_UNKNOWN;
2165 	*princ = new_p;
2169 	if (new_p  &&  new_p[0].data)	free(new_p[0].data);
2170 	if (new_p  &&  new_p[1].data)	free(new_p[1].data);
2171 	if (new_p)	free(new_p);