From 200ad7e5ae5a6b941e4e7fe15a13bc70d4fe8d6a Mon Sep 17 00:00:00 2001 From: Jonas Maebe Date: Mon, 16 Oct 2006 11:08:47 +0000 Subject: [PATCH] * moved some generic constants out of the {$ifndef FPC_SYSTEM_HAS_TRUNC} block git-svn-id: trunk@4940 - --- rtl/inc/genmath.inc | 18 ++++++++++-------- 1 file changed, 10 insertions(+), 8 deletions(-) diff --git a/rtl/inc/genmath.inc b/rtl/inc/genmath.inc index 75bea25c38..7730810201 100644 --- a/rtl/inc/genmath.inc +++ b/rtl/inc/genmath.inc @@ -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