Re: [fpc-pascal] Currency and Int64 casting

2018-05-18 Thread Vojtěch Čihák
Hi,   I have unit1.pas:36                              i:=Int64(c); 0046EEE0 488b45e8                 mov    -0x18(%rbp),%rax 0046EEE4 488945e0                 mov    %rax,-0x20(%rbp) unit1.pas:38                              writeln(i); at Level0 andunit1.pas:36                   

Re: [fpc-pascal] Currency and Int64 casting

2018-05-18 Thread LacaK
Than you, I have unit1.pas:36 i:=Int64(c); 0046EEE0 488b45e8 mov-0x18(%rbp),%rax 0046EEE4 488945e0 mov%rax,-0x20(%rbp) unit1.pas:38 writeln(i); at Level0 and unit1.pas:36

Re: [fpc-pascal] Currency and Int64 casting

2018-05-18 Thread LacaK
Moreover: var c: currency; i1: int64; i2: int64 absolute c; begin c := 68719476736; i1 := Trunc(c*1); writeln(c,', ',i1,', ',i2); readln; end. Win32 (as expected): 6.8719476736E+10, 68719476736, 68719476736 Win64 (wrong) : 6.8719476736E+10,

Re: [fpc-pascal] Currency and Int64 casting

2018-05-18 Thread LacaK
Moreover: var c: currency; i1: int64; i2: int64 absolute c; begin c := 68719476736; i1 := Trunc(c*1); writeln(c,', ',i1,', ',i2); readln; end. Win32 (as expected): 6.8719476736E+10, 68719476736, 68719476736 Win64 (wrong) : 6.8719476736E+10

Re: [fpc-pascal] Undocumented SetLength functionality

2018-05-18 Thread Sven Barth via fpc-pascal
Michael Van Canneyt schrieb am Di., 15. Mai 2018, 14:29: > > > On Tue, 15 May 2018, Sven Barth via fpc-pascal wrote: > > > Torsten Bonde Christiansen schrieb am Di., 15. Mai > 2018, > > 12:03: > > > >> Is this a feature, bug or undocumented behaviour? > >> > > > > This is a feature and absolutel

Re: [fpc-pascal] Undocumented SetLength functionality

2018-05-18 Thread Michael Van Canneyt
On Fri, 18 May 2018, Sven Barth via fpc-pascal wrote: Michael Van Canneyt schrieb am Di., 15. Mai 2018, 14:29: On Tue, 15 May 2018, Sven Barth via fpc-pascal wrote: Torsten Bonde Christiansen schrieb am Di., 15. Mai 2018, 12:03: Is this a feature, bug or undocumented behaviour?

[fpc-pascal] ExceptProc no longer gets Frames if DLL host uses a different memory manager

2018-05-18 Thread OBones
Hello, I have a Win64 DLL compiled with FreePascal 2.6.0 in which I install a ExceptProc handler which signature is as follows: procedure MyExceptProc(Obj: TObject; Addr: Pointer; FrameCount: LongInt; Frame: PPointer); Up until recently, FrameCount was greater than zero and I could walk the

[fpc-pascal] Anyone know where Blaise Thorne is?

2018-05-18 Thread Zoë Peterson
Has anyone had any contact with Blaise Thorne in the past couple of months? In mid-March he told me he would have an updated version of the closure branch ready in a couple of days and then went silent. I only have his email address and haven't been able to get a response. Thanks, Zoë Peters