Skip to content
体验新版
项目
组织
正在加载...
登录
切换导航
打开侧边栏
btwise
openssl
提交
67b8bf4d
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,发现更多精彩内容 >>
提交
67b8bf4d
编写于
6月 23, 2016
作者:
A
Andy Polyakov
浏览文件
操作
浏览文件
下载
电子邮件补丁
差异文件
perlasm/x86_64-xlate.pl: address errors and warnings in elderly perls.
Reviewed-by:
N
Rich Salz
<
rsalz@openssl.org
>
上级
8f3bc096
变更
1
隐藏空白更改
内联
并排
Showing
1 changed file
with
8 addition
and
7 deletion
+8
-7
crypto/perlasm/x86_64-xlate.pl
crypto/perlasm/x86_64-xlate.pl
+8
-7
未找到文件。
crypto/perlasm/x86_64-xlate.pl
浏览文件 @
67b8bf4d
...
...
@@ -170,8 +170,8 @@ my %globals;
if
(
$self
->
{
op
}
eq
"
ret
")
{
$self
->
{
op
}
=
"";
if
(
$win64
&&
$current_function
->
{
abi
}
eq
"
svr4
")
{
$self
->
{
op
}
=
"
mov rdi,QWORD
$
{PTR}
[8+rsp
]
\t
;WIN64 epilogue
\n\t
"
.
"
mov rsi,QWORD
$
{PTR}
[16+rsp
]
\n\t
";
$self
->
{
op
}
=
"
mov rdi,QWORD
$
PTR
\
[8+rsp
\
]
\t
;WIN64 epilogue
\n\t
"
.
"
mov rsi,QWORD
$
PTR
\
[16+rsp
\
]
\n\t
";
}
$self
->
{
op
}
.=
"
DB
\t
0F3h,0C3h
\t\t
;repret
";
}
elsif
(
$self
->
{
op
}
=~
/^(pop|push)f/
)
{
...
...
@@ -210,6 +210,7 @@ my %globals;
# Solaris /usr/ccs/bin/as can't handle multiplications
# in $self->{value}
my
$value
=
$self
->
{
value
};
no
warnings
;
# oct might complain about overflow, ignore here...
$value
=~
s/(?<![\w\$\.])(0x?[0-9a-f]+)/oct($1)/
egi
;
if
(
$value
=~
s/([0-9]+\s*[\*\/\%]\s*[0-9]+)/eval($1)/
eg
)
{
$self
->
{
value
}
=
$value
;
...
...
@@ -227,7 +228,7 @@ my %globals;
my
$self
=
{};
my
$ret
;
# optional * ---vvv--- appears in indirect jmp/call
# optional * ---
-
vvv--- appears in indirect jmp/call
if
(
$$line
=~
/^(\*?)([^\(,]*)\(([%\w,]+)\)/
)
{
bless
$self
,
$class
;
$self
->
{
asterisk
}
=
$
1
;
...
...
@@ -400,8 +401,8 @@ my %globals;
my
$func
=
"
$current_function
->{name}
"
.
(
$nasm
?
"
:
"
:
"
\t
PROC
$current_function
->{scope}
")
.
"
\n
";
$func
.=
"
mov QWORD
$
{PTR}
[8+rsp
],rdi
\t
;WIN64 prologue
\n
";
$func
.=
"
mov QWORD
$
{PTR}
[16+rsp
],rsi
\n
";
$func
.=
"
mov QWORD
$
PTR
\
[8+rsp
\
],rdi
\t
;WIN64 prologue
\n
";
$func
.=
"
mov QWORD
$
PTR
\
[16+rsp
\
],rsi
\n
";
$func
.=
"
mov rax,rsp
\n
";
$func
.=
"
${decor}
SEH_begin_
$current_function
->{name}:
";
$func
.=
"
:
"
if
(
$masm
);
...
...
@@ -412,8 +413,8 @@ my %globals;
$func
.=
"
mov rsi,rdx
\n
"
if
(
$narg
>
1
);
$func
.=
"
mov rdx,r8
\n
"
if
(
$narg
>
2
);
$func
.=
"
mov rcx,r9
\n
"
if
(
$narg
>
3
);
$func
.=
"
mov r8,QWORD
$
{PTR}
[40+rsp
]
\n
"
if
(
$narg
>
4
);
$func
.=
"
mov r9,QWORD
$
{PTR}
[48+rsp
]
\n
"
if
(
$narg
>
5
);
$func
.=
"
mov r8,QWORD
$
PTR
\
[40+rsp
\
]
\n
"
if
(
$narg
>
4
);
$func
.=
"
mov r9,QWORD
$
PTR
\
[48+rsp
\
]
\n
"
if
(
$narg
>
5
);
$func
.=
"
\n
";
}
else
{
"
$current_function
->{name}
"
.
...
...
编辑
预览
Markdown
is supported
0%
请重试
或
添加新附件
.
添加附件
取消
You are about to add
0
people
to the discussion. Proceed with caution.
先完成此消息的编辑!
取消
想要评论请
注册
或
登录