paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 07:39:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

Treat metadata as data in agppcmpw.pas

Browse Source 
git-svn-id: trunk@47041 -
This commit is contained in:
pierre 2020-10-03 14:23:52 +00:00
parent 65bcfe36b3
commit 0685319be8
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/powerpc/agppcmpw.pas
View File

@ -1046,7 +1046,7 @@ interface
begin begin
if tai_symbol(hp).sym.typ=AT_FUNCTION then if tai_symbol(hp).sym.typ=AT_FUNCTION then
WriteProcedureHeader(hp) 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 begin
s:= tai_symbol(hp).sym.name; s:= tai_symbol(hp).sym.name;
WriteDataHeader(s, tai_symbol(hp).is_global, true); WriteDataHeader(s, tai_symbol(hp).is_global, true);