X-Git-Url: https://git.openssl.org/?p=openssl.git;a=blobdiff_plain;f=crypto%2Fperlasm%2Fx86nasm.pl;h=dadbfe0c2cce16e25be3714e6355682e51b91979;hp=38910426efc01413e4d9c00f28d9477ccb915ae3;hb=23dcb447ffbcdc252622a41dd1b8629f2df6b467;hpb=39c63e162c421668daebbb13ae2ff8b9056132f4 diff --git a/crypto/perlasm/x86nasm.pl b/crypto/perlasm/x86nasm.pl index 38910426ef..dadbfe0c2c 100644 --- a/crypto/perlasm/x86nasm.pl +++ b/crypto/perlasm/x86nasm.pl @@ -4,7 +4,7 @@ package x86nasm; *out=\@::out; -$::lbdecor="\@L"; # local label decoration +$::lbdecor="L\$"; # local label decoration $nmdecor=$::netware?"":"_"; # external name decoration $drdecor=$::mwerks?".":""; # directive decoration @@ -75,12 +75,13 @@ sub ::file { if ($::mwerks) { push(@out,".section\t.text,64\n"); } else { my $tmp=<<___; -%ifdef __omf__ +%ifidn __OUTPUT_FORMAT__,obj section code use32 class=code align=64 -%elifdef __coff__ -section .text code -%else +%elifidn __OUTPUT_FORMAT__,win32 +\$\@feat.00 equ 1 section .text code align=64 +%else +section .text code %endif ___ push(@out,$tmp);