Proper solution to nasm compilation problems in Borland context.

2005-09-20 06:13:06 +00:00
parent 0293371a1b
commit 9ddeefe39d
2 changed files with 11 additions and 2 deletions
--- a/crypto/perlasm/x86nasm.pl
+++ b/crypto/perlasm/x86nasm.pl
@@ -263,7 +263,16 @@ sub using486
 sub main'file
 	{
 	if ($main'mwerks)	{ push(@out,".section\t.text\n"); }
-	else			{ push(@out,"section\t.text use32\n"); }
+	else	{
+		local $tmp=<<___;
+%ifdef __omf__
+section	code	use32 class=code
+%else
+section	.text
+%endif
+___
+		push(@out,$tmp);
+		}
 	}

 sub main'function_begin