paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 13:09:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

* on i8086 added section .fpc to the group 'dgroup'. This fixes a bug that caused the bss section to not be left out from the executable in tiny model, which caused, ironically, tiny model executables to be larger than the small model executables

Browse Source 
git-svn-id: trunk@25525 -
This commit is contained in:
nickysn 2013-09-21 11:28:01 +00:00
parent fed009e998
commit 661e11ecb8
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/x86/agx86nsm.pas
View File

@ -1125,13 +1125,14 @@ interface
{ we add empty declarations to make sure they exist, even if empty }
AsmWriteLn('SECTION .rodata');
AsmWriteLn('SECTION .data');
AsmWriteLn('SECTION .fpc');
{ WLINK requires class=bss in order to leave the BSS section out of the executable }
AsmWriteLn('SECTION .bss class=bss');
{ group these sections in the same segment }
if current_settings.x86memorymodel=mm_tiny then
AsmWriteLn('GROUP dgroup text rodata data bss')
AsmWriteLn('GROUP dgroup text rodata data fpc bss')
else
AsmWriteLn('GROUP dgroup rodata data bss');
AsmWriteLn('GROUP dgroup rodata data fpc bss');
end;
AsmWriteLn('SECTION ' + CodeSectionName);
{$else i8086}