Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-04 03:36:36 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Allowing and ignoring -h for Bhoem compile.

Browse source
This commit is contained in:
Alex Shinn 2014-01-30 14:34:34 +09:00
parent acf5d3e088
commit b39fa4d060
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
main.c
View file

@ -198,8 +198,8 @@ static sexp sexp_param_ref (sexp ctx, sexp env, sexp name) {
} }
static sexp sexp_load_standard_params (sexp ctx, sexp e) { static sexp sexp_load_standard_params (sexp ctx, sexp e) {
sexp_gc_var2(p, res); sexp_gc_var1(res);
sexp_gc_preserve2(ctx, p, res); sexp_gc_preserve1(ctx, res);
sexp_load_standard_ports(ctx, e, stdin, stdout, stderr, 0); sexp_load_standard_ports(ctx, e, stdin, stdout, stderr, 0);
#if SEXP_USE_GREEN_THREADS #if SEXP_USE_GREEN_THREADS
sexp_make_unblocking(ctx, sexp_param_ref(ctx, e, sexp_global(ctx, SEXP_G_CUR_IN_SYMBOL))); sexp_make_unblocking(ctx, sexp_param_ref(ctx, e, sexp_global(ctx, SEXP_G_CUR_IN_SYMBOL)));
@ -210,7 +210,7 @@ static sexp sexp_load_standard_params (sexp ctx, sexp e) {
sexp_env_parent(res) = e; sexp_env_parent(res) = e;
sexp_context_env(ctx) = res; sexp_context_env(ctx) = res;
sexp_set_parameter(ctx, sexp_meta_env(ctx), sexp_global(ctx, SEXP_G_INTERACTION_ENV_SYMBOL), res); sexp_set_parameter(ctx, sexp_meta_env(ctx), sexp_global(ctx, SEXP_G_INTERACTION_ENV_SYMBOL), res);
sexp_gc_release3(ctx); sexp_gc_release1(ctx);
return res; return res;
} }
@ -461,18 +461,18 @@ void run_main (int argc, char **argv) {
goto done_options; goto done_options;
} }
sexp_usage(1); sexp_usage(1);
#if ! SEXP_USE_BOEHM
case 'h': case 'h':
arg = ((argv[i][2] == '\0') ? argv[++i] : argv[i]+2); arg = ((argv[i][2] == '\0') ? argv[++i] : argv[i]+2);
check_nonull_arg('h', arg); check_nonull_arg('h', arg);
#if ! SEXP_USE_BOEHM
heap_size = strtoul(arg, &arg, 0); heap_size = strtoul(arg, &arg, 0);
if (sexp_isalpha((unsigned char)*arg)) heap_size *= multiplier(*arg++); if (sexp_isalpha((unsigned char)*arg)) heap_size *= multiplier(*arg++);
if (*arg == '/') { if (*arg == '/') {
heap_max_size = strtoul(arg+1, &arg, 0); heap_max_size = strtoul(arg+1, &arg, 0);
if (sexp_isalpha((unsigned char)*arg)) heap_max_size *= multiplier(*arg++); if (sexp_isalpha((unsigned char)*arg)) heap_max_size *= multiplier(*arg++);
} }
break;
#endif #endif
break;
#if SEXP_USE_IMAGE_LOADING #if SEXP_USE_IMAGE_LOADING
case 'i': case 'i':
arg = ((argv[i][2] == '\0') ? argv[++i] : argv[i]+2); arg = ((argv[i][2] == '\0') ? argv[++i] : argv[i]+2);