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