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

+ support conditional jumps in the sdcc-sdasz80 assembler writer

Browse Source 
git-svn-id: branches/z80@44573 -
This commit is contained in:
nickysn 2020-04-04 17:05:49 +00:00
parent d05a632616
commit ff655543ed
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/z80/agsdasz80.pas
View File

@ -298,9 +298,13 @@ unit agsdasz80;
for i:=0 to taicpu(hp).ops-1 do
begin
if i=0 then
writer.AsmWrite(#9)
begin
writer.AsmWrite(#9);
if hp.is_jmp and (hp.condition<>C_None) then
writer.AsmWrite(uppercond2str[hp.condition]+',');
end
else
writer.AsmWrite(',');
writer.AsmWrite(',');
if hp.is_jmp then
WriteOper_jmp(taicpu(hp).oper[i]^,hp)
else