Changeset 3445


Ignore:
Timestamp:
Nov 20, 2012, 11:54:29 PM (17 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:
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.