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

* unified internal error

Browse Source
This commit is contained in:
florian 2021-08-31 20:28:23 +02:00 committed by Michaël Van Canneyt
parent be069c8fa8
commit dca4bde3a2
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

@ -757,7 +757,7 @@ implementation
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(2017091104);
{$endif AVR} {$endif AVR}
if getregtype(r)<>R_INTREGISTER then if getregtype(r)<>R_INTREGISTER then
internalerror(2017091101); internalerror(2017091101);