random.rdrand: adding RDRAND random generator.
parent
c3f6ee412c
commit
339be3f517
|
@ -0,0 +1 @@
|
||||||
|
John Benediktsson
|
|
@ -0,0 +1,13 @@
|
||||||
|
! Copyright (C) 2013 John Benediktsson
|
||||||
|
! See http://factorcode.org/license.txt for BSD license
|
||||||
|
|
||||||
|
USING: cpu.x86.features kernel random ;
|
||||||
|
|
||||||
|
IN: random.rdrand
|
||||||
|
|
||||||
|
SINGLETON: rdrand
|
||||||
|
|
||||||
|
M: rdrand random-32* drop rdrand32 ;
|
||||||
|
|
||||||
|
: with-rdrand ( quot -- )
|
||||||
|
[ rdrand ] dip with-random ; inline
|
|
@ -0,0 +1 @@
|
||||||
|
RDRAND random generator
|
Loading…
Reference in New Issue