paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-09 10:05:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

* moved some generic constants out of the {$ifndef FPC_SYSTEM_HAS_TRUNC}

Browse Source 
block

git-svn-id: trunk@4940 -
This commit is contained in:
Jonas Maebe 2006-10-16 11:08:47 +00:00
parent 67aa148602
commit 200ad7e5ae
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
rtl/inc/genmath.inc
View File

@ -54,14 +54,6 @@ type
{$endif}
{$endif FPC_SYSTEM_HAS_float64}
{$ifndef FPC_SYSTEM_HAS_TRUNC}
{$ifndef FPC_SYSTEM_HAS_float32}
float32 = longint;
{$endif FPC_SYSTEM_HAS_float32}
{$ifndef FPC_SYSTEM_HAS_flag}
flag = byte;
{$endif FPC_SYSTEM_HAS_float32}
const
PIO2 = 1.57079632679489661923; { pi/2 }
@ -98,6 +90,16 @@ const sincof : TabCoef = (
4.16666666666665929218E-2, 0);
{$ifndef FPC_SYSTEM_HAS_TRUNC}
type
{$ifndef FPC_SYSTEM_HAS_float32}
float32 = longint;
{$endif FPC_SYSTEM_HAS_float32}
{$ifndef FPC_SYSTEM_HAS_flag}
flag = byte;
{$endif FPC_SYSTEM_HAS_float32}
{$ifndef FPC_SYSTEM_HAS_extractFloat64Frac0}
Function extractFloat64Frac0(const a: float64): longint;
Begin