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

Prevent compilation warninG

Browse source
This commit is contained in:
Justin Ethier 2021-03-14 21:22:14 -04:00
parent d944eed23c
commit 6edbd8cd57
2 changed files with 8 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
include/cyclone/runtime.h
View file

@ -555,7 +555,7 @@ object Cyc_installation_dir(void *data, object cont, object type);
object Cyc_compilation_environment(void *data, object cont, object var); object Cyc_compilation_environment(void *data, object cont, object var);
object Cyc_command_line_arguments(void *data, object cont); object Cyc_command_line_arguments(void *data, object cont);
object Cyc_system(object cmd); object Cyc_system(object cmd);
void Cyc_halt(object obj); void Cyc_halt(void *data, object clo, int argc, object *args);
object __halt(object obj); object __halt(object obj);
object Cyc_io_delete_file(void *data, object filename); object Cyc_io_delete_file(void *data, object filename);
object Cyc_io_file_exists(void *data, object filename); object Cyc_io_file_exists(void *data, object filename);

9
runtime.c
View file

@ -3473,8 +3473,12 @@ object Cyc_integer2char(void *data, object n)
return obj_char2obj(val); return obj_char2obj(val);
} }
void Cyc_halt(object obj) void Cyc_halt(void *data, object clo, int argc, object *args)
{ {
object obj = boolean_f;
if (argc > 0) {
obj = args[0];
}
#if DEBUG_SHOW_DIAG #if DEBUG_SHOW_DIAG
gc_print_stats(Cyc_heap); gc_print_stats(Cyc_heap);
#endif #endif
@ -3491,7 +3495,8 @@ void Cyc_halt(object obj)
object __halt(object obj) object __halt(object obj)
{ {
Cyc_halt(obj); object buf[1] = {obj};
Cyc_halt(NULL, NULL, 1, buf);
return NULL; return NULL;
} }