shithub: femtolisp

Info  •  Files  •  Log  •  Branches

mp test: fix warnings

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

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

@@ -6,7 +6,6 @@

 static int

 ldget(ldint *a, uint32_t n)

 {

-	if(n < 0) return 0;

 	if(n >= a->n) return a->b[a->n - 1]&1;

 	return a->b[n]&1;

 }

@@ -216,7 +215,7 @@

 	if(b->sign > 0){

 		for(i = 0; i < b->top * Dbits; i++)

-			if(ldget(a, i) != (b->p[i / Dbits] >> (i & Dbits - 1) & 1))

+			if(ldget(a, i) != (int)(b->p[i / Dbits] >> (i & Dbits - 1) & 1))

 				return 0;

 		for(; i < a->n; i++)

 			if(a->b[i] != 0)