paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 16:09:25 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/cgobj.pas
View File

@ -743,12 +743,12 @@ implementation
function tcg.GetNextReg(const r: TRegister): TRegister; function tcg.GetNextReg(const r: TRegister): TRegister;
begin begin
{$ifndef AVR} {$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 if getsupreg(r)<first_int_imreg then
internalerror(2013051401); internalerror(2013051401);
if not has_next_reg[getsupreg(r)] then if not has_next_reg[getsupreg(r)] then
internalerror(2017091103); internalerror(2017091103);
{$else AVR} {$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 if (getsupreg(r)>=first_int_imreg) and not(has_next_reg[getsupreg(r)]) then
internalerror(2017091103); internalerror(2017091103);
{$endif AVR} {$endif AVR}