paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 18:06:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

* don't generate init/fini sections in the al_procedures list, because the

Browse Source 
compiler assumes it remains a sec_code (fixes linking problems with the
    iOS SDK 3.2 simulator tool chain when using debug info)

git-svn-id: trunk@16119 -
This commit is contained in:
Jonas Maebe 2010-10-09 21:27:07 +00:00
parent 769eb3f604
commit d5bc1c972f
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/ncgutil.pas
View File

@ -2283,7 +2283,9 @@ implementation
if (current_module.islibrary) then
if (current_procinfo.procdef.proctypeoption = potype_proginit) then
exportlib.setinitname(list,current_procinfo.procdef.mangledname);
{ setinitname may generate a new section -> don't add to the
current list, because we assume this remains a text section }
exportlib.setinitname(current_asmdata.AsmLists[al_exports],current_procinfo.procdef.mangledname);
if (current_procinfo.procdef.proctypeoption=potype_proginit) then
begin