~ chicken-core (chicken-5) 59caefbb270c9167e059f04a9e8568799b5e258f
commit 59caefbb270c9167e059f04a9e8568799b5e258f Author: felix <felix@call-with-current-continuation.org> AuthorDate: Fri Nov 3 19:06:15 2017 +0100 Commit: felix <felix@call-with-current-continuation.org> CommitDate: Fri Nov 3 19:06:15 2017 +0100 use /dev/urandom on cygwin diff --git a/runtime.c b/runtime.c index b7c06c2a..0bbefb25 100644 --- a/runtime.c +++ b/runtime.c @@ -12535,7 +12535,7 @@ C_i_pending_interrupt(C_word dummy) # include <sys/systm.h> #endif -#ifdef _WIN32 +#if defined(_WIN32) && !defined(__CYGWIN__) # define RtlGenRandom SystemFunction036 # if defined(__cplusplus) extern "C" @@ -12555,7 +12555,7 @@ C_word C_random_bytes(C_word buf, C_word size) do { r = getrandom(C_data_pointer(buf), count, 0); } while(r < 0 && (errno == EINTR)); -#elif defined(_WIN32) +#elif defined(_WIN32) && !defined(__CYGWIN__) if(!RtlGenRandom((PVOID)C_data_pointer(buf), (LONG)count)) r = -1; #elseTrap