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

+ support ait_symbol with value

Browse Source 
git-svn-id: branches/z80@44468 -
This commit is contained in:
nickysn 2020-03-31 19:45:09 +00:00
parent 58c4fb8db1
commit b0f2902e51
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/z80/agsdasz80.pas
View File

@ -242,14 +242,15 @@ unit agsdasz80;
end;
ait_symbol :
begin
if tai_symbol(hp).has_value then
internalerror(2009090802);
if tai_symbol(hp).is_global then
begin
writer.AsmWrite('.globl'#9);
writer.AsmWriteln(tai_symbol(hp).sym.name);
end;
writer.AsmWriteLn(tai_symbol(hp).sym.name + ':');
if not(tai_symbol(hp).has_value) then
writer.AsmWriteLn(tai_symbol(hp).sym.name + ':')
else
writer.AsmWriteLn(tai_symbol(hp).sym.name + '=' + tostr(tai_symbol(hp).value));
end;
ait_symbol_end :
begin