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.
This commit is contained in:
Andy Polyakov 2003-01-10 10:16:39 +00:00
parent f8ea5cb579
commit 989f48d8c1
2 changed files with 4 additions and 4 deletions

View File

@ -94,7 +94,7 @@ $tmp
#undef SIZE #undef SIZE
#undef TYPE #undef TYPE
#define SIZE(a,b) #define SIZE(a,b)
#define TYPE(a,b) #define TYPE(a,b) .def a; .scl 2; .type 32; .endef
#endif /* __CYGWIN || __DJGPP */ #endif /* __CYGWIN || __DJGPP */
#endif #endif

View File

@ -345,15 +345,15 @@ sub main'function_end
popl %ebx popl %ebx
popl %ebp popl %ebp
ret ret
.${func}_end: .L_${func}_end:
EOF EOF
push(@out,$tmp); push(@out,$tmp);
if ($main'cpp) if ($main'cpp)
{ push(@out,"\tSIZE($func,.${func}_end-$func)\n"); } { push(@out,"\tSIZE($func,.L_${func}_end-$func)\n"); }
elsif ($main'gaswin) elsif ($main'gaswin)
{ $tmp=push(@out,"\t.align 4\n"); } { $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"); push(@out,".ident \"$func\"\n");
$stack=0; $stack=0;
%label=(); %label=();