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

fixing srfi-27 build for cygwin

Browse source
This commit is contained in:
Alex Shinn 2010-08-15 17:03:46 +09:00
parent 32f835e5f2
commit 4bd9c0a3a7
2 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
include/chibi/sexp.h
View file

@ -129,7 +129,7 @@ typedef unsigned int sexp_tag_t;
typedef unsigned long sexp_uint_t; typedef unsigned long sexp_uint_t;
typedef long sexp_sint_t; typedef long sexp_sint_t;
#define sexp_heap_align(n) sexp_align(n, 5) #define sexp_heap_align(n) sexp_align(n, 5)
#elif __CYGWIN__ #elif defined(__CYGWIN__)
typedef unsigned short sexp_tag_t; typedef unsigned short sexp_tag_t;
typedef unsigned int sexp_uint_t; typedef unsigned int sexp_uint_t;
typedef int sexp_sint_t; typedef int sexp_sint_t;

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

@ -19,7 +19,7 @@
SEXP_RANDOM_STATE_SIZE, \ SEXP_RANDOM_STATE_SIZE, \
sexp_random_data(x)) sexp_random_data(x))
#if SEXP_BSD #if SEXP_BSD || defined(__CYGWIN__)
typedef unsigned int sexp_random_t; typedef unsigned int sexp_random_t;
#define sexp_call_random(rs, dst) ((dst) = rand_r(sexp_random_data(rs))) #define sexp_call_random(rs, dst) ((dst) = rand_r(sexp_random_data(rs)))
#define sexp_seed_random(n, rs) *sexp_random_data(rs) = (n) #define sexp_seed_random(n, rs) *sexp_random_data(rs) = (n)
@ -85,7 +85,7 @@ static sexp sexp_random_real (sexp ctx sexp_api_params(self, n)) {
return sexp_rs_random_real(ctx sexp_api_pass(self, n), default_random_source); return sexp_rs_random_real(ctx sexp_api_pass(self, n), default_random_source);
} }
#if SEXP_BSD #if SEXP_BSD || defined(__CYGWIN__)
static sexp sexp_make_random_source (sexp ctx sexp_api_params(self, n)) { static sexp sexp_make_random_source (sexp ctx sexp_api_params(self, n)) {
sexp res; sexp res;