- unsigned long value;
-
- rng_get_bytes (rng, &value, sizeof value);
- return value / (double) ULONG_MAX;
+ for (;;)
+ {
+ unsigned long ulng;
+ double dbl;
+
+ rng_get_bytes (rng, &ulng, sizeof ulng);
+ dbl = ulng / (ULONG_MAX + 1.0);
+ if (dbl >= 0 && dbl < 1)
+ return dbl;
+ }