void *OPENSSL_LH_delete(OPENSSL_LHASH *lh, const void *data)
{
    unsigned long hash;
    OPENSSL_LH_NODE *nn, **rn;
    void *ret;
    lh->error = 0;
    rn = getrn(lh, data, &hash);
    if (*rn == NULL) {
        lh->num_no_delete++;
        return NULL;
    } else {
        nn = *rn;
        *rn = nn->next;
        ret = nn->data;
        OPENSSL_free(nn);
        lh->num_delete++;
    }
    lh->num_items--;
    if ((lh->num_nodes > MIN_NODES) &&
        (lh->down_load >= (lh->num_items * LH_LOAD_MULT / lh->num_nodes)))
        contract(lh);
    return ret;
}
['static HANDSHAKE_RESULT *do_handshake_internal(\n    SSL_CTX *server_ctx, SSL_CTX *server2_ctx, SSL_CTX *client_ctx,\n    const SSL_TEST_CTX *test_ctx, const SSL_TEST_EXTRA_CONF *extra,\n    SSL_SESSION *session_in, SSL_SESSION *serv_sess_in,\n    SSL_SESSION **session_out, SSL_SESSION **serv_sess_out)\n{\n    PEER server, client;\n    BIO *client_to_server = NULL, *server_to_client = NULL;\n    HANDSHAKE_EX_DATA server_ex_data, client_ex_data;\n    CTX_DATA client_ctx_data, server_ctx_data, server2_ctx_data;\n    HANDSHAKE_RESULT *ret = HANDSHAKE_RESULT_new();\n    int client_turn = 1, client_turn_count = 0, client_wait_count = 0;\n    connect_phase_t phase = HANDSHAKE;\n    handshake_status_t status = HANDSHAKE_RETRY;\n    const unsigned char* tick = NULL;\n    size_t tick_len = 0;\n    const unsigned char* sess_id = NULL;\n    unsigned int sess_id_len = 0;\n    SSL_SESSION* sess = NULL;\n    const unsigned char *proto = NULL;\n    unsigned int proto_len = 0;\n    EVP_PKEY *tmp_key;\n    const STACK_OF(X509_NAME) *names;\n    time_t start;\n    const char* cipher;\n    if (ret == NULL)\n        return NULL;\n    memset(&server_ctx_data, 0, sizeof(server_ctx_data));\n    memset(&server2_ctx_data, 0, sizeof(server2_ctx_data));\n    memset(&client_ctx_data, 0, sizeof(client_ctx_data));\n    memset(&server, 0, sizeof(server));\n    memset(&client, 0, sizeof(client));\n    memset(&server_ex_data, 0, sizeof(server_ex_data));\n    memset(&client_ex_data, 0, sizeof(client_ex_data));\n    if (!configure_handshake_ctx(server_ctx, server2_ctx, client_ctx,\n                                 test_ctx, extra, &server_ctx_data,\n                                 &server2_ctx_data, &client_ctx_data)) {\n        TEST_note("configure_handshake_ctx");\n        return NULL;\n    }\n    if (!create_peer(&server, server_ctx)) {\n        TEST_note("creating server context");\n        goto err;\n    }\n    if (!create_peer(&client, client_ctx)) {\n        TEST_note("creating client context");\n        goto err;\n    }\n    server.bytes_to_write = client.bytes_to_read = test_ctx->app_data_size;\n    client.bytes_to_write = server.bytes_to_read = test_ctx->app_data_size;\n    configure_handshake_ssl(server.ssl, client.ssl, extra);\n    if (session_in != NULL) {\n        SSL_SESSION_get_id(serv_sess_in, &sess_id_len);\n        if ((sess_id_len > 0\n                    && !TEST_true(SSL_CTX_add_session(server_ctx,\n                                                      serv_sess_in)))\n                || !TEST_true(SSL_set_session(client.ssl, session_in)))\n            goto err;\n        sess_id_len = 0;\n    }\n    ret->result = SSL_TEST_INTERNAL_ERROR;\n    if (test_ctx->use_sctp) {\n#if !defined(OPENSSL_NO_SCTP) && !defined(OPENSSL_NO_SOCK)\n        int csock, ssock;\n        if (create_sctp_socks(&ssock, &csock)) {\n            client_to_server = BIO_new_dgram_sctp(csock, BIO_CLOSE);\n            server_to_client = BIO_new_dgram_sctp(ssock, BIO_CLOSE);\n        }\n#endif\n    } else {\n        client_to_server = BIO_new(BIO_s_mem());\n        server_to_client = BIO_new(BIO_s_mem());\n    }\n    if (!TEST_ptr(client_to_server)\n            || !TEST_ptr(server_to_client))\n        goto err;\n    BIO_set_nbio(client_to_server, 1);\n    BIO_set_nbio(server_to_client, 1);\n    SSL_set_connect_state(client.ssl);\n    SSL_set_accept_state(server.ssl);\n    if (test_ctx->use_sctp) {\n        SSL_set_bio(client.ssl, client_to_server, client_to_server);\n        SSL_set_bio(server.ssl, server_to_client, server_to_client);\n    } else {\n        SSL_set_bio(client.ssl, server_to_client, client_to_server);\n        if (!TEST_int_gt(BIO_up_ref(server_to_client), 0)\n                || !TEST_int_gt(BIO_up_ref(client_to_server), 0))\n            goto err;\n        SSL_set_bio(server.ssl, client_to_server, server_to_client);\n    }\n    ex_data_idx = SSL_get_ex_new_index(0, "ex data", NULL, NULL, NULL);\n    if (!TEST_int_ge(ex_data_idx, 0)\n            || !TEST_int_eq(SSL_set_ex_data(server.ssl, ex_data_idx, &server_ex_data), 1)\n            || !TEST_int_eq(SSL_set_ex_data(client.ssl, ex_data_idx, &client_ex_data), 1))\n        goto err;\n    SSL_set_info_callback(server.ssl, &info_cb);\n    SSL_set_info_callback(client.ssl, &info_cb);\n    client.status = PEER_RETRY;\n    server.status = PEER_WAITING;\n    start = time(NULL);\n    for(;;) {\n        if (client_turn) {\n            do_connect_step(test_ctx, &client, phase);\n            status = handshake_status(client.status, server.status,\n                                      1  );\n            if (server.status == PEER_WAITING)\n                server.status = PEER_RETRY;\n        } else {\n            do_connect_step(test_ctx, &server, phase);\n            status = handshake_status(server.status, client.status,\n                                      0  );\n        }\n        switch (status) {\n        case HANDSHAKE_SUCCESS:\n            client_turn_count = 0;\n            phase = next_phase(test_ctx, phase);\n            if (phase == CONNECTION_DONE) {\n                ret->result = SSL_TEST_SUCCESS;\n                goto err;\n            } else {\n                client.status = server.status = PEER_RETRY;\n                client_turn = 1;\n                break;\n            }\n        case CLIENT_ERROR:\n            ret->result = SSL_TEST_CLIENT_FAIL;\n            goto err;\n        case SERVER_ERROR:\n            ret->result = SSL_TEST_SERVER_FAIL;\n            goto err;\n        case INTERNAL_ERROR:\n            ret->result = SSL_TEST_INTERNAL_ERROR;\n            goto err;\n        case HANDSHAKE_RETRY:\n            if (test_ctx->use_sctp) {\n                if (time(NULL) - start > 3) {\n                    ret->result = SSL_TEST_INTERNAL_ERROR;\n                    goto err;\n                }\n                if ((client_turn && server.status == PEER_RETRY)\n                        || (!client_turn && client.status == PEER_RETRY))\n                    client_turn ^= 1;\n            } else {\n                if (client_turn_count++ >= 2000) {\n                    ret->result = SSL_TEST_INTERNAL_ERROR;\n                    goto err;\n                }\n                if (client_turn && server.status == PEER_SUCCESS) {\n                    if (client_wait_count++ >= 2) {\n                        ret->result = SSL_TEST_INTERNAL_ERROR;\n                        goto err;\n                    }\n                } else {\n                    client_turn ^= 1;\n                }\n            }\n            break;\n        }\n    }\n err:\n    ret->server_alert_sent = server_ex_data.alert_sent;\n    ret->server_num_fatal_alerts_sent = server_ex_data.num_fatal_alerts_sent;\n    ret->server_alert_received = client_ex_data.alert_received;\n    ret->client_alert_sent = client_ex_data.alert_sent;\n    ret->client_num_fatal_alerts_sent = client_ex_data.num_fatal_alerts_sent;\n    ret->client_alert_received = server_ex_data.alert_received;\n    ret->server_protocol = SSL_version(server.ssl);\n    ret->client_protocol = SSL_version(client.ssl);\n    ret->servername = server_ex_data.servername;\n    if ((sess = SSL_get0_session(client.ssl)) != NULL) {\n        SSL_SESSION_get0_ticket(sess, &tick, &tick_len);\n        sess_id = SSL_SESSION_get_id(sess, &sess_id_len);\n    }\n    if (tick == NULL || tick_len == 0)\n        ret->session_ticket = SSL_TEST_SESSION_TICKET_NO;\n    else\n        ret->session_ticket = SSL_TEST_SESSION_TICKET_YES;\n    ret->compression = (SSL_get_current_compression(client.ssl) == NULL)\n                       ? SSL_TEST_COMPRESSION_NO\n                       : SSL_TEST_COMPRESSION_YES;\n    if (sess_id == NULL || sess_id_len == 0)\n        ret->session_id = SSL_TEST_SESSION_ID_NO;\n    else\n        ret->session_id = SSL_TEST_SESSION_ID_YES;\n    ret->session_ticket_do_not_call = server_ex_data.session_ticket_do_not_call;\n#ifndef OPENSSL_NO_NEXTPROTONEG\n    SSL_get0_next_proto_negotiated(client.ssl, &proto, &proto_len);\n    ret->client_npn_negotiated = dup_str(proto, proto_len);\n    SSL_get0_next_proto_negotiated(server.ssl, &proto, &proto_len);\n    ret->server_npn_negotiated = dup_str(proto, proto_len);\n#endif\n    SSL_get0_alpn_selected(client.ssl, &proto, &proto_len);\n    ret->client_alpn_negotiated = dup_str(proto, proto_len);\n    SSL_get0_alpn_selected(server.ssl, &proto, &proto_len);\n    ret->server_alpn_negotiated = dup_str(proto, proto_len);\n    if ((sess = SSL_get0_session(server.ssl)) != NULL) {\n        SSL_SESSION_get0_ticket_appdata(sess, (void**)&tick, &tick_len);\n        ret->result_session_ticket_app_data = OPENSSL_strndup((const char*)tick, tick_len);\n    }\n    ret->client_resumed = SSL_session_reused(client.ssl);\n    ret->server_resumed = SSL_session_reused(server.ssl);\n    cipher = SSL_CIPHER_get_name(SSL_get_current_cipher(client.ssl));\n    ret->cipher = dup_str((const unsigned char*)cipher, strlen(cipher));\n    if (session_out != NULL)\n        *session_out = SSL_get1_session(client.ssl);\n    if (serv_sess_out != NULL) {\n        SSL_SESSION *tmp = SSL_get_session(server.ssl);\n        if (tmp != NULL)\n            *serv_sess_out = SSL_SESSION_dup(tmp);\n    }\n    if (SSL_get_server_tmp_key(client.ssl, &tmp_key)) {\n        ret->tmp_key_type = pkey_type(tmp_key);\n        EVP_PKEY_free(tmp_key);\n    }\n    SSL_get_peer_signature_nid(client.ssl, &ret->server_sign_hash);\n    SSL_get_peer_signature_nid(server.ssl, &ret->client_sign_hash);\n    SSL_get_peer_signature_type_nid(client.ssl, &ret->server_sign_type);\n    SSL_get_peer_signature_type_nid(server.ssl, &ret->client_sign_type);\n    names = SSL_get0_peer_CA_list(client.ssl);\n    if (names == NULL)\n        ret->client_ca_names = NULL;\n    else\n        ret->client_ca_names = SSL_dup_CA_list(names);\n    names = SSL_get0_peer_CA_list(server.ssl);\n    if (names == NULL)\n        ret->server_ca_names = NULL;\n    else\n        ret->server_ca_names = SSL_dup_CA_list(names);\n    ret->server_cert_type = peer_pkey_type(client.ssl);\n    ret->client_cert_type = peer_pkey_type(server.ssl);\n    ctx_data_free_data(&server_ctx_data);\n    ctx_data_free_data(&server2_ctx_data);\n    ctx_data_free_data(&client_ctx_data);\n    peer_free_data(&server);\n    peer_free_data(&client);\n    return ret;\n}', 'static int create_peer(PEER *peer, SSL_CTX *ctx)\n{\n    static const int peer_buffer_size = 64 * 1024;\n    SSL *ssl = NULL;\n    unsigned char *read_buf = NULL, *write_buf = NULL;\n    if (!TEST_ptr(ssl = SSL_new(ctx))\n            || !TEST_ptr(write_buf = OPENSSL_zalloc(peer_buffer_size))\n            || !TEST_ptr(read_buf = OPENSSL_zalloc(peer_buffer_size)))\n        goto err;\n    peer->ssl = ssl;\n    peer->write_buf = write_buf;\n    peer->read_buf = read_buf;\n    peer->write_buf_len = peer->read_buf_len = peer_buffer_size;\n    return 1;\nerr:\n    SSL_free(ssl);\n    OPENSSL_free(write_buf);\n    OPENSSL_free(read_buf);\n    return 0;\n}', 'SSL *SSL_new(SSL_CTX *ctx)\n{\n    SSL *s;\n    if (ctx == NULL) {\n        SSLerr(SSL_F_SSL_NEW, SSL_R_NULL_SSL_CTX);\n        return NULL;\n    }\n    if (ctx->method == NULL) {\n        SSLerr(SSL_F_SSL_NEW, SSL_R_SSL_CTX_HAS_NO_DEFAULT_SSL_VERSION);\n        return NULL;\n    }\n    s = OPENSSL_zalloc(sizeof(*s));\n    if (s == NULL)\n        goto err;\n    s->references = 1;\n    s->lock = CRYPTO_THREAD_lock_new();\n    if (s->lock == NULL) {\n        OPENSSL_free(s);\n        s = NULL;\n        goto err;\n    }\n    RECORD_LAYER_init(&s->rlayer, s);\n    s->options = ctx->options;\n    s->dane.flags = ctx->dane.flags;\n    s->min_proto_version = ctx->min_proto_version;\n    s->max_proto_version = ctx->max_proto_version;\n    s->mode = ctx->mode;\n    s->max_cert_list = ctx->max_cert_list;\n    s->max_early_data = ctx->max_early_data;\n    s->num_tickets = ctx->num_tickets;\n    s->tls13_ciphersuites = sk_SSL_CIPHER_dup(ctx->tls13_ciphersuites);\n    if (s->tls13_ciphersuites == NULL)\n        goto err;\n    s->cert = ssl_cert_dup(ctx->cert);\n    if (s->cert == NULL)\n        goto err;\n    RECORD_LAYER_set_read_ahead(&s->rlayer, ctx->read_ahead);\n    s->msg_callback = ctx->msg_callback;\n    s->msg_callback_arg = ctx->msg_callback_arg;\n    s->verify_mode = ctx->verify_mode;\n    s->not_resumable_session_cb = ctx->not_resumable_session_cb;\n    s->record_padding_cb = ctx->record_padding_cb;\n    s->record_padding_arg = ctx->record_padding_arg;\n    s->block_padding = ctx->block_padding;\n    s->sid_ctx_length = ctx->sid_ctx_length;\n    if (!ossl_assert(s->sid_ctx_length <= sizeof(s->sid_ctx)))\n        goto err;\n    memcpy(&s->sid_ctx, &ctx->sid_ctx, sizeof(s->sid_ctx));\n    s->verify_callback = ctx->default_verify_callback;\n    s->generate_session_id = ctx->generate_session_id;\n    s->param = X509_VERIFY_PARAM_new();\n    if (s->param == NULL)\n        goto err;\n    X509_VERIFY_PARAM_inherit(s->param, ctx->param);\n    s->quiet_shutdown = ctx->quiet_shutdown;\n    s->ext.max_fragment_len_mode = ctx->ext.max_fragment_len_mode;\n    s->max_send_fragment = ctx->max_send_fragment;\n    s->split_send_fragment = ctx->split_send_fragment;\n    s->max_pipelines = ctx->max_pipelines;\n    if (s->max_pipelines > 1)\n        RECORD_LAYER_set_read_ahead(&s->rlayer, 1);\n    if (ctx->default_read_buf_len > 0)\n        SSL_set_default_read_buffer_len(s, ctx->default_read_buf_len);\n    SSL_CTX_up_ref(ctx);\n    s->ctx = ctx;\n    s->ext.debug_cb = 0;\n    s->ext.debug_arg = NULL;\n    s->ext.ticket_expected = 0;\n    s->ext.status_type = ctx->ext.status_type;\n    s->ext.status_expected = 0;\n    s->ext.ocsp.ids = NULL;\n    s->ext.ocsp.exts = NULL;\n    s->ext.ocsp.resp = NULL;\n    s->ext.ocsp.resp_len = 0;\n    SSL_CTX_up_ref(ctx);\n    s->session_ctx = ctx;\n#ifndef OPENSSL_NO_EC\n    if (ctx->ext.ecpointformats) {\n        s->ext.ecpointformats =\n            OPENSSL_memdup(ctx->ext.ecpointformats,\n                           ctx->ext.ecpointformats_len);\n        if (!s->ext.ecpointformats)\n            goto err;\n        s->ext.ecpointformats_len =\n            ctx->ext.ecpointformats_len;\n    }\n    if (ctx->ext.supportedgroups) {\n        s->ext.supportedgroups =\n            OPENSSL_memdup(ctx->ext.supportedgroups,\n                           ctx->ext.supportedgroups_len\n                                * sizeof(*ctx->ext.supportedgroups));\n        if (!s->ext.supportedgroups)\n            goto err;\n        s->ext.supportedgroups_len = ctx->ext.supportedgroups_len;\n    }\n#endif\n#ifndef OPENSSL_NO_NEXTPROTONEG\n    s->ext.npn = NULL;\n#endif\n    if (s->ctx->ext.alpn) {\n        s->ext.alpn = OPENSSL_malloc(s->ctx->ext.alpn_len);\n        if (s->ext.alpn == NULL)\n            goto err;\n        memcpy(s->ext.alpn, s->ctx->ext.alpn, s->ctx->ext.alpn_len);\n        s->ext.alpn_len = s->ctx->ext.alpn_len;\n    }\n    s->verified_chain = NULL;\n    s->verify_result = X509_V_OK;\n    s->default_passwd_callback = ctx->default_passwd_callback;\n    s->default_passwd_callback_userdata = ctx->default_passwd_callback_userdata;\n    s->method = ctx->method;\n    s->key_update = SSL_KEY_UPDATE_NONE;\n    if (!s->method->ssl_new(s))\n        goto err;\n    s->server = (ctx->method->ssl_accept == ssl_undefined_function) ? 0 : 1;\n    if (!SSL_clear(s))\n        goto err;\n    if (!CRYPTO_new_ex_data(CRYPTO_EX_INDEX_SSL, s, &s->ex_data))\n        goto err;\n#ifndef OPENSSL_NO_PSK\n    s->psk_client_callback = ctx->psk_client_callback;\n    s->psk_server_callback = ctx->psk_server_callback;\n#endif\n    s->psk_find_session_cb = ctx->psk_find_session_cb;\n    s->psk_use_session_cb = ctx->psk_use_session_cb;\n    s->job = NULL;\n#ifndef OPENSSL_NO_CT\n    if (!SSL_set_ct_validation_callback(s, ctx->ct_validation_callback,\n                                        ctx->ct_validation_callback_arg))\n        goto err;\n#endif\n    return s;\n err:\n    SSL_free(s);\n    SSLerr(SSL_F_SSL_NEW, ERR_R_MALLOC_FAILURE);\n    return NULL;\n}', 'int SSL_set_session(SSL *s, SSL_SESSION *session)\n{\n    ssl_clear_bad_session(s);\n    if (s->ctx->method != s->method) {\n        if (!SSL_set_ssl_method(s, s->ctx->method))\n            return 0;\n    }\n    if (session != NULL) {\n        SSL_SESSION_up_ref(session);\n        s->verify_result = session->verify_result;\n    }\n    SSL_SESSION_free(s->session);\n    s->session = session;\n    return 1;\n}', 'int ssl_clear_bad_session(SSL *s)\n{\n    if ((s->session != NULL) &&\n        !(s->shutdown & SSL_SENT_SHUTDOWN) &&\n        !(SSL_in_init(s) || SSL_in_before(s))) {\n        SSL_CTX_remove_session(s->session_ctx, s->session);\n        return 1;\n    } else\n        return 0;\n}', 'int SSL_CTX_remove_session(SSL_CTX *ctx, SSL_SESSION *c)\n{\n    return remove_session_lock(ctx, c, 1);\n}', 'static int remove_session_lock(SSL_CTX *ctx, SSL_SESSION *c, int lck)\n{\n    SSL_SESSION *r;\n    int ret = 0;\n    if ((c != NULL) && (c->session_id_length != 0)) {\n        if (lck)\n            CRYPTO_THREAD_write_lock(ctx->lock);\n        if ((r = lh_SSL_SESSION_retrieve(ctx->sessions, c)) != NULL) {\n            ret = 1;\n            r = lh_SSL_SESSION_delete(ctx->sessions, r);\n            SSL_SESSION_list_remove(ctx, r);\n        }\n        c->not_resumable = 1;\n        if (lck)\n            CRYPTO_THREAD_unlock(ctx->lock);\n        if (ctx->remove_session_cb != NULL)\n            ctx->remove_session_cb(ctx, c);\n        if (ret)\n            SSL_SESSION_free(r);\n    } else\n        ret = 0;\n    return ret;\n}', 'DEFINE_LHASH_OF(SSL_SESSION)', 'void *OPENSSL_LH_delete(OPENSSL_LHASH *lh, const void *data)\n{\n    unsigned long hash;\n    OPENSSL_LH_NODE *nn, **rn;\n    void *ret;\n    lh->error = 0;\n    rn = getrn(lh, data, &hash);\n    if (*rn == NULL) {\n        lh->num_no_delete++;\n        return NULL;\n    } else {\n        nn = *rn;\n        *rn = nn->next;\n        ret = nn->data;\n        OPENSSL_free(nn);\n        lh->num_delete++;\n    }\n    lh->num_items--;\n    if ((lh->num_nodes > MIN_NODES) &&\n        (lh->down_load >= (lh->num_items * LH_LOAD_MULT / lh->num_nodes)))\n        contract(lh);\n    return ret;\n}']