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

+ emit warning comments in the asm output for the unimplemented methods in cgcpu

Browse Source 
git-svn-id: branches/z80@44487 -
This commit is contained in:
nickysn 2020-04-01 17:16:56 +00:00
parent 2003020d68
commit 36a26a53ae
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/z80/cgcpu.pas
View File

@ -812,6 +812,7 @@ unit cgcpu;
shift : byte; shift : byte;
i : byte; i : byte;
begin begin
list.Concat(tai_comment.Create(strpnew('WARNING! not implemented: a_load_const_reg')));
mask:=$ff; mask:=$ff;
shift:=0; shift:=0;
for i:=1 to tcgsize2size[size] do for i:=1 to tcgsize2size[size] do
@ -958,6 +959,7 @@ unit cgcpu;
i : integer; i : integer;
QuickRef : Boolean; QuickRef : Boolean;
begin begin
list.Concat(tai_comment.Create(strpnew('WARNING! not implemented: a_load_reg_ref')));
QuickRef:=false; QuickRef:=false;
//href:=Ref; //href:=Ref;
@ -1149,6 +1151,7 @@ unit cgcpu;
i : integer; i : integer;
QuickRef : boolean; QuickRef : boolean;
begin begin
list.Concat(tai_comment.Create(strpnew('WARNING! not implemented: a_load_ref_reg')));
QuickRef:=false; QuickRef:=false;
//href:=Ref; //href:=Ref;
@ -1300,6 +1303,7 @@ unit cgcpu;
tmpreg : tregister; tmpreg : tregister;
i : integer; i : integer;
begin begin
list.Concat(tai_comment.Create(strpnew('WARNING! not implemented: a_load_reg_reg')));
//if (tcgsize2size[fromsize]>32) or (tcgsize2size[tosize]>32) or (fromsize=OS_NO) or (tosize=OS_NO) then //if (tcgsize2size[fromsize]>32) or (tcgsize2size[tosize]>32) or (fromsize=OS_NO) or (tosize=OS_NO) then
// internalerror(2011021310); // internalerror(2011021310);
// //
@ -1415,6 +1419,7 @@ unit cgcpu;
tmpreg : tregister; tmpreg : tregister;
i : byte; i : byte;
begin begin
list.Concat(tai_comment.Create(strpnew('WARNING! not implemented: a_cmp_const_reg_label')));
//if a=0 then //if a=0 then
// begin // begin
// swapped:=false; // swapped:=false;
@ -1470,6 +1475,7 @@ unit cgcpu;
tmpreg : tregister; tmpreg : tregister;
i : byte; i : byte;
begin begin
list.Concat(tai_comment.Create(strpnew('WARNING! not implemented: a_cmp_reg_reg_label')));
//swapped:=false; //swapped:=false;
//{ swap parameters? } //{ swap parameters? }
//case cmp_op of //case cmp_op of
@ -1537,6 +1543,7 @@ unit cgcpu;
var var
ai : taicpu; ai : taicpu;
begin begin
list.Concat(tai_comment.Create(strpnew('WARNING! not implemented: a_jmp_flags')));
// ai:=setcondition(taicpu.op_sym(A_BRxx,l),flags_to_cond(f)); // ai:=setcondition(taicpu.op_sym(A_BRxx,l),flags_to_cond(f));
ai.is_jmp:=true; ai.is_jmp:=true;
list.concat(ai); list.concat(ai);
@ -1548,6 +1555,7 @@ unit cgcpu;
l : TAsmLabel; l : TAsmLabel;
tmpflags : TResFlags; tmpflags : TResFlags;
begin begin
list.Concat(tai_comment.Create(strpnew('WARNING! not implemented: g_flags2reg')));
current_asmdata.getjumplabel(l); current_asmdata.getjumplabel(l);
{ {
if flags_to_cond(f) then if flags_to_cond(f) then
@ -1770,6 +1778,7 @@ unit cgcpu;
var var
tmpref : treference; tmpref : treference;
begin begin
list.Concat(tai_comment.Create(strpnew('WARNING! not implemented: a_loadaddr_ref_reg')));
// if ref.addressmode<>AM_UNCHANGED then // if ref.addressmode<>AM_UNCHANGED then
// internalerror(2011021701); // internalerror(2011021701);
// //
@ -1863,6 +1872,7 @@ unit cgcpu;
i : longint; i : longint;
SrcQuickRef, DestQuickRef : Boolean; SrcQuickRef, DestQuickRef : Boolean;
begin begin
list.Concat(tai_comment.Create(strpnew('WARNING! not implemented: g_concatcopy')));
//if len>16 then //if len>16 then
// begin // begin
// current_asmdata.getjumplabel(l); // current_asmdata.getjumplabel(l);
@ -2016,6 +2026,7 @@ unit cgcpu;
ai : taicpu; ai : taicpu;
cond : TAsmCond; cond : TAsmCond;
begin begin
list.Concat(tai_comment.Create(strpnew('WARNING! not implemented: g_overflowCheck')));
//if not(cs_check_overflow in current_settings.localswitches) then //if not(cs_check_overflow in current_settings.localswitches) then
// exit; // exit;
//current_asmdata.getjumplabel(hl); //current_asmdata.getjumplabel(hl);
@ -2053,6 +2064,7 @@ unit cgcpu;
ai1,ai2 : taicpu; ai1,ai2 : taicpu;
hl : TAsmLabel; hl : TAsmLabel;
begin begin
list.Concat(tai_comment.Create(strpnew('WARNING! not implemented: a_jmp_cond')));
//ai1:=Taicpu.Op_sym(A_BRxx,l); //ai1:=Taicpu.Op_sym(A_BRxx,l);
//ai1.is_jmp:=true; //ai1.is_jmp:=true;
//hl:=nil; //hl:=nil;