lassik
/
upscheme
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fix compiler warnings (clang -Wextra)

This commit is contained in:
Lassi Kortela 2019-08-09 19:53:35 +03:00
parent 7d93f262a7
commit bb78dc0634
3 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
c/cvalues.h
View File

@ -1139,7 +1139,7 @@ static value_t fl_neg(value_t n)
{
if (isfixnum(n)) {
fixnum_t s = fixnum(-numval(n));
if (__unlikely(s == n))
if (__unlikely(n == (ufixnum_t)s))
return mk_long(-numval(n)); // negate overflows
else
return s;

2
c/flisp.c
View File

@ -1490,7 +1490,7 @@ apply_cl_top:
do_neg:
if (isfixnum(Stack[SP - 1])) {
s = fixnum(-numval(Stack[SP - 1]));
if (__unlikely(s == Stack[SP - 1]))
if (__unlikely(Stack[SP - 1] == (ufixnum_t)s))
Stack[SP - 1] =
mk_long(-numval(Stack[SP - 1])); // negate overflows
else

2
c/ios.c
View File

@ -970,7 +970,7 @@ int ios_vprintf(struct ios *s, const char *format, va_list args)
va_end(al);
return c;
}
if (c < avail) {
if (avail > (size_t)c) {
s->bpos += (size_t)c;
_write_update_pos(s);
// TODO: only works right if newline is at end