static int wpacket_intern_close(WPACKET *pkt)
{
    WPACKET_SUB *sub = pkt->subs;
    size_t packlen = pkt->written - sub->pwritten;
    if (packlen == 0
            && (sub->flags & WPACKET_FLAGS_NON_ZERO_LENGTH) != 0)
        return 0;
    if (packlen == 0
            && sub->flags & WPACKET_FLAGS_ABANDON_ON_ZERO_LENGTH) {
        if ((pkt->curr - sub->lenbytes) == sub->packet_len) {
            pkt->written -= sub->lenbytes;
            pkt->curr -= sub->lenbytes;
        }
        sub->packet_len = 0;
        sub->lenbytes = 0;
    }
    if (sub->lenbytes > 0
                && !put_value((unsigned char *)&pkt->buf->data[sub->packet_len],
                              packlen, sub->lenbytes))
            return 0;
    pkt->subs = sub->parent;
    OPENSSL_free(sub);
    return 1;
}
['int tls_construct_client_hello(SSL *s)\n{\n    unsigned char *p;\n    int i;\n    int protverr;\n    int al = SSL_AD_HANDSHAKE_FAILURE;\n#ifndef OPENSSL_NO_COMP\n    SSL_COMP *comp;\n#endif\n    SSL_SESSION *sess = s->session;\n    WPACKET pkt;\n    if (!WPACKET_init(&pkt, s->init_buf)\n            || !WPACKET_set_max_size(&pkt, SSL3_RT_MAX_PLAIN_LENGTH)) {\n        SSLerr(SSL_F_TLS_CONSTRUCT_CLIENT_HELLO, ERR_R_INTERNAL_ERROR);\n        goto err;\n    }\n    protverr = ssl_set_client_hello_version(s);\n    if (protverr != 0) {\n        SSLerr(SSL_F_TLS_CONSTRUCT_CLIENT_HELLO, protverr);\n        goto err;\n    }\n    if ((sess == NULL) || !ssl_version_supported(s, sess->ssl_version) ||\n        (!sess->session_id_length && !sess->tlsext_tick) ||\n        (sess->not_resumable)) {\n        if (!ssl_get_new_session(s, 0))\n            goto err;\n    }\n    p = s->s3->client_random;\n    if (SSL_IS_DTLS(s)) {\n        size_t idx;\n        i = 1;\n        for (idx = 0; idx < sizeof(s->s3->client_random); idx++) {\n            if (p[idx]) {\n                i = 0;\n                break;\n            }\n        }\n    } else\n        i = 1;\n    if (i && ssl_fill_hello_random(s, 0, p, sizeof(s->s3->client_random)) <= 0)\n        goto err;\n    if (!ssl_set_handshake_header2(s, &pkt, SSL3_MT_CLIENT_HELLO)) {\n        ssl3_send_alert(s, SSL3_AL_FATAL, SSL_AD_HANDSHAKE_FAILURE);\n        SSLerr(SSL_F_TLS_CONSTRUCT_CLIENT_HELLO, ERR_R_INTERNAL_ERROR);\n        goto err;\n    }\n    if (!WPACKET_put_bytes(&pkt, s->client_version, 2)\n            || !WPACKET_memcpy(&pkt, s->s3->client_random, SSL3_RANDOM_SIZE)) {\n        SSLerr(SSL_F_TLS_CONSTRUCT_CLIENT_HELLO, ERR_R_INTERNAL_ERROR);\n        goto err;\n    }\n    if (s->new_session)\n        i = 0;\n    else\n        i = s->session->session_id_length;\n    if (i > (int)sizeof(s->session->session_id)\n            || !WPACKET_start_sub_packet_u8(&pkt)\n            || (i != 0 && !WPACKET_memcpy(&pkt, s->session->session_id, i))\n            || !WPACKET_close(&pkt)) {\n        SSLerr(SSL_F_TLS_CONSTRUCT_CLIENT_HELLO, ERR_R_INTERNAL_ERROR);\n        goto err;\n    }\n    if (SSL_IS_DTLS(s)) {\n        if (s->d1->cookie_len > sizeof(s->d1->cookie)\n                || !WPACKET_sub_memcpy(&pkt, s->d1->cookie, s->d1->cookie_len,\n                                       1)) {\n            SSLerr(SSL_F_TLS_CONSTRUCT_CLIENT_HELLO, ERR_R_INTERNAL_ERROR);\n            goto err;\n        }\n    }\n    if (!WPACKET_start_sub_packet_u16(&pkt)) {\n        SSLerr(SSL_F_TLS_CONSTRUCT_CLIENT_HELLO, ERR_R_INTERNAL_ERROR);\n        goto err;\n    }\n    if (!ssl_cipher_list_to_bytes(s, SSL_get_ciphers(s), &pkt))\n        goto err;\n    if (!WPACKET_close(&pkt)) {\n        SSLerr(SSL_F_TLS_CONSTRUCT_CLIENT_HELLO, ERR_R_INTERNAL_ERROR);\n        goto err;\n    }\n    if (!WPACKET_start_sub_packet_u8(&pkt)) {\n        SSLerr(SSL_F_TLS_CONSTRUCT_CLIENT_HELLO, ERR_R_INTERNAL_ERROR);\n        goto err;\n    }\n#ifndef OPENSSL_NO_COMP\n    if (ssl_allow_compression(s) && s->ctx->comp_methods) {\n        int compnum = sk_SSL_COMP_num(s->ctx->comp_methods);\n        for (i = 0; i < compnum; i++) {\n            comp = sk_SSL_COMP_value(s->ctx->comp_methods, i);\n            if (!WPACKET_put_bytes(&pkt, comp->id, 1)) {\n                SSLerr(SSL_F_TLS_CONSTRUCT_CLIENT_HELLO, ERR_R_INTERNAL_ERROR);\n                goto err;\n            }\n        }\n    }\n#endif\n    if (!WPACKET_put_bytes(&pkt, 0, 1) || !WPACKET_close(&pkt)) {\n        SSLerr(SSL_F_TLS_CONSTRUCT_CLIENT_HELLO, ERR_R_INTERNAL_ERROR);\n        goto err;\n    }\n    if (ssl_prepare_clienthello_tlsext(s) <= 0) {\n        SSLerr(SSL_F_TLS_CONSTRUCT_CLIENT_HELLO, SSL_R_CLIENTHELLO_TLSEXT);\n        goto err;\n    }\n    if (!WPACKET_start_sub_packet_u16(&pkt)\n            || !WPACKET_set_flags(&pkt, WPACKET_FLAGS_ABANDON_ON_ZERO_LENGTH)\n            || !ssl_add_clienthello_tlsext(s, &pkt, &al)\n            || !WPACKET_close(&pkt)) {\n        ssl3_send_alert(s, SSL3_AL_FATAL, al);\n        SSLerr(SSL_F_TLS_CONSTRUCT_CLIENT_HELLO, ERR_R_INTERNAL_ERROR);\n        goto err;\n    }\n    if (!WPACKET_close(&pkt) || !ssl_close_construct_packet(s, &pkt)) {\n        ssl3_send_alert(s, SSL3_AL_FATAL, SSL_AD_HANDSHAKE_FAILURE);\n        SSLerr(SSL_F_TLS_CONSTRUCT_CLIENT_HELLO, ERR_R_INTERNAL_ERROR);\n        goto err;\n    }\n    return 1;\n err:\n    ossl_statem_set_error(s);\n    WPACKET_cleanup(&pkt);\n    return 0;\n}', 'int WPACKET_start_sub_packet_len(WPACKET *pkt, size_t lenbytes)\n{\n    WPACKET_SUB *sub;\n    unsigned char *lenchars;\n    assert(pkt->subs != NULL);\n    if (pkt->subs == NULL)\n        return 0;\n    sub = OPENSSL_zalloc(sizeof(*sub));\n    if (sub == NULL)\n        return 0;\n    sub->parent = pkt->subs;\n    pkt->subs = sub;\n    sub->pwritten = pkt->written + lenbytes;\n    sub->lenbytes = lenbytes;\n    if (lenbytes == 0) {\n        sub->packet_len = 0;\n        return 1;\n    }\n    if (!WPACKET_allocate_bytes(pkt, lenbytes, &lenchars))\n        return 0;\n    sub->packet_len = lenchars - (unsigned char *)pkt->buf->data;\n    return 1;\n}', 'int WPACKET_close(WPACKET *pkt)\n{\n    if (pkt->subs == NULL || pkt->subs->parent == NULL)\n        return 0;\n    return wpacket_intern_close(pkt);\n}', 'static int wpacket_intern_close(WPACKET *pkt)\n{\n    WPACKET_SUB *sub = pkt->subs;\n    size_t packlen = pkt->written - sub->pwritten;\n    if (packlen == 0\n            && (sub->flags & WPACKET_FLAGS_NON_ZERO_LENGTH) != 0)\n        return 0;\n    if (packlen == 0\n            && sub->flags & WPACKET_FLAGS_ABANDON_ON_ZERO_LENGTH) {\n        if ((pkt->curr - sub->lenbytes) == sub->packet_len) {\n            pkt->written -= sub->lenbytes;\n            pkt->curr -= sub->lenbytes;\n        }\n        sub->packet_len = 0;\n        sub->lenbytes = 0;\n    }\n    if (sub->lenbytes > 0\n                && !put_value((unsigned char *)&pkt->buf->data[sub->packet_len],\n                              packlen, sub->lenbytes))\n            return 0;\n    pkt->subs = sub->parent;\n    OPENSSL_free(sub);\n    return 1;\n}']