paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-06 10:07:14 +01: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] secname:=secnames_pic[atype]
else else
secname:=secnames[atype]; secname:=secnames[atype];
if (use_smartlink_section and if (atype=sec_fpc) and (Copy(aname,1,3)='res') then
(aname<>'')) or (atype=sec_fpc) then
begin begin
if (atype=sec_fpc) and (aname='resptrs') then result:=secname+'.'+aname;
sep:='.' exit;
else end;
case aorder of if use_smartlink_section and (aname<>'') then
secorder_begin : begin
sep:='.b_'; case aorder of
secorder_end : secorder_begin :
sep:='.z_'; sep:='.b_';
else secorder_end :
sep:='.n_'; sep:='.z_';
end; else
sep:='.n_';
end;
result:=secname+sep+aname result:=secname+sep+aname
end end
else else