shithub: femtolisp

Info  •  Files  •  Log

fix warnings popping with ancient gcc on linux

--- a/flisp.c

+++ b/flisp.c

@@ -948,6 +948,8 @@

     static int64_t accum;

     static value_t func, v, e;

+    n = 0;

+    USED(n);

  apply_cl_top:

     captured = 0;

     func = Stack[SP-nargs-1];

--- a/llt/timefuncs.c

+++ b/llt/timefuncs.c

@@ -1,3 +1,4 @@

+#define _XOPEN_SOURCE 600

 #include "platform.h"

 #if defined(__plan9__)

--- a/llt/utf8.c

+++ b/llt/utf8.c

@@ -36,7 +36,7 @@

 u8_iswprint(uint32_t c)

 {

 	if(c < 0xff)

-		return (c+1 & 0x7f) >= 0x21;

+		return ((c+1) & 0x7f) >= 0x21;

 	if(c < 0x2028 || c-0x202a < 0xd800-0x202a || c-0xe000 < 0xfff9-0xe000)

 		return 1;

 	return !(c-0xfffc > 0x10ffff-0xfffc || (c&0xfffe) == 0xfffe);