shithub: femtolisp

Info  •  Files  •  Log  •  Branches

fix warnings on plan 9 builds

--- a/cvalues.c

+++ b/cvalues.c

@@ -972,9 +972,9 @@

 fl_add_any(value_t *args, uint32_t nargs, fixnum_t carryIn)

 {

 	uint64_t Uaccum = 0;

-	uint64_t Uresult = 0;

+	uint64_t Uresult;

 	int64_t Saccum = carryIn;

-	int64_t Sresult = 0;

+	int64_t Sresult;

 	double Faccum = 0;

 	int32_t inexact = 0;

 	uint32_t i;

@@ -1016,8 +1016,10 @@

 						x = vtomp(i64, nil);

 						mpadd(Maccum, x, Maccum);

 						mpfree(x);

-					}else

+					}else{

+						USED(Sresult);

 						Saccum += i64;

+					}

 				}

 				break;

 			case T_UINT64: