From 7d8098b5495bf0f572629a8b03ba1990517e6de6 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Wed, 30 Jul 2014 22:46:53 +0900 Subject: [PATCH] Checking for __GNU_LIBRARY__ to use random_r. --- lib/srfi/27/rand.c | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/lib/srfi/27/rand.c b/lib/srfi/27/rand.c index 4bdb20c9..081fa0de 100644 --- a/lib/srfi/27/rand.c +++ b/lib/srfi/27/rand.c @@ -19,14 +19,14 @@ SEXP_RANDOM_STATE_SIZE, \ sexp_random_data(x)) -#if SEXP_BSD || defined(__CYGWIN__) -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 +#ifdef __GNU_LIBRARY__ typedef struct random_data sexp_random_t; #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)) +#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 #define sexp_random_state(x) (sexp_slot_ref((x), 0))