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

* use is_calljmp to determine whether to use WriteOper_jmp in the sdcc-sdasz80 asm writer. This fixes

Browse Source 
asm output for call instructions.

git-svn-id: branches/z80@44585 -
This commit is contained in:
nickysn 2020-04-04 23:03:13 +00:00
parent 87eae35e2f
commit 1b06b649a7
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/z80/agsdasz80.pas
View File

@ -305,7 +305,7 @@ unit agsdasz80;
end end
else else
writer.AsmWrite(','); writer.AsmWrite(',');
if hp.is_jmp then if is_calljmp(hp.opcode) then
WriteOper_jmp(taicpu(hp).oper[i]^,hp) WriteOper_jmp(taicpu(hp).oper[i]^,hp)
else else
WriteOper(taicpu(hp).oper[i]^,S_B{taicpu(hp).opsize},hp.opcode,taicpu(hp).ops,(i=2)); WriteOper(taicpu(hp).oper[i]^,S_B{taicpu(hp).opsize},hp.opcode,taicpu(hp).ops,(i=2));