From 9960bdc6fa28b75f2e9935fcdad07e5d9bc50732 Mon Sep 17 00:00:00 2001
From: Andy Polyakov <appro@openssl.org>
Date: Tue, 15 Jul 2008 13:16:42 +0000
Subject: x86masm.pl cosmetics.

---
 crypto/perlasm/x86masm.pl | 15 +++++++++++----
 1 file changed, 11 insertions(+), 4 deletions(-)

(limited to 'crypto/perlasm')

diff --git a/crypto/perlasm/x86masm.pl b/crypto/perlasm/x86masm.pl
index 33ceeb5ab4..94eee5a76d 100644
--- a/crypto/perlasm/x86masm.pl
+++ b/crypto/perlasm/x86masm.pl
@@ -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;
-- 
cgit v1.2.3