Zander671/simple-lisp
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix warnings when building in release mode

Browse Source
This commit is contained in:
Alexander Rosenberg
2025-09-21 03:33:14 -07:00
parent 0b2e5f2366
commit 96c4d9eecb
2 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
src/lisp.c
View File

@ -238,8 +238,8 @@ void set_function_args(LispFunction *func, LispVal *args) {
func->kwargs = make_lisp_hashtable(Qnil, Qnil); func->kwargs = make_lisp_hashtable(Qnil, Qnil);
func->allow_other_keys = false; func->allow_other_keys = false;
LispVal *rargs_end; LispVal *rargs_end = Qnil;
LispVal *oargs_end; LispVal *oargs_end = Qnil;
FOREACH(arg, args) { FOREACH(arg, args) {
if (arg == Qopt) { if (arg == Qopt) {
@ -801,7 +801,7 @@ void cancel_cleanup(void *handle) {
DEFUN(backtrace, "backtrace", (void) ) { DEFUN(backtrace, "backtrace", (void) ) {
LispVal *head = Qnil; LispVal *head = Qnil;
LispVal *end; LispVal *end = Qnil;
for (StackFrame *frame = the_stack; frame; frame = frame->next) { for (StackFrame *frame = the_stack; frame; frame = frame->next) {
if (frame->hidden) { if (frame->hidden) {
continue; continue;
@ -1274,7 +1274,7 @@ static inline LispVal *eval_function_args(LispVal *args, LispVal *lexenv) {
WITH_PUSH_FRAME(Qnil, Qnil, true, { WITH_PUSH_FRAME(Qnil, Qnil, true, {
void *cl_handle = register_cleanup( void *cl_handle = register_cleanup(
(lisp_cleanup_func_t) &unref_double_ptr, &final_args); (lisp_cleanup_func_t) &unref_double_ptr, &final_args);
LispVal *end; LispVal *end = Qnil;
FOREACH(elt, args) { FOREACH(elt, args) {
if (NILP(final_args)) { if (NILP(final_args)) {
final_args = Fpair(Feval_in_env(elt, lexenv), Qnil); final_args = Fpair(Feval_in_env(elt, lexenv), Qnil);
@ -1302,7 +1302,7 @@ static LispVal **process_builtin_args(LispVal *fname, LispFunction *func,
LispVal **vec = lisp_malloc(sizeof(LispVal *) * raw_count); LispVal **vec = lisp_malloc(sizeof(LispVal *) * raw_count);
memset(vec, 0, sizeof(LispVal *) * raw_count); memset(vec, 0, sizeof(LispVal *) * raw_count);
LispVal *rest = Qnil; LispVal *rest = Qnil;
LispVal *rest_end; LispVal *rest_end = Qnil;
size_t have_count = 0; size_t have_count = 0;
LispVal *opt_desc; LispVal *opt_desc;
LispVal *arg = Qnil; // last arg processed LispVal *arg = Qnil; // last arg processed
@ -1976,7 +1976,7 @@ static LispVal *filter_body_tree(LispVal *body,
void *user_data), void *user_data),
void *user_data) { void *user_data) {
LispVal *start = Qnil; LispVal *start = Qnil;
LispVal *end; LispVal *end = Qnil;
FOREACH(form, body) { FOREACH(form, body) {
LispVal *filtered = filter_body_form(form, func, user_data); LispVal *filtered = filter_body_form(form, func, user_data);
if (NILP(start)) { if (NILP(start)) {
@ -2006,7 +2006,7 @@ DEFUN(macroexpand_all, "macroexpand-all",
DEFUN(apply, "apply", (LispVal * function, LispVal *rest)) { DEFUN(apply, "apply", (LispVal * function, LispVal *rest)) {
LispVal *args = Qnil; LispVal *args = Qnil;
LispVal *end; LispVal *end = Qnil;
while (!NILP(rest) && !NILP(((LispPair *) rest)->tail)) { while (!NILP(rest) && !NILP(((LispPair *) rest)->tail)) {
if (NILP(args)) { if (NILP(args)) {
args = Fpair(((LispPair *) rest)->head, Qnil); args = Fpair(((LispPair *) rest)->head, Qnil);

2
src/lisp.h
View File

@ -358,7 +358,7 @@ DECLARE_FUNCTION(settail, (LispVal * pair, LispVal *tail));
size_t list_length(LispVal *obj); size_t list_length(LispVal *obj);
static inline LispVal *const_list(bool do_ref, int len, ...) { static inline LispVal *const_list(bool do_ref, int len, ...) {
LispVal *list = Qnil; LispVal *list = Qnil;
LispVal *end; LispVal *end = Qnil;
va_list args; va_list args;
va_start(args, len); va_start(args, len);
while (len--) { while (len--) {