shithub: femtolisp

Info  •  Files  •  Log  •  Branches

libmp test: fix the memory leaks

--- a/3rd/mp/test.c

+++ b/3rd/mp/test.c

@@ -333,6 +333,9 @@

 	b3 = mpnew(0);

 	mpsub(b1, b2, b3);

 	printf("%s - %s = %s\n", MP(b1), MP(b2), MP(b3));

+	mpfree(b1);

+	mpfree(b2);

+	mpfree(b3);

 }

 static void

@@ -345,6 +348,9 @@

 	b3 = mpnew(0);

 	mpmul(b1, b2, b3);

 	printf("%s * %s = %s\n", MP(b1), MP(b2), MP(b3));

+	mpfree(b1);

+	mpfree(b2);

+	mpfree(b3);

 }

 static void

@@ -479,12 +485,18 @@

 	x = mprand(256, prng, nil);

 	y = mprand(128, prng, nil);

 	testdiv(x, y);

+	mpfree(x);

+	mpfree(y);

 	x = mprand(2048, prng, nil);

 	y = mprand(1024, prng, nil);

 	testdiv(x, y);

+	mpfree(x);

+	mpfree(y);

 	x = mprand(4*1024, prng, nil);

 	y = mprand(4*1024, prng, nil);

 	testmul2(x, y);

+	mpfree(x);

+	mpfree(y);

 	testsub1("677132C9", "-A26559B6");

 	testgcd();

 	x = mprand(512, prng, nil);

@@ -494,6 +506,8 @@

 	testmod(x, y);

 	x->sign = 1;

 	testinvert(y, x);

+	mpfree(x);

+	mpfree(y);

 	testexp("111111111", "222", "1000000000000000000000");

 	testexp("ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff", "ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff", "100000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000");

 	return 0;