Commit 989f48d8 authored by Andy Polyakov's avatar Andy Polyakov
Browse files

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.
parent f8ea5cb5

crypto/perlasm/x86asm.pl

+1 −1
Original line number Diff line number Diff line
@@ -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

crypto/perlasm/x86unix.pl

+3 −3
Original line number Diff line number Diff line
@@ -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=();