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

+ workaround for old Amiga GNU AS, which vomits for .fpc sections

Browse Source 
git-svn-id: trunk@5714 -
This commit is contained in:
Károly Balogh 2006-12-26 08:43:27 +00:00
parent dbbd43d80d
commit 121a5c3cb8
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/aggas.pas
View File

@ -286,7 +286,11 @@ implementation
secname:=secnames_pic[atype]
else
secname:=secnames[atype];
{$ifdef m68k}
{ old Amiga GNU AS doesn't support .section .fpc }
if (atype=sec_fpc) and (target_info.system = system_m68k_amiga) then
secname:=secnames[sec_data];
{$endif}
if (atype=sec_fpc) and (Copy(aname,1,3)='res') then
begin
result:=secname+'.'+aname;