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

* Handle .fpc section by internal elf obj writer the same way as external assembler handles this section.

Browse Source 
git-svn-id: trunk@8001 -
This commit is contained in:
yury 2007-07-09 22:05:08 +00:00
parent fd6862acb9
commit e14906c484
1 changed files with 14 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
compiler/ogelf.pas
View File

@ -611,20 +611,21 @@ implementation
secname:=secnames_pic[atype]
else
secname:=secnames[atype];
if (use_smartlink_section and
(aname<>'')) or (atype=sec_fpc) then
if (atype=sec_fpc) and (Copy(aname,1,3)='res') then
begin
if (atype=sec_fpc) and (aname='resptrs') then
sep:='.'
else
case aorder of
secorder_begin :
sep:='.b_';
secorder_end :
sep:='.z_';
else
sep:='.n_';
end;
result:=secname+'.'+aname;
exit;
end;
if use_smartlink_section and (aname<>'') then
begin
case aorder of
secorder_begin :
sep:='.b_';
secorder_end :
sep:='.z_';
else
sep:='.n_';
end;
result:=secname+sep+aname
end
else