random.rdrand: adding RDRAND random generator.

db4
John Benediktsson 2013-04-25 14:39:38 -07:00
parent c3f6ee412c
commit 339be3f517
3 changed files with 15 additions and 0 deletions

View File

@ -0,0 +1 @@
John Benediktsson

View File

@ -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

View File

@ -0,0 +1 @@
RDRAND random generator