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

* write a warning in the assembler output, instead of stopping with an internal error in

Browse Source 
tcgz80.a_op_reg_reg_internal for OP_MUL/OP_IMUL, so that more RTL code can be compiled

git-svn-id: branches/z80@45022 -
This commit is contained in:
nickysn 2020-04-23 02:07:25 +00:00
parent 76a8d47eb6
commit 088cfd5da5
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/z80/cgcpu.pas
View File

@ -793,9 +793,12 @@ unit cgcpu;
end;
OP_MUL,OP_IMUL:
{ special stuff, needs separate handling inside code
generator }
internalerror(2017032604);
begin
{ special stuff, needs separate handling inside code
generator }
list.Concat(tai_comment.Create(strpnew('WARNING! not implemented: a_op_reg_reg_internal OP_MUL/OP_IMUL')));
{internalerror(2017032604);}
end;
OP_DIV,OP_IDIV:
{ special stuff, needs separate handling inside code