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
expect 1
L.
V.
__
> Od: LacaK
> Komu: fpc-pascal@lists.freepascal.org
> Datum: 18.05.2018 07:54
> Předmět: Re: [fpc-pascal] Currency and Int64 casting
>
Linux 64-bit Lazarus 1.9.0 r57948M FPC 3.1.1 x86_64-linux-qt gives
1.00E+00 1
What is dissassemb
pascal@lists.freepascal.org
> Datum: 18.05.2018 07:54
> Předmět: Re: [fpc-pascal] Currency and Int64 casting
>
Linux 64-bit Lazarus 1.9.0 r57948M FPC 3.1.1 x86_64-linux-qt gives
1.00E+00 1
What is dissassembly for:
i:=Int64(c);?
I have for Win32:
test_curr_int64.lpr:1
.
__
Od: LacaK
Komu: fpc-pascal@lists.freepascal.org
Datum: 18.05.2018 07:54
Předmět: Re: [fpc-pascal] Currency and Int64 casting
Linux 64-bit Lazarus 1.9.0 r57948M FPC 3.1.1 x86_64-linux-qt gives
1.00E+00 1
What is dissassembly for:
i:=Int64
Linux 64-bit Lazarus 1.9.0 r57948M FPC 3.1.1 x86_64-linux-qt gives
1.00E+00 1
What is dissassembly for:
i:=Int64(c);?
I have for Win32:
test_curr_int64.lpr:19i1 := Int64(c);
0040158D a100c04200 mov0x42c000,%eax
00401592 a310c04200
Hi,
Linux 64-bit Lazarus 1.9.0 r57948M FPC 3.1.1 x86_64-linux-qt gives
1.00E+00 1
V.__
Od: LacaK
Komu: FPC-Pascal users discussions
Datum: 17.05.2018 13:33
Předmět: [fpc-pascal] Currency and Int64 casting
Hi,
