* do not try to unroll a loop if previously an error was thrown, resolves #37475

git-svn-id: trunk@46435 -

.gitattributes

@@ -16558,6 +16558,7 @@ tests/webtbf/tw3738.pp svneol=native#text/plain
 tests/webtbf/tw3740.pp svneol=native#text/plain
 tests/webtbf/tw37460.pp svneol=native#text/pascal
 tests/webtbf/tw37462.pp svneol=native#text/pascal
+tests/webtbf/tw37475.pp svneol=native#text/pascal
 tests/webtbf/tw3790.pp svneol=native#text/plain
 tests/webtbf/tw3812.pp svneol=native#text/plain
 tests/webtbf/tw3930a.pp svneol=native#text/plain

compiler/optloop.pas

@@ -112,6 +112,8 @@ unit optloop;
         result:=nil;
         if (cs_opt_size in current_settings.optimizerswitches) then
           exit;
+        if ErrorCount<>0 then
+          exit;
         if not(node.nodetype in [forn]) then
           exit;
         unrolls:=number_unrolls(tfornode(node).t2);

tests/webtbf/tw37475.pp

@@ -0,0 +1,9 @@
+{ %fail }
+{ %opt=-O3 }
+var a : integer;
+begin
+  for a := 1 to 1 do
+      for a := 1 to a do
+  end;
+end.
+