Bell 32V development

Work on file usr/src/libc/gen/rand.c

Co-Authored-By: John Reiser <jfr@research.uucp>
Synthesized-from: 32v

diff --git a/usr/src/libc/gen/rand.c b/usr/src/libc/gen/rand.c
new file mode 100644 (file)
index 0000000..eff6735
--- /dev/null
+++ b/usr/src/libc/gen/rand.c
@@ -0,0 +1,12 @@
+static long    randx = 1;
+
+srand(x)
+unsigned x;
+{
+       randx = x;
+}
+
+rand()
+{
+       return((randx = randx * 1103515245 + 12345) & 0x7fffffff);
+}