generic-library/openssl
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

crypto/bn/asm/rsax-x86_64.pl: make it work on Darwin.

Browse Source
This commit is contained in:
Andy Polyakov 2013-08-03 16:28:50 +02:00
parent 006784378d
commit fd8ad019e1
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
crypto/bn/asm/rsaz-x86_64.pl
View File

@ -729,7 +729,7 @@ ___
{ {
my ($out,$ap,$bp,$mod,$n0) = ("%rdi","%rsi","%rdx","%rcx","%r8"); my ($out,$ap,$bp,$mod,$n0) = ("%rdi","%rsi","%rdx","%rcx","%r8");
$code.=<<___; $code.=<<___;
.global rsaz_512_mul .globl rsaz_512_mul
.type rsaz_512_mul,\@function,5 .type rsaz_512_mul,\@function,5
.align 32 .align 32
rsaz_512_mul: rsaz_512_mul:
@ -747,7 +747,7 @@ rsaz_512_mul:
movq $n0, 128(%rsp) movq $n0, 128(%rsp)
movq $bp, %rbp # pass argument movq $bp, %rbp # pass argument
call _rsaz_512_mul call __rsaz_512_mul
movq %xmm0, $out movq %xmm0, $out
movq %xmm1, %rbp movq %xmm1, %rbp
@ -791,7 +791,7 @@ ___
{ {
my ($out,$ap,$bp,$mod,$n0,$pwr) = ("%rdi","%rsi","%rdx","%rcx","%r8","%r9d"); my ($out,$ap,$bp,$mod,$n0,$pwr) = ("%rdi","%rsi","%rdx","%rcx","%r8","%r9d");
$code.=<<___; $code.=<<___;
.global rsaz_512_mul_gather4 .globl rsaz_512_mul_gather4
.type rsaz_512_mul_gather4,\@function,6 .type rsaz_512_mul_gather4,\@function,6
.align 32 .align 32
rsaz_512_mul_gather4: rsaz_512_mul_gather4:
@ -999,7 +999,7 @@ ___
{ {
my ($out,$ap,$mod,$n0,$tbl,$pwr) = ("%rdi","%rsi","%rdx","%rcx","%r8","%r9d"); my ($out,$ap,$mod,$n0,$tbl,$pwr) = ("%rdi","%rsi","%rdx","%rcx","%r8","%r9d");
$code.=<<___; $code.=<<___;
.global rsaz_512_mul_scatter4 .globl rsaz_512_mul_scatter4
.type rsaz_512_mul_scatter4,\@function,6 .type rsaz_512_mul_scatter4,\@function,6
.align 32 .align 32
rsaz_512_mul_scatter4: rsaz_512_mul_scatter4:
@ -1019,7 +1019,7 @@ rsaz_512_mul_scatter4:
movq $n0, 128(%rsp) movq $n0, 128(%rsp)
movq $out, %rbp movq $out, %rbp
call _rsaz_512_mul call __rsaz_512_mul
movq %xmm0, $out movq %xmm0, $out
movq %xmm1, %rbp movq %xmm1, %rbp
@ -1359,16 +1359,16 @@ _rsaz_512_subtract:
.size _rsaz_512_subtract,.-_rsaz_512_subtract .size _rsaz_512_subtract,.-_rsaz_512_subtract
___ ___
} }
{ # _rsaz_512_mul { # __rsaz_512_mul
# #
# input: %rsi - ap, %rbp - bp # input: %rsi - ap, %rbp - bp
# ouput: # ouput:
# clobbers: everything # clobbers: everything
my ($ap,$bp) = ("%rsi","%rbp"); my ($ap,$bp) = ("%rsi","%rbp");
$code.=<<___; $code.=<<___;
.type _rsaz_512_mul,\@abi-omnipotent .type __rsaz_512_mul,\@abi-omnipotent
.align 32 .align 32
_rsaz_512_mul: __rsaz_512_mul:
leaq 8(%rsp), %rdi leaq 8(%rsp), %rdi
movq ($bp), %rbx movq ($bp), %rbx
@ -1508,7 +1508,7 @@ _rsaz_512_mul:
movq %r15, 56(%rdi) movq %r15, 56(%rdi)
ret ret
.size _rsaz_512_mul,.-_rsaz_512_mul .size __rsaz_512_mul,.-__rsaz_512_mul
___ ___
} }
{ {