Skip to content
体验新版
项目
组织
正在加载...
登录
切换导航
打开侧边栏
OpenHarmony
Third Party Openssl
提交
02450ec6
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,发现更多精彩内容 >>
提交
02450ec6
编写于
6月 18, 2013
作者:
A
Andy Polyakov
浏览文件
操作
浏览文件
下载
电子邮件补丁
差异文件
PA-RISC assembler pack: switch to bve in 64-bit builds.
PR: 3074
上级
8a99cb29
变更
7
隐藏空白更改
内联
并排
Showing
7 changed file
with
33 addition
and
24 deletion
+33
-24
crypto/aes/asm/aes-parisc.pl
crypto/aes/asm/aes-parisc.pl
+2
-1
crypto/bn/asm/parisc-mont.pl
crypto/bn/asm/parisc-mont.pl
+3
-1
crypto/modes/asm/ghash-parisc.pl
crypto/modes/asm/ghash-parisc.pl
+1
-0
crypto/pariscid.pl
crypto/pariscid.pl
+21
-20
crypto/rc4/asm/rc4-parisc.pl
crypto/rc4/asm/rc4-parisc.pl
+2
-1
crypto/sha/asm/sha1-parisc.pl
crypto/sha/asm/sha1-parisc.pl
+2
-1
crypto/sha/asm/sha512-parisc.pl
crypto/sha/asm/sha512-parisc.pl
+2
-0
未找到文件。
crypto/aes/asm/aes-parisc.pl
浏览文件 @
02450ec6
...
...
@@ -1015,7 +1015,8 @@ foreach (split("\n",$code)) {
$SIZE_T==4 ? sprintf("extru%s,%d,8,",$1,31-$2)
: sprintf("extrd,u%s,%d,8,",$1,63-$2)/
e
;
s/,\*/,/
if
(
$SIZE_T
==
4
);
s/,\*/,/
if
(
$SIZE_T
==
4
);
s/\bbv\b(.*\(%r2\))/bve$1/
if
(
$SIZE_T
==
8
);
print
$_
,"
\n
";
}
close
STDOUT
;
crypto/bn/asm/parisc-mont.pl
浏览文件 @
02450ec6
...
...
@@ -40,7 +40,7 @@
# of arithmetic operations, most notably multiplications. It requires
# more memory references, most notably to tp[num], but this doesn't
# seem to exhaust memory port capacity. And indeed, dedicated PA-RISC
# 2.0 code path
,
provides virtually same performance as pa-risc2[W].s:
# 2.0 code path provides virtually same performance as pa-risc2[W].s:
# it's ~10% better for shortest key length and ~10% worse for longest
# one.
#
...
...
@@ -988,6 +988,8 @@ foreach (split("\n",$code)) {
# assemble 2.0 instructions in 32-bit mode...
s/^\s+([a-z]+)([\S]*)\s+([\S]*)/&assemble($1,$2,$3)/
e
if
(
$BN_SZ
==
4
);
s/\bbv\b/bve/gm
if
(
$SIZE_T
==
8
);
print
$_
,"
\n
";
}
close
STDOUT
;
crypto/modes/asm/ghash-parisc.pl
浏览文件 @
02450ec6
...
...
@@ -724,6 +724,7 @@ foreach (split("\n",$code)) {
s/cmpb,\*/comb,/
;
s/,\*/,/
;
}
s/\bbv\b/bve/
if
(
$SIZE_T
==
8
);
print
$_
,"
\n
";
}
...
...
crypto/pariscid.pl
浏览文件 @
02450ec6
...
...
@@ -97,33 +97,33 @@ OPENSSL_cleanse
.PROC
.CALLINFO NO_CALLS
.ENTRY
cmpib,*= 0,$len,Ldone
cmpib,*= 0,$len,L
\$
done
nop
cmpib,*>>= 15,$len,Little
cmpib,*>>= 15,$len,L
\$
ittle
ldi $SIZE_T-1,%r1
Lalign
L
\$
align
and,*<> $inp,%r1,%r28
b,n Laligned
b,n L
\$
aligned
stb %r0,0($inp)
ldo -1($len),$len
b Lalign
b L
\$
align
ldo 1($inp),$inp
Laligned
L
\$
aligned
andcm $len,%r1,%r28
Lot
L
\$
ot
$ST %r0,0($inp)
addib,*<> -$SIZE_T,%r28,Lot
addib,*<> -$SIZE_T,%r28,L
\$
ot
ldo $SIZE_T($inp),$inp
and,*<> $len,%r1,$len
b,n Ldone
Little
b,n L
\$
done
L
\$
ittle
stb %r0,0($inp)
addib,*<> -1,$len,Little
addib,*<> -1,$len,L
\$
ittle
ldo 1($inp),$inp
Ldone
L
\$
done
bv ($rp)
.EXIT
nop
...
...
@@ -151,7 +151,7 @@ OPENSSL_instrument_bus
ldw 0($out),$tick
add $diff,$tick,$tick
stw $tick,0($out)
Loop
L
\$
oop
mfctl %cr16,$tick
sub $tick,$lasttick,$diff
copy $tick,$lasttick
...
...
@@ -161,7 +161,7 @@ Loop
add $diff,$tick,$tick
stw $tick,0($out)
addib,<> -1,$cnt,Loop
addib,<> -1,$cnt,L
\$
oop
addi 4,$out,$out
bv ($rp)
...
...
@@ -190,14 +190,14 @@ OPENSSL_instrument_bus2
mfctl %cr16,$tick
sub $tick,$lasttick,$diff
copy $tick,$lasttick
Loop2
L
\$
oop2
copy $diff,$lastdiff
fdc 0($out)
ldw 0($out),$tick
add $diff,$tick,$tick
stw $tick,0($out)
addib,= -1,$max,Ldone2
addib,= -1,$max,L
\$
done2
nop
mfctl %cr16,$tick
...
...
@@ -208,17 +208,18 @@ Loop2
ldi 1,%r1
xor %r1,$tick,$tick
addb,<> $tick,$cnt,Loop2
addb,<> $tick,$cnt,L
\$
oop2
shladd,l $tick,2,$out,$out
Ldone2
L
\$
done2
bv ($rp)
.EXIT
add $rv,$cnt,$rv
.PROCEND
___
}
$code
=~
s/cmpib,\*/comib,/gm
if
(
$SIZE_T
==
4
);
$code
=~
s/,\*/,/gm
if
(
$SIZE_T
==
4
);
$code
=~
s/cmpib,\*/comib,/gm
if
(
$SIZE_T
==
4
);
$code
=~
s/,\*/,/gm
if
(
$SIZE_T
==
4
);
$code
=~
s/\bbv\b/bve/gm
if
(
$SIZE_T
==
8
);
print
$code
;
close
STDOUT
;
crypto/rc4/asm/rc4-parisc.pl
浏览文件 @
02450ec6
...
...
@@ -307,7 +307,8 @@ L\$opts
.STRINGZ "RC4 for PA-RISC, CRYPTOGAMS by <appro\@openssl.org>"
___
$code
=~
s/\`([^\`]*)\`/eval $1/g
em
;
$code
=~
s/cmpib,\*/comib,/gm
if
(
$SIZE_T
==
4
);
$code
=~
s/cmpib,\*/comib,/gm
if
(
$SIZE_T
==
4
);
$code
=~
s/\bbv\b/bve/gm
if
(
$SIZE_T
==
8
);
print
$code
;
close
STDOUT
;
crypto/sha/asm/sha1-parisc.pl
浏览文件 @
02450ec6
...
...
@@ -254,6 +254,7 @@ $code.=<<___;
___
$code
=~
s/\`([^\`]*)\`/eval $1/g
em
;
$code
=~
s/,\*/,/gm
if
(
$SIZE_T
==
4
);
$code
=~
s/,\*/,/gm
if
(
$SIZE_T
==
4
);
$code
=~
s/\bbv\b/bve/gm
if
(
$SIZE_T
==
8
);
print
$code
;
close
STDOUT
;
crypto/sha/asm/sha512-parisc.pl
浏览文件 @
02450ec6
...
...
@@ -785,6 +785,8 @@ foreach (split("\n",$code)) {
s/cmpb,\*/comb,/
if
(
$SIZE_T
==
4
);
s/\bbv\b/bve/
if
(
$SIZE_T
==
8
);
print
$_
,"
\n
";
}
...
...
编辑
预览
Markdown
is supported
0%
请重试
或
添加新附件
.
添加附件
取消
You are about to add
0
people
to the discussion. Proceed with caution.
先完成此消息的编辑!
取消
想要评论请
注册
或
登录