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

added group directive, so that the .data, .rodata and .bss sections go to the same segment

Browse Source 
git-svn-id: branches/i8086@23754 -
This commit is contained in:
nickysn 2013-03-09 18:30:11 +00:00
parent 2393cd5eef
commit c467035a1c
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/x86/agx86nsm.pas
View File

@ -1048,6 +1048,15 @@ interface
WriteSmartExternals;
FreeExternChainList;
end;
{$ifdef i8086}
{ NASM complains if you put a missing section in the GROUP directive, so }
{ we add empty declarations to make sure they exist, even if empty }
AsmWriteLn('SECTION .rodata');
AsmWriteLn('SECTION .data');
AsmWriteLn('SECTION .bss');
{ group these sections in the same segment }
AsmWriteLn('GROUP dgroup rodata data bss');
{$endif i8086}
{$ifdef EXTDEBUG}
if current_module.mainsource<>'' then
comment(v_info,'Done writing nasm-styled assembler output for '+current_module.mainsource);