static int rand_bytes(unsigned char *buf, int num)
{
    static volatile int stirred_pool = 0;
    int i, j, k;
    size_t num_ceil, st_idx, st_num;
    int ok;
    long md_c[2];
    unsigned char local_md[SHA_DIGEST_LENGTH];
    EVP_MD_CTX *m;
    OSSL_RAND_STATE *sp = &global_state;
#ifndef GETPID_IS_MEANINGLESS
    pid_t curr_pid = getpid();
#endif
    time_t curr_time = time(NULL);
    int do_stir_pool = 0;
#ifdef OPENSSL_SYS_WIN32
    FILETIME tv;
# ifdef _WIN32_WCE
    SYSTEMTIME t;
    GetSystemTime(&t);
    SystemTimeToFileTime(&t, &tv);
# else
    GetSystemTimeAsFileTime(&tv);
# endif
#elif defined(OPENSSL_SYS_VXWORKS)
    struct timespec tv;
    clock_gettime(CLOCK_REALTIME, &ts);
#elif defined(OPENSSL_SYS_DSPBIOS)
    unsigned long long tv, OPENSSL_rdtsc();
    tv = OPENSSL_rdtsc();
#else
    struct timeval tv;
    gettimeofday(&tv, NULL);
#endif
#ifdef PREDICT
    if (rand_predictable) {
        unsigned char val = 1;
        for (i = 0; i < num; i++)
            buf[i] = val++;
        return (1);
    }
#endif
    if (num <= 0)
        return 1;
    m = EVP_MD_CTX_new();
    if (m == NULL)
        goto err_mem;
    num_ceil =
        (1 + (num - 1) / (SHA_DIGEST_LENGTH / 2)) * (SHA_DIGEST_LENGTH / 2);
    if (!RUN_ONCE(&ossl_rand_init, do_ossl_rand_init))
        goto err_mem;
    CRYPTO_THREAD_write_lock(rand_lock);
    ASYNC_block_pause();
    CRYPTO_THREAD_write_lock(rand_tmp_lock);
    locking_threadid = CRYPTO_THREAD_get_current_id();
    CRYPTO_THREAD_unlock(rand_tmp_lock);
    crypto_lock_rand = 1;
    if (!initialized) {
        RAND_poll();
        initialized = 1;
    }
    if (!stirred_pool)
        do_stir_pool = 1;
    ok = (randomness >= RANDOMNESS_NEEDED);
    if (!ok) {
        randomness -= num;
        if (randomness < 0)
            randomness = 0;
    }
    if (do_stir_pool) {
        int n = STATE_SIZE;
        while (n > 0) {
#if SHA_DIGEST_LENGTH > 20
# error "Please adjust DUMMY_SEED."
#endif
#define DUMMY_SEED "...................."
            rand_add(DUMMY_SEED, SHA_DIGEST_LENGTH, 0.0);
            n -= SHA_DIGEST_LENGTH;
        }
        if (ok)
            stirred_pool = 1;
    }
    st_idx = sp->index;
    st_num = sp->num;
    md_c[0] = sp->md_count[0];
    md_c[1] = sp->md_count[1];
    memcpy(local_md, sp->md, sizeof sp->md);
    sp->index += num_ceil;
    if (sp->index > sp->num)
        sp->index %= sp->num;
    sp->md_count[0] += 1;
    crypto_lock_rand = 0;
    ASYNC_unblock_pause();
    CRYPTO_THREAD_unlock(rand_lock);
    while (num > 0) {
        j = (num >= SHA_DIGEST_LENGTH / 2) ? SHA_DIGEST_LENGTH / 2 : num;
        num -= j;
        if (!EVP_DigestInit_ex(m, EVP_sha1(), NULL))
            goto err;
#ifndef GETPID_IS_MEANINGLESS
        if (curr_pid) {
            if (!EVP_DigestUpdate(m, (unsigned char *)&curr_pid, sizeof curr_pid))
                goto err;
            curr_pid = 0;
        }
#endif
        if (curr_time) {
            if (!EVP_DigestUpdate(m, (unsigned char *)&curr_time, sizeof curr_time))
                goto err;
            if (!EVP_DigestUpdate(m, (unsigned char *)&tv, sizeof tv))
                goto err;
            curr_time = 0;
            if (!rand_hw_seed(m))
                goto err;
        }
        if (!EVP_DigestUpdate(m, local_md, SHA_DIGEST_LENGTH))
            goto err;
        if (!EVP_DigestUpdate(m, (unsigned char *)md_c, sizeof(md_c)))
            goto err;
        k = (st_idx + SHA_DIGEST_LENGTH / 2) - st_num;
        if (k > 0) {
            if (!EVP_DigestUpdate(m, &sp->state[st_idx], SHA_DIGEST_LENGTH / 2 - k))
                goto err;
            if (!EVP_DigestUpdate(m, &sp->state[0], k))
                goto err;
        } else if (!EVP_DigestUpdate(m, &sp->state[st_idx], SHA_DIGEST_LENGTH / 2))
            goto err;
        if (!EVP_DigestFinal_ex(m, local_md, NULL))
            goto err;
        for (i = 0; i < SHA_DIGEST_LENGTH / 2; i++) {
            sp->state[st_idx++] ^= local_md[i];
            if (st_idx >= st_num)
                st_idx = 0;
            if (i < j)
                *(buf++) = local_md[i + SHA_DIGEST_LENGTH / 2];
        }
    }
    if (!EVP_DigestInit_ex(m, EVP_sha1(), NULL)
        || !EVP_DigestUpdate(m, (unsigned char *)md_c, sizeof(md_c))
        || !EVP_DigestUpdate(m, local_md, SHA_DIGEST_LENGTH))
        goto err;
    CRYPTO_THREAD_write_lock(rand_lock);
    ASYNC_block_pause();
    if (!EVP_DigestUpdate(m, sp->md, sizeof(sp->md))
            || !EVP_DigestFinal_ex(m, sp->md, NULL)) {
        CRYPTO_THREAD_unlock(rand_lock);
        goto err;
    }
    ASYNC_unblock_pause();
    CRYPTO_THREAD_unlock(rand_lock);
    EVP_MD_CTX_free(m);
    if (ok)
        return (1);
    RANDerr(RAND_F_RAND_BYTES, RAND_R_PRNG_NOT_SEEDED);
    ERR_add_error_data(1, "You need to read the OpenSSL FAQ, "
                       "https://www.openssl.org/docs/faq.html");
    return (0);
 err:
    RANDerr(RAND_F_RAND_BYTES, ERR_R_EVP_LIB);
    EVP_MD_CTX_free(m);
    return 0;
 err_mem:
    RANDerr(RAND_F_RAND_BYTES, ERR_R_MALLOC_FAILURE);
    EVP_MD_CTX_free(m);
    return 0;
}
['static int rand_bytes(unsigned char *buf, int num)\n{\n    static volatile int stirred_pool = 0;\n    int i, j, k;\n    size_t num_ceil, st_idx, st_num;\n    int ok;\n    long md_c[2];\n    unsigned char local_md[SHA_DIGEST_LENGTH];\n    EVP_MD_CTX *m;\n    OSSL_RAND_STATE *sp = &global_state;\n#ifndef GETPID_IS_MEANINGLESS\n    pid_t curr_pid = getpid();\n#endif\n    time_t curr_time = time(NULL);\n    int do_stir_pool = 0;\n#ifdef OPENSSL_SYS_WIN32\n    FILETIME tv;\n# ifdef _WIN32_WCE\n    SYSTEMTIME t;\n    GetSystemTime(&t);\n    SystemTimeToFileTime(&t, &tv);\n# else\n    GetSystemTimeAsFileTime(&tv);\n# endif\n#elif defined(OPENSSL_SYS_VXWORKS)\n    struct timespec tv;\n    clock_gettime(CLOCK_REALTIME, &ts);\n#elif defined(OPENSSL_SYS_DSPBIOS)\n    unsigned long long tv, OPENSSL_rdtsc();\n    tv = OPENSSL_rdtsc();\n#else\n    struct timeval tv;\n    gettimeofday(&tv, NULL);\n#endif\n#ifdef PREDICT\n    if (rand_predictable) {\n        unsigned char val = 1;\n        for (i = 0; i < num; i++)\n            buf[i] = val++;\n        return (1);\n    }\n#endif\n    if (num <= 0)\n        return 1;\n    m = EVP_MD_CTX_new();\n    if (m == NULL)\n        goto err_mem;\n    num_ceil =\n        (1 + (num - 1) / (SHA_DIGEST_LENGTH / 2)) * (SHA_DIGEST_LENGTH / 2);\n    if (!RUN_ONCE(&ossl_rand_init, do_ossl_rand_init))\n        goto err_mem;\n    CRYPTO_THREAD_write_lock(rand_lock);\n    ASYNC_block_pause();\n    CRYPTO_THREAD_write_lock(rand_tmp_lock);\n    locking_threadid = CRYPTO_THREAD_get_current_id();\n    CRYPTO_THREAD_unlock(rand_tmp_lock);\n    crypto_lock_rand = 1;\n    if (!initialized) {\n        RAND_poll();\n        initialized = 1;\n    }\n    if (!stirred_pool)\n        do_stir_pool = 1;\n    ok = (randomness >= RANDOMNESS_NEEDED);\n    if (!ok) {\n        randomness -= num;\n        if (randomness < 0)\n            randomness = 0;\n    }\n    if (do_stir_pool) {\n        int n = STATE_SIZE;\n        while (n > 0) {\n#if SHA_DIGEST_LENGTH > 20\n# error "Please adjust DUMMY_SEED."\n#endif\n#define DUMMY_SEED "...................."\n            rand_add(DUMMY_SEED, SHA_DIGEST_LENGTH, 0.0);\n            n -= SHA_DIGEST_LENGTH;\n        }\n        if (ok)\n            stirred_pool = 1;\n    }\n    st_idx = sp->index;\n    st_num = sp->num;\n    md_c[0] = sp->md_count[0];\n    md_c[1] = sp->md_count[1];\n    memcpy(local_md, sp->md, sizeof sp->md);\n    sp->index += num_ceil;\n    if (sp->index > sp->num)\n        sp->index %= sp->num;\n    sp->md_count[0] += 1;\n    crypto_lock_rand = 0;\n    ASYNC_unblock_pause();\n    CRYPTO_THREAD_unlock(rand_lock);\n    while (num > 0) {\n        j = (num >= SHA_DIGEST_LENGTH / 2) ? SHA_DIGEST_LENGTH / 2 : num;\n        num -= j;\n        if (!EVP_DigestInit_ex(m, EVP_sha1(), NULL))\n            goto err;\n#ifndef GETPID_IS_MEANINGLESS\n        if (curr_pid) {\n            if (!EVP_DigestUpdate(m, (unsigned char *)&curr_pid, sizeof curr_pid))\n                goto err;\n            curr_pid = 0;\n        }\n#endif\n        if (curr_time) {\n            if (!EVP_DigestUpdate(m, (unsigned char *)&curr_time, sizeof curr_time))\n                goto err;\n            if (!EVP_DigestUpdate(m, (unsigned char *)&tv, sizeof tv))\n                goto err;\n            curr_time = 0;\n            if (!rand_hw_seed(m))\n                goto err;\n        }\n        if (!EVP_DigestUpdate(m, local_md, SHA_DIGEST_LENGTH))\n            goto err;\n        if (!EVP_DigestUpdate(m, (unsigned char *)md_c, sizeof(md_c)))\n            goto err;\n        k = (st_idx + SHA_DIGEST_LENGTH / 2) - st_num;\n        if (k > 0) {\n            if (!EVP_DigestUpdate(m, &sp->state[st_idx], SHA_DIGEST_LENGTH / 2 - k))\n                goto err;\n            if (!EVP_DigestUpdate(m, &sp->state[0], k))\n                goto err;\n        } else if (!EVP_DigestUpdate(m, &sp->state[st_idx], SHA_DIGEST_LENGTH / 2))\n            goto err;\n        if (!EVP_DigestFinal_ex(m, local_md, NULL))\n            goto err;\n        for (i = 0; i < SHA_DIGEST_LENGTH / 2; i++) {\n            sp->state[st_idx++] ^= local_md[i];\n            if (st_idx >= st_num)\n                st_idx = 0;\n            if (i < j)\n                *(buf++) = local_md[i + SHA_DIGEST_LENGTH / 2];\n        }\n    }\n    if (!EVP_DigestInit_ex(m, EVP_sha1(), NULL)\n        || !EVP_DigestUpdate(m, (unsigned char *)md_c, sizeof(md_c))\n        || !EVP_DigestUpdate(m, local_md, SHA_DIGEST_LENGTH))\n        goto err;\n    CRYPTO_THREAD_write_lock(rand_lock);\n    ASYNC_block_pause();\n    if (!EVP_DigestUpdate(m, sp->md, sizeof(sp->md))\n            || !EVP_DigestFinal_ex(m, sp->md, NULL)) {\n        CRYPTO_THREAD_unlock(rand_lock);\n        goto err;\n    }\n    ASYNC_unblock_pause();\n    CRYPTO_THREAD_unlock(rand_lock);\n    EVP_MD_CTX_free(m);\n    if (ok)\n        return (1);\n    RANDerr(RAND_F_RAND_BYTES, RAND_R_PRNG_NOT_SEEDED);\n    ERR_add_error_data(1, "You need to read the OpenSSL FAQ, "\n                       "https://www.openssl.org/docs/faq.html");\n    return (0);\n err:\n    RANDerr(RAND_F_RAND_BYTES, ERR_R_EVP_LIB);\n    EVP_MD_CTX_free(m);\n    return 0;\n err_mem:\n    RANDerr(RAND_F_RAND_BYTES, ERR_R_MALLOC_FAILURE);\n    EVP_MD_CTX_free(m);\n    return 0;\n}', 'EVP_MD_CTX *EVP_MD_CTX_new(void)\n{\n    return OPENSSL_zalloc(sizeof(EVP_MD_CTX));\n}', 'void *CRYPTO_zalloc(size_t num, const char *file, int line)\n{\n    void *ret = CRYPTO_malloc(num, file, line);\n    FAILTEST();\n    if (ret != NULL)\n        memset(ret, 0, num);\n    return ret;\n}', 'void *CRYPTO_malloc(size_t num, const char *file, int line)\n{\n    void *ret = NULL;\n    if (malloc_impl != NULL && malloc_impl != CRYPTO_malloc)\n        return malloc_impl(num, file, line);\n    if (num == 0)\n        return NULL;\n    FAILTEST();\n    allow_customize = 0;\n#ifndef OPENSSL_NO_CRYPTO_MDEBUG\n    if (call_malloc_debug) {\n        CRYPTO_mem_debug_malloc(NULL, num, 0, file, line);\n        ret = malloc(num);\n        CRYPTO_mem_debug_malloc(ret, num, 1, file, line);\n    } else {\n        ret = malloc(num);\n    }\n#else\n    osslargused(file); osslargused(line);\n    ret = malloc(num);\n#endif\n    return ret;\n}', 'int CRYPTO_THREAD_run_once(CRYPTO_ONCE *once, void (*init)(void))\n{\n    if (pthread_once(once, init) != 0)\n        return 0;\n    return 1;\n}', 'void EVP_MD_CTX_free(EVP_MD_CTX *ctx)\n{\n    EVP_MD_CTX_reset(ctx);\n    OPENSSL_free(ctx);\n}', 'void CRYPTO_free(void *str, const char *file, int line)\n{\n    if (free_impl != NULL && free_impl != &CRYPTO_free) {\n        free_impl(str, file, line);\n        return;\n    }\n#ifndef OPENSSL_NO_CRYPTO_MDEBUG\n    if (call_malloc_debug) {\n        CRYPTO_mem_debug_free(str, 0, file, line);\n        free(str);\n        CRYPTO_mem_debug_free(str, 1, file, line);\n    } else {\n        free(str);\n    }\n#else\n    free(str);\n#endif\n}']