Re: [fpc-devel] Broken frac function in FPC3.1.1 / Windows x86_64

2018-04-26 Thread Thorsten Engler
> But the only responses are by a reporter named Thaddy de Koning, > which are for me totally useless and IMO he did miss the point. It's not the first time the person has been less than helpful... After looking through other issues he has commented on, I don't think he has contributed anything b

[fpc-devel] Broken frac function in FPC3.1.1 / Windows x86_64

2018-04-26 Thread info
If you compile and run this 64-bit program on Win 64 you get a crash program tfrac; var x,y: double; begin x := 1e20; writeln('x=',x); y := frac(x); writeln('frac(x)=',y); end. D:\Work\DAMath>D:\FPC311\bin\i386-win32\ppcrossx64.exe tfrac.pas Free Pascal Compiler version 3.1.1-r20:38794

Re: [fpc-devel] Case of string

2018-04-26 Thread Alexander Klenin
On Fri, Apr 27, 2018 at 4:29 AM, Bart wrote: > Hi, > > With 3.0.4 when the inout is 'qwerty' the output is 'In 'a'..'z'. > > In trunk (r37889) the output will be: > 'In Hello' for 'Hello' and 'Hello2' > 'In 'a'..'z' only when the inout is 'a' > 'In else' for every other input. > > The 3.0.4 behavi

[fpc-devel] Case of string

2018-04-26 Thread Bart
Hi, Case of string evaluation seems to have changed from 3.0.4 to trunk. program Project1; {$mode objfpc} {$h+} var s: string; begin repeat readln(s); case s of 'Hello', 'Hello2': writeln('In Hello'); 'a'..'z': writeln('In ''a''..''z'''); else writeln('In el