summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorHallvard B Furuseth <h.b.furuseth@usit.uio.no>1997-04-14 19:58:38 +0200
committerChip Salzenberg <chip@atlantic.net>1997-04-15 00:00:00 +1200
commit43c928080ab3849e95bac569d60d022dc2b624ad (patch)
tree635f19fd1c64a018150b8ecf913c4d0dc5662bbc
parenteec2ebcd6172d47401e91c28ea90bf66faa8f4b5 (diff)
downloadperl-43c928080ab3849e95bac569d60d022dc2b624ad.tar.gz
Fix comments in seed()
private-msgid: 199704141758.TAA06895@bombur2.uio.no
-rw-r--r--pp.c3
1 files changed, 2 insertions, 1 deletions
diff --git a/pp.c b/pp.c
index 357f91e5ff..4effd286db 100644
--- a/pp.c
+++ b/pp.c
@@ -1392,9 +1392,10 @@ seed()
U32 u;
#ifdef VMS
# include <starlet.h>
+ /* when[] = (low 32 bits, high 32 bits) of time since epoch
+ * in 100-ns units, typically incremented ever 10 ms. */
unsigned int when[2];
_ckvmssts(sys$gettim(when));
- /* Please tell us: Which value is seconds and what is the other here? */
u = (U32)SEED_C1 * when[0] + (U32)SEED_C2 * when[1];
#else
# ifdef HAS_GETTIMEOFDAY