1 #!/usr/bin/env perl 2 3 $flavour = shift; 4 $output = shift; 5 if ($flavour =~ /\./) { $output = $flavour; undef $flavour; } 6 7 $0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1; 8 ( $xlate="${dir}../../perlasm/x86_64-xlate.pl" and -f $xlate) or 9 die "can't locate x86_64-xlate.pl"; 10 11 open OUT,"| \"$^X\" $xlate $flavour $output"; 12 *STDOUT=*OUT; 13 14 print<<___; 15 .text 16 17 .globl CRYPTO_rdrand 18 .type CRYPTO_rdrand,\@function,1 19 .align 16 20 CRYPTO_rdrand: 21 .byte 0x48, 0x0f, 0xc7, 0xf0 22 retq 23 ___ 24 25 close STDOUT; # flush 26