<HTML>
<style> BODY { font-family:Arial, Helvetica, sans-serif;font-size:12px; }</style>In that example, I would logically expect an infinite loop. Realistically, I'm not sure, because you're literally trying to trick the compiler with a construct like that (which all testers should do!) - that one could be fun to test!<br>
<br>
Gareth aka. Kit<br>
<br>
<br>
<span style="font-weight: bold;">On Mon 21/05/18 19:43 , Florian Klämpfl florian@freepascal.org sent:<br>
</span><blockquote style="BORDER-LEFT: #F5F5F5 2px solid; MARGIN-LEFT: 5px; MARGIN-RIGHT: 0px; PADDING-LEFT: 5px; PADDING-RIGHT: 0px">Am 21.05.2018 um 19:27 schrieb Ondrej Pokorny:
<br>
<span style="color: rgb(102, 102, 102);">> On 21.05.2018 18:23, Martok wrote:
</span><br>
<span style="color: rgb(102, 102, 102);">>> Am 21.05.2018 um 17:44 schrieb Florian Klämpfl:
</span><br>
<span style="color: rgb(102, 102, 102);">>>> I added raise, exit, goto and label as well.
</span><br>
<span style="color: rgb(102, 102, 102);">>> Oh, label, right.
</span><br>
<span style="color: rgb(102, 102, 102);">>>
</span><br>
<span style="color: rgb(102, 102, 102);">>> I'd say #0033614 can be resolved as "fixed in 39083" and #0033753 as "no change
</span><br>
<span style="color: rgb(102, 102, 102);">>> required" then.
</span><br>
<span style="color: rgb(102, 102, 102);">>
</span><br>
<span style="color: rgb(102, 102, 102);">> Well there is still something left:
</span><br>
<span style="color: rgb(102, 102, 102);">>
</span><br>
<span style="color: rgb(102, 102, 102);">> program LoopUnrollTest;
</span><br>
<span style="color: rgb(102, 102, 102);">> procedure Test;
</span><br>
<span style="color: rgb(102, 102, 102);">> var
</span><br>
<span style="color: rgb(102, 102, 102);">> I: Integer;
</span><br>
<span style="color: rgb(102, 102, 102);">> procedure Test2;
</span><br>
<span style="color: rgb(102, 102, 102);">> begin
</span><br>
<span style="color: rgb(102, 102, 102);">> Writeln(I);
</span><br>
<span style="color: rgb(102, 102, 102);">> end;
</span><br>
<span style="color: rgb(102, 102, 102);">> begin
</span><br>
<span style="color: rgb(102, 102, 102);">> for I := 1 to 10 do
</span><br>
<span style="color: rgb(102, 102, 102);">> Test2;
</span><br>
<span style="color: rgb(102, 102, 102);">> end;
</span><br>
<span style="color: rgb(102, 102, 102);">> begin
</span><br>
<span style="color: rgb(102, 102, 102);">> Test;
</span><br>
<span style="color: rgb(102, 102, 102);">> end.
</span><br>
<br>
What do you expect? That it just works? If yes, what about
<br>
<br>
program LoopUnrollTest;
<br>
procedure Test;
<br>
var
<br>
I: Integer;
<br>
procedure Test2;
<br>
begin
<br>
Writeln(I);
<br>
I:=1;
<br>
end;
<br>
begin
<br>
for I := 1 to 10 do
<br>
Test2;
<br>
end;
<br>
begin
<br>
Test;
<br>
end.
<br>
<br>
?
<br>
_______________________________________________
<br>
fpc-devel maillist - <a href="mailto:fpc-devel@lists.freepascal.org">fpc-devel@lists.freepascal.org</a>
<br>
<a target="_blank" href="<a href="http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-devel">http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-devel</a>"><span style="color: red;">http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-devel</span></a>
<br>
<br>
<br>
</blockquote></HTML>