提交 9960bdc6 编写于 作者: A Andy Polyakov

x86masm.pl cosmetics.

上级 23dcb447
...@@ -71,10 +71,17 @@ sub ::DWC { "@_"; } ...@@ -71,10 +71,17 @@ sub ::DWC { "@_"; }
sub ::file sub ::file
{ my $tmp=<<___; { my $tmp=<<___;
TITLE $_[0].asm TITLE $_[0].asm
IF \@Version LT 800
ECHO MASM version 8.00 or later is strongly recommended.
ENDIF
.486 .486
.MODEL FLAT .MODEL FLAT
OPTION DOTNAME OPTION DOTNAME
.TEXT\$ SEGMENT PAGE 'CODE' IF \@Version LT 800
.text\$ SEGMENT PAGE 'CODE'
ELSE
.text\$ SEGMENT ALIGN(64) 'CODE'
ENDIF
___ ___
push(@out,$tmp); push(@out,$tmp);
} }
...@@ -114,13 +121,13 @@ ___ ...@@ -114,13 +121,13 @@ ___
grep {s/\.[3-7]86/$xmmheader/} @out; grep {s/\.[3-7]86/$xmmheader/} @out;
} }
push(@out,".TEXT\$ ENDS\n"); push(@out,".text\$ ENDS\n");
if (grep {/\b${nmdecor}OPENSSL_ia32cap_P\b/i} @out) if (grep {/\b${nmdecor}OPENSSL_ia32cap_P\b/i} @out)
{ my $comm=<<___; { my $comm=<<___;
_DATA SEGMENT .bss SEGMENT
COMM ${nmdecor}OPENSSL_ia32cap_P:DWORD COMM ${nmdecor}OPENSSL_ia32cap_P:DWORD
_DATA ENDS .bss ENDS
___ ___
# comment out OPENSSL_ia32cap_P declarations # comment out OPENSSL_ia32cap_P declarations
grep {s/(^EXTERN\s+${nmdecor}OPENSSL_ia32cap_P)/\;$1/} @out; grep {s/(^EXTERN\s+${nmdecor}OPENSSL_ia32cap_P)/\;$1/} @out;
......
Markdown is supported
0% .
You are about to add 0 people to the discussion. Proceed with caution.
先完成此消息的编辑!
想要评论请 注册