Skip to content
体验新版
项目
组织
正在加载...
登录
切换导航
打开侧边栏
OpenHarmony
Third Party Openssl
提交
46bf83f0
T
Third Party Openssl
项目概览
OpenHarmony
/
Third Party Openssl
1 年多 前同步成功
通知
9
Star
18
Fork
1
代码
文件
提交
分支
Tags
贡献者
分支图
Diff
Issue
0
列表
看板
标记
里程碑
合并请求
0
Wiki
0
Wiki
分析
仓库
DevOps
项目成员
Pages
T
Third Party Openssl
项目概览
项目概览
详情
发布
仓库
仓库
文件
提交
分支
标签
贡献者
分支图
比较
Issue
0
Issue
0
列表
看板
标记
里程碑
合并请求
0
合并请求
0
Pages
分析
分析
仓库分析
DevOps
Wiki
0
Wiki
成员
成员
收起侧边栏
关闭侧边栏
动态
分支图
创建新Issue
提交
Issue看板
提交
46bf83f0
编写于
1月 22, 2013
作者:
A
Andy Polyakov
浏览文件
操作
浏览文件
下载
电子邮件补丁
差异文件
x86_64 assembly pack: make Windows build more robust.
PR: 2963 and a number of others
上级
7c47f0d9
变更
17
显示空白变更内容
内联
并排
Showing
17 changed file
with
34 addition
and
17 deletion
+34
-17
crypto/aes/asm/aes-x86_64.pl
crypto/aes/asm/aes-x86_64.pl
+2
-1
crypto/aes/asm/aesni-sha1-x86_64.pl
crypto/aes/asm/aesni-sha1-x86_64.pl
+2
-1
crypto/aes/asm/aesni-x86_64.pl
crypto/aes/asm/aesni-x86_64.pl
+2
-1
crypto/aes/asm/bsaes-x86_64.pl
crypto/aes/asm/bsaes-x86_64.pl
+2
-1
crypto/aes/asm/vpaes-x86_64.pl
crypto/aes/asm/vpaes-x86_64.pl
+2
-1
crypto/bn/asm/modexp512-x86_64.pl
crypto/bn/asm/modexp512-x86_64.pl
+2
-1
crypto/camellia/asm/cmll-x86_64.pl
crypto/camellia/asm/cmll-x86_64.pl
+2
-1
crypto/md5/asm/md5-x86_64.pl
crypto/md5/asm/md5-x86_64.pl
+2
-1
crypto/modes/asm/ghash-x86_64.pl
crypto/modes/asm/ghash-x86_64.pl
+2
-1
crypto/rc4/asm/rc4-md5-x86_64.pl
crypto/rc4/asm/rc4-md5-x86_64.pl
+2
-1
crypto/rc4/asm/rc4-x86_64.pl
crypto/rc4/asm/rc4-x86_64.pl
+2
-1
crypto/sha/asm/sha1-x86_64.pl
crypto/sha/asm/sha1-x86_64.pl
+2
-1
crypto/sha/asm/sha512-x86_64.pl
crypto/sha/asm/sha512-x86_64.pl
+2
-1
crypto/whrlpool/asm/wp-x86_64.pl
crypto/whrlpool/asm/wp-x86_64.pl
+2
-1
crypto/x86_64cpuid.pl
crypto/x86_64cpuid.pl
+2
-1
engines/asm/e_padlock-x86_64.pl
engines/asm/e_padlock-x86_64.pl
+2
-1
ms/uplink-x86_64.pl
ms/uplink-x86_64.pl
+2
-1
未找到文件。
crypto/aes/asm/aes-x86_64.pl
浏览文件 @
46bf83f0
...
...
@@ -37,7 +37,8 @@ $0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1;
(
$xlate
=
"
${dir}
../../perlasm/x86_64-xlate.pl
"
and
-
f
$xlate
)
or
die
"
can't locate x86_64-xlate.pl
";
open
STDOUT
,"
|
\"
$^X
\"
$xlate
$flavour
$output
";
open
OUT
,"
|
\"
$^X
\"
$xlate
$flavour
$output
";
*STDOUT
=
*OUT
;
$verticalspin
=
1
;
# unlike 32-bit version $verticalspin performs
# ~15% better on both AMD and Intel cores
...
...
crypto/aes/asm/aesni-sha1-x86_64.pl
浏览文件 @
46bf83f0
...
...
@@ -77,7 +77,8 @@ $avx=1 if (!$avx && $win64 && ($flavour =~ /masm/ || $ENV{ASM} =~ /ml64/) &&
`
ml64 2>&1
`
=~
/Version ([0-9]+)\./
&&
$
1
>=
10
);
open
STDOUT
,"
|
\"
$^X
\"
$xlate
$flavour
$output
";
open
OUT
,"
|
\"
$^X
\"
$xlate
$flavour
$output
";
*STDOUT
=
*OUT
;
# void aesni_cbc_sha1_enc(const void *inp,
# void *out,
...
...
crypto/aes/asm/aesni-x86_64.pl
浏览文件 @
46bf83f0
...
...
@@ -179,7 +179,8 @@ $0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1;
(
$xlate
=
"
${dir}
../../perlasm/x86_64-xlate.pl
"
and
-
f
$xlate
)
or
die
"
can't locate x86_64-xlate.pl
";
open
STDOUT
,"
|
\"
$^X
\"
$xlate
$flavour
$output
";
open
OUT
,"
|
\"
$^X
\"
$xlate
$flavour
$output
";
*STDOUT
=
*OUT
;
$movkey
=
$PREFIX
eq
"
aesni
"
?
"
movups
"
:
"
movups
";
@
_4args
=
$win64
?
("
%rcx
","
%rdx
","
%r8
",
"
%r9
")
:
# Win64 order
...
...
crypto/aes/asm/bsaes-x86_64.pl
浏览文件 @
46bf83f0
...
...
@@ -105,7 +105,8 @@ $0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1;
(
$xlate
=
"
${dir}
../../perlasm/x86_64-xlate.pl
"
and
-
f
$xlate
)
or
die
"
can't locate x86_64-xlate.pl
";
open
STDOUT
,"
|
\"
$^X
\"
$xlate
$flavour
$output
";
open
OUT
,"
|
\"
$^X
\"
$xlate
$flavour
$output
";
*STDOUT
=
*OUT
;
my
(
$inp
,
$out
,
$len
,
$key
,
$ivp
)
=
("
%rdi
","
%rsi
","
%rdx
","
%rcx
");
my
@XMM
=
map
("
%xmm
$_
",(
15
,
0
..
14
));
# best on Atom, +10% over (0..15)
...
...
crypto/aes/asm/vpaes-x86_64.pl
浏览文件 @
46bf83f0
...
...
@@ -56,7 +56,8 @@ $0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1;
(
$xlate
=
"
${dir}
../../perlasm/x86_64-xlate.pl
"
and
-
f
$xlate
)
or
die
"
can't locate x86_64-xlate.pl
";
open
STDOUT
,"
|
\"
$^X
\"
$xlate
$flavour
$output
";
open
OUT
,"
|
\"
$^X
\"
$xlate
$flavour
$output
";
*STDOUT
=
*OUT
;
$PREFIX
=
"
vpaes
";
...
...
crypto/bn/asm/modexp512-x86_64.pl
浏览文件 @
46bf83f0
...
...
@@ -68,7 +68,8 @@ $0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1;
(
$xlate
=
"
${dir}
../../perlasm/x86_64-xlate.pl
"
and
-
f
$xlate
)
or
die
"
can't locate x86_64-xlate.pl
";
open
STDOUT
,"
|
\"
$^X
\"
$xlate
$flavour
$output
";
open
OUT
,"
|
\"
$^X
\"
$xlate
$flavour
$output
";
*STDOUT
=
*OUT
;
use
strict
;
my
$code
=
"
.text
\n\n
";
...
...
crypto/camellia/asm/cmll-x86_64.pl
浏览文件 @
46bf83f0
...
...
@@ -40,7 +40,8 @@ $0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1;
(
$xlate
=
"
${dir}
../../perlasm/x86_64-xlate.pl
"
and
-
f
$xlate
)
or
die
"
can't locate x86_64-xlate.pl
";
open
STDOUT
,"
|
\"
$^X
\"
$xlate
$flavour
$output
";
open
OUT
,"
|
\"
$^X
\"
$xlate
$flavour
$output
";
*STDOUT
=
*OUT
;
sub
hi
()
{
my
$r
=
shift
;
$r
=~
s/%[er]([a-d])x/%\1h/
;
$r
;
}
sub
lo
()
{
my
$r
=
shift
;
$r
=~
s/%[er]([a-d])x/%\1l/
;
...
...
crypto/md5/asm/md5-x86_64.pl
浏览文件 @
46bf83f0
...
...
@@ -117,7 +117,8 @@ $0 =~ m/(.*[\/\\])[^\/\\]+$/; my $dir=$1; my $xlate;
die
"
can't locate x86_64-xlate.pl
";
no
warnings
qw(uninitialized)
;
open
STDOUT
,"
|
\"
$^X
\"
$xlate
$flavour
$output
";
open
OUT
,"
|
\"
$^X
\"
$xlate
$flavour
$output
";
*STDOUT
=
*OUT
;
$code
.=
<<EOF;
.text
...
...
crypto/modes/asm/ghash-x86_64.pl
浏览文件 @
46bf83f0
...
...
@@ -52,7 +52,8 @@ $0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1;
(
$xlate
=
"
${dir}
../../perlasm/x86_64-xlate.pl
"
and
-
f
$xlate
)
or
die
"
can't locate x86_64-xlate.pl
";
open
STDOUT
,"
|
\"
$^X
\"
$xlate
$flavour
$output
";
open
OUT
,"
|
\"
$^X
\"
$xlate
$flavour
$output
";
*STDOUT
=
*OUT
;
# common register layout
$nlo
=
"
%rax
";
...
...
crypto/rc4/asm/rc4-md5-x86_64.pl
浏览文件 @
46bf83f0
...
...
@@ -54,7 +54,8 @@ $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
STDOUT
,"
|
\"
$^X
\"
$xlate
$flavour
$output
";
open
OUT
,"
|
\"
$^X
\"
$xlate
$flavour
$output
";
*STDOUT
=
*OUT
;
my
(
$dat
,
$in0
,
$out
,
$ctx
,
$inp
,
$len
,
$func
,
$nargs
);
...
...
crypto/rc4/asm/rc4-x86_64.pl
浏览文件 @
46bf83f0
...
...
@@ -115,7 +115,8 @@ $0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1;
(
$xlate
=
"
${dir}
../../perlasm/x86_64-xlate.pl
"
and
-
f
$xlate
)
or
die
"
can't locate x86_64-xlate.pl
";
open
STDOUT
,"
|
\"
$^X
\"
$xlate
$flavour
$output
";
open
OUT
,"
|
\"
$^X
\"
$xlate
$flavour
$output
";
*STDOUT
=
*OUT
;
$dat
=
"
%rdi
";
# arg1
$len
=
"
%rsi
";
# arg2
...
...
crypto/sha/asm/sha1-x86_64.pl
浏览文件 @
46bf83f0
...
...
@@ -85,7 +85,8 @@ $avx=1 if (!$avx && $win64 && ($flavour =~ /masm/ || $ENV{ASM} =~ /ml64/) &&
`
ml64 2>&1
`
=~
/Version ([0-9]+)\./
&&
$
1
>=
10
);
open
STDOUT
,"
|
\"
$^X
\"
$xlate
$flavour
$output
";
open
OUT
,"
|
\"
$^X
\"
$xlate
$flavour
$output
";
*STDOUT
=
*OUT
;
$ctx
=
"
%rdi
";
# 1st arg
$inp
=
"
%rsi
";
# 2nd arg
...
...
crypto/sha/asm/sha512-x86_64.pl
浏览文件 @
46bf83f0
...
...
@@ -103,7 +103,8 @@ $avx=1 if (!$avx && $win64 && ($flavour =~ /masm/ || $ENV{ASM} =~ /ml64/) &&
`
ml64 2>&1
`
=~
/Version ([0-9]+)\./
&&
$
1
>=
10
);
open
STDOUT
,"
|
\"
$^X
\"
$xlate
$flavour
$output
";
open
OUT
,"
|
\"
$^X
\"
$xlate
$flavour
$output
";
*STDOUT
=
*OUT
;
if
(
$output
=~
/512/
)
{
$func
=
"
sha512_block_data_order
";
...
...
crypto/whrlpool/asm/wp-x86_64.pl
浏览文件 @
46bf83f0
...
...
@@ -41,7 +41,8 @@ $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
STDOUT
,"
|
\"
$^X
\"
$xlate
$flavour
$output
";
open
OUT
,"
|
\"
$^X
\"
$xlate
$flavour
$output
";
*STDOUT
=
*OUT
;
sub
L
()
{
$code
.=
"
.byte
"
.
join
('
,
',
@
_
)
.
"
\n
";
}
sub
LL
(){
$code
.=
"
.byte
"
.
join
('
,
',
@
_
)
.
"
,
"
.
join
('
,
',
@
_
)
.
"
\n
";
}
...
...
crypto/x86_64cpuid.pl
浏览文件 @
46bf83f0
...
...
@@ -11,7 +11,8 @@ $0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1;
(
$xlate
=
"
${dir}
perlasm/x86_64-xlate.pl
"
and
-
f
$xlate
)
or
die
"
can't locate x86_64-xlate.pl
";
open
STDOUT
,"
|
\"
$^X
\"
$xlate
$flavour
$output
";
open
OUT
,"
|
\"
$^X
\"
$xlate
$flavour
$output
";
*STDOUT
=
*OUT
;
(
$arg1
,
$arg2
,
$arg3
,
$arg4
)
=
$win64
?("
%rcx
","
%rdx
","
%r8
",
"
%r9
")
:
# Win64 order
("
%rdi
","
%rsi
","
%rdx
","
%rcx
");
# Unix order
...
...
engines/asm/e_padlock-x86_64.pl
浏览文件 @
46bf83f0
...
...
@@ -23,7 +23,8 @@ $0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1;
(
$xlate
=
"
${dir}
../../crypto/perlasm/x86_64-xlate.pl
"
and
-
f
$xlate
)
or
die
"
can't locate x86_64-xlate.pl
";
open
STDOUT
,"
|
\"
$^X
\"
$xlate
$flavour
$output
";
open
OUT
,"
|
\"
$^X
\"
$xlate
$flavour
$output
";
*STDOUT
=
*OUT
;
$code
=
"
.text
\n
";
...
...
ms/uplink-x86_64.pl
浏览文件 @
46bf83f0
...
...
@@ -2,7 +2,8 @@
$output
=
shift
;
$
0
=~
m/(.*[\/\\])[^\/\\]+$/
;
$dir
=
$
1
;
open
STDOUT
,"
|
\"
$^X
\"
${dir}
../crypto/perlasm/x86_64-xlate.pl
$output
";
open
OUT
,"
|
\"
$^X
\"
${dir}
../crypto/perlasm/x86_64-xlate.pl
$output
";
*STDOUT
=
*OUT
;
push
(
@INC
,"
${dir}
.
");
require
"
uplink-common.pl
";
...
...
编辑
预览
Markdown
is supported
0%
请重试
或
添加新附件
.
添加附件
取消
You are about to add
0
people
to the discussion. Proceed with caution.
先完成此消息的编辑!
取消
想要评论请
注册
或
登录