Explorar o código

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

git-svn-id: trunk@5714 -
Károly Balogh %!s(int64=18) %!d(string=hai) anos
pai
achega
121a5c3cb8
Modificáronse 1 ficheiros con 5 adicións e 1 borrados
  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;