paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 10:29:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

.rodata* sections must end up in .data section on go32v2, since the go32v2 stub

Browse Source 
only handles .text, .data and .bss sections.
Solves bug #11509.

git-svn-id: trunk@11257 -
This commit is contained in:
giulio 2008-06-21 14:06:12 +00:00
parent f8790b4e14
commit 272673bfe1
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/aggas.pas
View File

@ -317,6 +317,10 @@ implementation
(target_info.system=system_i386_win32) then (target_info.system=system_i386_win32) then
secname:='.tls'; secname:='.tls';
if (atype in [sec_rodata,sec_rodata_norel]) and
(target_info.system=system_i386_go32v2) then
secname:='.data';
{ For bss we need to set some flags that are target dependent, { For bss we need to set some flags that are target dependent,
it is easier to disable it for smartlinking. It doesn't take up it is easier to disable it for smartlinking. It doesn't take up
filespace } filespace }