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

+ implemented tcgz80.g_flags2reg

Browse Source 
git-svn-id: branches/z80@44696 -
This commit is contained in:
nickysn 2020-04-12 02:21:03 +00:00
parent 00f7fad1a6
commit 90e2b9ecc6
1 changed files with 12 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
compiler/z80/cgcpu.pas
View File

@ -1644,25 +1644,23 @@ unit cgcpu;
l : TAsmLabel;
tmpflags : TResFlags;
begin
list.Concat(tai_comment.Create(strpnew('WARNING! not implemented: g_flags2reg')));
current_asmdata.getjumplabel(l);
{
if flags_to_cond(f) then
if f in [F_C,F_NC] then
begin
tmpflags:=f;
inverse_flags(tmpflags);
emit_mov(reg,NR_R1);
a_jmp_flags(list,tmpflags,l);
list.concat(taicpu.op_reg_const(A_LDI,reg,1));
a_load_const_reg(list,size,0,reg);
if f=F_NC then
list.concat(taicpu.op_none(A_CCF));
list.concat(taicpu.op_reg(A_RL,reg));
end
else
}
begin
//list.concat(taicpu.op_reg_const(A_LDI,reg,1));
//a_jmp_flags(list,f,l);
//emit_mov(list,reg,NR_R1);
current_asmdata.getjumplabel(l);
a_load_const_reg(list,size,0,reg);
tmpflags:=f;
inverse_flags(tmpflags);
a_jmp_flags(list,tmpflags,l);
list.concat(taicpu.op_reg(A_INC,reg));
cg.a_label(list,l);
end;
cg.a_label(list,l);
end;