openssl/ssl/kssl.c

2184     krb5_principal new_p = NULL;
2188         (new_p = (krb5_principal)calloc(1, sizeof(krb5_principal_data)))
2191     new_p->length = 2;
2192     new_p->data = p_data;
2197     krb5_princ_set_realm_length(context, new_p, rlen);
2198     krb5_princ_set_realm_data(context, new_p, new_r);
2200     if ((new_p->data[0].data = calloc(1, slen + 1)) == NULL)
2202     memcpy(new_p->data[0].data, svc, slen);
2203     new_p->data[0].length = slen;
2205     if ((new_p->data[1].data = calloc(1, hlen + 1)) == NULL)
2207     memcpy(new_p->data[1].data, host, hlen);
2208     new_p->data[1].length = hlen;
2210     krb5_princ_type(context, new_p) = KRB5_NT_UNKNOWN;
2211     *princ = new_p;
2215     if (new_p && new_p[0].data)
2216         free(new_p[0].data);
2217     if (new_p && new_p[1].data)
2218         free(new_p[1].data);
2219     if (new_p)
2220         free(new_p);