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

+ support conditional operations in the Z80 internal asm

Browse Source 
git-svn-id: trunk@45274 -
This commit is contained in:
nickysn 2020-05-05 22:42:21 +00:00
parent 58d6d64fba
commit 3e14eddaf6
1 changed files with 24 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
compiler/z80/aasmcpu.pas
View File

@ -738,6 +738,29 @@ implementation
internalerror(2020050419);
end;
end;
'ccc':
begin
case condition of
C_NZ:
result:=0;
C_Z:
result:=1;
C_NC:
result:=2;
C_C:
result:=3;
C_PO:
result:=4;
C_PE:
result:=5;
C_P:
result:=6;
C_M:
result:=7;
else
internalerror(2020050605);
end;
end;
else
internalerror(2020050409);
end;
@ -766,7 +789,7 @@ implementation
bincode:=bincode+'1';
maskcode:=maskcode+'0';
end;
'p','d','r','q':
'p','d','r','q','c':
begin
bincode:=bincode+'0';
maskcode:=maskcode+token[i];