shithub: femtolisp

Info  •  Files  •  Log  •  Branches

libmp: tests: don't leak

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

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

@@ -538,12 +538,15 @@

 {

 	uint32_t j, state;

 	uint32_t r = 0;

+	ldint *b;

 	if(i < 257)

 		itold(i-128, a);

-	else if(i < 514)

-		pow2told(i-385, a);

-	else{

+	else if(i < 514){

+		b = pow2told(i-385, a);

+		if(a == nil)

+			ldfree(b);

+	}else{

 		state = i;

 		xorshift(&state);

 		xorshift(&state);