initialize the system PRNG with the parrot one

moritz · moritz · commit 3a1258de0796 · 2013-01-11T20:29:50.000+01:00
diff --git a/src/ops/nqp_bigint.ops b/src/ops/nqp_bigint.ops
@@ -149,7 +149,7 @@ inline op nqp_bigint_setup() :base_core {
         bigint_repr_id = REGISTER_DYNAMIC_REPR(interp,
             Parrot_str_new_constant(interp, "P6bigint"),
             P6bigint_initialize);
-        srand(time(NULL));
+        srand((unsigned int) Parrot_util_int_rand(0));
     }
 }
 

Original file line number	Diff line number	Diff line change
`@@ -149,7 +149,7 @@ inline op nqp_bigint_setup() :base_core {`
`149`	`149`	`bigint_repr_id = REGISTER_DYNAMIC_REPR(interp,`
`150`	`150`	`Parrot_str_new_constant(interp, "P6bigint"),`
`151`	`151`	`P6bigint_initialize);`
`152`		`- srand(time(NULL));`
	`152`	`+ srand((unsigned int) Parrot_util_int_rand(0));`
`153`	`153`	`}`
`154`	`154`	`}`
`155`	`155`