Changeset 3445

Timestamp:

Nov 20, 2012 11:54:29 PM (6 months ago)

Author:

quozl

Message:

OLPC XO-1 - fix missing random-long in oatstime utility by using the psuedo-random generator seeded with time and milliseconds since boot

File:

• cpu/x86/pc/olpc/oatstime.fth (modified) (1 diff)

cpu/x86/pc/olpc/oatstime.fth

@@ -317 +317 @@
    " flush-writes" $call-http
 ;
+[ifndef] random-long
+variable rn
+: random-long  rn @  d# 1103515245 *  d# 12345 +   h# 7FFFFFFF and  dup rn !  ;
+time&date >unix-seconds get-msecs xor rn !
+[then]
 0 value the-nonce
 : oats-msg$  ( -- msg$ )