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

* changed the ifndef avr to ifdef avr in GetNextReg

Browse Source 
git-svn-id: branches/z80@44522 -
This commit is contained in:
nickysn 2020-04-02 23:05:49 +00:00
parent 71cadc0a3e
commit 4b281dd6c9
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/cgobj.pas
View File

@ -742,15 +742,15 @@ implementation
{$if defined(cpu8bitalu) or defined(cpu16bitalu)}
function tcg.GetNextReg(const r: TRegister): TRegister;
begin
{$ifndef AVR}
{$ifdef AVR}
{ the AVR code generator depends on the fact that it can do GetNextReg also on physical registers }
if (getsupreg(r)>=first_int_imreg) and not(has_next_reg[getsupreg(r)]) then
internalerror(2017091103);
{$else AVR}
if getsupreg(r)<first_int_imreg then
internalerror(2013051401);
if not has_next_reg[getsupreg(r)] then
internalerror(2017091103);
{$else AVR}
{ the AVR code generator depends on the fact that it can do GetNextReg also on physical registers }
if (getsupreg(r)>=first_int_imreg) and not(has_next_reg[getsupreg(r)]) then
internalerror(2017091103);
{$endif AVR}
if getregtype(r)<>R_INTREGISTER then
internalerror(2017091101);