mirror/openssl
2
0
Fork 0
mirror of https://github.com/openssl/openssl.git synced 2024-11-21 01:15:20 +08:00
Code Issues Packages Projects 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
{ my $tmp=<<___;
TITLE $_[0].asm
IF \@Version LT 800
ECHO MASM version 8.00 or later is strongly recommended.
ENDIF
.486
.MODEL FLAT
OPTION DOTNAME
.TEXT\$ SEGMENT PAGE 'CODE'
IF \@Version LT 800
.text\$ SEGMENT PAGE 'CODE'
ELSE
.text\$ SEGMENT ALIGN(64) 'CODE'
ENDIF
___
push(@out,$tmp);
}
@ -114,13 +121,13 @@ ___
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)
{ my $comm=<<___;
_DATA SEGMENT
.bss SEGMENT
COMM ${nmdecor}OPENSSL_ia32cap_P:DWORD
_DATA ENDS
.bss ENDS
___
# comment out OPENSSL_ia32cap_P declarations
grep {s/(^EXTERN\s+${nmdecor}OPENSSL_ia32cap_P)/\;$1/} @out;