apps/dhparam.c:322: error: INTEGER_OVERFLOW_L2
  ([0, +oo] - 1):unsigned64 by call to `DSA_dup_DH`.
Showing all 10 steps of the trace


apps/dhparam.c:314:16: Call
312.   			
313.   			BIO_printf(bio_err,"Generating DSA parameters, %d bit long prime\n",num);
314.   			if(!dsa || !DSA_generate_parameters_ex(dsa, num,
                      ^
315.   						NULL, 0, NULL, NULL, &cb))
316.   				{

crypto/dsa/dsa_gen.c:107:10: Call
  105.   			}
  106.   
  107.   		return dsa_builtin_paramgen(ret, bits, qbits, evpmd,
                  ^
  108.   				seed_in, seed_len, counter_ret, h_ret, cb);
  109.   		}

crypto/dsa/dsa_gen.c:275:9: Call
    273.   			/* step 9 */
    274.   			if (!BN_lshift1(r0,q)) goto err;
    275.   			if (!BN_mod(c,X,r0,ctx)) goto err;
                   ^
    276.   			if (!BN_sub(r0,c,BN_value_one())) goto err;
    277.   			if (!BN_sub(p,X,r0)) goto err;

crypto/bn/bn_div.c:181:1: Parameter `dv->top`
      179.   static int BN_div_no_branch(BIGNUM *dv, BIGNUM *rm, const BIGNUM *num,
      180.           const BIGNUM *divisor, BN_CTX *ctx);
      181. > int BN_div(BIGNUM *dv, BIGNUM *rm, const BIGNUM *num, const BIGNUM *divisor,
      182.   	   BN_CTX *ctx)
      183.   	{

apps/dhparam.c:322:9: Call
320.   				}
321.   
322.   			dh = DSA_dup_DH(dsa);
               ^
323.   			DSA_free(dsa);
324.   			if (dh == NULL)

crypto/dsa/dsa_lib.c:276:1: Parameter `r->q->top`
  274.   
  275.   #ifndef OPENSSL_NO_DH
  276. > DH *DSA_dup_DH(const DSA *r)
  277.   	{
  278.   	/* DSA has p, q, g, optional pub_key, optional priv_key.

crypto/dsa/dsa_lib.c:293:17: Call
  291.   			goto err;
  292.   	if (r->q != NULL)
  293.   		ret->length = BN_num_bits(r->q);
                         ^
  294.   	if (r->g != NULL)
  295.   		if ((ret->g = BN_dup(r->g)) == NULL)

crypto/bn/bn_lib.c:248:1: <LHS trace>
246.   	}
247.   
248. > int BN_num_bits(const BIGNUM *a)
249.   	{
250.   	int i = a->top - 1;

crypto/bn/bn_lib.c:248:1: Parameter `a->top`
    246.   	}
    247.   
    248. > int BN_num_bits(const BIGNUM *a)
    249.   	{
    250.   	int i = a->top - 1;

crypto/bn/bn_lib.c:250:2: Binary operation: ([0, +oo] - 1):unsigned64 by call to `DSA_dup_DH` 
    248.   int BN_num_bits(const BIGNUM *a)
    249.   	{
    250.   	int i = a->top - 1;
            ^
    251.   	bn_check_top(a);
    252.   

int BN_num_bits(const BIGNUM *a)
	{
	int i = a->top - 1;
	bn_check_top(a);
	if (BN_is_zero(a)) return 0;
	return ((i*BN_BITS2) + BN_num_bits_word(a->d[i]));
	}
['int MAIN(int argc, char **argv)\n\t{\n#ifndef OPENSSL_NO_ENGINE\n\tENGINE *e = NULL;\n#endif\n\tDH *dh=NULL;\n\tint i,badops=0,text=0;\n#ifndef OPENSSL_NO_DSA\n\tint dsaparam=0;\n#endif\n\tBIO *in=NULL,*out=NULL;\n\tint informat,outformat,check=0,noout=0,C=0,ret=1;\n\tchar *infile,*outfile,*prog;\n\tchar *inrand=NULL;\n#ifndef OPENSSL_NO_ENGINE\n\tchar *engine=NULL;\n#endif\n\tint num = 0, g = 0;\n\tapps_startup();\n\tif (bio_err == NULL)\n\t\tif ((bio_err=BIO_new(BIO_s_file())) != NULL)\n\t\t\tBIO_set_fp(bio_err,stderr,BIO_NOCLOSE|BIO_FP_TEXT);\n\tif (!load_config(bio_err, NULL))\n\t\tgoto end;\n\tinfile=NULL;\n\toutfile=NULL;\n\tinformat=FORMAT_PEM;\n\toutformat=FORMAT_PEM;\n\tprog=argv[0];\n\targc--;\n\targv++;\n\twhile (argc >= 1)\n\t\t{\n\t\tif \t(strcmp(*argv,"-inform") == 0)\n\t\t\t{\n\t\t\tif (--argc < 1) goto bad;\n\t\t\tinformat=str2fmt(*(++argv));\n\t\t\t}\n\t\telse if (strcmp(*argv,"-outform") == 0)\n\t\t\t{\n\t\t\tif (--argc < 1) goto bad;\n\t\t\toutformat=str2fmt(*(++argv));\n\t\t\t}\n\t\telse if (strcmp(*argv,"-in") == 0)\n\t\t\t{\n\t\t\tif (--argc < 1) goto bad;\n\t\t\tinfile= *(++argv);\n\t\t\t}\n\t\telse if (strcmp(*argv,"-out") == 0)\n\t\t\t{\n\t\t\tif (--argc < 1) goto bad;\n\t\t\toutfile= *(++argv);\n\t\t\t}\n#ifndef OPENSSL_NO_ENGINE\n\t\telse if (strcmp(*argv,"-engine") == 0)\n\t\t\t{\n\t\t\tif (--argc < 1) goto bad;\n\t\t\tengine= *(++argv);\n\t\t\t}\n#endif\n\t\telse if (strcmp(*argv,"-check") == 0)\n\t\t\tcheck=1;\n\t\telse if (strcmp(*argv,"-text") == 0)\n\t\t\ttext=1;\n#ifndef OPENSSL_NO_DSA\n\t\telse if (strcmp(*argv,"-dsaparam") == 0)\n\t\t\tdsaparam=1;\n#endif\n\t\telse if (strcmp(*argv,"-C") == 0)\n\t\t\tC=1;\n\t\telse if (strcmp(*argv,"-noout") == 0)\n\t\t\tnoout=1;\n\t\telse if (strcmp(*argv,"-2") == 0)\n\t\t\tg=2;\n\t\telse if (strcmp(*argv,"-5") == 0)\n\t\t\tg=5;\n\t\telse if (strcmp(*argv,"-rand") == 0)\n\t\t\t{\n\t\t\tif (--argc < 1) goto bad;\n\t\t\tinrand= *(++argv);\n\t\t\t}\n\t\telse if (((sscanf(*argv,"%d",&num) == 0) || (num <= 0)))\n\t\t\tgoto bad;\n\t\targv++;\n\t\targc--;\n\t\t}\n\tif (badops)\n\t\t{\nbad:\n\t\tBIO_printf(bio_err,"%s [options] [numbits]\\n",prog);\n\t\tBIO_printf(bio_err,"where options are\\n");\n\t\tBIO_printf(bio_err," -inform arg   input format - one of DER PEM\\n");\n\t\tBIO_printf(bio_err," -outform arg  output format - one of DER PEM\\n");\n\t\tBIO_printf(bio_err," -in arg       input file\\n");\n\t\tBIO_printf(bio_err," -out arg      output file\\n");\n#ifndef OPENSSL_NO_DSA\n\t\tBIO_printf(bio_err," -dsaparam     read or generate DSA parameters, convert to DH\\n");\n#endif\n\t\tBIO_printf(bio_err," -check        check the DH parameters\\n");\n\t\tBIO_printf(bio_err," -text         print a text form of the DH parameters\\n");\n\t\tBIO_printf(bio_err," -C            Output C code\\n");\n\t\tBIO_printf(bio_err," -2            generate parameters using  2 as the generator value\\n");\n\t\tBIO_printf(bio_err," -5            generate parameters using  5 as the generator value\\n");\n\t\tBIO_printf(bio_err," numbits       number of bits in to generate (default 512)\\n");\n#ifndef OPENSSL_NO_ENGINE\n\t\tBIO_printf(bio_err," -engine e     use engine e, possibly a hardware device.\\n");\n#endif\n\t\tBIO_printf(bio_err," -rand file%cfile%c...\\n", LIST_SEPARATOR_CHAR, LIST_SEPARATOR_CHAR);\n\t\tBIO_printf(bio_err,"               - load the file (or the files in the directory) into\\n");\n\t\tBIO_printf(bio_err,"               the random number generator\\n");\n\t\tBIO_printf(bio_err," -noout        no output\\n");\n\t\tgoto end;\n\t\t}\n\tERR_load_crypto_strings();\n#ifndef OPENSSL_NO_ENGINE\n        e = setup_engine(bio_err, engine, 0);\n#endif\n\tif (g && !num)\n\t\tnum = DEFBITS;\n#ifndef OPENSSL_NO_DSA\n\tif (dsaparam)\n\t\t{\n\t\tif (g)\n\t\t\t{\n\t\t\tBIO_printf(bio_err, "generator may not be chosen for DSA parameters\\n");\n\t\t\tgoto end;\n\t\t\t}\n\t\t}\n\telse\n#endif\n\t\t{\n\t\tif (num && !g)\n\t\t\tg = 2;\n\t\t}\n\tif(num) {\n\t\tBN_GENCB cb;\n\t\tBN_GENCB_set(&cb, dh_cb, bio_err);\n\t\tif (!app_RAND_load_file(NULL, bio_err, 1) && inrand == NULL)\n\t\t\t{\n\t\t\tBIO_printf(bio_err,"warning, not much extra random data, consider using the -rand option\\n");\n\t\t\t}\n\t\tif (inrand != NULL)\n\t\t\tBIO_printf(bio_err,"%ld semi-random bytes loaded\\n",\n\t\t\t\tapp_RAND_load_files(inrand));\n#ifndef OPENSSL_NO_DSA\n\t\tif (dsaparam)\n\t\t\t{\n\t\t\tDSA *dsa = DSA_new();\n\t\t\tBIO_printf(bio_err,"Generating DSA parameters, %d bit long prime\\n",num);\n\t\t\tif(!dsa || !DSA_generate_parameters_ex(dsa, num,\n\t\t\t\t\t\tNULL, 0, NULL, NULL, &cb))\n\t\t\t\t{\n\t\t\t\tif(dsa) DSA_free(dsa);\n\t\t\t\tERR_print_errors(bio_err);\n\t\t\t\tgoto end;\n\t\t\t\t}\n\t\t\tdh = DSA_dup_DH(dsa);\n\t\t\tDSA_free(dsa);\n\t\t\tif (dh == NULL)\n\t\t\t\t{\n\t\t\t\tERR_print_errors(bio_err);\n\t\t\t\tgoto end;\n\t\t\t\t}\n\t\t\t}\n\t\telse\n#endif\n\t\t\t{\n\t\t\tdh = DH_new();\n\t\t\tBIO_printf(bio_err,"Generating DH parameters, %d bit long safe prime, generator %d\\n",num,g);\n\t\t\tBIO_printf(bio_err,"This is going to take a long time\\n");\n\t\t\tif(!dh || !DH_generate_parameters_ex(dh, num, g, &cb))\n\t\t\t\t{\n\t\t\t\tif(dh) DH_free(dh);\n\t\t\t\tERR_print_errors(bio_err);\n\t\t\t\tgoto end;\n\t\t\t\t}\n\t\t\t}\n\t\tapp_RAND_write_file(NULL, bio_err);\n\t} else {\n\t\tin=BIO_new(BIO_s_file());\n\t\tif (in == NULL)\n\t\t\t{\n\t\t\tERR_print_errors(bio_err);\n\t\t\tgoto end;\n\t\t\t}\n\t\tif (infile == NULL)\n\t\t\tBIO_set_fp(in,stdin,BIO_NOCLOSE);\n\t\telse\n\t\t\t{\n\t\t\tif (BIO_read_filename(in,infile) <= 0)\n\t\t\t\t{\n\t\t\t\tperror(infile);\n\t\t\t\tgoto end;\n\t\t\t\t}\n\t\t\t}\n\t\tif\t(informat != FORMAT_ASN1 && informat != FORMAT_PEM)\n\t\t\t{\n\t\t\tBIO_printf(bio_err,"bad input format specified\\n");\n\t\t\tgoto end;\n\t\t\t}\n#ifndef OPENSSL_NO_DSA\n\t\tif (dsaparam)\n\t\t\t{\n\t\t\tDSA *dsa;\n\t\t\tif (informat == FORMAT_ASN1)\n\t\t\t\tdsa=d2i_DSAparams_bio(in,NULL);\n\t\t\telse\n\t\t\t\tdsa=PEM_read_bio_DSAparams(in,NULL,NULL,NULL);\n\t\t\tif (dsa == NULL)\n\t\t\t\t{\n\t\t\t\tBIO_printf(bio_err,"unable to load DSA parameters\\n");\n\t\t\t\tERR_print_errors(bio_err);\n\t\t\t\tgoto end;\n\t\t\t\t}\n\t\t\tdh = DSA_dup_DH(dsa);\n\t\t\tDSA_free(dsa);\n\t\t\tif (dh == NULL)\n\t\t\t\t{\n\t\t\t\tERR_print_errors(bio_err);\n\t\t\t\tgoto end;\n\t\t\t\t}\n\t\t\t}\n\t\telse\n#endif\n\t\t\t{\n\t\t\tif (informat == FORMAT_ASN1)\n\t\t\t\tdh=d2i_DHparams_bio(in,NULL);\n\t\t\telse\n\t\t\t\tdh=PEM_read_bio_DHparams(in,NULL,NULL,NULL);\n\t\t\tif (dh == NULL)\n\t\t\t\t{\n\t\t\t\tBIO_printf(bio_err,"unable to load DH parameters\\n");\n\t\t\t\tERR_print_errors(bio_err);\n\t\t\t\tgoto end;\n\t\t\t\t}\n\t\t\t}\n\t}\n\tout=BIO_new(BIO_s_file());\n\tif (out == NULL)\n\t\t{\n\t\tERR_print_errors(bio_err);\n\t\tgoto end;\n\t\t}\n\tif (outfile == NULL)\n\t\t{\n\t\tBIO_set_fp(out,stdout,BIO_NOCLOSE);\n#ifdef OPENSSL_SYS_VMS\n\t\t{\n\t\tBIO *tmpbio = BIO_new(BIO_f_linebuffer());\n\t\tout = BIO_push(tmpbio, out);\n\t\t}\n#endif\n\t\t}\n\telse\n\t\t{\n\t\tif (BIO_write_filename(out,outfile) <= 0)\n\t\t\t{\n\t\t\tperror(outfile);\n\t\t\tgoto end;\n\t\t\t}\n\t\t}\n\tif (text)\n\t\t{\n\t\tDHparams_print(out,dh);\n\t\t}\n\tif (check)\n\t\t{\n\t\tif (!DH_check(dh,&i))\n\t\t\t{\n\t\t\tERR_print_errors(bio_err);\n\t\t\tgoto end;\n\t\t\t}\n\t\tif (i & DH_CHECK_P_NOT_PRIME)\n\t\t\tprintf("p value is not prime\\n");\n\t\tif (i & DH_CHECK_P_NOT_SAFE_PRIME)\n\t\t\tprintf("p value is not a safe prime\\n");\n\t\tif (i & DH_UNABLE_TO_CHECK_GENERATOR)\n\t\t\tprintf("unable to check the generator value\\n");\n\t\tif (i & DH_NOT_SUITABLE_GENERATOR)\n\t\t\tprintf("the g value is not a generator\\n");\n\t\tif (i == 0)\n\t\t\tprintf("DH parameters appear to be ok.\\n");\n\t\t}\n\tif (C)\n\t\t{\n\t\tunsigned char *data;\n\t\tint len,l,bits;\n\t\tlen=BN_num_bytes(dh->p);\n\t\tbits=BN_num_bits(dh->p);\n\t\tdata=(unsigned char *)OPENSSL_malloc(len);\n\t\tif (data == NULL)\n\t\t\t{\n\t\t\tperror("OPENSSL_malloc");\n\t\t\tgoto end;\n\t\t\t}\n\t\tprintf("#ifndef HEADER_DH_H\\n"\n\t\t       "#include <openssl/dh.h>\\n"\n\t\t       "#endif\\n");\n\t\tprintf("DH *get_dh%d()\\n\\t{\\n",bits);\n\t\tl=BN_bn2bin(dh->p,data);\n\t\tprintf("\\tstatic unsigned char dh%d_p[]={",bits);\n\t\tfor (i=0; i<l; i++)\n\t\t\t{\n\t\t\tif ((i%12) == 0) printf("\\n\\t\\t");\n\t\t\tprintf("0x%02X,",data[i]);\n\t\t\t}\n\t\tprintf("\\n\\t\\t};\\n");\n\t\tl=BN_bn2bin(dh->g,data);\n\t\tprintf("\\tstatic unsigned char dh%d_g[]={",bits);\n\t\tfor (i=0; i<l; i++)\n\t\t\t{\n\t\t\tif ((i%12) == 0) printf("\\n\\t\\t");\n\t\t\tprintf("0x%02X,",data[i]);\n\t\t\t}\n\t\tprintf("\\n\\t\\t};\\n");\n\t\tprintf("\\tDH *dh;\\n\\n");\n\t\tprintf("\\tif ((dh=DH_new()) == NULL) return(NULL);\\n");\n\t\tprintf("\\tdh->p=BN_bin2bn(dh%d_p,sizeof(dh%d_p),NULL);\\n",\n\t\t\tbits,bits);\n\t\tprintf("\\tdh->g=BN_bin2bn(dh%d_g,sizeof(dh%d_g),NULL);\\n",\n\t\t\tbits,bits);\n\t\tprintf("\\tif ((dh->p == NULL) || (dh->g == NULL))\\n");\n\t\tprintf("\\t\\t{ DH_free(dh); return(NULL); }\\n");\n\t\tif (dh->length)\n\t\t\tprintf("\\tdh->length = %ld;\\n", dh->length);\n\t\tprintf("\\treturn(dh);\\n\\t}\\n");\n\t\tOPENSSL_free(data);\n\t\t}\n\tif (!noout)\n\t\t{\n\t\tif \t(outformat == FORMAT_ASN1)\n\t\t\ti=i2d_DHparams_bio(out,dh);\n\t\telse if (outformat == FORMAT_PEM)\n\t\t\ti=PEM_write_bio_DHparams(out,dh);\n\t\telse\t{\n\t\t\tBIO_printf(bio_err,"bad output format specified for outfile\\n");\n\t\t\tgoto end;\n\t\t\t}\n\t\tif (!i)\n\t\t\t{\n\t\t\tBIO_printf(bio_err,"unable to write DH parameters\\n");\n\t\t\tERR_print_errors(bio_err);\n\t\t\tgoto end;\n\t\t\t}\n\t\t}\n\tret=0;\nend:\n\tif (in != NULL) BIO_free(in);\n\tif (out != NULL) BIO_free_all(out);\n\tif (dh != NULL) DH_free(dh);\n\tapps_shutdown();\n\tOPENSSL_EXIT(ret);\n\t}', 'int DSA_generate_parameters_ex(DSA *ret, int bits,\n\t\tunsigned char *seed_in, int seed_len,\n\t\tint *counter_ret, unsigned long *h_ret, BN_GENCB *cb)\n\t{\n\tif(ret->meth->dsa_paramgen)\n\t\treturn ret->meth->dsa_paramgen(ret, bits, seed_in, seed_len,\n\t\t\t\tcounter_ret, h_ret, cb);\n\telse\n\t\t{\n\t\tconst EVP_MD *evpmd;\n\t\tsize_t qbits = bits >= 2048 ? 256 : 160;\n\t\tif (bits >= 2048)\n\t\t\t{\n\t\t\tqbits = 256;\n\t\t\tevpmd = EVP_sha256();\n\t\t\t}\n\t\telse\n\t\t\t{\n\t\t\tqbits = 160;\n\t\t\tevpmd = EVP_sha1();\n\t\t\t}\n\t\treturn dsa_builtin_paramgen(ret, bits, qbits, evpmd,\n\t\t\t\tseed_in, seed_len, counter_ret, h_ret, cb);\n\t\t}\n\t}', 'int dsa_builtin_paramgen(DSA *ret, size_t bits, size_t qbits,\n\tconst EVP_MD *evpmd, unsigned char *seed_in, size_t seed_len,\n\tint *counter_ret, unsigned long *h_ret, BN_GENCB *cb)\n\t{\n\tint ok=0;\n\tunsigned char seed[SHA256_DIGEST_LENGTH];\n\tunsigned char md[SHA256_DIGEST_LENGTH];\n\tunsigned char buf[SHA256_DIGEST_LENGTH],buf2[SHA256_DIGEST_LENGTH];\n\tBIGNUM *r0,*W,*X,*c,*test;\n\tBIGNUM *g=NULL,*q=NULL,*p=NULL;\n\tBN_MONT_CTX *mont=NULL;\n\tint i, k,n=0,b,m=0, qsize = qbits >> 3;\n\tint counter=0;\n\tint r=0;\n\tBN_CTX *ctx=NULL;\n\tunsigned int h=2;\n\tif (qsize != SHA_DIGEST_LENGTH && qsize != SHA224_DIGEST_LENGTH &&\n\t    qsize != SHA256_DIGEST_LENGTH)\n\t\treturn 0;\n\tif (evpmd == NULL)\n\t\tevpmd = EVP_sha1();\n\tif (bits < 512)\n\t\tbits = 512;\n\tbits = (bits+63)/64*64;\n\tif (seed_len && (seed_len < (size_t)qsize))\n\t\tseed_in = NULL;\n\tif (seed_len > (size_t)qsize)\n\t\tseed_len = qsize;\n\tif (seed_in != NULL)\n\t\t{\n\t\tmemcpy(seed, seed_in, seed_len);\n\t\tseed_in = NULL;\n\t\t}\n\tif ((ctx=BN_CTX_new()) == NULL)\n\t\tgoto err;\n\tif ((mont=BN_MONT_CTX_new()) == NULL)\n\t\tgoto err;\n\tBN_CTX_start(ctx);\n\tr0 = BN_CTX_get(ctx);\n\tg = BN_CTX_get(ctx);\n\tW = BN_CTX_get(ctx);\n\tq = BN_CTX_get(ctx);\n\tX = BN_CTX_get(ctx);\n\tc = BN_CTX_get(ctx);\n\tp = BN_CTX_get(ctx);\n\ttest = BN_CTX_get(ctx);\n\tif (!BN_lshift(test,BN_value_one(),bits-1))\n\t\tgoto err;\n\tfor (;;)\n\t\t{\n\t\tfor (;;)\n\t\t\t{\n\t\t\tint seed_is_random;\n\t\t\tif(!BN_GENCB_call(cb, 0, m++))\n\t\t\t\tgoto err;\n\t\t\tif (!seed_len)\n\t\t\t\t{\n\t\t\t\tRAND_pseudo_bytes(seed, qsize);\n\t\t\t\tseed_is_random = 1;\n\t\t\t\t}\n\t\t\telse\n\t\t\t\t{\n\t\t\t\tseed_is_random = 0;\n\t\t\t\tseed_len=0;\n\t\t\t\t}\n\t\t\tmemcpy(buf , seed, qsize);\n\t\t\tmemcpy(buf2, seed, qsize);\n\t\t\tfor (i = qsize-1; i >= 0; i--)\n\t\t\t\t{\n\t\t\t\tbuf[i]++;\n\t\t\t\tif (buf[i] != 0)\n\t\t\t\t\tbreak;\n\t\t\t\t}\n\t\t\tEVP_Digest(seed, qsize, md,   NULL, evpmd, NULL);\n\t\t\tEVP_Digest(buf,  qsize, buf2, NULL, evpmd, NULL);\n\t\t\tfor (i = 0; i < qsize; i++)\n\t\t\t\tmd[i]^=buf2[i];\n\t\t\tmd[0] |= 0x80;\n\t\t\tmd[qsize-1] |= 0x01;\n\t\t\tif (!BN_bin2bn(md, qsize, q))\n\t\t\t\tgoto err;\n\t\t\tr = BN_is_prime_fasttest_ex(q, DSS_prime_checks, ctx,\n\t\t\t\t\tseed_is_random, cb);\n\t\t\tif (r > 0)\n\t\t\t\tbreak;\n\t\t\tif (r != 0)\n\t\t\t\tgoto err;\n\t\t\t}\n\t\tif(!BN_GENCB_call(cb, 2, 0)) goto err;\n\t\tif(!BN_GENCB_call(cb, 3, 0)) goto err;\n\t\tcounter=0;\n\t\tn=(bits-1)/160;\n\t\tb=(bits-1)-n*160;\n\t\tfor (;;)\n\t\t\t{\n\t\t\tif ((counter != 0) && !BN_GENCB_call(cb, 0, counter))\n\t\t\t\tgoto err;\n\t\t\tBN_zero(W);\n\t\t\tfor (k=0; k<=n; k++)\n\t\t\t\t{\n\t\t\t\tfor (i = qsize-1; i >= 0; i--)\n\t\t\t\t\t{\n\t\t\t\t\tbuf[i]++;\n\t\t\t\t\tif (buf[i] != 0)\n\t\t\t\t\t\tbreak;\n\t\t\t\t\t}\n\t\t\t\tEVP_Digest(buf, qsize, md ,NULL, evpmd, NULL);\n\t\t\t\tif (!BN_bin2bn(md, qsize, r0))\n\t\t\t\t\tgoto err;\n\t\t\t\tif (!BN_lshift(r0,r0,(qsize << 3)*k)) goto err;\n\t\t\t\tif (!BN_add(W,W,r0)) goto err;\n\t\t\t\t}\n\t\t\tif (!BN_mask_bits(W,bits-1)) goto err;\n\t\t\tif (!BN_copy(X,W)) goto err;\n\t\t\tif (!BN_add(X,X,test)) goto err;\n\t\t\tif (!BN_lshift1(r0,q)) goto err;\n\t\t\tif (!BN_mod(c,X,r0,ctx)) goto err;\n\t\t\tif (!BN_sub(r0,c,BN_value_one())) goto err;\n\t\t\tif (!BN_sub(p,X,r0)) goto err;\n\t\t\tif (BN_cmp(p,test) >= 0)\n\t\t\t\t{\n\t\t\t\tr = BN_is_prime_fasttest_ex(p, DSS_prime_checks,\n\t\t\t\t\t\tctx, 1, cb);\n\t\t\t\tif (r > 0)\n\t\t\t\t\t\tgoto end;\n\t\t\t\tif (r != 0)\n\t\t\t\t\tgoto err;\n\t\t\t\t}\n\t\t\tcounter++;\n\t\t\tif (counter >= 4096) break;\n\t\t\t}\n\t\t}\nend:\n\tif(!BN_GENCB_call(cb, 2, 1))\n\t\tgoto err;\n\tif (!BN_sub(test,p,BN_value_one())) goto err;\n\tif (!BN_div(r0,NULL,test,q,ctx)) goto err;\n\tif (!BN_set_word(test,h)) goto err;\n\tif (!BN_MONT_CTX_set(mont,p,ctx)) goto err;\n\tfor (;;)\n\t\t{\n\t\tif (!BN_mod_exp_mont(g,test,r0,p,ctx,mont)) goto err;\n\t\tif (!BN_is_one(g)) break;\n\t\tif (!BN_add(test,test,BN_value_one())) goto err;\n\t\th++;\n\t\t}\n\tif(!BN_GENCB_call(cb, 3, 1))\n\t\tgoto err;\n\tok=1;\nerr:\n\tif (ok)\n\t\t{\n\t\tif(ret->p) BN_free(ret->p);\n\t\tif(ret->q) BN_free(ret->q);\n\t\tif(ret->g) BN_free(ret->g);\n\t\tret->p=BN_dup(p);\n\t\tret->q=BN_dup(q);\n\t\tret->g=BN_dup(g);\n\t\tif (ret->p == NULL || ret->q == NULL || ret->g == NULL)\n\t\t\t{\n\t\t\tok=0;\n\t\t\tgoto err;\n\t\t\t}\n\t\tif (seed_in != NULL) memcpy(seed_in,seed, qsize);\n\t\tif (counter_ret != NULL) *counter_ret=counter;\n\t\tif (h_ret != NULL) *h_ret=h;\n\t\t}\n\tif(ctx)\n\t\t{\n\t\tBN_CTX_end(ctx);\n\t\tBN_CTX_free(ctx);\n\t\t}\n\tif (mont != NULL) BN_MONT_CTX_free(mont);\n\treturn ok;\n\t}', 'int BN_div(BIGNUM *dv, BIGNUM *rm, const BIGNUM *num, const BIGNUM *divisor,\n\t   BN_CTX *ctx)\n\t{\n\tint norm_shift,i;\n\tsize_t loop;\n\tBIGNUM *tmp,wnum,*snum,*sdiv,*res;\n\tBN_ULONG *resp,*wnump;\n\tBN_ULONG d0,d1;\n\tsize_t num_n,div_n;\n\tif (num->top > 0 && num->d[num->top - 1] == 0)\n\t\t{\n\t\tBNerr(BN_F_BN_DIV,BN_R_NOT_INITIALIZED);\n\t\treturn 0;\n\t\t}\n\tbn_check_top(num);\n\tif ((BN_get_flags(num, BN_FLG_CONSTTIME) != 0) || (BN_get_flags(divisor, BN_FLG_CONSTTIME) != 0))\n\t\t{\n\t\treturn BN_div_no_branch(dv, rm, num, divisor, ctx);\n\t\t}\n\tbn_check_top(dv);\n\tbn_check_top(rm);\n\tbn_check_top(divisor);\n\tif (BN_is_zero(divisor))\n\t\t{\n\t\tBNerr(BN_F_BN_DIV,BN_R_DIV_BY_ZERO);\n\t\treturn(0);\n\t\t}\n\tif (BN_ucmp(num,divisor) < 0)\n\t\t{\n\t\tif (rm != NULL)\n\t\t\t{ if (BN_copy(rm,num) == NULL) return(0); }\n\t\tif (dv != NULL) BN_zero(dv);\n\t\treturn(1);\n\t\t}\n\tBN_CTX_start(ctx);\n\ttmp=BN_CTX_get(ctx);\n\tsnum=BN_CTX_get(ctx);\n\tsdiv=BN_CTX_get(ctx);\n\tif (dv == NULL)\n\t\tres=BN_CTX_get(ctx);\n\telse\tres=dv;\n\tif (sdiv == NULL || res == NULL) goto err;\n\tnorm_shift=BN_BITS2-((BN_num_bits(divisor))%BN_BITS2);\n\tif (!(BN_lshift(sdiv,divisor,norm_shift))) goto err;\n\tsdiv->neg=0;\n\tnorm_shift+=BN_BITS2;\n\tif (!(BN_lshift(snum,num,norm_shift))) goto err;\n\tsnum->neg=0;\n\tdiv_n=sdiv->top;\n\tnum_n=snum->top;\n\tloop=num_n-div_n;\n\twnum.neg   = 0;\n\twnum.d     = &(snum->d[loop]);\n\twnum.top   = div_n;\n\twnum.dmax  = snum->dmax - loop;\n\td0=sdiv->d[div_n-1];\n\td1=(div_n == 1)?0:sdiv->d[div_n-2];\n\twnump= &(snum->d[num_n-1]);\n\tres->neg= (num->neg^divisor->neg);\n\tif (!bn_wexpand(res,(loop+1))) goto err;\n\tres->top=loop;\n\tresp= &(res->d[loop-1]);\n\tif (!bn_wexpand(tmp, div_n+1)) goto err;\n\tif (BN_ucmp(&wnum,sdiv) >= 0)\n\t\t{\n\t\tbn_clear_top2max(&wnum);\n\t\tbn_sub_words(wnum.d, wnum.d, sdiv->d, div_n);\n\t\t*resp=1;\n\t\t}\n\telse\n\t\tres->top--;\n\tif (res->top == 0)\n\t\tres->neg = 0;\n\telse\n\t\tresp--;\n\tfor (i=0; i<loop-1; i++, wnump--, resp--)\n\t\t{\n\t\tBN_ULONG q,l0;\n#if defined(BN_DIV3W) && !defined(OPENSSL_NO_ASM)\n\t\tBN_ULONG bn_div_3_words(BN_ULONG*,BN_ULONG,BN_ULONG);\n\t\tq=bn_div_3_words(wnump,d1,d0);\n#else\n\t\tBN_ULONG n0,n1,rem=0;\n\t\tn0=wnump[0];\n\t\tn1=wnump[-1];\n\t\tif (n0 == d0)\n\t\t\tq=BN_MASK2;\n\t\telse\n\t\t\t{\n#ifdef BN_LLONG\n\t\t\tBN_ULLONG t2;\n#if defined(BN_LLONG) && defined(BN_DIV2W) && !defined(bn_div_words)\n\t\t\tq=(BN_ULONG)(((((BN_ULLONG)n0)<<BN_BITS2)|n1)/d0);\n#else\n\t\t\tq=bn_div_words(n0,n1,d0);\n#ifdef BN_DEBUG_LEVITTE\n\t\t\tfprintf(stderr,"DEBUG: bn_div_words(0x%08X,0x%08X,0x%08\\\nX) -> 0x%08X\\n",\n\t\t\t\tn0, n1, d0, q);\n#endif\n#endif\n#ifndef REMAINDER_IS_ALREADY_CALCULATED\n\t\t\trem=(n1-q*d0)&BN_MASK2;\n#endif\n\t\t\tt2=(BN_ULLONG)d1*q;\n\t\t\tfor (;;)\n\t\t\t\t{\n\t\t\t\tif (t2 <= ((((BN_ULLONG)rem)<<BN_BITS2)|wnump[-2]))\n\t\t\t\t\tbreak;\n\t\t\t\tq--;\n\t\t\t\trem += d0;\n\t\t\t\tif (rem < d0) break;\n\t\t\t\tt2 -= d1;\n\t\t\t\t}\n#else\n\t\t\tBN_ULONG t2l,t2h;\n\t\t\tq=bn_div_words(n0,n1,d0);\n#ifdef BN_DEBUG_LEVITTE\n\t\t\tfprintf(stderr,"DEBUG: bn_div_words(0x%08X,0x%08X,0x%08\\\nX) -> 0x%08X\\n",\n\t\t\t\tn0, n1, d0, q);\n#endif\n#ifndef REMAINDER_IS_ALREADY_CALCULATED\n\t\t\trem=(n1-q*d0)&BN_MASK2;\n#endif\n#if defined(BN_UMULT_LOHI)\n\t\t\tBN_UMULT_LOHI(t2l,t2h,d1,q);\n#elif defined(BN_UMULT_HIGH)\n\t\t\tt2l = d1 * q;\n\t\t\tt2h = BN_UMULT_HIGH(d1,q);\n#else\n\t\t\t{\n\t\t\tBN_ULONG ql, qh;\n\t\t\tt2l=LBITS(d1); t2h=HBITS(d1);\n\t\t\tql =LBITS(q);  qh =HBITS(q);\n\t\t\tmul64(t2l,t2h,ql,qh);\n\t\t\t}\n#endif\n\t\t\tfor (;;)\n\t\t\t\t{\n\t\t\t\tif ((t2h < rem) ||\n\t\t\t\t\t((t2h == rem) && (t2l <= wnump[-2])))\n\t\t\t\t\tbreak;\n\t\t\t\tq--;\n\t\t\t\trem += d0;\n\t\t\t\tif (rem < d0) break;\n\t\t\t\tif (t2l < d1) t2h--; t2l -= d1;\n\t\t\t\t}\n#endif\n\t\t\t}\n#endif\n\t\tl0=bn_mul_words(tmp->d,sdiv->d,div_n,q);\n\t\ttmp->d[div_n]=l0;\n\t\twnum.d--;\n\t\tif (bn_sub_words(wnum.d, wnum.d, tmp->d, div_n+1))\n\t\t\t{\n\t\t\tq--;\n\t\t\tif (bn_add_words(wnum.d, wnum.d, sdiv->d, div_n))\n\t\t\t\t(*wnump)++;\n\t\t\t}\n\t\t*resp = q;\n\t\t}\n\tbn_correct_top(snum);\n\tif (rm != NULL)\n\t\t{\n\t\tint neg = num->neg;\n\t\tBN_rshift(rm,snum,norm_shift);\n\t\tif (!BN_is_zero(rm))\n\t\t\trm->neg = neg;\n\t\tbn_check_top(rm);\n\t\t}\n\tBN_CTX_end(ctx);\n\treturn(1);\nerr:\n\tbn_check_top(rm);\n\tBN_CTX_end(ctx);\n\treturn(0);\n\t}', 'DH *DSA_dup_DH(const DSA *r)\n\t{\n\tDH *ret = NULL;\n\tif (r == NULL)\n\t\tgoto err;\n\tret = DH_new();\n\tif (ret == NULL)\n\t\tgoto err;\n\tif (r->p != NULL)\n\t\tif ((ret->p = BN_dup(r->p)) == NULL)\n\t\t\tgoto err;\n\tif (r->q != NULL)\n\t\tret->length = BN_num_bits(r->q);\n\tif (r->g != NULL)\n\t\tif ((ret->g = BN_dup(r->g)) == NULL)\n\t\t\tgoto err;\n\tif (r->pub_key != NULL)\n\t\tif ((ret->pub_key = BN_dup(r->pub_key)) == NULL)\n\t\t\tgoto err;\n\tif (r->priv_key != NULL)\n\t\tif ((ret->priv_key = BN_dup(r->priv_key)) == NULL)\n\t\t\tgoto err;\n\treturn ret;\n err:\n\tif (ret != NULL)\n\t\tDH_free(ret);\n\treturn NULL;\n\t}', 'int BN_num_bits(const BIGNUM *a)\n\t{\n\tint i = a->top - 1;\n\tbn_check_top(a);\n\tif (BN_is_zero(a)) return 0;\n\treturn ((i*BN_BITS2) + BN_num_bits_word(a->d[i]));\n\t}']