Changeset 3445


Ignore:
Timestamp:
Nov 20, 2012, 11:54:29 PM (3 years 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:
1 edited

Legend:

Unmodified
Added
Removed
  • cpu/x86/pc/olpc/oatstime.fth

    r3134 r3445  
    317317   " flush-writes" $call-http
    318318;
     319[ifndef] random-long
     320variable rn
     321: random-long  rn @  d# 1103515245 *  d# 12345 +   h# 7FFFFFFF and  dup rn !  ;
     322time&date >unix-seconds get-msecs xor rn !
     323[then]
    3193240 value the-nonce
    320325: oats-msg$  ( -- msg$ )
Note: See TracChangeset for help on using the changeset viewer.