2
0
Эх сурвалжийг харах

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

git-svn-id: trunk@4940 -

Jonas Maebe 19 жил өмнө
parent
commit
200ad7e5ae
1 өөрчлөгдсөн 10 нэмэгдсэн , 8 устгасан
  1. 10 8
      rtl/inc/genmath.inc

+ 10 - 8
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