Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-07 13:16:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Refactoring

Browse source
This commit is contained in:
Justin Ethier 2015-08-25 22:40:11 -04:00
parent 6f165aeb33
commit ae21c89344
2 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
include/cyclone/runtime-main.h
View file

@ -16,9 +16,9 @@ long global_heap_size = 0;
static long long_arg(int argc,char **argv,char *name,long dval); static long long_arg(int argc,char **argv,char *name,long dval);
static void c_entry_pt(int,closure,closure); static void c_entry_pt(int,closure,closure);
static void main_main(long stack_size,long heap_size,char *stack_base); static void Cyc_main(long stack_size,long heap_size,char *stack_base);
static void main_main (stack_size,heap_size,stack_base) static void Cyc_main (stack_size,heap_size,stack_base)
long stack_size,heap_size; char *stack_base; long stack_size,heap_size; char *stack_base;
{char in_my_frame; {char in_my_frame;
mclosure0(clos_halt,&Cyc_halt); /* Halt program if final closure is reached */ mclosure0(clos_halt,&Cyc_halt); /* Halt program if final closure is reached */

2
scheme/cyclone/cgen.sld
View file

@ -80,7 +80,7 @@
global_heap_size = heap_size; global_heap_size = heap_size;
_cyc_argc = argc; _cyc_argc = argc;
_cyc_argv = argv; _cyc_argv = argv;
main_main(stack_size,heap_size,(char *) &stack_size); Cyc_main(stack_size,heap_size,(char *) &stack_size);
return 0;}") return 0;}")
;;; Auto-generation of C macros ;;; Auto-generation of C macros