Skip to content
体验新版
项目
组织
正在加载...
登录
切换导航
打开侧边栏
OpenHarmony
Third Party Openssl
提交
cc74659f
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,发现更多精彩内容 >>
提交
cc74659f
编写于
12月 05, 2000
作者:
U
Ulf Möller
浏览文件
操作
浏览文件
下载
电子邮件补丁
差异文件
PERLASM - the wierdest programming language since Intercal.
add debug output facilities.
上级
90e7ce36
变更
1
显示空白变更内容
内联
并排
Showing
1 changed file
with
27 addition
and
1 deletion
+27
-1
crypto/perlasm/x86unix.pl
crypto/perlasm/x86unix.pl
+27
-1
未找到文件。
crypto/perlasm/x86unix.pl
浏览文件 @
cc74659f
...
...
@@ -3,6 +3,7 @@
package
x86unix
;
$label
=
"
L000
";
$const
=
"";
$align
=
(
$main
'
aout)?"4":"16";
$under=($main
'
aout
)?"
_
":"";
...
...
@@ -341,9 +342,13 @@ sub main'function_end
popl %ebx
popl %ebp
ret
.${func}_end:
EOF
push
(
@out
,
$tmp
);
push
(
@out
,
$const
);
$const
=
"";
push
(
@out
,"
.
${func}
_end:
\n
");
if
(
$main
'
cpp)
{ push(@out,"\tSIZE($func,.${func}_end-$func)\n"); }
elsif ($main
'
gaswin
)
...
...
@@ -459,3 +464,24 @@ sub main'data_word
{
push
(
@out
,"
\t
.long
$_
[0]
\n
");
}
sub
main
'
puts
{
$constl
++
;
&main
'
push(
'
$Lstring
'
. $constl);
&main
'
call
('
puts
');
&main
'
add("esp",4);
$const .= "Lstring$constl:\n\t.string \"@_[0]\"\n";
}
sub main
'
putx
{
$constl
++
;
&main
'
push($_[0]);
&main
'
push
('
$Lstring
'
.
$constl
);
&main
'
call(
'
printf
'
);
&main
'
add
("
esp
",
8
);
$const
.=
"
Lstring
$constl
:
\n\t
.string
\"\
%X
\"\n
";
}
编辑
预览
Markdown
is supported
0%
请重试
或
添加新附件
.
添加附件
取消
You are about to add
0
people
to the discussion. Proceed with caution.
先完成此消息的编辑!
取消
想要评论请
注册
或
登录