Attachment 147313 Details for Bug 193147 – svn-ready patch.

[patch] svn-ready patch.

awk-random.diff (text/plain), 1.50 KB, created by Pedro F. Giffuni on 2014-09-14 14:45:02 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Pedro F. Giffuni

Created: 2014-09-14 14:45:02 UTC

Size: 1.50 KB

patch

obsolete

>Index: contrib/one-true-awk/awk.1
>===================================================================
>--- contrib/one-true-awk/awk.1	(revision 271535)
>+++ contrib/one-true-awk/awk.1	(working copy)
>@@ -208,7 +208,7 @@
> if no argument.
> .TP
> .B rand
>-random number on (0,1)
>+random number on [0,1)
> .TP
> .B srand
> sets seed for
>Index: contrib/one-true-awk/main.c
>===================================================================
>--- contrib/one-true-awk/main.c	(revision 271535)
>+++ contrib/one-true-awk/main.c	(working copy)
>@@ -74,7 +74,7 @@
> 	signal(SIGFPE, fpecatch);
> 
> 	srand_seed = 1;
>-	srand(srand_seed);
>+	srandom((unsigned long) srand_seed);
> 
> 	yyin = NULL;
> 	symtab = makesymtab(NSYMTAB/NSYMTAB);
>Index: contrib/one-true-awk/run.c
>===================================================================
>--- contrib/one-true-awk/run.c	(revision 271535)
>+++ contrib/one-true-awk/run.c	(working copy)
>@@ -1521,8 +1521,10 @@
> 		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;
>+		/* random() returns numbers in [0..2^31-1]
>+		 * in order to get a number in [0, 1), divide it by 2^31
>+		 */
>+		u = (Awkfloat) random() / (0x7fffffffL + 0x1UL);
> 		break;
> 	case FSRAND:
> 		if (isrec(x))	/* no argument provided */
>@@ -1530,7 +1532,7 @@
> 		else
> 			u = getfval(x);
> 		tmp = u;
>-		srand((unsigned int) u);
>+		srandom((unsigned long) u);
> 		u = srand_seed;
> 		srand_seed = tmp;
> 		break;

Actions: View | Diff

Attachments on bug 193147: 146536 | 147313