paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 13:49:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ write a comment for the CPU directive in the sdcc-sdasz80 asm output

Browse Source 
git-svn-id: branches/z80@44812 -
This commit is contained in:
nickysn 2020-04-19 00:04:41 +00:00
parent e86cd0df7a
commit 35742f4d0d
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/z80/agsdasz80.pas
View File

@ -828,6 +828,20 @@ unit agsdasz80;
begin
WriteInstruction(taicpu(hp));
end;
ait_directive :
begin
case tai_directive(hp).directive of
asd_cpu :
writer.AsmWriteLn('; CPU '+tai_directive(hp).name);
else
begin
writer.AsmWrite(asminfo^.comment);
writer.AsmWrite('WARNING: not yet implemented in assembler output: ait_directive.');
Str(tai_directive(hp).directive,s);
writer.AsmWriteLn(s);
end;
end;
end;
ait_marker :
if tai_marker(hp).kind=mark_NoLineInfoStart then
inc(InlineLevel)