Skip to content
体验新版
项目
组织
正在加载...
登录
切换导航
打开侧边栏
OpenHarmony
Third Party Openssl
提交
fe716ba6
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,发现更多精彩内容 >>
提交
fe716ba6
编写于
5月 03, 2006
作者:
A
Andy Polyakov
浏览文件
操作
浏览文件
下载
电子邮件补丁
差异文件
PPC assembler distiller update.
上级
9a978008
变更
1
隐藏空白更改
内联
并排
Showing
1 changed file
with
4 addition
and
0 deletion
+4
-0
crypto/perlasm/ppc-xlate.pl
crypto/perlasm/ppc-xlate.pl
+4
-0
未找到文件。
crypto/perlasm/ppc-xlate.pl
浏览文件 @
fe716ba6
...
...
@@ -52,6 +52,9 @@ my $globl = sub {
$$global
=
$name
;
$ret
;
};
my
$text
=
sub
{
(
$flavour
=~
/aix/
)
?
"
.csect
"
:
"
.text
";
};
my
$machine
=
sub
{
my
$junk
=
shift
;
my
$arch
=
shift
;
...
...
@@ -102,6 +105,7 @@ while($line=<>) {
my
$mnemonic
=
$
2
;
my
$f
=
$
3
;
my
$opcode
=
eval
("
\$
$mnemonic
");
$line
=~
s|\br([0-9]+)\b|$1|g
if
(
$c
ne
"
.
"
and
$flavour
!~
/osx/
);
if
(
ref
(
$opcode
)
eq
'
CODE
')
{
$line
=
&$opcode
(
$f
,
split
('
,
',
$line
));
}
elsif
(
$mnemonic
)
{
$line
=
$c
.
$mnemonic
.
$f
.
"
\t
"
.
$line
;
}
}
...
...
编辑
预览
Markdown
is supported
0%
请重试
或
添加新附件
.
添加附件
取消
You are about to add
0
people
to the discussion. Proceed with caution.
先完成此消息的编辑!
取消
想要评论请
注册
或
登录