paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 20:29:14 +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; procedure WriteNN;
var var
i: Integer; i, j: Integer;
begin begin
for i:=0 to insentry^.ops-1 do for j:=0 to insentry^.ops-1 do
begin begin
//Writeln(insentry^.optypes[i]); if condition=C_NONE then
if insentry^.optypes[i]=OT_IMM16 then i:=j
else
i:=j-1;
if insentry^.optypes[j]=OT_IMM16 then
begin begin
//Writeln(oper[i]^.typ);
case oper[i]^.typ of case oper[i]^.typ of
top_const: top_const:
begin begin
@ -494,7 +496,7 @@ implementation
InternalError(2020050404); InternalError(2020050404);
end; end;
end end
else if insentry^.optypes[i]=OT_REF_ADDR16 then else if insentry^.optypes[j]=OT_REF_ADDR16 then
begin begin
case oper[i]^.typ of case oper[i]^.typ of
top_ref: top_ref: