Commit a77f38163098b4e62cb06e5a32901e07dace7e89 - libcryptx-perl

pulling small dsa fix from libtomcrypt repo Karel Miko 9 years ago

1 changed file(s) with 2 addition(s) and 2 deletion(s). Raw diff Collapse all Expand all

-2

src/ltc/pk/dsa/dsa_make_key.c less more

104	104	if ((sbuf = XMALLOC(seedbytes)) == NULL) { err = CRYPT_MEM; goto cleanup2; }
105	105
106	106	err = mp_init_multi(&t2L1, &t2N1, &t2q, &t2seedlen, &U, &W, &X, &c, &h, &e, &seedinc, NULL);
107		if (err != CRYPT_OK) { goto cleanup1; };
	107	if (err != CRYPT_OK) { goto cleanup1; }
108	108
109	109	if ((err = mp_2expt(t2L1, L-1)) != CRYPT_OK) { goto cleanup; }
110	110	/* t2L1 = 2^(L-1) */

185	185	cleanup:
186	186	mp_clear_multi(t2L1, t2N1, t2q, t2seedlen, U, W, X, c, h, e, seedinc, NULL);
187	187	cleanup1:
188		XFREE(wbuf);
	188	XFREE(sbuf);
189	189	cleanup2:
190	190	XFREE(wbuf);
191	191	cleanup3: