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

Added comment for 11257

Browse Source 
git-svn-id: trunk@11259 -
This commit is contained in:
giulio 2008-06-21 14:32:37 +00:00
parent 272673bfe1
commit 95ce7840bc
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/aggas.pas
View File

@ -317,6 +317,9 @@ implementation
(target_info.system=system_i386_win32) then
secname:='.tls';
{ 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
secname:='.data';