|
@@ -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);
|