Avoid unnecessary pollution of object module name table. Cygwin shared
authorAndy Polyakov <appro@openssl.org>
Fri, 10 Jan 2003 10:16:39 +0000 (10:16 +0000)
committerAndy Polyakov <appro@openssl.org>
Fri, 10 Jan 2003 10:16:39 +0000 (10:16 +0000)
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.

crypto/perlasm/x86asm.pl
crypto/perlasm/x86unix.pl

index 888c656..1cb96e9 100644 (file)
@@ -94,7 +94,7 @@ $tmp
 #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
 
index 23a389f..72bde06 100644 (file)
@@ -345,15 +345,15 @@ sub main'function_end
        popl    %ebx
        popl    %ebp
        ret
-.${func}_end:
+.L_${func}_end:
 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"); }
-       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=();