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

- commented out internal error in trgcpu.do_spill_read and trgcpu.do_spill_written

Browse Source 
git-svn-id: branches/z80@44988 -
This commit is contained in:
nickysn 2020-04-22 02:31:21 +00:00
parent 9ad3de966f
commit b741ed63b0
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
compiler/z80/rgcpu.pas
View File

@ -79,9 +79,9 @@ unit rgcpu;
helplist : TAsmList;
hreg : tregister;
begin
if abs(spilltemp.offset)>127 then
begin
Internalerror(2017032701);
// if abs(spilltemp.offset)>127 then
// begin
// Internalerror(2017032701);
//
// helplist:=TAsmList.create;
//
@ -95,8 +95,8 @@ unit rgcpu;
// helplist.concat(helpins);
// list.insertlistafter(pos,helplist);
// helplist.free;
end
else
// end
// else
inherited;
end;
@ -107,9 +107,9 @@ unit rgcpu;
helplist : TAsmList;
hreg : tregister;
begin
if abs(spilltemp.offset)>127 then
begin
Internalerror(2017032702);
// if abs(spilltemp.offset)>127 then
// begin
// Internalerror(2017032702);
//
// helplist:=TAsmList.create;
//
@ -122,8 +122,8 @@ unit rgcpu;
// helplist.concat(spilling_create_store(tempreg,tmpref));
// list.insertlistafter(pos,helplist);
// helplist.free;
end
else
// end
// else
inherited;
end;