http://svn.poeml.de/viewvc/ppc/src-unpacked/xscreensaver/xscreensaver-4.12.tar.bz2...

[xscreensaver] / utils / yarandom.h

diff --git a/utils/yarandom.h b/utils/yarandom.h
index 5a23e43d27382f42035d2a04e25ed1729eb707ba..eb560a2fd04256a614d5cb30c0fde7cdffd6ff14 100644 (file)
--- a/utils/yarandom.h
+++ b/utils/yarandom.h
@@ -1,4 +1,4 @@
-/* xscreensaver, Copyright (c) 1997, 1998 by Jamie Zawinski <jwz@jwz.org>
+/* xscreensaver, Copyright (c) 1997, 1998, 2003 by Jamie Zawinski <jwz@jwz.org>
  *
  * Permission to use, copy, modify, distribute, and sell this software and its
  * documentation for any purpose is hereby granted without fee, provided that
@@ -29,7 +29,7 @@ extern unsigned int ya_random (void);
 extern void ya_rand_init (unsigned int);
 
 #define random()   ya_random()
-#define RAND_MAX   0x7FFFFFFF
+#define RAND_MAX   0xFFFFFFFF
 
 /*#define srandom(i) ya_rand_init(0)*/
 
@@ -47,16 +47,17 @@ extern void ya_rand_init (unsigned int);
  /* Implement frand using GCC's statement-expression extension. */
 
 # define frand(f)                                                      \
-  ({ double tmp = (((double) random()) /                               \
-                  (((double) ((unsigned int)~0)) / ((double) (f))));   \
+  __extension__                                                                \
+  ({ double tmp = ((((double) random()) * ((double) (f))) /            \
+                  ((double) ((unsigned int)~0)));                      \
      tmp < 0 ? (-tmp) : tmp; })
 
 #else /* not GCC2 - implement frand using a global variable.*/
 
 static double _frand_tmp_;
 # define frand(f)                                                      \
-  (_frand_tmp_ = (((double) random()) /                                \
-                 (((double) ((unsigned int)~0)) / ((double) (f)))),    \
+  (_frand_tmp_ = ((((double) random()) * ((double) (f))) /             \
+                 ((double) ((unsigned int)~0))),                       \
    _frand_tmp_ < 0 ? (-_frand_tmp_) : _frand_tmp_)
 
 #endif /* not GCC2 */