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

+ emit warnings for unimplemented ops in tcgz80.a_op_const_reg_internal

Browse Source 
git-svn-id: branches/z80@44630 -
This commit is contained in:
nickysn 2020-04-07 00:55:54 +00:00
parent b2549b63cd
commit 0d04d198fe
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/z80/cgcpu.pas
View File

@ -716,6 +716,7 @@ unit cgcpu;
end;
OP_OR:
begin
list.Concat(tai_comment.Create(strpnew('WARNING! not implemented: a_op_const_reg_internal, OP_OR')));
//for i:=1 to tcgsize2size[size] do
// begin
// if ((qword(a) and mask) shr shift)<>0 then
@ -727,6 +728,7 @@ unit cgcpu;
end;
OP_AND:
begin
list.Concat(tai_comment.Create(strpnew('WARNING! not implemented: a_op_const_reg_internal, OP_AND')));
//for i:=1 to tcgsize2size[size] do
// begin
// if ((qword(a) and mask) shr shift)=0 then
@ -740,6 +742,7 @@ unit cgcpu;
end;
OP_SUB:
begin
list.Concat(tai_comment.Create(strpnew('WARNING! not implemented: a_op_const_reg_internal, OP_SUB')));
//if ((a and mask)=1) and (tcgsize2size[size]=1) then
// list.concat(taicpu.op_reg(A_DEC,reg))
//else
@ -763,6 +766,7 @@ unit cgcpu;
end;
OP_SHR,OP_SHL,OP_SAR,OP_ROL,OP_ROR:
begin
list.Concat(tai_comment.Create(strpnew('WARNING! not implemented: a_op_const_reg_internal, OP_shift/ror')));
//if a*tcgsize2size[size]<=8 then
// begin
// for j:=1 to a do
@ -828,6 +832,7 @@ unit cgcpu;
end;
OP_ADD:
begin
list.Concat(tai_comment.Create(strpnew('WARNING! not implemented: a_op_const_reg_internal, OP_ADD')));
//curvalue:=a and mask;
//if curvalue=0 then
// list.concat(taicpu.op_reg_reg(A_ADD,reg,NR_R1))