2e819d8be4
But for the ABI conversion bits, these are just leaf functions and don't even need unwind tables. Just renumber the registers on Windows to only used volatile ones. In doing so, this switches to writing rdrand explicitly. perlasm already knows how to manually encode it and our minimum assembler versions surely cover rdrand by now anyway. Also add the .size directive. I'm not sure what it's used for, but the other files have it. (This isn't a generally reusable technique. The more complex functions will need actual unwind codes.) Bug: 259 Change-Id: I1d5669bcf8b6e34939885d78aea6f60597be1528 Reviewed-on: https://boringssl-review.googlesource.com/c/34867 Commit-Queue: Adam Langley <agl@google.com> Reviewed-by: Adam Langley <agl@google.com>
88 lines
2.5 KiB
Perl
88 lines
2.5 KiB
Perl
#!/usr/bin/env perl
|
|
|
|
# Copyright (c) 2015, Google Inc.
|
|
#
|
|
# Permission to use, copy, modify, and/or distribute this software for any
|
|
# purpose with or without fee is hereby granted, provided that the above
|
|
# copyright notice and this permission notice appear in all copies.
|
|
#
|
|
# THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
|
|
# WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
|
|
# MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY
|
|
# SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
|
|
# WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION
|
|
# OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN
|
|
# CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. */
|
|
|
|
use strict;
|
|
|
|
my $flavour = shift;
|
|
my $output = shift;
|
|
if ($flavour =~ /\./) { $output = $flavour; undef $flavour; }
|
|
|
|
my $win64 = 0;
|
|
$win64 = 1 if ($flavour =~ /[nm]asm|mingw64/ || $output =~ /\.asm$/);
|
|
|
|
$0 =~ m/(.*[\/\\])[^\/\\]+$/;
|
|
my $dir = $1;
|
|
my $xlate;
|
|
( $xlate="${dir}../../../perlasm/x86_64-xlate.pl" and -f $xlate) or
|
|
die "can't locate x86_64-xlate.pl";
|
|
|
|
open OUT,"| \"$^X\" $xlate $flavour $output";
|
|
*STDOUT=*OUT;
|
|
|
|
my ($out, $len, $tmp1, $tmp2) = $win64 ? ("%rcx", "%rdx", "%r8", "%r9")
|
|
: ("%rdi", "%rsi", "%rdx", "%rcx");
|
|
|
|
print<<___;
|
|
.text
|
|
|
|
# CRYPTO_rdrand writes eight bytes of random data from the hardware RNG to
|
|
# |out|. It returns one on success or zero on hardware failure.
|
|
# int CRYPTO_rdrand(uint8_t out[8]);
|
|
.globl CRYPTO_rdrand
|
|
.type CRYPTO_rdrand,\@abi-omnipotent
|
|
.align 16
|
|
CRYPTO_rdrand:
|
|
.cfi_startproc
|
|
xorq %rax, %rax
|
|
rdrand $tmp1
|
|
# An add-with-carry of zero effectively sets %rax to the carry flag.
|
|
adcq %rax, %rax
|
|
movq $tmp1, 0($out)
|
|
retq
|
|
.cfi_endproc
|
|
.size CRYPTO_rdrand,.-CRYPTO_rdrand
|
|
|
|
# CRYPTO_rdrand_multiple8_buf fills |len| bytes at |buf| with random data from
|
|
# the hardware RNG. The |len| argument must be a multiple of eight. It returns
|
|
# one on success and zero on hardware failure.
|
|
# int CRYPTO_rdrand_multiple8_buf(uint8_t *buf, size_t len);
|
|
.globl CRYPTO_rdrand_multiple8_buf
|
|
.type CRYPTO_rdrand_multiple8_buf,\@abi-omnipotent
|
|
.align 16
|
|
CRYPTO_rdrand_multiple8_buf:
|
|
.cfi_startproc
|
|
test $len, $len
|
|
jz .Lout
|
|
movq \$8, $tmp1
|
|
.Lloop:
|
|
rdrand $tmp2
|
|
jnc .Lerr
|
|
movq $tmp2, 0($out)
|
|
addq $tmp1, $out
|
|
subq $tmp1, $len
|
|
jnz .Lloop
|
|
.Lout:
|
|
movq \$1, %rax
|
|
retq
|
|
.Lerr:
|
|
xorq %rax, %rax
|
|
retq
|
|
.cfi_endproc
|
|
.size CRYPTO_rdrand_multiple8_buf,.-CRYPTO_rdrand_multiple8_buf
|
|
___
|
|
|
|
close STDOUT; # flush
|