A few months back there was a big community fuss regarding direct-use

of the intel RDRAND instruction.  Consensus was RDRAND should probably
only be used as an additional source of entropy in a mixer.

Guess which library bends over backwards to provide easy access to
RDRAND?  Yep.  Guess which applications are using this support?  Not
even one... but still, this is being placed as a trap for someone.

Send this support straight to the abyss.
ok kettenis

2 files changed, 0 insertions, 21 deletions

diff --git a/src/lib/libcrypto/perlasm/x86_64-xlate.pl b/src/lib/libcrypto/perlasm/x86_64-xlate.pl
index 56d9b64b6f..2ad032c4ba 100755
--- a/src/lib/libcrypto/perlasm/x86_64-xlate.pl
+++ b/src/lib/libcrypto/perlasm/x86_64-xlate.pl
@@ -759,19 +759,6 @@ my $pclmulqdq = sub {
     }
 };
 
-my $rdrand = sub {
-    if (shift =~ /%[er](\w+)/) {
-      my @opcode=();
-      my $dst=$1;
-        if ($dst !~ /[0-9]+/) { $dst = $regrm{"%e$dst"}; }
-        rex(\@opcode,0,$1,8);
-        push @opcode,0x0f,0xc7,0xf0|($dst&7);
-        @opcode;
-    } else {
-        ();
-    }
-};
-
 if ($nasm) {
     print <<___;
 default rel
diff --git a/src/lib/libcrypto/perlasm/x86asm.pl b/src/lib/libcrypto/perlasm/x86asm.pl
index d74d1992f8..5916ea4f89 100644
--- a/src/lib/libcrypto/perlasm/x86asm.pl
+++ b/src/lib/libcrypto/perlasm/x86asm.pl
@@ -130,14 +130,6 @@ sub ::pclmulqdq
     {   &::generic("pclmulqdq",@_);             }
 }
 
-sub ::rdrand
-{ my ($dst)=@_;
-    if ($dst =~ /(e[a-dsd][ixp])/)
-    {   &::data_byte(0x0f,0xc7,0xf0|$regrm{$dst});      }
-    else
-    {   &::generic("rdrand",@_);        }
-}
-
 # label management
 $lbdecor="L";           # local label decoration, set by package
 $label="000";