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

Cleanup

Browse source
This commit is contained in:
Justin Ethier 2015-09-03 22:13:01 -04:00
parent ee8b5eeb65
commit f679613923
2 changed files with 2 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -14,7 +14,6 @@
long global_stack_size = 0; long global_stack_size = 0;
long global_heap_size = 0; long global_heap_size = 0;
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 Cyc_main(long stack_size,long heap_size,char *stack_base); static void Cyc_main(long stack_size,long heap_size,char *stack_base);
@ -86,12 +85,4 @@ static void Cyc_main (stack_size,heap_size,stack_base)
printf("Internal error: should never have reached this line\n"); exit(0);}} printf("Internal error: should never have reached this line\n"); exit(0);}}
static long long_arg(argc,argv,name,dval)
int argc; char **argv; char *name; long dval;
{int j;
for(j=1;(j+1)<argc;j += 2)
if (strcmp(name,argv[j]) == 0)
return(atol(argv[j+1]));
return(dval);}
#endif /* CYCLONE_RUNTIME_MAIN_H */ #endif /* CYCLONE_RUNTIME_MAIN_H */

6
scheme/cyclone/cgen.sld
View file

@ -74,10 +74,8 @@
(define *c-main-function* (define *c-main-function*
"main(int argc,char **argv) "main(int argc,char **argv)
{long stack_size = long_arg(argc,argv,\"-s\",STACK_SIZE); {long stack_size = global_stack_size = STACK_SIZE;
long heap_size = long_arg(argc,argv,\"-h\",HEAP_SIZE); long heap_size = global_heap_size = HEAP_SIZE;
global_stack_size = stack_size;
global_heap_size = heap_size;
_cyc_argc = argc; _cyc_argc = argc;
_cyc_argv = argv; _cyc_argv = argv;
Cyc_main(stack_size,heap_size,(char *) &stack_size); Cyc_main(stack_size,heap_size,(char *) &stack_size);