* 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 -

compiler/dbgbase.pas

@@ -339,6 +339,8 @@ implementation
                     internalerror(200610054);
                 end;
               end;
+            if looplist.count=deftowritelist.count then
+              internalerror(2018011401);
             looplist.clear;
             templist := looplist;
             looplist := deftowritelist;