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

Checking for __GNU_LIBRARY__ to use random_r.

Browse source
This commit is contained in:
Alex Shinn 2014-07-30 22:46:53 +09:00
parent cc4ec96001
commit 7d8098b549
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -19,14 +19,14 @@
SEXP_RANDOM_STATE_SIZE, \ SEXP_RANDOM_STATE_SIZE, \
sexp_random_data(x)) sexp_random_data(x))
#if SEXP_BSD || defined(__CYGWIN__) #ifdef __GNU_LIBRARY__
typedef unsigned int sexp_random_t;
#define sexp_call_random(rs, dst) ((dst) = rand_r(sexp_random_data(rs)))
#define sexp_seed_random(n, rs) *sexp_random_data(rs) = (n)
#else
typedef struct random_data sexp_random_t; typedef struct random_data sexp_random_t;
#define sexp_call_random(rs, dst) random_r(sexp_random_data(rs), &dst) #define sexp_call_random(rs, dst) random_r(sexp_random_data(rs), &dst)
#define sexp_seed_random(n, rs) srandom_r(n, sexp_random_data(rs)) #define sexp_seed_random(n, rs) srandom_r(n, sexp_random_data(rs))
#else
typedef unsigned int sexp_random_t;
#define sexp_call_random(rs, dst) ((dst) = rand_r(sexp_random_data(rs)))
#define sexp_seed_random(n, rs) *sexp_random_data(rs) = (n)
#endif #endif
#define sexp_random_state(x) (sexp_slot_ref((x), 0)) #define sexp_random_state(x) (sexp_slot_ref((x), 0))