* fixed softfloat trunc

git-svn-id: trunk@6239 -

rtl/gba/system.pp

@@ -72,7 +72,6 @@ implementation
 {$define FPC_SYSTEM_HAS_extractFloat64Frac0}
 {$define FPC_SYSTEM_HAS_extractFloat64Frac1}
 {$define FPC_SYSTEM_HAS_extractFloat64Exp}
-{$define FPC_SYSTEM_HAS_extractFloat64Frac}
 {$define FPC_SYSTEM_HAS_extractFloat64Sign}
 {$define FPC_SYSTEM_HAS_ExtractFloat32Frac}
 {$define FPC_SYSTEM_HAS_extractFloat32Exp}

rtl/inc/softfpu.pp

@@ -2158,17 +2158,6 @@ Function normalizeRoundAndPackFloat32( zSign: flag; zExp: int16; zSig:bits32 ):
     normalizeRoundAndPackFloat32 := roundAndPackFloat32( zSign, zExp - shiftCount, zSig shl shiftCount );
   End;
 
-{*
--------------------------------------------------------------------------------
-Returns the least-significant 32 fraction bits of the double-precision
-floating-point value `a'.
--------------------------------------------------------------------------------
-*}
-Function extractFloat64Frac( a: float64 ): bits32;
-  Begin
-    extractFloat64Frac := a.low;
-  End;
-
 {*
 -------------------------------------------------------------------------------
 Returns the most-significant 20 fraction bits of the double-precision

rtl/linux/system.pp

@@ -74,7 +74,6 @@ const calculated_cmdline:Pchar=nil;
 {$define FPC_SYSTEM_HAS_extractFloat64Frac0}
 {$define FPC_SYSTEM_HAS_extractFloat64Frac1}
 {$define FPC_SYSTEM_HAS_extractFloat64Exp}
-{$define FPC_SYSTEM_HAS_extractFloat64Frac}
 {$define FPC_SYSTEM_HAS_extractFloat64Sign}
 {$define FPC_SYSTEM_HAS_ExtractFloat32Frac}
 {$define FPC_SYSTEM_HAS_extractFloat32Exp}