mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-15 05:49:12 +02:00
* explicitly type cast constants so the compiler does not use smaller types if an fpu instruction set is selected which does not support the highest precision type
git-svn-id: trunk@26775 -
This commit is contained in:
parent
75a13f7e47
commit
ad7a3b2dbf
@ -9,9 +9,9 @@
|
|||||||
{$Q-}
|
{$Q-}
|
||||||
{$R-}
|
{$R-}
|
||||||
|
|
||||||
const Inf=1/0;
|
const Inf=extended(1/0);
|
||||||
NaN=0/0;
|
NaN=extended(0/0);
|
||||||
MinusInf=-Inf;
|
MinusInf=extended(-Inf);
|
||||||
|
|
||||||
function make_str( tail: string ): string;
|
function make_str( tail: string ): string;
|
||||||
var
|
var
|
||||||
|
Loading…
Reference in New Issue
Block a user