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!
Gareth aka. Kit On Mon 21/05/18 19:43 , Florian Klämpfl flor...@freepascal.org sent: Am 21.05.2018 um 19:27 schrieb Ondrej Pokorny: > On 21.05.2018 18:23, Martok wrote: >> Am 21.05.2018 um 17:44 schrieb Florian Klämpfl: >>> I added raise, exit, goto and label as well. >> Oh, label, right. >> >> I'd say #0033614 can be resolved as "fixed in 39083" and #0033753 as "no change >> required" then. > > Well there is still something left: > > program LoopUnrollTest; > procedure Test; > var > I: Integer; > procedure Test2; > begin > Writeln(I); > end; > begin > for I := 1 to 10 do > Test2; > end; > begin > Test; > end. What do you expect? That it just works? If yes, what about program LoopUnrollTest; procedure Test; var I: Integer; procedure Test2; begin Writeln(I); I:=1; end; begin for I := 1 to 10 do Test2; end; begin Test; end. ? _______________________________________________ fpc-devel maillist - fpc-devel@lists.freepascal.org [1] http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-devel [2]">http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-devel Links: ------ [1] mailto:fpc-devel@lists.freepascal.org [2] http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-devel
_______________________________________________ fpc-devel maillist - fpc-devel@lists.freepascal.org http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-devel
