Ver Fonte

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

git-svn-id: trunk@5714 -
Károly Balogh há 18 anos atrás
pai
commit
121a5c3cb8
1 ficheiros alterados com 5 adições e 1 exclusões
  1. 5 1
      compiler/aggas.pas

+ 5 - 1
compiler/aggas.pas

@@ -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;