paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-07 02:47:23 +01:00
Code Issues Packages Projects Releases Wiki Activity

- don't write the default unit code section in the beginning of each asm file,

Browse Source 
when using {$hugecode on}, to avoid bogus nasm warnings

git-svn-id: trunk@27623 -
This commit is contained in:
nickysn 2014-04-21 01:02:21 +00:00
parent 8a606761cd
commit efb3cfcbc7
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/x86/agx86nsm.pas
View File

@ -1216,7 +1216,8 @@ interface
internalerror(2013050101); internalerror(2013050101);
end; end;
AsmWriteLn('SECTION ' + CodeSectionName(current_module.modulename^) + ' use16 class=code'); if not (cs_huge_code in current_settings.moduleswitches) then
AsmWriteLn('SECTION ' + CodeSectionName(current_module.modulename^) + ' use16 class=code');
{ NASM complains if you put a missing section in the GROUP directive, so } { 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 } { we add empty declarations to make sure they exist, even if empty }
AsmWriteLn('SECTION .rodata'); AsmWriteLn('SECTION .rodata');
@ -1236,7 +1237,8 @@ interface
AsmWriteLn('SECTION .debug_line use32 class=DWARF'); AsmWriteLn('SECTION .debug_line use32 class=DWARF');
AsmWriteLn('SECTION .debug_abbrev use32 class=DWARF'); AsmWriteLn('SECTION .debug_abbrev use32 class=DWARF');
end; end;
AsmWriteLn('SECTION ' + CodeSectionName(current_module.modulename^)); if not (cs_huge_code in current_settings.moduleswitches) then
AsmWriteLn('SECTION ' + CodeSectionName(current_module.modulename^));
{$else i8086} {$else i8086}
{$ifdef i386} {$ifdef i386}
AsmWriteLn('BITS 32'); AsmWriteLn('BITS 32');