Skip to content
体验新版
项目
组织
正在加载...
登录
切换导航
打开侧边栏
btwise
openssl
提交
d1df5b43
O
openssl
项目概览
btwise
/
openssl
通知
1
Star
0
Fork
0
代码
文件
提交
分支
Tags
贡献者
分支图
Diff
Issue
0
列表
看板
标记
里程碑
合并请求
0
DevOps
流水线
流水线任务
计划
Wiki
0
Wiki
分析
仓库
DevOps
项目成员
Pages
O
openssl
项目概览
项目概览
详情
发布
仓库
仓库
文件
提交
分支
标签
贡献者
分支图
比较
Issue
0
Issue
0
列表
看板
标记
里程碑
合并请求
0
合并请求
0
Pages
DevOps
DevOps
流水线
流水线任务
计划
分析
分析
仓库分析
DevOps
Wiki
0
Wiki
成员
成员
收起侧边栏
关闭侧边栏
动态
分支图
创建新Issue
流水线任务
提交
Issue看板
体验新版 GitCode,发现更多精彩内容 >>
提交
d1df5b43
编写于
12月 23, 2004
作者:
A
Andy Polyakov
浏览文件
操作
浏览文件
下载
电子邮件补丁
差异文件
x86 perlasm update to accomodate aes-586.pl.
上级
25558bf7
变更
3
显示空白变更内容
内联
并排
Showing
3 changed file
with
32 addition
and
2 deletion
+32
-2
crypto/perlasm/x86ms.pl
crypto/perlasm/x86ms.pl
+15
-1
crypto/perlasm/x86nasm.pl
crypto/perlasm/x86nasm.pl
+11
-1
crypto/perlasm/x86unix.pl
crypto/perlasm/x86unix.pl
+6
-0
未找到文件。
crypto/perlasm/x86ms.pl
浏览文件 @
d1df5b43
...
...
@@ -92,7 +92,7 @@ sub get_mem
$reg2=&conv($1);
$addr="_$2";
}
elsif ($addr =~ /^[_a-zA-Z]/)
elsif ($addr =~ /^[_a-zA-Z]
$
/)
{
$addr="_$addr";
}
...
...
@@ -368,6 +368,12 @@ sub main'comment
}
}
sub
main
'
public_label
{
$label
{
$_
[
0
]}
=
"
_
$_
[0]
"
if
(
!
defined
(
$label
{
$_
[
0
]}));
push
(
@out
,"
PUBLIC
\t
$label
{
$_
[0]}
\n
");
}
sub
main
'
label
{
if
(
!
defined
(
$label
{
$_
[
0
]}))
...
...
@@ -385,10 +391,18 @@ sub main'set_label
$label
{
$_
[
0
]}
=
"
\$
${label}${_
[0]
}
";
$label
++
;
}
if
(
$_
[
1
]
!=
0
&&
$_
[
1
]
>
1
)
{
main
'
align($_[1]);
}
if((defined $_[2]) && ($_[2] == 1))
{
push(@out,"$label{$_[0]}::\n");
}
elsif ($label{$_[0]} !~ /^\$/)
{
push(@out,"$label{$_[0]}\tLABEL PTR\n");
}
else
{
push(@out,"$label{$_[0]}:\n");
...
...
crypto/perlasm/x86nasm.pl
浏览文件 @
d1df5b43
...
...
@@ -106,7 +106,7 @@ sub get_mem
$reg2
=
&conv
(
$
1
);
$addr
=
"
$under
$2
";
}
elsif
(
$addr
=~
/^[_a-zA-Z]/
)
elsif
(
$addr
=~
/^[_a-zA-Z]
$
/
)
{
$addr
=
"
$under$addr
";
}
...
...
@@ -360,6 +360,12 @@ sub main'comment
}
}
sub
main
'
public_label
{
$label
{
$_
[
0
]}
=
"
${under}${_
[0]
}
"
if
(
!
defined
(
$label
{
$_
[
0
]}));
push
(
@out
,"
global
\t
$label
{
$_
[0]}
\n
");
}
sub
main
'
label
{
if
(
!
defined
(
$label
{
$_
[
0
]}))
...
...
@@ -377,6 +383,10 @@ sub main'set_label
$label
{
$_
[
0
]}
=
"
\@
${label}${_
[0]
}
";
$label
++
;
}
if
(
$_
[
1
]
!=
0
&&
$_
[
1
]
>
1
)
{
main
'
align($_[1]);
}
push(@out,"$label{$_[0]}:\n");
}
...
...
crypto/perlasm/x86unix.pl
浏览文件 @
d1df5b43
...
...
@@ -498,6 +498,12 @@ sub main'comment
}
}
sub
main
'
public_label
{
$label
{
$_
[
0
]}
=
"
${under}${_
[0]
}
"
if
(
!
defined
(
$label
{
$_
[
0
]}));
push
(
@out
,"
.globl
\t
$label
{
$_
[0]}
\n
");
}
sub
main
'
label
{
if
(
!
defined
(
$label
{
$_
[
0
]}))
...
...
编辑
预览
Markdown
is supported
0%
请重试
或
添加新附件
.
添加附件
取消
You are about to add
0
people
to the discussion. Proceed with caution.
先完成此消息的编辑!
取消
想要评论请
注册
或
登录