From 68af4f7b3090d20c814f69ee738ed70773504560 Mon Sep 17 00:00:00 2001 From: "David E. O'Brien" Date: Mon, 30 Apr 2001 17:44:40 +0000 Subject: Use [s]random() rather than [s]rand(). Submitted by: kris --- lang/nawk/files/patch-run.c | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) create mode 100644 lang/nawk/files/patch-run.c (limited to 'lang') diff --git a/lang/nawk/files/patch-run.c b/lang/nawk/files/patch-run.c new file mode 100644 index 000000000000..430c350e847d --- /dev/null +++ b/lang/nawk/files/patch-run.c @@ -0,0 +1,21 @@ +--- run.c.orig Mon Oct 30 13:26:57 2000 ++++ run.c Mon Apr 30 00:00:26 2001 +@@ -1483,15 +1483,15 @@ + u = (Awkfloat) system(getsval(x)) / 256; /* 256 is unix-dep */ + break; + case FRAND: +- /* in principle, rand() returns something in 0..RAND_MAX */ +- u = (Awkfloat) (rand() % RAND_MAX) / RAND_MAX; ++ /* in principle, random() returns something in 0..RAND_MAX */ ++ u = (Awkfloat) (random() % RAND_MAX) / RAND_MAX; + break; + case FSRAND: + if (isrec(x)) /* no argument provided */ + u = time((time_t *)0); + else + u = getfval(x); +- srand((unsigned int) u); ++ srandom((unsigned int) u); + break; + case FTOUPPER: + case FTOLOWER: -- cgit v1.2.3