Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 05:39:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

remove unused vars, restore endianess feature

Browse source
This commit is contained in:
Alex Shinn 2016-06-12 22:58:35 +09:00
parent 08494037ea
commit 82ebd3cbc3
3 changed files with 6 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
eval.c
View file

@ -2352,14 +2352,11 @@ sexp sexp_load_standard_ports (sexp ctx, sexp env, FILE* in, FILE* out,
sexp sexp_load_standard_env (sexp ctx, sexp e, sexp version) { sexp sexp_load_standard_env (sexp ctx, sexp e, sexp version) {
int len; int len;
char init_file[128]; char init_file[128];
int endianess_check = 1;
sexp_gc_var3(op, tmp, sym); sexp_gc_var3(op, tmp, sym);
sexp_gc_preserve3(ctx, op, tmp, sym); sexp_gc_preserve3(ctx, op, tmp, sym);
if (!e) e = sexp_context_env(ctx); if (!e) e = sexp_context_env(ctx);
sexp_env_define(ctx, e, sym=sexp_intern(ctx, "*shared-object-extension*", -1), sexp_env_define(ctx, e, sym=sexp_intern(ctx, "*shared-object-extension*", -1),
tmp=sexp_c_string(ctx, sexp_so_extension, -1)); tmp=sexp_c_string(ctx, sexp_so_extension, -1));
tmp = SEXP_NULL;
sexp_push(ctx, tmp, sym=sexp_intern(ctx, (*(unsigned char*) &endianess_check) ? "little-endian" : "big-endian", -1));
sexp_env_define(ctx, e, sym=sexp_intern(ctx, "*features*", -1), sexp_global(ctx, SEXP_G_FEATURES)); sexp_env_define(ctx, e, sym=sexp_intern(ctx, "*features*", -1), sexp_global(ctx, SEXP_G_FEATURES));
sexp_global(ctx, SEXP_G_OPTIMIZATIONS) = SEXP_NULL; sexp_global(ctx, SEXP_G_OPTIMIZATIONS) = SEXP_NULL;
#if SEXP_USE_SIMPLIFY #if SEXP_USE_SIMPLIFY

6
main.c
View file

@ -236,8 +236,8 @@ static sexp sexp_add_import_binding (sexp ctx, sexp env) {
} }
static sexp sexp_load_standard_repl_env (sexp ctx, sexp env, sexp k, int bootp) { static sexp sexp_load_standard_repl_env (sexp ctx, sexp env, sexp k, int bootp) {
sexp_gc_var3(e, ls, sym); sexp_gc_var1(e);
sexp_gc_preserve3(ctx, e, ls, sym); sexp_gc_preserve1(ctx, e);
e = sexp_load_standard_env(ctx, env, k); e = sexp_load_standard_env(ctx, env, k);
if (!sexp_exceptionp(e)) { if (!sexp_exceptionp(e)) {
#if SEXP_USE_MODULES #if SEXP_USE_MODULES
@ -249,7 +249,7 @@ static sexp sexp_load_standard_repl_env (sexp ctx, sexp env, sexp k, int bootp)
if (!sexp_exceptionp(e)) if (!sexp_exceptionp(e))
e = sexp_load_standard_params(ctx, e); e = sexp_load_standard_params(ctx, e);
} }
sexp_gc_release3(ctx); sexp_gc_release1(ctx);
return e; return e;
} }

4
sexp.c
View file

@ -426,7 +426,7 @@ static const char* sexp_initial_features[] = {
void sexp_init_context_globals (sexp ctx) { void sexp_init_context_globals (sexp ctx) {
const char** features; const char** features;
int i; int i, endianess_check = 1;
sexp type, *vec, print=NULL; sexp type, *vec, print=NULL;
sexp_context_globals(ctx) sexp_context_globals(ctx)
= sexp_make_vector(ctx, sexp_make_fixnum(SEXP_G_NUM_GLOBALS), SEXP_VOID); = sexp_make_vector(ctx, sexp_make_fixnum(SEXP_G_NUM_GLOBALS), SEXP_VOID);
@ -460,6 +460,8 @@ void sexp_init_context_globals (sexp ctx) {
sexp_global(ctx, SEXP_G_EMPTY_VECTOR) = sexp_alloc_type(ctx, vector, SEXP_VECTOR); sexp_global(ctx, SEXP_G_EMPTY_VECTOR) = sexp_alloc_type(ctx, vector, SEXP_VECTOR);
sexp_vector_length(sexp_global(ctx, SEXP_G_EMPTY_VECTOR)) = 0; sexp_vector_length(sexp_global(ctx, SEXP_G_EMPTY_VECTOR)) = 0;
sexp_global(ctx, SEXP_G_FEATURES) = SEXP_NULL; sexp_global(ctx, SEXP_G_FEATURES) = SEXP_NULL;
sexp_push(ctx, sexp_global(ctx, SEXP_G_FEATURES), SEXP_FALSE);
sexp_car(sexp_global(ctx, SEXP_G_FEATURES)) = sexp_intern(ctx, (*(unsigned char*) &endianess_check) ? "little-endian" : "big-endian", -1);
for (features=sexp_initial_features; *features; features++) { for (features=sexp_initial_features; *features; features++) {
sexp_push(ctx, sexp_global(ctx, SEXP_G_FEATURES), SEXP_FALSE); sexp_push(ctx, sexp_global(ctx, SEXP_G_FEATURES), SEXP_FALSE);
sexp_car(sexp_global(ctx, SEXP_G_FEATURES)) = sexp_intern(ctx, *features, -1); sexp_car(sexp_global(ctx, SEXP_G_FEATURES)) = sexp_intern(ctx, *features, -1);