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

* Fix bug report 7210

Browse Source 
git-svn-id: trunk@18154 -
This commit is contained in:
pierre 2011-08-09 15:52:03 +00:00
parent 2b54f5f961
commit bafbbe9f0f
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/x86/agx86nsm.pas
View File

@ -481,7 +481,14 @@ interface
begin
AsmLn;
AsmWrite('SECTION ');
AsmWrite(secnames[atype]);
{ go32v2 stub only loads .text and .data sections, and allocates space for .bss.
Thus, data which normally goes into .rodata and .rodata_norel sections must
end up in .data section }
if (atype in [sec_rodata,sec_rodata_norel]) and
(target_info.system=system_i386_go32v2) then
AsmWrite('.data')
else
AsmWrite(secnames[atype]);
if create_smartlink_sections and
(atype<>sec_bss) and
(aname<>'') then