upgrade to 3.6.2

[jnethack/source.git] / sys / vms / vmsmain.c

diff --git a/sys/vms/vmsmain.c b/sys/vms/vmsmain.c
index 75f321c..98f04be 100644 (file)
--- a/sys/vms/vmsmain.c
+++ b/sys/vms/vmsmain.c
@@ -465,4 +465,20 @@ wd_message()
         You("are in non-scoring explore/discovery mode.");
 }
 
+unsigned long
+sys_random_seed()
+{
+    unsigned long seed;
+    unsigned long pid = (unsigned long) getpid();
+
+    seed = (unsigned long) getnow(); /* time((TIME_type) 0) */
+    /* Quick dirty band-aid to prevent PRNG prediction */
+    if (pid) {
+        if (!(pid & 3L))
+            pid -= 1L;
+        seed *= pid;
+    }
+    return seed;
+}
+
 /*vmsmain.c*/