[fpc-devel] Debugging Loop Unroll Optimization

[J. Gareth Moreton]

 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 florian at 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 at 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 at lists.freepascal.org
[2] http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-devel
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.freepascal.org/pipermail/fpc-devel/attachments/20180521/55c73c05/attachment.html>