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

+ fix for conditional JP in the Z80 internal asm writer

Browse Source 
git-svn-id: trunk@45275 -
This commit is contained in:
nickysn 2020-05-05 22:45:40 +00:00
parent 3e14eddaf6
commit 43686720c3
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/z80/aasmcpu.pas
View File

@ -459,14 +459,16 @@ implementation
procedure WriteNN;
var
i: Integer;
i, j: Integer;
begin
for i:=0 to insentry^.ops-1 do
for j:=0 to insentry^.ops-1 do
begin
//Writeln(insentry^.optypes[i]);
if insentry^.optypes[i]=OT_IMM16 then
if condition=C_NONE then
i:=j
else
i:=j-1;
if insentry^.optypes[j]=OT_IMM16 then
begin
//Writeln(oper[i]^.typ);
case oper[i]^.typ of
top_const:
begin
@ -494,7 +496,7 @@ implementation
InternalError(2020050404);
end;
end
else if insentry^.optypes[i]=OT_REF_ADDR16 then
else if insentry^.optypes[j]=OT_REF_ADDR16 then
begin
case oper[i]^.typ of
top_ref: