Skip to content
体验新版
项目
组织
正在加载...
登录
切换导航
打开侧边栏
OpenHarmony
Third Party Openssl
提交
b57599b7
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看板
体验新版 GitCode,发现更多精彩内容 >>
提交
b57599b7
编写于
12月 27, 2009
作者:
A
Andy Polyakov
浏览文件
操作
浏览文件
下载
电子邮件补丁
差异文件
Update sha512-parisc.pl and add make rules.
上级
cb3b9b13
变更
2
隐藏空白更改
内联
并排
Showing
2 changed file
with
12 addition
and
7 deletion
+12
-7
crypto/sha/Makefile
crypto/sha/Makefile
+4
-0
crypto/sha/asm/sha512-parisc.pl
crypto/sha/asm/sha512-parisc.pl
+8
-7
未找到文件。
crypto/sha/Makefile
浏览文件 @
b57599b7
...
...
@@ -71,6 +71,10 @@ sha1-ppc.s: asm/sha1-ppc.pl; $(PERL) asm/sha1-ppc.pl $(PERLASM_SCHEME) $@
sha256-ppc.s
:
asm/sha512-ppc.pl; $(PERL) asm/sha512-ppc.pl $(PERLASM_SCHEME) $@
sha512-ppc.s
:
asm/sha512-ppc.pl; $(PERL) asm/sha512-ppc.pl $(PERLASM_SCHEME) $@
sha1-parisc.s
:
asm/sha1-parisc.pl; $(PERL) asm/sha1-parisc.pl $(PERLASM_SCHEME) $@
sha256-parisc.s
:
asm/sha512-parisc.pl; $(PERL) asm/sha512-parisc.pl $(PERLASM_SCHEME) $@
sha512-parisc.s
:
asm/sha512-parisc.pl; $(PERL) asm/sha512-parisc.pl $(PERLASM_SCHEME) $@
# GNU make "catch all"
sha1-%.s
:
asm/sha1-%.pl; $(PERL) $< $@
sha256-%.s
:
asm/sha512-%.pl; $(PERL) $< $@
...
...
crypto/sha/asm/sha512-parisc.pl
浏览文件 @
b57599b7
...
...
@@ -391,7 +391,7 @@ $code.=<<___;
shd $elo,$ehi,$Sigma1[0],$t1
addc $Xhi,$hhi,$hhi ; h += X[i]
shd $ehi,$elo,$Sigma1[1],$t2
ldw
,ma
8($Tbl),$Xhi
ldw
m
8($Tbl),$Xhi
shd $elo,$ehi,$Sigma1[1],$t3
ldw -4($Tbl),$Xlo ; load K[i]
xor $t2,$t0,$t0
...
...
@@ -694,9 +694,10 @@ my $ldd = sub {
my
(
$mod
,
$args
)
=
@_
;
my
$orig
=
"
ldd
$mod
\t
$args
";
if
(
$args
=~
/([0-9]+)\(%r([0-9]+)\),%r([0-9]+)/
)
# format 3 suffices
{
my
$opcode
=
(
0x14
<<
26
)
|
(
$
2
<<
21
)
|
(
$
3
<<
16
)
|
(
$
1
<<
1
);
$opcode
|=
0x8
if
(
$mod
eq
"
,ma
");
if
(
$args
=~
/(\-[0-9]+)\(%r([0-9]+)\),%r([0-9]+)/
)
# format 3 suffices
{
my
$opcode
=
(
0x14
<<
26
)
|
(
$
2
<<
21
)
|
(
$
3
<<
16
)
|
((
$
1
&
0x1FF8
)
<<
1
)
|
((
$
1
>>
13
)
&
1
);
$opcode
|=
(
1
<<
3
)
if
(
$mod
=~
/^,m/
);
$opcode
|=
(
1
<<
2
)
if
(
$mod
=~
/^,mb/
);
sprintf
"
\t
.WORD
\t
0x%08x
\t
; %s
",
$opcode
,
$orig
;
}
else
{
"
\t
"
.
$orig
;
}
...
...
@@ -706,9 +707,9 @@ my $std = sub {
my
(
$mod
,
$args
)
=
@_
;
my
$orig
=
"
std
$mod
\t
$args
";
if
(
$args
=~
/%r([0-9]+),([0-9]+)\(%r([0-9]+)\)/
)
# format 3 suffices
{
sprintf
"
\t
.WORD
\t
0x%08x
\t
; %s
",
(
0x1c
<<
26
)
|
(
$
3
<<
21
)
|
(
$
1
<<
16
)
|
(
$
2
<<
1
)
,
$orig
;
if
(
$args
=~
/%r([0-9]+),(
\-
[0-9]+)\(%r([0-9]+)\)/
)
# format 3 suffices
{
my
$opcode
=
(
0x1c
<<
26
)
|
(
$
3
<<
21
)
|
(
$
1
<<
16
)
|
((
$
2
&
0x1FF8
)
<<
1
)
|
((
$
2
>>
13
)
&
1
);
sprintf
"
\t
.WORD
\t
0x%08x
\t
; %s
",
$opcode
,
$orig
;
}
else
{
"
\t
"
.
$orig
;
}
};
...
...
编辑
预览
Markdown
is supported
0%
请重试
或
添加新附件
.
添加附件
取消
You are about to add
0
people
to the discussion. Proceed with caution.
先完成此消息的编辑!
取消
想要评论请
注册
或
登录