home *** CD-ROM | disk | FTP | other *** search
/ APDL Public Domain 1 / APDL_PD1A.iso / program / c / gmp / tests / h / urandom
Encoding:
Text File  |  1995-02-22  |  400 b   |  23 lines
  1. #if defined (hpux) || defined (__alpha__)
  2. /* HPUX lacks random().  DEC Alpha's random() returns a double.  */
  3. static inline unsigned long
  4. urandom ()
  5. {
  6.   return mrand48 ();
  7. }
  8. #else
  9. #ifdef ARCH
  10. #include <stdlib.h>
  11. #define random() rand()
  12. #else
  13. long random ();
  14. #endif
  15.  
  16. static inline unsigned long
  17. urandom ()
  18. {
  19.   /* random() returns 31 bits, we want 32.  */
  20.   return random() ^ (random() << 1);
  21. }
  22. #endif
  23.