From 989f48d8c17c0d993e262199e9c0ec86b7d4d583 Mon Sep 17 00:00:00 2001
From: Andy Polyakov <appro@openssl.org>
Date: Fri, 10 Jan 2003 10:16:39 +0000
Subject: [PATCH] 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.

---
 crypto/perlasm/x86asm.pl  | 2 +-
 crypto/perlasm/x86unix.pl | 6 +++---
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/crypto/perlasm/x86asm.pl b/crypto/perlasm/x86asm.pl
index 888c656f93..1cb96e914a 100644
--- a/crypto/perlasm/x86asm.pl
+++ b/crypto/perlasm/x86asm.pl
@@ -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
 
diff --git a/crypto/perlasm/x86unix.pl b/crypto/perlasm/x86unix.pl
index 23a389f39e..72bde061c5 100644
--- a/crypto/perlasm/x86unix.pl
+++ b/crypto/perlasm/x86unix.pl
@@ -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=();
-- 
2.25.1