Avoid unnecessary pollution of object module name table. Cygwin shared

build workaround (DJGPP swallows it too). One probably should do same
as with ELF calling it COFF, but I'm very short in COFF platforms, so
I just go for easy ad-hoc solution. I'll take care of merge to 0.9.7
later.

diff --git a/crypto/perlasm/x86asm.pl b/crypto/perlasm/x86asm.pl
index 888c656f931a7cd3bdd2f828b333af1f461dadcf..1cb96e914ab6f7d6ddb0fa59efd043825ea7701a 100644 (file)
--- a/crypto/perlasm/x86asm.pl
+++ b/crypto/perlasm/x86asm.pl
@@ -94,7 +94,7 @@ $tmp
 #undef SIZE
 #undef TYPE
 #define SIZE(a,b)
 #undef SIZE
 #undef TYPE
 #define SIZE(a,b)

-#define TYPE(a,b)
+#define TYPE(a,b)      .def a; .scl 2; .type 32; .endef

 #endif /* __CYGWIN || __DJGPP */
 #endif
 
 #endif /* __CYGWIN || __DJGPP */
 #endif
 

diff --git a/crypto/perlasm/x86unix.pl b/crypto/perlasm/x86unix.pl
index 23a389f39e57e0abf1b3820251d04bbfbafe4e5f..72bde061c563d0ab816df1be6c6f0c3d476ade4a 100644 (file)
--- a/crypto/perlasm/x86unix.pl
+++ b/crypto/perlasm/x86unix.pl
@@ -345,15 +345,15 @@ sub main'function_end
        popl    %ebx
        popl    %ebp
        ret
        popl    %ebx
        popl    %ebp
        ret

-.${func}_end:
+.L_${func}_end:

 EOF
        push(@out,$tmp);
 
        if ($main'cpp)
 EOF
        push(@out,$tmp);
 
        if ($main'cpp)

-               { push(@out,"\tSIZE($func,.${func}_end-$func)\n"); }
+               { push(@out,"\tSIZE($func,.L_${func}_end-$func)\n"); }

        elsif ($main'gaswin)
                 { $tmp=push(@out,"\t.align 4\n"); }
        elsif ($main'gaswin)
                 { $tmp=push(@out,"\t.align 4\n"); }

-       else    { push(@out,"\t.size\t$func,.${func}_end-$func\n"); }
+       else    { push(@out,"\t.size\t$func,.L_${func}_end-$func\n"); }

        push(@out,".ident       \"$func\"\n");
        $stack=0;
        %label=();
        push(@out,".ident       \"$func\"\n");
        $stack=0;
        %label=();