summaryrefslogtreecommitdiff
path: root/crypto/perlasm
diff options
context:
space:
mode:
authorAndy Polyakov <appro@openssl.org>2003-01-10 10:16:39 +0000
committerAndy Polyakov <appro@openssl.org>2003-01-10 10:16:39 +0000
commit989f48d8c17c0d993e262199e9c0ec86b7d4d583 (patch)
tree2e0c54b8d37b191e158c03b99c3f0003cc6f453d /crypto/perlasm
parentf8ea5cb5799647d0becdb9f16a0e9c13875c6c3f (diff)
downloadopenssl-new-989f48d8c17c0d993e262199e9c0ec86b7d4d583.tar.gz
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.
Diffstat (limited to 'crypto/perlasm')
-rw-r--r--crypto/perlasm/x86asm.pl2
-rw-r--r--crypto/perlasm/x86unix.pl6
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=();