test/ssl_test.c:462: error: INTEGER_OVERFLOW_L2
  ([0, +oo] - 1):unsigned64 by call to `do_handshake`.
Showing all 22 steps of the trace


test/ssl_test.c:462:14: Call
460.           goto err;
461.   
462.       result = do_handshake(server_ctx, server2_ctx, client_ctx,
                    ^
463.                             resume_server_ctx, resume_client_ctx, test_ctx);
464.   

test/handshake_helper.c:1674:1: Parameter `client_ctx->sessions->num_items`
  1672.   }
  1673.   
  1674. > HANDSHAKE_RESULT *do_handshake(SSL_CTX *server_ctx, SSL_CTX *server2_ctx,
  1675.                                  SSL_CTX *client_ctx, SSL_CTX *resume_server_ctx,
  1676.                                  SSL_CTX *resume_client_ctx,

test/handshake_helper.c:1682:14: Call
  1680.       SSL_SESSION *session = NULL;
  1681.   
  1682.       result = do_handshake_internal(server_ctx, server2_ctx, client_ctx,
                       ^
  1683.                                      test_ctx, &test_ctx->extra,
  1684.                                      NULL, &session);

test/handshake_helper.c:1384:1: Parameter `client_ctx->sessions->num_items`
    1382.    * parsing.)
    1383.    */
    1384. > static HANDSHAKE_RESULT *do_handshake_internal(
    1385.       SSL_CTX *server_ctx, SSL_CTX *server2_ctx, SSL_CTX *client_ctx,
    1386.       const SSL_TEST_CTX *test_ctx, const SSL_TEST_EXTRA_CONF *extra,

test/handshake_helper.c:1433:10: Call
    1431.           goto err;
    1432.       }
    1433.       if (!create_peer(&client, client_ctx)) {
                     ^
    1434.           TEST_note("creating client context");
    1435.           goto err;

test/handshake_helper.c:743:1: Parameter `ctx->sessions->num_items`
      741.   } PEER;
      742.   
      743. > static int create_peer(PEER *peer, SSL_CTX *ctx)
      744.   {
      745.       static const int peer_buffer_size = 64 * 1024;

test/handshake_helper.c:749:10: Call
      747.       unsigned char *read_buf = NULL, *write_buf = NULL;
      748.   
      749.       if (!TEST_ptr(ssl = SSL_new(ctx))
                      ^
      750.               || !TEST_ptr(write_buf = OPENSSL_zalloc(peer_buffer_size))
      751.               || !TEST_ptr(read_buf = OPENSSL_zalloc(peer_buffer_size)))

ssl/ssl_lib.c:668:1: Parameter `ctx->sessions->num_items`
        666.   }
        667.   
        668. > SSL *SSL_new(SSL_CTX *ctx)
        669.   {
        670.       SSL *s;

ssl/ssl_lib.c:825:10: Call
        823.       s->server = (ctx->method->ssl_accept == ssl_undefined_function) ? 0 : 1;
        824.   
        825.       if (!SSL_clear(s))
                        ^
        826.           goto err;
        827.   

ssl/ssl_lib.c:577:1: Parameter `s->session_ctx->sessions->num_items`
          575.   }
          576.   
          577. > int SSL_clear(SSL *s)
          578.   {
          579.       if (s->method == NULL) {

ssl/ssl_lib.c:584:9: Call
          582.       }
          583.   
          584.       if (ssl_clear_bad_session(s)) {
                         ^
          585.           SSL_SESSION_free(s->session);
          586.           s->session = NULL;

ssl/ssl_sess.c:1135:1: Parameter `s->session_ctx->sessions->num_items`
            1133.   }
            1134.   
            1135. > int ssl_clear_bad_session(SSL *s)
            1136.   {
            1137.       if ((s->session != NULL) &&

ssl/ssl_sess.c:1140:9: Call
            1138.           !(s->shutdown & SSL_SENT_SHUTDOWN) &&
            1139.           !(SSL_in_init(s) || SSL_in_before(s))) {
            1140.           SSL_CTX_remove_session(s->session_ctx, s->session);
                            ^
            1141.           return 1;
            1142.       } else

ssl/ssl_sess.c:751:1: Parameter `ctx->sessions->num_items`
              749.   }
              750.   
              751. > int SSL_CTX_remove_session(SSL_CTX *ctx, SSL_SESSION *c)
              752.   {
              753.       return remove_session_lock(ctx, c, 1);

ssl/ssl_sess.c:753:12: Call
              751.   int SSL_CTX_remove_session(SSL_CTX *ctx, SSL_SESSION *c)
              752.   {
              753.       return remove_session_lock(ctx, c, 1);
                                ^
              754.   }
              755.   

ssl/ssl_sess.c:756:1: Parameter `ctx->sessions->num_items`
                754.   }
                755.   
                756. > static int remove_session_lock(SSL_CTX *ctx, SSL_SESSION *c, int lck)
                757.   {
                758.       SSL_SESSION *r;

ssl/ssl_sess.c:766:17: Call
                764.           if ((r = lh_SSL_SESSION_retrieve(ctx->sessions, c)) != NULL) {
                765.               ret = 1;
                766.               r = lh_SSL_SESSION_delete(ctx->sessions, r);
                                       ^
                767.               SSL_SESSION_list_remove(ctx, r);
                768.           }

ssl/ssl_locl.h:732:1: Parameter `lh->num_items`
                  730.   } TLSEXT_INDEX;
                  731.   
                  732. > DEFINE_LHASH_OF(SSL_SESSION);
                  733.   /* Needed in ssl_cert.c */
                  734.   DEFINE_LHASH_OF(X509_NAME);

ssl/ssl_locl.h:732:1: Call
                  730.   } TLSEXT_INDEX;
                  731.   
                  732. > DEFINE_LHASH_OF(SSL_SESSION);
                  733.   /* Needed in ssl_cert.c */
                  734.   DEFINE_LHASH_OF(X509_NAME);

crypto/lhash/lhash.c:119:1: <LHS trace>
117.   }
118.   
119. > void *OPENSSL_LH_delete(OPENSSL_LHASH *lh, const void *data)
120.   {
121.       unsigned long hash;

crypto/lhash/lhash.c:119:1: Parameter `lh->num_items`
                    117.   }
                    118.   
                    119. > void *OPENSSL_LH_delete(OPENSSL_LHASH *lh, const void *data)
                    120.   {
                    121.       unsigned long hash;

crypto/lhash/lhash.c:139:5: Binary operation: ([0, +oo] - 1):unsigned64 by call to `do_handshake` 
                    137.       }
                    138.   
                    139.       lh->num_items--;
                               ^
                    140.       if ((lh->num_nodes > MIN_NODES) &&
                    141.           (lh->down_load >= (lh->num_items * LH_LOAD_MULT / lh->num_nodes)))

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 int test_handshake(int idx)\n{\n    int ret = 0;\n    SSL_CTX *server_ctx = NULL, *server2_ctx = NULL, *client_ctx = NULL,\n        *resume_server_ctx = NULL, *resume_client_ctx = NULL;\n    SSL_TEST_CTX *test_ctx = NULL;\n    HANDSHAKE_RESULT *result = NULL;\n    char test_app[MAX_TESTCASE_NAME_LENGTH];\n    BIO_snprintf(test_app, sizeof(test_app), "test-%d", idx);\n    test_ctx = SSL_TEST_CTX_create(conf, test_app);\n    if (!TEST_ptr(test_ctx))\n        goto err;\n#ifndef OPENSSL_NO_DTLS\n    if (test_ctx->method == SSL_TEST_METHOD_DTLS) {\n        server_ctx = SSL_CTX_new(DTLS_server_method());\n        if (test_ctx->extra.server.servername_callback !=\n            SSL_TEST_SERVERNAME_CB_NONE) {\n            if (!TEST_ptr(server2_ctx = SSL_CTX_new(DTLS_server_method())))\n                goto err;\n        }\n        client_ctx = SSL_CTX_new(DTLS_client_method());\n        if (test_ctx->handshake_mode == SSL_TEST_HANDSHAKE_RESUME) {\n            resume_server_ctx = SSL_CTX_new(DTLS_server_method());\n            resume_client_ctx = SSL_CTX_new(DTLS_client_method());\n            if (!TEST_ptr(resume_server_ctx)\n                    || !TEST_ptr(resume_client_ctx))\n                goto err;\n        }\n    }\n#endif\n    if (test_ctx->method == SSL_TEST_METHOD_TLS) {\n        server_ctx = SSL_CTX_new(TLS_server_method());\n        if (test_ctx->extra.server.servername_callback !=\n            SSL_TEST_SERVERNAME_CB_NONE) {\n            if (!TEST_ptr(server2_ctx = SSL_CTX_new(TLS_server_method())))\n                goto err;\n        }\n        client_ctx = SSL_CTX_new(TLS_client_method());\n        if (test_ctx->handshake_mode == SSL_TEST_HANDSHAKE_RESUME) {\n            resume_server_ctx = SSL_CTX_new(TLS_server_method());\n            resume_client_ctx = SSL_CTX_new(TLS_client_method());\n            if (!TEST_ptr(resume_server_ctx)\n                    || !TEST_ptr(resume_client_ctx))\n                goto err;\n        }\n    }\n    if (!TEST_ptr(server_ctx)\n            || !TEST_ptr(client_ctx)\n            || !TEST_int_gt(CONF_modules_load(conf, test_app, 0),  0))\n        goto err;\n    if (!SSL_CTX_config(server_ctx, "server")\n        || !SSL_CTX_config(client_ctx, "client")) {\n        goto err;\n    }\n    if (server2_ctx != NULL && !SSL_CTX_config(server2_ctx, "server2"))\n        goto err;\n    if (resume_server_ctx != NULL\n        && !SSL_CTX_config(resume_server_ctx, "resume-server"))\n        goto err;\n    if (resume_client_ctx != NULL\n        && !SSL_CTX_config(resume_client_ctx, "resume-client"))\n        goto err;\n    result = do_handshake(server_ctx, server2_ctx, client_ctx,\n                          resume_server_ctx, resume_client_ctx, test_ctx);\n    if (result != NULL)\n        ret = check_test(result, test_ctx);\nerr:\n    CONF_modules_unload(0);\n    SSL_CTX_free(server_ctx);\n    SSL_CTX_free(server2_ctx);\n    SSL_CTX_free(client_ctx);\n    SSL_CTX_free(resume_server_ctx);\n    SSL_CTX_free(resume_client_ctx);\n    SSL_TEST_CTX_free(test_ctx);\n    HANDSHAKE_RESULT_free(result);\n    return ret;\n}', 'HANDSHAKE_RESULT *do_handshake(SSL_CTX *server_ctx, SSL_CTX *server2_ctx,\n                               SSL_CTX *client_ctx, SSL_CTX *resume_server_ctx,\n                               SSL_CTX *resume_client_ctx,\n                               const SSL_TEST_CTX *test_ctx)\n{\n    HANDSHAKE_RESULT *result;\n    SSL_SESSION *session = NULL;\n    result = do_handshake_internal(server_ctx, server2_ctx, client_ctx,\n                                   test_ctx, &test_ctx->extra,\n                                   NULL, &session);\n    if (result == NULL\n            || test_ctx->handshake_mode != SSL_TEST_HANDSHAKE_RESUME\n            || result->result == SSL_TEST_INTERNAL_ERROR)\n        goto end;\n    if (result->result != SSL_TEST_SUCCESS) {\n        result->result = SSL_TEST_FIRST_HANDSHAKE_FAILED;\n        goto end;\n    }\n    HANDSHAKE_RESULT_free(result);\n    result = do_handshake_internal(resume_server_ctx, NULL, resume_client_ctx,\n                                   test_ctx, &test_ctx->resume_extra,\n                                   session, NULL);\n end:\n    SSL_SESSION_free(session);\n    return result;\n}', '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 **session_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;\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        if (!TEST_true(SSL_CTX_add_session(server_ctx, session_in))\n                || !TEST_true(SSL_set_session(client.ssl, session_in)))\n            goto err;\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                client_turn ^= 1;\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 (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    if (RAND_get_rand_method() == RAND_OpenSSL()) {\n        s->drbg =\n            RAND_DRBG_new(0, 0, RAND_DRBG_get0_public());\n        if (s->drbg == NULL\n            || RAND_DRBG_instantiate(s->drbg,\n                                     (const unsigned char *) SSL_version_str,\n                                     sizeof(SSL_version_str) - 1) == 0)\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->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_clear(SSL *s)\n{\n    if (s->method == NULL) {\n        SSLerr(SSL_F_SSL_CLEAR, SSL_R_NO_METHOD_SPECIFIED);\n        return 0;\n    }\n    if (ssl_clear_bad_session(s)) {\n        SSL_SESSION_free(s->session);\n        s->session = NULL;\n    }\n    SSL_SESSION_free(s->psksession);\n    s->psksession = NULL;\n    OPENSSL_free(s->psksession_id);\n    s->psksession_id = NULL;\n    s->psksession_id_len = 0;\n    s->hello_retry_request = 0;\n    s->error = 0;\n    s->hit = 0;\n    s->shutdown = 0;\n    if (s->renegotiate) {\n        SSLerr(SSL_F_SSL_CLEAR, ERR_R_INTERNAL_ERROR);\n        return 0;\n    }\n    ossl_statem_clear(s);\n    s->version = s->method->version;\n    s->client_version = s->version;\n    s->rwstate = SSL_NOTHING;\n    BUF_MEM_free(s->init_buf);\n    s->init_buf = NULL;\n    clear_ciphers(s);\n    s->first_packet = 0;\n    s->key_update = SSL_KEY_UPDATE_NONE;\n    EVP_MD_CTX_free(s->pha_dgst);\n    s->pha_dgst = NULL;\n    s->dane.mdpth = -1;\n    s->dane.pdpth = -1;\n    X509_free(s->dane.mcert);\n    s->dane.mcert = NULL;\n    s->dane.mtlsa = NULL;\n    X509_VERIFY_PARAM_move_peername(s->param, NULL);\n    if (s->method != s->ctx->method) {\n        s->method->ssl_free(s);\n        s->method = s->ctx->method;\n        if (!s->method->ssl_new(s))\n            return 0;\n    } else {\n        if (!s->method->ssl_clear(s))\n            return 0;\n    }\n    RECORD_LAYER_clear(&s->rlayer);\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 (ret)\n            SSL_SESSION_free(r);\n        if (ctx->remove_session_cb != NULL)\n            ctx->remove_session_cb(ctx, c);\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}']