mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-19 12:09:14 +02:00
* generate an internal error to avoid infinite loops if nothing changed during a loop pass to write the debug info of remaining defs
git-svn-id: trunk@37968 -
This commit is contained in:
parent
1d4d34a52e
commit
ff44f51292
@ -339,6 +339,8 @@ implementation
|
|||||||
internalerror(200610054);
|
internalerror(200610054);
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
if looplist.count=deftowritelist.count then
|
||||||
|
internalerror(2018011401);
|
||||||
looplist.clear;
|
looplist.clear;
|
||||||
templist := looplist;
|
templist := looplist;
|
||||||
looplist := deftowritelist;
|
looplist := deftowritelist;
|
||||||
|
Loading…
Reference in New Issue
Block a user