paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-28 03:30:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* declare the .bss sections with class=bss, so wlink treats them as bss sections and leaves them out of the executable

Browse Source 
git-svn-id: branches/i8086@24064 -
This commit is contained in:
nickysn 2013-03-30 00:49:11 +00:00
parent 47342630e0
commit 324b4a8a0a
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/x86/agx86nsm.pas
View File

@ -507,6 +507,11 @@ interface
AsmWrite('.');
AsmWrite(aname);
end;
{$ifdef i8086}
{ WLINK requires this in order to leave the BSS section out of the executable }
if atype = sec_bss then
AsmWrite(' class=bss');
{$endif i8086}
AsmLn;
LasTSecType:=atype;
end;
@ -1064,7 +1069,7 @@ interface
{ we add empty declarations to make sure they exist, even if empty }
AsmWriteLn('SECTION .rodata');
AsmWriteLn('SECTION .data');
AsmWriteLn('SECTION .bss');
AsmWriteLn('SECTION .bss class=bss');
{ group these sections in the same segment }
AsmWriteLn('GROUP dgroup rodata data bss');
{$endif i8086}