patch for HPUX (no random function)

git-svn-id: svn://scm.gforge.inria.fr/svn/mpfr/trunk@328 280ebfd0-de03-0410-8827-d642c229c3f4

1 files changed, 7 insertions, 0 deletions

diff --git a/random.c b/random.c
index a5325c3b0..a4d32a8fb 100644
--- a/random.c
+++ b/random.c
@@ -9,6 +9,13 @@
 extern long random _PROTO((void)); 
 extern int srandom _PROTO((unsigned int)); 
 
+/* extracted from GNU mpf */
+#if defined (__hpux) || defined (__alpha)
+/* HPUX lacks random().  DEC OSF/1 1.2 random() returns a double.  */
+#define random mrand48
+#define srandom srand48
+#endif
+
 void
 #if __STDC__
 mpfr_random(mpfr_ptr x)