mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 15:40:19 +02:00
Code Activity

Make compilation under Windows easier.

Browse source
This commit is contained in:
Martin Grabmüller 2001-06-26 17:53:09 +00:00
parent dd0e04edd6
commit 82893676f4
22 changed files with 315 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/random.c
View file

@ -91,6 +91,10 @@ scm_t_rng scm_the_rng;
#define A 2131995753UL
#ifndef M_PI
#define M_PI 3.14159265359
#endif
#if SIZEOF_LONG > 4
#if SIZEOF_INT > 4
#define LONG32 unsigned short
@ -100,8 +104,12 @@ scm_t_rng scm_the_rng;
#define LONG64 unsigned long
#else
#define LONG32 unsigned long
#ifdef __MINGW32__
#define LONG64 unsigned __int64
#else
#define LONG64 unsigned long long
#endif
#endif
#if SIZEOF_LONG > 4 || defined (HAVE_LONG_LONGS)