Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-24 04:25:06 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix compiler warnings

Browse source
This commit is contained in:
Justin Ethier 2020-08-14 14:42:43 -04:00
parent 937f6b61c2
commit 370535869a
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
ffi.c
View file

@ -13,6 +13,8 @@
#include <ck_pr.h> #include <ck_pr.h>
#include <unistd.h> #include <unistd.h>
void *Cyc_init_thread(object thread_and_thunk, int argc, object *args);
static void Cyc_return_from_scm_call(gc_thread_data *thd, int argc, object k, object result) static void Cyc_return_from_scm_call(gc_thread_data *thd, int argc, object k, object result)
{ {
// Cleaup thread object per Cyc_exit_thread // Cleaup thread object per Cyc_exit_thread
@ -173,7 +175,7 @@ object Cyc_scm_call_no_gc(gc_thread_data *parent_thd, object fnc, object arg)
// //
if (!setjmp(*(thd.jmp_start))) { if (!setjmp(*(thd.jmp_start))) {
no_gc_call_scm(&thd, fnc, arg); no_gc_call_scm(&thd, fnc, arg);
} else {
return(thd.gc_cont);
} }
return(thd.gc_cont);
} }