ref: 88a9e52780db833bc794107409ff457df5d3e0e8
parent: 39e4d953fd4bf40977fa2e4305b92149693edac8
author: Sigrid Solveig Haflínudóttir <ftrvxmtrx@gmail.com>
date: Mon Nov 30 08:39:27 EST 2020
fix more warnings
--- a/flmain.c
+++ b/flmain.c
@@ -60,8 +60,8 @@
if (fl_load_system_image(f))
return 1;
- (void)fl_applyn(1, symbol_value(symbol("__start")),
- argv_list(argc, argv));
+ fl_applyn(1, symbol_value(symbol("__start")),
+ argv_list(argc, argv));
}
FL_CATCH_EXTERN {
ios_puts("fatal error:\n", ios_stderr);
--- a/read.c
+++ b/read.c
@@ -239,7 +239,7 @@
else if (cval >= 'a' && cval <= 'z') {
read_token((char)cval, 0);
tokval = symbol(buf);
- if (buf[1] == '\0') /* one character */;
+ if (buf[1] != '\0') { USED(cval); } /* one character */
else if (tokval == nulsym) cval = 0x00;
else if (tokval == alarmsym) cval = 0x07;
else if (tokval == backspacesym) cval = 0x08;
@@ -553,7 +553,8 @@
}
}
take();
- POP();
+ c = POP();
+ USED(c);
}
// label is the backreference we'd like to fix up with this read