Packages

hackney

2.0.1
4.7.2 4.7.1 4.7.0 4.6.1 4.6.0 4.5.2 4.5.1 4.5.0 4.4.5 4.4.3 4.4.2 4.4.1 4.4.0 4.3.0 4.2.3 4.2.2 4.2.1 4.2.0 4.1.0 4.0.3 4.0.2 4.0.1 4.0.0 3.2.1 3.2.0 3.1.2 3.1.1 3.1.0 3.0.3 3.0.2 3.0.1 3.0.0 retired 2.0.1 2.0.0 2.0.0-beta.1 1.25.0 1.24.1 1.24.0 1.23.0 1.22.0 1.21.0 1.20.1 1.20.0 1.19.1 1.19.0 1.18.2 1.18.1 1.18.0 1.17.4 1.17.3 1.17.2 1.17.1 1.17.0 1.16.0 1.15.2 1.15.1 1.15.0 1.14.3 1.14.2 1.14.0 1.13.0 1.12.1 1.12.0 1.11.0 1.10.1 1.10.0 1.9.0 1.8.6 1.8.5 1.8.4 1.8.3 1.8.2 1.8.0 1.7.1 1.7.0 1.6.6 retired 1.6.5 1.6.4 retired 1.6.3 1.6.2 1.6.1 1.6.0 1.5.7 1.5.6 1.5.5 1.5.4 1.5.3 1.5.2 1.5.1 1.5.0 1.4.10 1.4.8 1.4.7 1.4.6 1.4.5 1.4.4 1.4.3 1.4.2 1.4.1 1.4.0 1.3.2 1.3.1 1.3.0 1.2.0 1.1.0 1.0.6 1.0.5 1.0.2 1.0.1 0.15.2 0.15.0 0.14.3 0.14.2 0.14.1 0.14.0 0.13.1

Simple HTTP client with HTTP/1.1, HTTP/2, and HTTP/3 support

Security advisory: This version has known vulnerabilities. View advisories
HexDocs

Current section

Files

Jump to
Readme
116 Versions
6 Dependencies
Dependants
12 Advisories
Files
Activity
hackney c_src boringssl crypto fipsmodule rand asm rdrand-x86_64.pl
Raw

c_src/boringssl/crypto/fipsmodule/rand/asm/rdrand-x86_64.pl 

#!/usr/bin/env perl



# Copyright 2015 The BoringSSL Authors

#

# Licensed under the Apache License, Version 2.0 (the "License");

# you may not use this file except in compliance with the License.

# You may obtain a copy of the License at

#

#     https://www.apache.org/licenses/LICENSE-2.0

#

# Unless required by applicable law or agreed to in writing, software

# distributed under the License is distributed on an "AS IS" BASIS,

# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.

# See the License for the specific language governing permissions and

# limitations under the License.



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

	_CET_ENDBR

	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

	_CET_ENDBR

	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 or die "error closing STDOUT: $!";	# flush