Sfoglia il codice sorgente

Treat metadata as data in agppcmpw.pas

git-svn-id: trunk@47041 -
pierre 5 anni fa
parent
commit
0685319be8
1 ha cambiato i file con 1 aggiunte e 1 eliminazioni
  1. 1 1
      compiler/powerpc/agppcmpw.pas

+ 1 - 1
compiler/powerpc/agppcmpw.pas

@@ -1046,7 +1046,7 @@ interface
                begin
                   if tai_symbol(hp).sym.typ=AT_FUNCTION then
                     WriteProcedureHeader(hp)
-                  else if tai_symbol(hp).sym.typ=AT_DATA then
+                  else if tai_symbol(hp).sym.typ in [AT_DATA,AT_METADATA] then
                     begin
                        s:= tai_symbol(hp).sym.name;
                        WriteDataHeader(s, tai_symbol(hp).is_global, true);