Skip to content
体验新版
项目
组织
正在加载...
登录
切换导航
打开侧边栏
OpenHarmony
Third Party Openssl
提交
3fc2efd2
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,发现更多精彩内容 >>
提交
3fc2efd2
编写于
12月 28, 2009
作者:
A
Andy Polyakov
浏览文件
操作
浏览文件
下载
电子邮件补丁
差异文件
PA-RISC assembler: missing symbol and typos.
上级
76774c5e
变更
3
显示空白变更内容
内联
并排
Showing
3 changed file
with
15 addition
and
4 deletion
+15
-4
crypto/bn/asm/parisc-mont.pl
crypto/bn/asm/parisc-mont.pl
+2
-2
crypto/pariscid.pl
crypto/pariscid.pl
+11
-0
crypto/sha/asm/sha512-parisc.pl
crypto/sha/asm/sha512-parisc.pl
+2
-2
未找到文件。
crypto/bn/asm/parisc-mont.pl
浏览文件 @
3fc2efd2
...
...
@@ -894,7 +894,7 @@ my $ldd = sub {
{
my
$opcode
=
(
0x03
<<
26
)
|
(
$
2
<<
21
)
|
(
$
1
<<
16
)
|
(
3
<<
6
)
|
$
3
;
sprintf
"
\t
.WORD
\t
0x%08x
\t
; %s
",
$opcode
,
$orig
;
}
elsif
(
$args
=~
/(
[\-
0-9]+)\(%r([0-9]+)\),%r([0-9]+)/
)
# format 5
elsif
(
$args
=~
/(
\-?[
0-9]+)\(%r([0-9]+)\),%r([0-9]+)/
)
# format 5
{
my
$opcode
=
(
0x03
<<
26
)
|
(
$
2
<<
21
)
|
(
1
<<
12
)
|
(
3
<<
6
)
|
$
3
;
$opcode
|=
((
$
1
&
0xF
)
<<
17
)
|
((
$
1
&
0x10
)
<<
12
);
# encode offset
$opcode
|=
(
1
<<
5
)
if
(
$mod
=~
/^,m/
);
...
...
@@ -908,7 +908,7 @@ my $std = sub {
my
(
$mod
,
$args
)
=
@_
;
my
$orig
=
"
std
$mod
\t
$args
";
if
(
$args
=~
/%r([0-9]+),(
[\-0-9]+)\(%r([0-9]+)\)/
)
# format 6
if
(
$args
=~
/%r([0-9]+),(
\-?[0-9]+)\(%r([0-9]+)\)/
)
# format 6
{
my
$opcode
=
(
0x03
<<
26
)
|
(
$
3
<<
21
)
|
(
$
1
<<
16
)
|
(
1
<<
12
)
|
(
0xB
<<
6
);
$opcode
|=
((
$
2
&
0xF
)
<<
1
)
|
((
$
2
&
0x10
)
>>
4
);
# encode offset
$opcode
|=
(
1
<<
5
)
if
(
$mod
=~
/^,m/
);
...
...
crypto/pariscid.pl
浏览文件 @
3fc2efd2
...
...
@@ -23,6 +23,17 @@ $code=<<___;
.SPACE \$TEXT\$
.SUBSPA \$CODE\$,QUAD=0,ALIGN=8,ACCESS=0x2C,CODE_ONLY
.EXPORT OPENSSL_cpuid_setup,ENTRY
.ALIGN 8
OPENSSL_cpuid_setup
.PROC
.CALLINFO NO_CALLS
.ENTRY
bv ($rp)
.EXIT
nop
.PROCEND
.EXPORT OPENSSL_rdtsc,ENTRY
.ALIGN 8
OPENSSL_rdtsc
...
...
crypto/sha/asm/sha512-parisc.pl
浏览文件 @
3fc2efd2
...
...
@@ -694,7 +694,7 @@ 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
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/
);
...
...
@@ -707,7 +707,7 @@ 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
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
;
}
...
...
编辑
预览
Markdown
is supported
0%
请重试
或
添加新附件
.
添加附件
取消
You are about to add
0
people
to the discussion. Proceed with caution.
先完成此消息的编辑!
取消
想要评论请
注册
或
登录