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 dtls_get_reassembled_message(SSL *s, int *errtype, size_t *len)\n{\n    unsigned char wire[DTLS1_HM_HEADER_LENGTH];\n    size_t mlen, frag_off, frag_len;\n    int i, al, recvd_type;\n    struct hm_header_st msg_hdr;\n    size_t readbytes;\n    *errtype = 0;\n redo:\n    if (dtls1_retrieve_buffered_fragment(s, &frag_len)) {\n        s->init_num = frag_len;\n        *len = frag_len;\n        return 1;\n    }\n    i = s->method->ssl_read_bytes(s, SSL3_RT_HANDSHAKE, &recvd_type, wire,\n                                  DTLS1_HM_HEADER_LENGTH, 0, &readbytes);\n    if (i <= 0) {\n        s->rwstate = SSL_READING;\n        *len = 0;\n        return 0;\n    }\n    if (recvd_type == SSL3_RT_CHANGE_CIPHER_SPEC) {\n        if (wire[0] != SSL3_MT_CCS) {\n            al = SSL_AD_UNEXPECTED_MESSAGE;\n            SSLerr(SSL_F_DTLS_GET_REASSEMBLED_MESSAGE,\n                   SSL_R_BAD_CHANGE_CIPHER_SPEC);\n            goto f_err;\n        }\n        memcpy(s->init_buf->data, wire, readbytes);\n        s->init_num = readbytes - 1;\n        s->init_msg = s->init_buf->data + 1;\n        s->s3->tmp.message_type = SSL3_MT_CHANGE_CIPHER_SPEC;\n        s->s3->tmp.message_size = readbytes - 1;\n        *len = readbytes - 1;\n        return 1;\n    }\n    if (readbytes != DTLS1_HM_HEADER_LENGTH) {\n        al = SSL_AD_UNEXPECTED_MESSAGE;\n        SSLerr(SSL_F_DTLS_GET_REASSEMBLED_MESSAGE, SSL_R_UNEXPECTED_MESSAGE);\n        goto f_err;\n    }\n    dtls1_get_message_header(wire, &msg_hdr);\n    mlen = msg_hdr.msg_len;\n    frag_off = msg_hdr.frag_off;\n    frag_len = msg_hdr.frag_len;\n    if (frag_len > RECORD_LAYER_get_rrec_length(&s->rlayer)) {\n        al = SSL3_AD_ILLEGAL_PARAMETER;\n        SSLerr(SSL_F_DTLS_GET_REASSEMBLED_MESSAGE, SSL_R_BAD_LENGTH);\n        goto f_err;\n    }\n    if (msg_hdr.seq != s->d1->handshake_read_seq) {\n        *errtype = dtls1_process_out_of_seq_message(s, &msg_hdr);\n        return 0;\n    }\n    if (frag_len && frag_len < mlen) {\n        *errtype = dtls1_reassemble_fragment(s, &msg_hdr);\n        return 0;\n    }\n    if (!s->server && s->d1->r_msg_hdr.frag_off == 0 &&\n        wire[0] == SSL3_MT_HELLO_REQUEST) {\n        if (wire[1] == 0 && wire[2] == 0 && wire[3] == 0) {\n            if (s->msg_callback)\n                s->msg_callback(0, s->version, SSL3_RT_HANDSHAKE,\n                                wire, DTLS1_HM_HEADER_LENGTH, s,\n                                s->msg_callback_arg);\n            s->init_num = 0;\n            goto redo;\n        } else {\n            al = SSL_AD_UNEXPECTED_MESSAGE;\n            SSLerr(SSL_F_DTLS_GET_REASSEMBLED_MESSAGE,\n                   SSL_R_UNEXPECTED_MESSAGE);\n            goto f_err;\n        }\n    }\n    if ((al = dtls1_preprocess_fragment(s, &msg_hdr)))\n        goto f_err;\n    if (frag_len > 0) {\n        unsigned char *p =\n            (unsigned char *)s->init_buf->data + DTLS1_HM_HEADER_LENGTH;\n        i = s->method->ssl_read_bytes(s, SSL3_RT_HANDSHAKE, NULL,\n                                      &p[frag_off], frag_len, 0, &readbytes);\n        if (i <= 0) {\n            s->rwstate = SSL_READING;\n            *len = 0;\n            return 0;\n        }\n    } else {\n        readbytes = 0;\n    }\n    if (readbytes != frag_len) {\n        al = SSL3_AD_ILLEGAL_PARAMETER;\n        SSLerr(SSL_F_DTLS_GET_REASSEMBLED_MESSAGE, SSL3_AD_ILLEGAL_PARAMETER);\n        goto f_err;\n    }\n    *len = s->init_num = frag_len;\n    return 1;\n f_err:\n    ssl3_send_alert(s, SSL3_AL_FATAL, al);\n    s->init_num = 0;\n    *len = 0;\n    return 0;\n}', 'static int dtls1_retrieve_buffered_fragment(SSL *s, size_t *len)\n{\n    pitem *item;\n    hm_fragment *frag;\n    int al;\n    do {\n        item = pqueue_peek(s->d1->buffered_messages);\n        if (item == NULL)\n            return 0;\n        frag = (hm_fragment *)item->data;\n        if (frag->msg_header.seq < s->d1->handshake_read_seq) {\n            pqueue_pop(s->d1->buffered_messages);\n            dtls1_hm_fragment_free(frag);\n            pitem_free(item);\n            item = NULL;\n            frag = NULL;\n        }\n    } while (item == NULL);\n    if (frag->reassembly != NULL)\n        return 0;\n    if (s->d1->handshake_read_seq == frag->msg_header.seq) {\n        size_t frag_len = frag->msg_header.frag_len;\n        pqueue_pop(s->d1->buffered_messages);\n        al = dtls1_preprocess_fragment(s, &frag->msg_header);\n        if (al == 0) {\n            unsigned char *p =\n                (unsigned char *)s->init_buf->data + DTLS1_HM_HEADER_LENGTH;\n            memcpy(&p[frag->msg_header.frag_off], frag->fragment,\n                   frag->msg_header.frag_len);\n        }\n        dtls1_hm_fragment_free(frag);\n        pitem_free(item);\n        if (al == 0) {\n            *len = frag_len;\n            return 1;\n        }\n        ssl3_send_alert(s, SSL3_AL_FATAL, al);\n        s->init_num = 0;\n        return 0;\n    } else {\n        return 0;\n    }\n}', 'int ssl3_send_alert(SSL *s, int level, int desc)\n{\n    desc = s->method->ssl3_enc->alert_value(desc);\n    if (s->version == SSL3_VERSION && desc == SSL_AD_PROTOCOL_VERSION)\n        desc = SSL_AD_HANDSHAKE_FAILURE;\n    if (desc < 0)\n        return -1;\n    if ((level == SSL3_AL_FATAL) && (s->session != NULL))\n        SSL_CTX_remove_session(s->session_ctx, s->session);\n    s->s3->alert_dispatch = 1;\n    s->s3->send_alert[0] = level;\n    s->s3->send_alert[1] = desc;\n    if (!RECORD_LAYER_write_pending(&s->rlayer)) {\n        return s->method->ssl_dispatch_alert(s);\n    }\n    return -1;\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)) == c) {\n            ret = 1;\n            r = lh_SSL_SESSION_delete(ctx->sessions, c);\n            SSL_SESSION_list_remove(ctx, c);\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}']