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

+ emit a .globl directive for global ait_symbols

Browse Source 
git-svn-id: branches/z80@44465 -
This commit is contained in:
nickysn 2020-03-31 19:37:11 +00:00
parent e0efce2dd8
commit a670e04a3f
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/z80/agsdasz80.pas
View File

@ -258,8 +258,11 @@ unit agsdasz80;
hp:=tai(nhp);
end;
end;}
{if tai_symbol(hp).is_global then
writer.AsmWriteLn(#9'PUBLIC'#9+tai_symbol(hp).sym.name);}
if tai_symbol(hp).is_global then
begin
writer.AsmWrite('.globl'#9);
writer.AsmWriteln(tai_symbol(hp).sym.name);
end;
writer.AsmWrite(tai_symbol(hp).sym.name);
{if assigned(hp.next) and not(tai(hp.next).typ in
[ait_const,ait_realconst,ait_string]) then}