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

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

Browse Source 
git-svn-id: trunk@46435 -
This commit is contained in:
florian 2020-08-14 18:10:56 +00:00
parent 9fca033ac3
commit 1ba8255af0
3 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

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

2
compiler/optloop.pas
View File

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

9
tests/webtbf/tw37475.pp Normal file
View File

@ -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.