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

Made static definitions for srfi/95 and srfi/27 so work with images. Put makefile back to -O3 so optimized binaries made by default

Browse source
This commit is contained in:
Chris Walsh 2016-02-20 09:16:58 -05:00
parent bc82f836a3
commit 9db22a4f7a
4 changed files with 17 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Makefile
View file

@ -72,10 +72,10 @@ endif
ifeq ($(SEXP_USE_DL),0)
XLDFLAGS := $(LDFLAGS) $(RLDFLAGS) $(GCLDFLAGS) -lm
XCFLAGS := -Wall -DSEXP_USE_DL=0 -g -g3 -O0 $(CFLAGS)
XCFLAGS := -Wall -DSEXP_USE_DL=0 -g -g3 -O3 $(CFLAGS)
else
XLDFLAGS := $(LDFLAGS) $(RLDFLAGS) $(GCLDFLAGS) $(LIBDL) -lm
XCFLAGS := -Wall -g -g3 -O0 $(CFLAGS)
XCFLAGS := -Wall -g -g3 -O3 $(CFLAGS)
endif
########################################################################

1
chibi-save Executable file
View file

@ -0,0 +1 @@
LD_LIBRARY_PATH=.: DYLD_LIBRARY_PATH=.: CHIBI_MODULE_PATH=lib ./chibi-scheme -m "chibi" -m "(srfi 1)" -m "(srfi 11)" -m "(srfi 16)" -m "(srfi 18)" -m "(srfi 2)" -m "(srfi 26)" -m "(srfi 27)" -m "(srfi 33)" -m "(srfi 38)" -m "(srfi 39)" -m "(srfi 46)" -m "(srfi 55)" -m "(srfi 6)" -m "(srfi 69)" -m "(srfi 8)" -m "(srfi 9)" -m "(srfi 95)" -m "(srfi 98)" -m "(srfi 99)" -d chibi.img

24
lib/srfi/27/rand.c
View file

@ -45,7 +45,7 @@ typedef unsigned int sexp_random_t;
#endif
static sexp sexp_rs_random_integer (sexp ctx, sexp self, sexp_sint_t n, sexp rs, sexp bound) {
sexp sexp_rs_random_integer (sexp ctx, sexp self, sexp_sint_t n, sexp rs, sexp bound) {
sexp res;
sexp_int32_t m;
#if SEXP_USE_BIGNUMS
@ -100,11 +100,11 @@ static sexp sexp_rs_random_integer (sexp ctx, sexp self, sexp_sint_t n, sexp rs,
return res;
}
static sexp sexp_random_integer (sexp ctx, sexp self, sexp_sint_t n, sexp bound) {
sexp sexp_random_integer (sexp ctx, sexp self, sexp_sint_t n, sexp bound) {
return sexp_rs_random_integer(ctx, self, n, default_random_source, bound);
}
static sexp sexp_rs_random_real (sexp ctx, sexp self, sexp_sint_t n, sexp rs) {
sexp sexp_rs_random_real (sexp ctx, sexp self, sexp_sint_t n, sexp rs) {
sexp_int32_t res;
if (! sexp_random_source_p(rs))
return sexp_type_exception(ctx, self, rs_type_id, rs);
@ -112,27 +112,27 @@ static sexp sexp_rs_random_real (sexp ctx, sexp self, sexp_sint_t n, sexp rs) {
return sexp_make_flonum(ctx, (double)res / (double)RAND_MAX);
}
static sexp sexp_random_real (sexp ctx, sexp self, sexp_sint_t n) {
sexp sexp_random_real (sexp ctx, sexp self, sexp_sint_t n) {
return sexp_rs_random_real(ctx, self, n, default_random_source);
}
#if SEXP_BSD || defined(__CYGWIN__)
static sexp sexp_make_random_source (sexp ctx, sexp self, sexp_sint_t n) {
sexp sexp_make_random_source (sexp ctx, sexp self, sexp_sint_t n) {
sexp res;
res = sexp_alloc_tagged(ctx, sexp_sizeof_random, rs_type_id);
*sexp_random_data(res) = 1;
return res;
}
static sexp sexp_random_source_state_ref (sexp ctx, sexp self, sexp_sint_t n, sexp rs) {
sexp sexp_random_source_state_ref (sexp ctx, sexp self, sexp_sint_t n, sexp rs) {
if (! sexp_random_source_p(rs))
return sexp_type_exception(ctx, self, rs_type_id, rs);
else
return sexp_make_integer(ctx, *sexp_random_data(rs));
}
static sexp sexp_random_source_state_set (sexp ctx, sexp self, sexp_sint_t n, sexp rs, sexp state) {
sexp sexp_random_source_state_set (sexp ctx, sexp self, sexp_sint_t n, sexp rs, sexp state) {
if (! sexp_random_source_p(rs))
return sexp_type_exception(ctx, self, rs_type_id, rs);
else if (sexp_fixnump(state))
@ -149,7 +149,7 @@ static sexp sexp_random_source_state_set (sexp ctx, sexp self, sexp_sint_t n, se
#else
static sexp sexp_make_random_source (sexp ctx, sexp self, sexp_sint_t n) {
sexp sexp_make_random_source (sexp ctx, sexp self, sexp_sint_t n) {
sexp res;
sexp_gc_var1(state);
sexp_gc_preserve1(ctx, state);
@ -162,14 +162,14 @@ static sexp sexp_make_random_source (sexp ctx, sexp self, sexp_sint_t n) {
return res;
}
static sexp sexp_random_source_state_ref (sexp ctx, sexp self, sexp_sint_t n, sexp rs) {
sexp sexp_random_source_state_ref (sexp ctx, sexp self, sexp_sint_t n, sexp rs) {
if (! sexp_random_source_p(rs))
return sexp_type_exception(ctx, self, rs_type_id, rs);
else
return sexp_subbytes(ctx, sexp_random_state(rs), ZERO, STATE_SIZE);
}
static sexp sexp_random_source_state_set (sexp ctx, sexp self, sexp_sint_t n, sexp rs, sexp state) {
sexp sexp_random_source_state_set (sexp ctx, sexp self, sexp_sint_t n, sexp rs, sexp state) {
if (! sexp_random_source_p(rs))
return sexp_type_exception(ctx, self, rs_type_id, rs);
else if (! (sexp_bytesp(state)
@ -182,14 +182,14 @@ static sexp sexp_random_source_state_set (sexp ctx, sexp self, sexp_sint_t n, se
#endif
static sexp sexp_random_source_randomize (sexp ctx, sexp self, sexp_sint_t n, sexp rs) {
sexp sexp_random_source_randomize (sexp ctx, sexp self, sexp_sint_t n, sexp rs) {
if (! sexp_random_source_p(rs))
return sexp_type_exception(ctx, self, rs_type_id, rs);
sexp_seed_random(time(NULL), rs);
return SEXP_VOID;
}
static sexp sexp_random_source_pseudo_randomize (sexp ctx, sexp self, sexp_sint_t n, sexp rs, sexp seed1, sexp seed2) {
sexp sexp_random_source_pseudo_randomize (sexp ctx, sexp self, sexp_sint_t n, sexp rs, sexp seed1, sexp seed2) {
if (! sexp_random_source_p(rs))
return sexp_type_exception(ctx, self, rs_type_id, rs);
if (! sexp_fixnump(seed1))

4
lib/srfi/95/qsort.c
View file

@ -168,7 +168,7 @@ static int sexp_object_compare (sexp ctx, sexp a, sexp b) {
return res;
}
static sexp sexp_object_compare_op (sexp ctx, sexp self, sexp_sint_t n, sexp a, sexp b) {
sexp sexp_object_compare_op (sexp ctx, sexp self, sexp_sint_t n, sexp a, sexp b) {
return sexp_make_fixnum(sexp_object_compare(ctx, a, b));
}
@ -281,7 +281,7 @@ static sexp sexp_merge_sort_less (sexp ctx, sexp *vec, sexp *scratch,
return res;
}
static sexp sexp_sort_x (sexp ctx, sexp self, sexp_sint_t n, sexp seq,
sexp sexp_sort_x (sexp ctx, sexp self, sexp_sint_t n, sexp seq,
sexp less, sexp key) {
sexp_sint_t len;
sexp res;