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

* moved the AVR-specific comment next to the AVR specific code

Browse Source 
git-svn-id: branches/z80@44521 -
This commit is contained in:
nickysn 2020-04-02 23:04:45 +00:00
parent 54811831b5
commit 71cadc0a3e
1 changed files with 1 additions and 1 deletions

2
compiler/cgobj.pas
View File

@ -743,12 +743,12 @@ implementation
function tcg.GetNextReg(const r: TRegister): TRegister;
begin
{$ifndef AVR}
{ the AVR code generator depends on the fact that it can do GetNextReg also on physical registers }
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}