generic-library/openssl
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

x86masm.pl cosmetics.

Browse Source
This commit is contained in:
Andy Polyakov 2008-07-15 13:16:42 +00:00
parent 23dcb447ff
commit 9960bdc6fa
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
crypto/perlasm/x86masm.pl
View File

@ -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 @@ ___
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;