x86masm.pl cosmetics.
authorAndy Polyakov <appro@openssl.org>
Tue, 15 Jul 2008 13:16:42 +0000 (13:16 +0000)
committerAndy Polyakov <appro@openssl.org>
Tue, 15 Jul 2008 13:16:42 +0000 (13:16 +0000)
crypto/perlasm/x86masm.pl

index 33ceeb5ab4e4d53e474149ed92f9c4a0b928ff3e..94eee5a76d63f46858e3856f83bf555218f87421 100644 (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;